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.6MiB live, 0.6MiB 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 (30.7%)

Memory

18.6MiB live, 1 312.3MiB allocated; 1.0s collecting garbage

Samples

1.1s

8 256×

valid

Precisions

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

ival-cos: 191.0ms (34.9% of total)

ival-mult: 187.0ms (34.2% of total)

ival-sqrt: 61.0ms (11.2% of total)

ival-div: 56.0ms (10.2% of total)

ival-add: 41.0ms (7.5% of total)

exact: 6.0ms (1.1% of total)

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

adjust: 2.0ms (0.4% of total)

Bogosity

explain166.0ms (3.6%)

Memory

29.5MiB live, 215.3MiB allocated; 45ms collecting garbage

FPErrors

Click to see full error table

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

Confusion

	Predicted +	Predicted -
+	0	0
-	0	256

Precision

0/0

Recall

0/0

Confusion?

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

Precision?

0/0

Recall?

0/0

Freqs

test

number	freq
0	256

Total Confusion?

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

Precision?

0/0

Recall?

0/0

Samples

73.0ms

512×

valid

Compiler

Compiled 135 to 40 computations (70.4% saved)

Precisions

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

ival-cos: 31.0ms (57.6% of total)

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

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

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

ival-div: 3.0ms (5.6% 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)

preprocess220.0ms (4.7%)

Memory

-36.2MiB live, 159.7MiB allocated; 58ms 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	13

Stop Event

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

Calls

Call 1

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

Outputs

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

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

Symmetry

(abs a1)

(abs a2)

(abs th)

(sort a1 a2)

Compiler

Compiled 19 to 12 computations (36.8% saved)

eval0.0ms (0%)

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

prune0.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.6%	(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))

Compiler

Compiled 19 to 12 computations (36.8% saved)

series20.0ms (0.4%)

Memory

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

Counts

12 → 34

Calls

Call 1

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

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

Calls

9 calls:

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

rewrite196.0ms (4.2%)

Memory

-15.7MiB live, 182.5MiB allocated; 27ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

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

Stop Event

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

Counts

46 → 141

Calls

Call 1

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

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

eval69.0ms (1.5%)

Memory: -0.2MiB live, 44.3MiB allocated; 6ms collecting garbage
Compiler: Compiled 4 605 to 616 computations (86.6% saved)

prune59.0ms (1.3%)

Memory

-21.5MiB live, 24.8MiB allocated; 5ms collecting garbage

Pruning

11 alts after pruning (11 fresh and 0 done)

	Pruned	Kept	Total
New	164	11	175
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	165	11	176

Accuracy

100.0%

Counts

176 → 11

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.7%	(/.f64 (+.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a1) (cos.f64 th))) #s(literal 2 binary64))
▶	99.7%	(/.f64 (+.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) a2) a2) (cos.f64 th))) #s(literal 2 binary64))
▶	99.6%	(/.f64 (+.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (.f64 (.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
	99.6%	(/.f64 (.f64 (cos.f64 th) (+.f64 (.f64 a1 a1) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
	99.6%	(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
	65.9%	(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 #s(approx (/ (cos th) (sqrt 2)) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) (.f64 a2 a2)))
▶	65.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (.f64 a2 a2) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	25.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 th th)) (/.f64 (+.f64 (.f64 a2 a2) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (+.f64 (.f64 a2 a2) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
	64.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (+.f64 (.f64 (/.f64 a2 a1) (/.f64 a2 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1)))
▶	99.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (+.f64 (.f64 (/.f64 a1 a2) (/.f64 a1 a2)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)))
▶	99.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))

Compiler

Compiled 594 to 384 computations (35.4% saved)

series76.0ms (1.6%)

Memory

31.0MiB live, 91.7MiB allocated; 7ms collecting garbage

Counts

33 → 136

Calls

Call 1

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

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

rewrite201.0ms (4.3%)

Memory

-11.2MiB live, 217.6MiB allocated; 33ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	529	4840
0	589	4277
1	3338	4267
0	8600	4267

Stop Event

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

Counts

169 → 391

Calls

Call 1

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

eval76.0ms (1.6%)

Memory: -18.5MiB live, 172.3MiB allocated; 34ms collecting garbage
Compiler: Compiled 20 424 to 2 149 computations (89.5% saved)

prune38.0ms (0.8%)

Memory

6.9MiB live, 54.0MiB allocated; 2ms collecting garbage

Pruning

16 alts after pruning (14 fresh and 2 done)

	Pruned	Kept	Total
New	562	12	574
Fresh	4	2	6
Picked	3	2	5
Done	0	0	0
Total	569	16	585

Accuracy

100.0%

Counts

585 → 16

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.7%	(/.f64 (+.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a1) (cos.f64 th))) #s(literal 2 binary64))
	96.0%	(/.f64 (+.f64 (.f64 (.f64 #s(approx (* (cos th) a1) a1) a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) a2) (cos.f64 th))) #s(literal 2 binary64))
	99.6%	(/.f64 (.f64 (cos.f64 th) (+.f64 (.f64 a1 a1) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
	25.2%	(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 a1 a1) (.f64 a2 a2))) (.f64 th th)) (+.f64 (.f64 a1 a1) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
▶	99.7%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (+.f64 (.f64 a1 a1) (*.f64 a2 a2))) #s(literal 1/2 binary64)))
▶	65.9%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (+.f64 (.f64 a1 a1) (.f64 a2 a2))) #s(literal 1/2 binary64)))
	99.3%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 a2 a2)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
▶	65.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
▶	65.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (.f64 a2 a2) (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))))
✓	65.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (.f64 a2 a2) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	65.7%	#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))))
▶	13.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))))
	99.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
✓	99.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)))))
	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) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 th th)) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
	65.6%	#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)))))

Compiler

Compiled 937 to 598 computations (36.2% saved)

series45.0ms (1%)

Memory

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

Counts

35 → 97

Calls

Call 1

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

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

Calls

9 calls:

Time	Variable		Point	Expression
11.0ms	a1	@	0	((/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (* (sqrt 2) (cos th)) (sqrt 2) 2 (cos th) th (+ (* a1 a1) (* a2 a2)) (* a1 a1) a1 (* a2 a2) a2 1/2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (* (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) 1/2) (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* (* a2 a2) (neg (sqrt 2))) (* (sqrt 2) (neg (* a1 a1)))) (* (sqrt 2) (neg (sqrt 2)))) (+ (* (* a2 a2) (neg (sqrt 2))) (* (sqrt 2) (neg (* a1 a1)))) (* (* a2 a2) (neg (sqrt 2))) (neg (sqrt 2)) (* (sqrt 2) (neg (* a1 a1))) (neg (* a1 a1)) (* (sqrt 2) (neg (sqrt 2))) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2))) (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2)) 1 (pow 2 -1/2) -1/2)
5.0ms	a2	@	inf	((/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (* (sqrt 2) (cos th)) (sqrt 2) 2 (cos th) th (+ (* a1 a1) (* a2 a2)) (* a1 a1) a1 (* a2 a2) a2 1/2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (* (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) 1/2) (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* (* a2 a2) (neg (sqrt 2))) (* (sqrt 2) (neg (* a1 a1)))) (* (sqrt 2) (neg (sqrt 2)))) (+ (* (* a2 a2) (neg (sqrt 2))) (* (sqrt 2) (neg (* a1 a1)))) (* (* a2 a2) (neg (sqrt 2))) (neg (sqrt 2)) (* (sqrt 2) (neg (* a1 a1))) (neg (* a1 a1)) (* (sqrt 2) (neg (sqrt 2))) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2))) (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2)) 1 (pow 2 -1/2) -1/2)
4.0ms	a1	@	inf	((/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (* (sqrt 2) (cos th)) (sqrt 2) 2 (cos th) th (+ (* a1 a1) (* a2 a2)) (* a1 a1) a1 (* a2 a2) a2 1/2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (* (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) 1/2) (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* (* a2 a2) (neg (sqrt 2))) (* (sqrt 2) (neg (* a1 a1)))) (* (sqrt 2) (neg (sqrt 2)))) (+ (* (* a2 a2) (neg (sqrt 2))) (* (sqrt 2) (neg (* a1 a1)))) (* (* a2 a2) (neg (sqrt 2))) (neg (sqrt 2)) (* (sqrt 2) (neg (* a1 a1))) (neg (* a1 a1)) (* (sqrt 2) (neg (sqrt 2))) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2))) (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2)) 1 (pow 2 -1/2) -1/2)
4.0ms	a2	@	0	((/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (* (sqrt 2) (cos th)) (sqrt 2) 2 (cos th) th (+ (* a1 a1) (* a2 a2)) (* a1 a1) a1 (* a2 a2) a2 1/2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (* (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) 1/2) (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* (* a2 a2) (neg (sqrt 2))) (* (sqrt 2) (neg (* a1 a1)))) (* (sqrt 2) (neg (sqrt 2)))) (+ (* (* a2 a2) (neg (sqrt 2))) (* (sqrt 2) (neg (* a1 a1)))) (* (* a2 a2) (neg (sqrt 2))) (neg (sqrt 2)) (* (sqrt 2) (neg (* a1 a1))) (neg (* a1 a1)) (* (sqrt 2) (neg (sqrt 2))) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2))) (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2)) 1 (pow 2 -1/2) -1/2)
4.0ms	a2	@	-inf	((/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (* (sqrt 2) (cos th)) (sqrt 2) 2 (cos th) th (+ (* a1 a1) (* a2 a2)) (* a1 a1) a1 (* a2 a2) a2 1/2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (* (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) 1/2) (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* (* a2 a2) (neg (sqrt 2))) (* (sqrt 2) (neg (* a1 a1)))) (* (sqrt 2) (neg (sqrt 2)))) (+ (* (* a2 a2) (neg (sqrt 2))) (* (sqrt 2) (neg (* a1 a1)))) (* (* a2 a2) (neg (sqrt 2))) (neg (sqrt 2)) (* (sqrt 2) (neg (* a1 a1))) (neg (* a1 a1)) (* (sqrt 2) (neg (sqrt 2))) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2))) (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2)) 1 (pow 2 -1/2) -1/2)

rewrite227.0ms (4.9%)

Memory

-17.0MiB live, 268.5MiB allocated; 64ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	375	3380
0	424	3060
1	2258	2991
0	9073	2991

Stop Event

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

Counts

132 → 417

Calls

Call 1

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

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

eval108.0ms (2.3%)

Memory: -15.0MiB live, 175.2MiB allocated; 21ms collecting garbage
Compiler: Compiled 26 478 to 2 287 computations (91.4% saved)

prune46.0ms (1%)

Memory

22.2MiB live, 69.4MiB allocated; 2ms collecting garbage

Pruning

24 alts after pruning (21 fresh and 3 done)

	Pruned	Kept	Total
New	573	16	589
Fresh	4	5	9
Picked	4	1	5
Done	0	2	2
Total	581	24	605

Accuracy

100.0%

Counts

605 → 24

Alt Table

Click to see full alt table

Status	Accuracy	Program
	25.2%	(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 a1 a1) (.f64 a2 a2))) (.f64 th th)) (+.f64 (.f64 a1 a1) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
▶	99.7%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (.f64 (.f64 (+.f64 (.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 1/2 binary64)))
	99.3%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(approx (+ ( a1 a1) (* a2 a2)) (*.f64 a2 a2))) #s(literal 1/2 binary64)))
▶	61.5%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (+.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64)))) (+.f64 (.f64 a1 a1) (*.f64 a2 a2))) #s(literal 1/2 binary64)))
	99.6%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (+.f64 (.f64 a1 a1) (*.f64 a2 a2)))) #s(literal 1/2 binary64)))
	65.9%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (+.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1/2 binary64))))
	65.7%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 #s(approx ( (sqrt 2) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #s(literal 1/2 binary64)))
	13.1%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 #s(approx ( (sqrt 2) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
	13.1%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(approx (* (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) 1/2) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
▶	65.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (.f64 a2 (.f64 a2 (neg.f64 (sqrt.f64 #s(literal 2 binary64))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
✓	65.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (.f64 a2 a2) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	43.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (neg (sqrt 2))) (* (sqrt 2) (neg (* a1 a1)))) (.f64 (-.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a1) (/.f64 a2 a1))) (.f64 a1 a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
	13.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (neg (sqrt 2))) (* (sqrt 2) (neg (* a1 a1)))) (.f64 (.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
	65.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (neg (sqrt 2))) (* (sqrt 2) (neg (* a1 a1)))) (.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
▶	65.7%	#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))))
✓	13.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))))
	99.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
✓	99.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)))))
	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) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 th th)) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
	65.6%	#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)))))
	44.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2))) (.f64 (+.f64 (.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) (/.f64 (.f64 a2 a2) a1)) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 a1 a1))))
	65.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (+.f64 (.f64 a1 a1) (*.f64 a2 a2)))))
	65.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 a2 a2))))
▶	13.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 a1 a1))))

Compiler

Compiled 1 825 to 1 105 computations (39.5% saved)

series98.0ms (2.1%)

Memory

-24.6MiB live, 63.9MiB allocated; 10ms collecting garbage

Counts

40 → 120

Calls

Call 1

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

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

Calls

9 calls:

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

rewrite195.0ms (4.2%)

Memory

34.8MiB live, 218.6MiB allocated; 24ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	404	4229
0	458	3909
1	2278	3849
0	8976	3849

Stop Event

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

Counts

160 → 386

Calls

Call 1

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

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

eval146.0ms (3.1%)

Memory: -48.6MiB live, 173.3MiB allocated; 60ms collecting garbage
Compiler: Compiled 27 670 to 2 506 computations (90.9% saved)

prune42.0ms (0.9%)

Memory

10.5MiB live, 111.3MiB allocated; 10ms collecting garbage

Pruning

25 alts after pruning (19 fresh and 6 done)

	Pruned	Kept	Total
New	568	7	575
Fresh	4	12	16
Picked	2	3	5
Done	0	3	3
Total	574	25	599

Accuracy

100.0%

Counts

599 → 25

Alt Table

Click to see full alt table

Status	Accuracy	Program
	25.2%	(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 a1 a1) (.f64 a2 a2))) (.f64 th th)) (+.f64 (.f64 a1 a1) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
	99.3%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(approx (+ ( a1 a1) (* a2 a2)) (*.f64 a2 a2))) #s(literal 1/2 binary64)))
✓	61.5%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (+.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64)))) (+.f64 (.f64 a1 a1) (*.f64 a2 a2))) #s(literal 1/2 binary64)))
	16.2%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (+.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64)))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1))) #s(literal 1/2 binary64)))
	99.6%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (+.f64 (.f64 a1 a1) (*.f64 a2 a2)))) #s(literal 1/2 binary64)))
	99.3%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (.f64 (.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (cos.f64 th)) #s(literal 1/2 binary64)))
	65.9%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (+.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1/2 binary64))))
	65.7%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 #s(approx ( (sqrt 2) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #s(literal 1/2 binary64)))
	13.1%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(approx (* (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) 1/2) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
✓	65.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (.f64 a2 a2) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	43.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (neg (sqrt 2))) (* (sqrt 2) (neg (* a1 a1)))) (.f64 (-.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a1) (/.f64 a2 a1))) (.f64 a1 a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
	13.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (neg (sqrt 2))) (* (sqrt 2) (neg (* a1 a1)))) (.f64 (.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
	65.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (neg (sqrt 2))) (* (sqrt 2) (neg (* a1 a1)))) (.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
	65.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 (* a2 (neg (sqrt 2)))) (* (sqrt 2) (neg (* a1 a1)))) (neg.f64 (.f64 (.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
✓	65.7%	#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))))
✓	13.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))))
	99.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
✓	99.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)))))
	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) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 th th)) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
	65.6%	#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)))))
	44.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 (* a2 (neg (sqrt 2)))) (* (sqrt 2) (neg (* a1 a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (+.f64 (.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) (/.f64 (.f64 a2 a2) a1)) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 a1 a1))))
	13.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 (* a2 (neg (sqrt 2)))) (* (sqrt 2) (neg (* a1 a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
	65.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 (* a2 (neg (sqrt 2)))) (* (sqrt 2) (neg (* a1 a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (+.f64 (.f64 a1 a1) (*.f64 a2 a2)))))
	65.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 (* a2 (neg (sqrt 2)))) (* (sqrt 2) (neg (* a1 a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 a2 a2))))
✓	13.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 a1 a1))))

Compiler

Compiled 2 830 to 872 computations (69.2% saved)

regimes159.0ms (3.4%)

Memory

10.2MiB live, 238.2MiB allocated; 27ms collecting garbage

Counts

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

Calls

8 calls:

44.0ms	th
29.0ms	a1
20.0ms	(*.f64 a2 a2)
15.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
13.0ms	(*.f64 a1 a1)

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes117.0ms (2.5%)

Memory

10.9MiB live, 202.0MiB allocated; 39ms collecting garbage

Counts

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

Outputs

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes92.0ms (2%)

Memory

-18.5MiB live, 128.7MiB allocated; 31ms collecting garbage

Counts

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

Outputs

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

Calls

8 calls:

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

regimes72.0ms (1.5%)

Memory

-14.1MiB live, 131.1MiB allocated; 4ms collecting garbage

Counts

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

Outputs

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes62.0ms (1.3%)

Memory

32.1MiB live, 78.5MiB allocated; 3ms collecting garbage

Counts

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

Outputs

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes60.0ms (1.3%)

Memory

11.2MiB live, 57.0MiB allocated; 4ms collecting garbage

Counts

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes27.0ms (0.6%)

Memory

-34.0MiB live, 12.7MiB allocated; 1ms collecting garbage

Counts

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

Outputs

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

Calls

3 calls:

18.0ms

(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))

4.0ms

(cos.f64 th)

4.0ms

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

Results

Accuracy	Segments	Branch
72.9%	2	`(cos.f64 th)`
72.9%	2	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
73.8%	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 26 to 23 computations (11.5% saved)

regimes30.0ms (0.6%)

Memory

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

Counts

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 34 to 37 computations (-8.8% saved)

regimes40.0ms (0.9%)

Memory

-27.1MiB live, 23.6MiB allocated; 4ms collecting garbage

Counts

9 → 1

Calls

Call 1

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

Outputs

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes18.0ms (0.4%)

Memory

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

Counts

6 → 1

Calls

Call 1

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

Outputs

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes9.0ms (0.2%)

Memory

12.9MiB live, 12.9MiB allocated; 0ms 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)) (/ 1 (pow 2 -1/2))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a1 a1))))

Outputs

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-4.0095682785326243e-106	-5.2707785896286225e-173

Compiler

Compiled 22 to 18 computations (18.2% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-4.0095682785326243e-106	-5.2707785896286225e-173

Compiler

Compiled 22 to 18 computations (18.2% saved)

simplify60.0ms (1.3%)

Memory

0.6MiB live, 47.7MiB allocated; 1ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	96	519
1	165	509
2	423	473
3	1454	473
4	4742	473

Stop Event

1×	node limit

Calls

Call 1

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

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

derivations338.0ms (7.3%)

Memory

-29.1MiB live, 396.1MiB allocated; 47ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 555 to 97 computations (82.5% saved)

preprocess114.0ms (2.4%)

Memory

41.0MiB live, 203.7MiB allocated; 58ms collecting garbage

Remove

(abs th)

(abs a2)

Compiler

Compiled 1 652 to 554 computations (66.5% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze0.0ms (0%)

sample1.4s (30.7%)

explain166.0ms (3.6%)

preprocess220.0ms (4.7%)

eval0.0ms (0%)

prune0.0ms (0%)

series20.0ms (0.4%)

rewrite196.0ms (4.2%)

eval69.0ms (1.5%)

prune59.0ms (1.3%)

series76.0ms (1.6%)

rewrite201.0ms (4.3%)

eval76.0ms (1.6%)

prune38.0ms (0.8%)

series45.0ms (1%)

rewrite227.0ms (4.9%)

eval108.0ms (2.3%)

prune46.0ms (1%)

series98.0ms (2.1%)

rewrite195.0ms (4.2%)

eval146.0ms (3.1%)

prune42.0ms (0.9%)

regimes159.0ms (3.4%)

regimes117.0ms (2.5%)

regimes92.0ms (2%)

regimes72.0ms (1.5%)

regimes62.0ms (1.3%)

regimes60.0ms (1.3%)

regimes27.0ms (0.6%)

regimes30.0ms (0.6%)

regimes40.0ms (0.9%)

regimes18.0ms (0.4%)

regimes9.0ms (0.2%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

simplify60.0ms (1.3%)

derivations338.0ms (7.3%)

preprocess114.0ms (2.4%)

end0.0ms (0%)

Profiling