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.5s (16.6%)

Memory

73.1MiB live, 1 367.2MiB allocated; 1.1s collecting garbage

Samples

1.2s

8 256×

valid

Precisions

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

ival-mult: 270.0ms (42.4% of total)

ival-cos: 195.0ms (30.6% of total)

ival-sqrt: 65.0ms (10.2% of total)

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

ival-add: 38.0ms (6% of total)

exact: 7.0ms (1.1% of total)

adjust: 3.0ms (0.5% of total)

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

Bogosity

explain199.0ms (2.2%)

Memory

-33.6MiB live, 253.0MiB allocated; 58ms 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

58.0ms

512×

valid

Compiler

Compiled 135 to 40 computations (70.4% saved)

Precisions

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

exact: 0.0ms (0% of total)

preprocess207.0ms (2.3%)

Memory

35.1MiB live, 172.5MiB allocated; 20ms 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

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

series50.0ms (0.6%)

Memory

-35.5MiB live, 37.9MiB allocated; 8ms 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
31.0ms	a1	@	-inf	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
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)

rewrite294.0ms (3.2%)

Memory

-14.9MiB live, 171.4MiB allocated; 32ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

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

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 (ratio-square-sum.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 (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 (ratio-of-squares.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 (ratio-of-squares.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)) (ratio-of-squares.f64 a1 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 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)) (ratio-of-squares.f64 a1 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 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) (ratio-of-squares.f64 a1 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64))))) (*.f64 th th)) (ratio-of-squares.f64 a1 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 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)) (ratio-of-squares.f64 a2 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 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)) (ratio-of-squares.f64 a2 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 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) (ratio-of-squares.f64 a2 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64))))) (*.f64 th th)) (ratio-of-squares.f64 a2 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (cos th) (cos.f64 th))

eval113.0ms (1.2%)

Memory

10.7MiB live, 142.9MiB allocated; 18ms collecting garbage

Samples

44.0ms	1 143×	0	valid
22.0ms	137×	0	invalid

Compiler

Compiled 4 584 to 614 computations (86.6% saved)

Precisions

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

ival-mult: 31.0ms (75.9% of total)

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

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

ival-true: 1.0ms (2.4% of total)

ival-assert: 1.0ms (2.4% of total)

adjust: 0.0ms (0% of total)

prune110.0ms (1.2%)

Memory

25.5MiB live, 168.0MiB allocated; 27ms collecting garbage

Pruning

12 alts after pruning (12 fresh and 0 done)

	Pruned	Kept	Total
New	163	12	175
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	164	12	176

Accuracy

100.0%

Counts

176 → 12

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

Samples

81.0ms

1 536×

valid

Compiler

Compiled 628 to 420 computations (33.1% saved)

Precisions

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

ival-mult: 19.0ms (64.1% of total)

ival-div: 9.0ms (30.3% of total)

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

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

adjust: 0.0ms (0% of total)

series64.0ms (0.7%)

Memory

-27.1MiB live, 119.2MiB allocated; 29ms collecting garbage

Counts

34 → 117

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

Calls

9 calls:

Time	Variable		Point	Expression
11.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 a1) (* a2 a2)) 1) (/ (cos th) (sqrt 2))) (* a2 a2)) (* (+ (/ (* a1 a1) (* a2 a2)) 1) (/ (cos th) (sqrt 2))) (+ (/ (* a1 a1) (* a2 a2)) 1) (/ (* a1 a1) (* a2 a2)) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (* a2 a2) (* (pow 2 1/4) (pow 2 1/4))) (pow 2 1/4) 1/4)
10.0ms	a2	@	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 a1) (* a2 a2)) 1) (/ (cos th) (sqrt 2))) (* a2 a2)) (* (+ (/ (* a1 a1) (* a2 a2)) 1) (/ (cos th) (sqrt 2))) (+ (/ (* a1 a1) (* a2 a2)) 1) (/ (* a1 a1) (* a2 a2)) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (* a2 a2) (* (pow 2 1/4) (pow 2 1/4))) (pow 2 1/4) 1/4)
7.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 a1) (* a2 a2)) 1) (/ (cos th) (sqrt 2))) (* a2 a2)) (* (+ (/ (* a1 a1) (* a2 a2)) 1) (/ (cos th) (sqrt 2))) (+ (/ (* a1 a1) (* a2 a2)) 1) (/ (* a1 a1) (* a2 a2)) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (* a2 a2) (* (pow 2 1/4) (pow 2 1/4))) (pow 2 1/4) 1/4)
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 a1) (* a2 a2)) 1) (/ (cos th) (sqrt 2))) (* a2 a2)) (* (+ (/ (* a1 a1) (* a2 a2)) 1) (/ (cos th) (sqrt 2))) (+ (/ (* a1 a1) (* a2 a2)) 1) (/ (* a1 a1) (* a2 a2)) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (* a2 a2) (* (pow 2 1/4) (pow 2 1/4))) (pow 2 1/4) 1/4)
5.0ms	a1	@	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 a1) (* a2 a2)) 1) (/ (cos th) (sqrt 2))) (* a2 a2)) (* (+ (/ (* a1 a1) (* a2 a2)) 1) (/ (cos th) (sqrt 2))) (+ (/ (* a1 a1) (* a2 a2)) 1) (/ (* a1 a1) (* a2 a2)) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (* a2 a2) (* (pow 2 1/4) (pow 2 1/4))) (pow 2 1/4) 1/4)

rewrite234.0ms (2.6%)

Memory

38.4MiB live, 224.1MiB allocated; 44ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	463	4106
0	512	3647
1	2894	3582
0	8176	3567

Stop Event

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

Counts

151 → 453

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

eval1.6s (17.4%)

Memory

-6.1MiB live, 2 241.7MiB allocated; 376ms collecting garbage

Samples

1.1s

23 552×

valid

Compiler

Compiled 24 602 to 2 564 computations (89.6% saved)

Precisions

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

ival-mult: 341.0ms (65.1% of total)

ival-div: 155.0ms (29.6% of total)

ival-true: 13.0ms (2.5% of total)

ival-assert: 9.0ms (1.7% of total)

adjust: 5.0ms (1% of total)

prune129.0ms (1.4%)

Memory

21.0MiB live, 160.4MiB allocated; 11ms collecting garbage

Pruning

18 alts after pruning (16 fresh and 2 done)

	Pruned	Kept	Total
New	676	15	691
Fresh	6	1	7
Picked	3	2	5
Done	0	0	0
Total	685	18	703

Accuracy

100.0%

Counts

703 → 18

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.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)) (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 a2 a2) (cos.f64 th)) (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))))
	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 (+.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)))))
	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)))))
	65.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (ratio-of-squares.f64 a2 (pow.f64 #s(literal 4 binary64) #s(literal 1/8 binary64)))))
▶	13.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (ratio-of-squares.f64 a1 (pow.f64 #s(literal 4 binary64) #s(literal 1/8 binary64)))))
▶	44.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))

Samples

70.0ms

1 536×

valid

Compiler

Compiled 1 151 to 704 computations (38.8% saved)

Precisions

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

ival-mult: 26.0ms (71.9% of total)

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

ival-true: 1.0ms (2.8% of total)

ival-assert: 1.0ms (2.8% of total)

adjust: 0.0ms (0% of total)

series112.0ms (1.2%)

Memory

-3.5MiB live, 138.4MiB allocated; 20ms collecting garbage

Counts

33 → 96

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

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 (* (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
#s(approx (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) #s(hole binary64 (/ (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (pow a1 2))))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))))
#s(approx (/ (* a2 a2) (* a1 a1)) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (/ (* a1 a1) (* (pow 4 1/8) (pow 4 1/8))) #s(hole binary64 (* (pow 1/4 1/4) (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 (* (* (* (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 (* (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) #s(hole binary64 (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) #s(hole binary64 1))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) #s(hole binary64 (+ 1 (/ (pow a2 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) (cos th)) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (* a2 a2) (cos th)) #s(hole binary64 (* (pow a2 2) (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 (* (* (* (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 (* (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (* (pow a1 2) (sqrt 2))) (/ 1 (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (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 (/ (* (* 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 (* (* a2 a2) (cos th)) #s(hole binary64 (pow a2 2)))
#s(approx (* (* a2 a2) (cos th)) #s(hole binary64 (+ (* -1/2 (* (pow a2 2) (pow th 2))) (pow a2 2))))
#s(approx (* (* a2 a2) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a2 2)) (* 1/24 (* (pow a2 2) (pow th 2))))) (pow a2 2))))
#s(approx (* (* a2 a2) (cos th)) #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) 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
55.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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (* a1 a1)) (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (+ (/ (* a2 a2) (* a1 a1)) 1) (/ (* a2 a2) (* a1 a1)) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/ (* a1 a1) (* (pow 4 1/8) (pow 4 1/8))) (pow 4 1/8) 4 1/8 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* a2 a2) (cos th)) (sqrt 2)) (* (* a2 a2) (cos th)))
17.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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (* a1 a1)) (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (+ (/ (* a2 a2) (* a1 a1)) 1) (/ (* a2 a2) (* a1 a1)) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/ (* a1 a1) (* (pow 4 1/8) (pow 4 1/8))) (pow 4 1/8) 4 1/8 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* a2 a2) (cos th)) (sqrt 2)) (* (* a2 a2) (cos th)))
10.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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (* a1 a1)) (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (+ (/ (* a2 a2) (* a1 a1)) 1) (/ (* a2 a2) (* a1 a1)) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/ (* a1 a1) (* (pow 4 1/8) (pow 4 1/8))) (pow 4 1/8) 4 1/8 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* a2 a2) (cos th)) (sqrt 2)) (* (* a2 a2) (cos th)))
10.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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (* a1 a1)) (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (+ (/ (* a2 a2) (* a1 a1)) 1) (/ (* a2 a2) (* a1 a1)) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/ (* a1 a1) (* (pow 4 1/8) (pow 4 1/8))) (pow 4 1/8) 4 1/8 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* a2 a2) (cos th)) (sqrt 2)) (* (* a2 a2) (cos th)))
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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (* a1 a1)) (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (+ (/ (* a2 a2) (* a1 a1)) 1) (/ (* a2 a2) (* a1 a1)) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/ (* a1 a1) (* (pow 4 1/8) (pow 4 1/8))) (pow 4 1/8) 4 1/8 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* a2 a2) (cos th)) (sqrt 2)) (* (* a2 a2) (cos th)))

rewrite182.0ms (2%)

Memory

17.4MiB live, 244.7MiB allocated; 33ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	373	3209
0	405	2926
1	2238	2889
0	9158	2866

Stop Event

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

Counts

129 → 422

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

eval2.0s (21.7%)

Memory

39.0MiB live, 2 766.2MiB allocated; 1.4s collecting garbage

Samples

1.2s	25 663×	0	valid
11.0ms	193×	0	invalid

Compiler

Compiled 25 142 to 2 471 computations (90.2% saved)

Precisions

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

ival-mult: 435.0ms (67.5% of total)

ival-div: 179.0ms (27.8% of total)

ival-true: 15.0ms (2.3% of total)

ival-assert: 10.0ms (1.6% of total)

adjust: 6.0ms (0.9% of total)

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

prune136.0ms (1.5%)

Memory

-2.2MiB live, 190.4MiB allocated; 72ms collecting garbage

Pruning

20 alts after pruning (16 fresh and 4 done)

	Pruned	Kept	Total
New	543	11	554
Fresh	6	5	11
Picked	3	2	5
Done	0	2	2
Total	552	20	572

Accuracy

100.0%

Counts

572 → 20

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	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 (+ ( a2 a2) (* 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.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.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)) (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 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
	61.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 a2 a2) #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.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)))))
	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)))))
	65.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (ratio-of-squares.f64 a2 (pow.f64 #s(literal 16 binary64) #s(literal 1/16 binary64)))))
▶	33.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (+.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
	44.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (+.f64 (.f64 (/.f64 a2 a1) (/.f64 a2 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
	43.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 #s(approx (+ (/ ( a2 a2) (* a1 a1)) 1) (ratio-of-squares.f64 a2 a1)) (sqrt.f64 #s(literal 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) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 #s(approx (+ (/ ( a2 a2) (* a1 a1)) 1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
	54.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 (/.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1)))
▶	13.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))

Samples

78.0ms

1 536×

valid

Compiler

Compiled 1 386 to 820 computations (40.8% saved)

Precisions

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

ival-mult: 28.0ms (73.7% of total)

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

ival-true: 1.0ms (2.6% of total)

ival-assert: 1.0ms (2.6% of total)

adjust: 0.0ms (0% of total)

series40.0ms (0.4%)

Memory

16.9MiB live, 62.5MiB allocated; 12ms collecting garbage

Counts

33 → 122

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

Calls

9 calls:

Time	Variable		Point	Expression
11.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)) (sqrt 2)) (* a1 (/ a1 (sqrt 2))) (/ a1 (sqrt 2)) (/ (+ (* (* (* (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) (* a1 a1)) (sqrt 2)) (* (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (* a1 a1)) (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (+ (/ (* a2 a2) (* a1 a1)) 1) (/ (* a2 a2) (* a1 a1)) 1 (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (* (* (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1))) 1/2) (* (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1))) (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1)))
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)) (sqrt 2)) (* a1 (/ a1 (sqrt 2))) (/ a1 (sqrt 2)) (/ (+ (* (* (* (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) (* a1 a1)) (sqrt 2)) (* (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (* a1 a1)) (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (+ (/ (* a2 a2) (* a1 a1)) 1) (/ (* a2 a2) (* a1 a1)) 1 (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (* (* (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1))) 1/2) (* (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1))) (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1)))
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)) (sqrt 2)) (* a1 (/ a1 (sqrt 2))) (/ a1 (sqrt 2)) (/ (+ (* (* (* (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) (* a1 a1)) (sqrt 2)) (* (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (* a1 a1)) (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (+ (/ (* a2 a2) (* a1 a1)) 1) (/ (* a2 a2) (* a1 a1)) 1 (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (* (* (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1))) 1/2) (* (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1))) (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1)))
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)) (sqrt 2)) (* a1 (/ a1 (sqrt 2))) (/ a1 (sqrt 2)) (/ (+ (* (* (* (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) (* a1 a1)) (sqrt 2)) (* (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (* a1 a1)) (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (+ (/ (* a2 a2) (* a1 a1)) 1) (/ (* a2 a2) (* a1 a1)) 1 (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (* (* (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1))) 1/2) (* (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1))) (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1)))
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)) (sqrt 2)) (* a1 (/ a1 (sqrt 2))) (/ a1 (sqrt 2)) (/ (+ (* (* (* (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) (* a1 a1)) (sqrt 2)) (* (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (* a1 a1)) (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (+ (/ (* a2 a2) (* a1 a1)) 1) (/ (* a2 a2) (* a1 a1)) 1 (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (* (* (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1))) 1/2) (* (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1))) (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1)))

rewrite173.0ms (1.9%)

Memory

10.7MiB live, 243.3MiB allocated; 34ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	386	4255
0	428	4000
1	2152	3914
0	8605	3832

Stop Event

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

Counts

155 → 409

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

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 (.f64 #s(literal 1/8 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 #s(literal 1/8 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 #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) (.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 #s(literal 1/8 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 #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) (.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 #s(literal 1/8 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 #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) (.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 #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 #s(literal 1/8 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 #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 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a2 #s(literal 6 binary64))) (.f64 (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a1 #s(literal 6 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 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a1 #s(literal 6 binary64))) (.f64 (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a2 #s(literal 6 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 (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 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a1 #s(literal 6 binary64))) (.f64 (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a2 #s(literal 6 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 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a1 #s(literal 6 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 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a2 #s(literal 6 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
(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)
(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) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 a1 a1))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
#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 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a2 #s(literal 6 binary64)))) (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a1 #s(literal 6 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 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a1 #s(literal 6 binary64)))) (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a2 #s(literal 6 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 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a1 #s(literal 6 binary64)))) (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a2 #s(literal 6 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 #s(literal -1/2 binary64) (.f64 (.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(+.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a1 #s(literal 6 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 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a2 #s(literal 6 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 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a2 #s(literal 6 binary64))) (.f64 (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a1 #s(literal 6 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 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a1 #s(literal 6 binary64))) (.f64 (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a2 #s(literal 6 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 (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 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a1 #s(literal 6 binary64))) (.f64 (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a2 #s(literal 6 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 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a1 #s(literal 6 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 #s(literal 2 binary64) #s(literal 3/2 binary64)) (pow.f64 a2 #s(literal 6 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))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
(.f64 (.f64 (/.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1)
(.f64 (/.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))
(.f64 (.f64 a1 a1) (/.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (.f64 a1 a1)) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (.f64 a1 a1)) (.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (.f64 a1 a1))) (-.f64 (.f64 (.f64 (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))) (.f64 (.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (.f64 a1 a1)) (.f64 (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 a1 a1) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 a1 a1) (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 a1 a1) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 a1 a1) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))) (-.f64 (.f64 (.f64 (.f64 a1 a1) (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 a1 a1) (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64))))) (.f64 (.f64 (.f64 a1 a1) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) (.f64 (*.f64 a1 a1) (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(+.f64 (/.f64 (.f64 #s(literal 1 binary64) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (ratio-of-squares.f64 a2 a1) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 (.f64 a1 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 a1 a1) (ratio-of-squares.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (.f64 a1 a1)) (.f64 (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
(+.f64 (.f64 (.f64 a1 a1) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 a1 a1) (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -3 binary64))) (+.f64 (/.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 #s(literal 1 binary64) (ratio-of-squares.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -3 binary64)) (pow.f64 (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal 1 binary64) (ratio-of-squares.f64 a2 a1)) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (neg.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (+.f64 (.f64 #s(literal -1 binary64) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 a2 a2)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (+.f64 (.f64 #s(literal -1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (ratio-of-squares.f64 a2 a1))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 #s(literal 1 binary64) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a2 a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (+.f64 (.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (ratio-of-squares.f64 a2 a1))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1 binary64))) (.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1 binary64))) (.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (.f64 (ratio-of-squares.f64 a2 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 (.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1 binary64))) (.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (/.f64 (-.f64 #s(literal 1 binary64) (ratio-of-squares.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -3 binary64)) (pow.f64 (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal 1 binary64) (ratio-of-squares.f64 a2 a1)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(-.f64 (/.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (ratio-of-squares.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (/.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (-.f64 #s(literal 1 binary64) (ratio-of-squares.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -3 binary64)) (+.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 #s(literal 1 binary64) (ratio-of-squares.f64 a2 a1)) #s(literal 2 binary64))))) (/.f64 (pow.f64 (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 #s(literal 1 binary64) (ratio-of-squares.f64 a2 a1)) #s(literal 2 binary64))))))
(+.f64 (/.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(+.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (-.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (ratio-of-squares.f64 a2 a1))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 3 binary64)) #s(literal 1 binary64))) (neg.f64 (+.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (ratio-of-squares.f64 a2 a1))))))
(/.f64 (neg.f64 (neg.f64 (+.f64 (.f64 a1 a1) (.f64 a2 a2)))) (neg.f64 (neg.f64 (*.f64 a1 a1))))
(/.f64 (+.f64 (.f64 (/.f64 (.f64 a2 a2) a1) #s(literal 2 binary64)) (.f64 a1 #s(literal 2 binary64))) (.f64 a1 #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 a2 a2)) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 a1 a1)) #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 a1 a1)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (.f64 a2 a2) #s(literal 2 binary64)) (.f64 (.f64 a1 a1) #s(literal 2 binary64))) (.f64 (.f64 a1 a1) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 #s(literal 2 binary64) a1) (.f64 #s(literal 2 binary64) (/.f64 (.f64 a2 a2) a1))) (.f64 #s(literal 2 binary64) a1))
(/.f64 (+.f64 (.f64 #s(literal 2 binary64) (neg.f64 (.f64 a1 a1))) (.f64 #s(literal 2 binary64) (neg.f64 (.f64 a2 a2)))) (.f64 #s(literal 2 binary64) (neg.f64 (.f64 a1 a1))))
(/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 a1 a1)) (.f64 #s(literal 2 binary64) (.f64 a2 a2))) (.f64 #s(literal 2 binary64) (.f64 a1 a1)))
(/.f64 (+.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) (/.f64 (.f64 a2 a2) a1))) (.f64 (*.f64 a1 a1) a1))
(/.f64 (+.f64 (.f64 (.f64 a1 a1) (neg.f64 (.f64 a1 a1))) (.f64 (.f64 a1 a1) (neg.f64 (.f64 a2 a2)))) (.f64 (.f64 a1 a1) (neg.f64 (*.f64 a1 a1))))
(/.f64 (+.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64))) (pow.f64 a1 #s(literal 4 binary64)))
(/.f64 (-.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (ratio-of-squares.f64 a2 a1)))
(/.f64 (+.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (ratio-of-squares.f64 a2 a1)))))
(/.f64 (neg.f64 (+.f64 (.f64 a1 a1) (.f64 a2 a2))) (neg.f64 (*.f64 a1 a1)))
(/.f64 (+.f64 (.f64 a1 a1) (.f64 a2 a2)) (*.f64 a1 a1))
(-.f64 (/.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) (-.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (ratio-of-squares.f64 a2 a1))) (/.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (ratio-of-squares.f64 a2 a1))))
(-.f64 (ratio-of-squares.f64 a2 a1) (/.f64 (.f64 (neg.f64 a1) a1) (.f64 a1 a1)))
(-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 a2) a2) (.f64 a1 a1)))
(+.f64 (/.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 3 binary64)) (+.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64))))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64))))))
(+.f64 (ratio-square-sum.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (ratio-of-squares.f64 a2 a1)))) (/.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (ratio-of-squares.f64 a2 a1) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (ratio-of-squares.f64 a2 a1))))))
(+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (ratio-of-squares.f64 a2 a1))
(*.f64 (/.f64 (neg.f64 a2) (fabs.f64 a1)) (/.f64 (neg.f64 a2) (fabs.f64 a1)))
(*.f64 (/.f64 (neg.f64 a2) a1) (/.f64 (neg.f64 a2) a1))
(*.f64 (/.f64 (fabs.f64 a2) (neg.f64 a1)) (/.f64 (fabs.f64 a2) (neg.f64 a1)))
(*.f64 (/.f64 (fabs.f64 a2) (fabs.f64 a1)) (/.f64 (fabs.f64 a2) (fabs.f64 a1)))
(*.f64 (/.f64 (fabs.f64 a2) a1) (/.f64 (fabs.f64 a2) a1))
(*.f64 (/.f64 a2 (neg.f64 a1)) (/.f64 a2 (neg.f64 a1)))
(*.f64 (/.f64 a2 (fabs.f64 a1)) (/.f64 a2 (fabs.f64 a1)))
(*.f64 (neg.f64 (/.f64 a2 a1)) (neg.f64 (/.f64 a2 a1)))
(*.f64 (fabs.f64 (/.f64 a2 a1)) (fabs.f64 (/.f64 a2 a1)))
(*.f64 (/.f64 a2 a1) (/.f64 a2 a1))
(.f64 a2 (/.f64 a2 (.f64 a1 a1)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a1)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (fabs.f64 a1)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 a2)) (fabs.f64 (fabs.f64 a1)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 a2)) (exp.f64 (log.f64 a1)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 a2)) (neg.f64 a1))
(ratio-of-squares.f64 (neg.f64 (neg.f64 a2)) (fabs.f64 a1))
(ratio-of-squares.f64 (neg.f64 (neg.f64 a2)) a1)
(ratio-of-squares.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (neg.f64 a1)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a1)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a1)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 a2)) (exp.f64 (log.f64 a1)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 a1))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 a2)) (fabs.f64 a1))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 a2)) a1)
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 a2)) (neg.f64 (neg.f64 a1)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a1)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a1)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 a2)) (exp.f64 (log.f64 a1)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 a2)) (neg.f64 a1))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 a1))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 a2)) a1)
(ratio-of-squares.f64 (exp.f64 (log.f64 a2)) (neg.f64 (neg.f64 a1)))
(ratio-of-squares.f64 (exp.f64 (log.f64 a2)) (neg.f64 (fabs.f64 a1)))
(ratio-of-squares.f64 (exp.f64 (log.f64 a2)) (fabs.f64 (fabs.f64 a1)))
(ratio-of-squares.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a1)))
(ratio-of-squares.f64 (exp.f64 (log.f64 a2)) (neg.f64 a1))
(ratio-of-squares.f64 (exp.f64 (log.f64 a2)) (fabs.f64 a1))
(ratio-of-squares.f64 (exp.f64 (log.f64 a2)) a1)
(ratio-of-squares.f64 (neg.f64 a2) (neg.f64 (neg.f64 a1)))
(ratio-of-squares.f64 (neg.f64 a2) (neg.f64 (fabs.f64 a1)))
(ratio-of-squares.f64 (neg.f64 a2) (fabs.f64 (fabs.f64 a1)))
(ratio-of-squares.f64 (neg.f64 a2) (exp.f64 (log.f64 a1)))
(ratio-of-squares.f64 (neg.f64 a2) (neg.f64 a1))
(ratio-of-squares.f64 (neg.f64 a2) (fabs.f64 a1))
(ratio-of-squares.f64 (neg.f64 a2) a1)
(ratio-of-squares.f64 (fabs.f64 a2) (neg.f64 (neg.f64 a1)))
(ratio-of-squares.f64 (fabs.f64 a2) (neg.f64 (fabs.f64 a1)))
(ratio-of-squares.f64 (fabs.f64 a2) (fabs.f64 (fabs.f64 a1)))
(ratio-of-squares.f64 (fabs.f64 a2) (exp.f64 (log.f64 a1)))
(ratio-of-squares.f64 (fabs.f64 a2) (neg.f64 a1))
(ratio-of-squares.f64 (fabs.f64 a2) (fabs.f64 a1))
(ratio-of-squares.f64 (fabs.f64 a2) a1)
(ratio-of-squares.f64 a2 (neg.f64 (neg.f64 a1)))
(ratio-of-squares.f64 a2 (neg.f64 (fabs.f64 a1)))
(ratio-of-squares.f64 a2 (fabs.f64 (fabs.f64 a1)))
(ratio-of-squares.f64 a2 (exp.f64 (log.f64 a1)))
(ratio-of-squares.f64 a2 (neg.f64 a1))
(ratio-of-squares.f64 a2 (fabs.f64 a1))
(ratio-of-squares.f64 a2 a1)
(pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))
(/.f64 (neg.f64 (/.f64 (*.f64 a2 a2) a1)) (neg.f64 a1))
(/.f64 (neg.f64 (neg.f64 (.f64 a2 a2))) (neg.f64 (neg.f64 (.f64 a1 a1))))
(/.f64 (/.f64 (*.f64 a2 a2) a1) a1)
(/.f64 (neg.f64 (.f64 a2 a2)) (neg.f64 (.f64 a1 a1)))
(/.f64 (.f64 a2 a2) (.f64 a1 a1))
(exp.f64 (-.f64 (.f64 (log.f64 a2) #s(literal 2 binary64)) (.f64 (log.f64 a1) #s(literal 2 binary64))))
#s(literal 1 binary64)
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (.f64 #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2)) #s(literal 1/2 binary64))))
(.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (.f64 #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2)) #s(literal 1/2 binary64)))
(.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2))))
(.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)))
(.f64 #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 a2 a2)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))
(*.f64 (cos.f64 th) (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 #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)) (+ (* a2 a2) (* a1 a1))) 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)) (+ (* a2 a2) (* a1 a1))) 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 (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (.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) (* 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 (* a1 (/ a1 (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (/ a1 (sqrt 2)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
#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 (* (+ (* 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)) 1) (sqrt 2)) (* a1 a1)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (* a1 a1)) (/.f64 (+.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (/.f64 (ratio-of-squares.f64 a2 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (/.f64 (/.f64 (+.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) (ratio-of-squares.f64 a2 a1))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)))
#s(approx (/ (* a2 a2) (* a1 a1)) (ratio-of-squares.f64 a2 a1))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1))) 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)) (+ (* a2 a2) (* a1 a1))) 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 (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (.f64 (.f64 (+.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (* a1 a1)) (+.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)) (+ (* a2 a2) (* a1 a1))) 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)) (+ (* a2 a2) (* a1 a1))) 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 (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (.f64 (.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (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 (* (+ (* 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 (ratio-of-squares.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 (ratio-of-squares.f64 a2 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 (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 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 (* (+ (* 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)) 1) (sqrt 2)) (* a1 a1)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (* (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (* a1 a1)) (.f64 (/.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))
#s(approx (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (/.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) #s(literal 1 binary64))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1))) 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)) (+ (* a2 a2) (* a1 a1))) 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 (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (.f64 (.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (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 (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
#s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx 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 (.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)) (+ (* a2 a2) (* a1 a1))) 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 (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (.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 (.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)) (.f64 (+.f64 (ratio-of-squares.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 (ratio-of-squares.f64 a1 a2) (/.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 (ratio-of-squares.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 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 (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (.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) (sqrt 2)) (* a1 a1)) (.f64 (/.f64 (+.f64 (ratio-of-squares.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (.f64 (/.f64 (+.f64 (pow.f64 a2 #s(literal -2 binary64)) (pow.f64 a1 #s(literal -2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) (+.f64 (.f64 (pow.f64 a1 #s(literal -2 binary64)) (.f64 a2 a2)) #s(literal 1 binary64)))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a2 a2) (* a1 a1))) 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 (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (.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) (* a1 a1)) (.f64 (+.f64 (ratio-of-squares.f64 a1 a2) #s(literal 1 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)) (+ (* a2 a2) (* a1 a1))) 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)) (+ (* a2 a2) (* a1 a1))) 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)) (+ (* a2 a2) (* a1 a1))) 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)) (+ (* a2 a2) (* a1 a1))) 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 (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (.f64 (+.f64 (.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 th th)) (.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 (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (+.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 (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (+.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 #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 (+ (* (/ (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)) (+ (* a2 a2) (* a1 a1))) 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)) (+ (* a2 a2) (* a1 a1))) 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)) (+ (* a2 a2) (* a1 a1))) 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)) (+ (* a2 a2) (* a1 a1))) 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 (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (.f64 (+.f64 (.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 th th)) (.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 (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (+.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 (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (+.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 #s(literal -1/2 binary64) (*.f64 th th)) (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) 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)) (+ (* a2 a2) (* a1 a1))) 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 (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (.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)) (+ (* a2 a2) (* a1 a1))) 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 (* (* (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (cos th)) (.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)))

eval862.0ms (9.5%)

Memory

17.0MiB live, 1 023.2MiB allocated; 164ms collecting garbage

Samples

594.0ms	12 863×	0	valid
7.0ms	193×	0	invalid

Compiler

Compiled 26 374 to 2 572 computations (90.2% saved)

Precisions

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

ival-mult: 185.0ms (64.8% of total)

ival-div: 85.0ms (29.8% of total)

ival-true: 7.0ms (2.5% of total)

ival-assert: 5.0ms (1.8% of total)

adjust: 3.0ms (1.1% of total)

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

prune152.0ms (1.7%)

Memory

-29.2MiB live, 251.4MiB allocated; 29ms collecting garbage

Pruning

24 alts after pruning (17 fresh and 7 done)

	Pruned	Kept	Total
New	537	8	545
Fresh	2	9	11
Picked	1	4	5
Done	1	3	4
Total	541	24	565

Accuracy

100.0%

Counts

565 → 24

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	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 (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2))) #s(literal 1/2 binary64)))
	61.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)) #s(approx (cos th) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 th th)) #s(literal 1 binary64)))) #s(approx (+ ( a2 a2) (* 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 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2)))) #s(literal 1/2 binary64)))
	13.1%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))) #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.7%	#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (.f64 #s(approx (* (sqrt 2) (cos th)) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* a2 a2) (* 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) #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))))
	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.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)) (sqrt.f64 #s(literal 2 binary64))))
	61.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 a2 a2) #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.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)))))
	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)))))
✓	33.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (+.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
	44.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (+.f64 (.f64 (/.f64 a2 a1) (/.f64 a2 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
	43.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 #s(approx (+ (/ ( a2 a2) (* a1 a1)) 1) (ratio-of-squares.f64 a2 a1)) (sqrt.f64 #s(literal 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) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 #s(approx (+ (/ ( a2 a2) (* a1 a1)) 1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
	54.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 (/.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1)))
✓	13.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))

Samples

82.0ms

2 048×

valid

Compiler

Compiled 2 610 to 816 computations (68.7% saved)

Precisions

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

ival-mult: 25.0ms (65.5% of total)

ival-div: 11.0ms (28.8% of total)

ival-true: 1.0ms (2.6% of total)

ival-assert: 1.0ms (2.6% of total)

adjust: 0.0ms (0% of total)

regimes105.0ms (1.2%)

Memory

-9.5MiB live, 135.5MiB allocated; 11ms collecting garbage

Counts

47 → 1

Calls

Call 1

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

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes87.0ms (1%)

Memory

35.2MiB live, 126.7MiB allocated; 5ms collecting garbage

Counts

43 → 1

Calls

Call 1

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

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

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)

regimes77.0ms (0.8%)

Memory

-13.6MiB live, 138.3MiB allocated; 18ms collecting garbage

Counts

34 → 1

Calls

Call 1

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

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

regimes70.0ms (0.8%)

Memory

8.8MiB live, 106.4MiB allocated; 8ms collecting garbage

Counts

33 → 1

Calls

Call 1

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

11.0ms	(cos.f64 th)
10.0ms	a2
9.0ms	a1
8.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)

regimes59.0ms (0.7%)

Memory

-8.3MiB live, 84.7MiB allocated; 4ms collecting garbage

Counts

27 → 1

Calls

Call 1

Inputs
#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) #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 (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (.f64 (.f64 #s(approx (* (sqrt 2) (cos th)) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* a2 a2) (* 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)) #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)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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)) (sqrt 2)) (.f64 (/.f64 #s(approx (+ (/ ( a2 a2) (* a1 a1)) 1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 #s(approx (+ (/ ( a2 a2) (* a1 a1)) 1) (ratio-of-squares.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 (/.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (+.f64 (ratio-of-squares.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
#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 #s(literal -1/2 binary64) (.f64 th th)) #s(literal 1 binary64)))) #s(approx (+ ( a2 a2) (* 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 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))) (/.f64 (.f64 (.f64 a2 a2) #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)) (sqrt 2)) (.f64 (/.f64 (+.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (+.f64 (.f64 (/.f64 a2 a1) (/.f64 a2 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.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 (.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))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (ratio-of-squares.f64 a1 (pow.f64 #s(literal 4 binary64) #s(literal 1/8 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (ratio-of-squares.f64 a2 (pow.f64 #s(literal 4 binary64) #s(literal 1/8 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (ratio-of-squares.f64 a2 (pow.f64 #s(literal 16 binary64) #s(literal 1/16 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	th
8.0ms	(cos.f64 th)
7.0ms	a1
7.0ms	a2
7.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)

regimes58.0ms (0.6%)

Memory

-3.1MiB live, 91.4MiB allocated; 7ms collecting garbage

Counts

26 → 2

Calls

Call 1

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

Calls

8 calls:

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

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)

regimes31.0ms (0.3%)

Memory

12.3MiB live, 58.8MiB allocated; 3ms collecting garbage

Counts

15 → 1

Calls

Call 1

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

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 (*.f64 a1 a1) (*.f64 a2 a2))) #s(literal 1/2 binary64)))

Calls

7 calls:

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

regimes26.0ms (0.3%)

Memory

4.6MiB live, 51.4MiB allocated; 2ms collecting garbage

Counts

10 → 1

Calls

Call 1

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

Outputs

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes24.0ms (0.3%)

Memory

2.8MiB live, 49.4MiB allocated; 2ms collecting garbage

Counts

9 → 1

Calls

Call 1

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

Outputs

#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 (*.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 1/2 binary64))))

Calls

8 calls:

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

regimes15.0ms (0.2%)

Memory

-23.4MiB live, 25.3MiB allocated; 5ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs

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

Outputs

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

Calls

8 calls:

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

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

simplify62.0ms (0.7%)

Memory

12.9MiB live, 56.6MiB allocated; 5ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	83	431
1	134	431
2	307	371
3	1012	371
4	3931	371

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

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

derivations287.0ms (3.2%)

Memory

-6.1MiB live, 220.1MiB allocated; 75ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 431 to 85 computations (80.3% saved)

preprocess65.0ms (0.7%)

Memory

13.9MiB live, 105.2MiB allocated; 19ms collecting garbage

Remove

(abs th)

(abs a2)

Compiler

Compiled 1 152 to 362 computations (68.6% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze0.0ms (0%)

sample1.5s (16.6%)

explain199.0ms (2.2%)

preprocess207.0ms (2.3%)

eval0.0ms (0%)

prune0.0ms (0%)

series50.0ms (0.6%)

rewrite294.0ms (3.2%)

eval113.0ms (1.2%)

prune110.0ms (1.2%)

series64.0ms (0.7%)

rewrite234.0ms (2.6%)

eval1.6s (17.4%)

prune129.0ms (1.4%)

series112.0ms (1.2%)

rewrite182.0ms (2%)

eval2.0s (21.7%)

prune136.0ms (1.5%)

series40.0ms (0.4%)

rewrite173.0ms (1.9%)

eval862.0ms (9.5%)

prune152.0ms (1.7%)

regimes105.0ms (1.2%)

regimes87.0ms (1%)

regimes77.0ms (0.8%)

regimes70.0ms (0.8%)

regimes59.0ms (0.7%)

regimes58.0ms (0.6%)

regimes31.0ms (0.3%)

regimes26.0ms (0.3%)

regimes24.0ms (0.3%)

regimes15.0ms (0.2%)

bsearch1.0ms (0%)

simplify62.0ms (0.7%)

derivations287.0ms (3.2%)

preprocess65.0ms (0.7%)

end0.0ms (0%)

Profiling