Metrics for rsin A (should all be same)

start0.0ms (0%)

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

analyze279.0ms (1.8%)

Memory

-13.4MiB live, 402.3MiB allocated; 70ms collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.9%	0.1%	0%	0%	0%	0
0%	0%	99.9%	0.1%	0%	0%	0%	1
0%	0%	99.9%	0.1%	0%	0%	0%	2
0%	0%	99.9%	0.1%	0%	0%	0%	3
0%	0%	99.9%	0.1%	0%	0%	0%	4
0%	0%	99.9%	0.1%	0%	0%	0%	5
0%	0%	99.9%	0.1%	0%	0%	0%	6
12.5%	12.5%	87.4%	0.1%	0%	0%	0%	7
12.5%	12.5%	87.4%	0.1%	0%	0%	0%	8
18.8%	18.7%	81.1%	0.1%	0%	0%	0%	9
21.9%	21.8%	78%	0.1%	0%	0%	0%	10
21.9%	21.8%	78%	0.1%	0%	0%	0%	11
23.4%	23.4%	76.5%	0.1%	0%	0%	0%	12

Compiler

Compiled 11 to 10 computations (9.1% saved)

sample1.7s (10.9%)

Memory

61.8MiB live, 1 596.0MiB allocated; 289ms collecting garbage

Samples

1.1s	5 957×	1	valid
213.0ms	2 299×	0	valid

Precisions

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

ival-cos: 287.0ms (30.2% of total)

ival-sin: 270.0ms (28.4% of total)

adjust: 150.0ms (15.8% of total)

ival-div: 95.0ms (10% of total)

ival-add: 78.0ms (8.2% of total)

ival-mult: 60.0ms (6.3% of total)

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

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

Bogosity

explain225.0ms (1.5%)

Memory

-15.2MiB live, 163.6MiB allocated; 118ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Example	Subexpression
81	120	(-9.047933855415132e-59 -5.240220538418607e+130 -4.022865363606808e-45)	-	`(cos.f64 (+.f64 a b))`
0	0	-	-	`(+.f64 a b)`
0	0	-	-	`(sin.f64 b)`
0	0	-	-	`a`
0	0	-	-	`(*.f64 r (sin.f64 b))`
0	0	-	-	`r`
0	0	-	-	`b`
0	1	(1.848148441307526e-192 4.1458594053313587e+217 9.029453258606857e-133)	-	`(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`cos.f64`	`(cos.f64 (+.f64 a b))`	sensitivity	201	0
`/.f64`	`(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))`	u/n	1	0
↳	`(*.f64 r (sin.f64 b))`	underflow	27

Confusion

	Predicted +	Predicted -
+	81	0
-	120	55

Precision

0.40298507462686567

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	81	0	0
-	120	0	55

Precision?

0.40298507462686567

Recall?

1.0

Freqs

test

number	freq
0	55
1	200
2	1

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

92.0ms	394×	1	valid
9.0ms	118×	0	valid

Compiler

Compiled 63 to 28 computations (55.6% saved)

Precisions

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

adjust: 31.0ms (39.5% of total)

ival-cos: 17.0ms (21.7% of total)

ival-sin: 16.0ms (20.4% of total)

ival-add: 5.0ms (6.4% of total)

ival-div: 4.0ms (5.1% of total)

ival-mult: 4.0ms (5.1% of total)

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

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

preprocess48.0ms (0.3%)

Memory

1.4MiB live, 47.0MiB allocated; 6ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	41	90
1	114	88
2	263	88
3	585	88
4	1020	88
5	2043	88
6	4319	88
0	12	9
0	19	9
0	19	9

Stop Event

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

Calls

Call 1

Inputs
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))

Outputs
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))

Symmetry

(negabs r)

Compiler

Compiled 9 to 8 computations (11.1% saved)

eval0.0ms (0%)

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

prune0.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	71.9%	(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))

Compiler

Compiled 9 to 8 computations (11.1% saved)

simplify28.0ms (0.2%)

Memory

-40.7MiB live, 4.6MiB allocated; 7ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score	Program
cost-diff	0	(cos.f64 (+.f64 a b))
cost-diff	0	(sin.f64 b)
cost-diff	0	(*.f64 r (sin.f64 b))
cost-diff	0	(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	12	25
0	19	25
0	19	25

Stop Event

1×	saturated
1×	saturated
1×	iter limit

Calls

Call 1

Inputs
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
(cos.f64 (+.f64 a b))
(+.f64 a b)
a

Outputs
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
(cos.f64 (+.f64 a b))
(+.f64 a b)
a

localize44.0ms (0.3%)

Memory

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

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	0.0	(sin.f64 b)
accuracy	0.10546875	(*.f64 r (sin.f64 b))
accuracy	0.24609375	(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
accuracy	17.947092214126215	(cos.f64 (+.f64 a b))

Samples

33.0ms	197×	1	valid
4.0ms	59×	0	valid

Compiler

Compiled 27 to 10 computations (63% saved)

Precisions

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

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

ival-sin: 6.0ms (23.3% of total)

adjust: 5.0ms (19.4% of total)

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

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

ival-mult: 2.0ms (7.8% of total)

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

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

series302.0ms (2%)

Memory

-32.9MiB live, 16.4MiB allocated; 10ms collecting garbage

Counts

4 → 32

Calls

Call 1

Inputs
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
(*.f64 r (sin.f64 b))
(sin.f64 b)
(cos.f64 (+.f64 a b))

Outputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (* r (sin b)) #s(hole binary64 (* r (sin b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos b)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (+ a b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- b (* -1 a)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b r)))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) r)) (* 1/120 r)))))))))
#s(approx (sin b) #s(hole binary64 b))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* -1/6 (pow b 2))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* 1/120 (pow b 2)) 1/6))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/120 (* -1/5040 (pow b 2)))) 1/6))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos a)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (sin b) #s(hole binary64 (sin b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- a (* -1 b)))))

Calls

9 calls:

Time	Variable		Point	Expression
290.0ms	a	@	0	((/ (* r (sin b)) (cos (+ a b))) (* r (sin b)) (sin b) (cos (+ a b)))
2.0ms	r	@	0	((/ (* r (sin b)) (cos (+ a b))) (* r (sin b)) (sin b) (cos (+ a b)))
2.0ms	r	@	inf	((/ (* r (sin b)) (cos (+ a b))) (* r (sin b)) (sin b) (cos (+ a b)))
2.0ms	b	@	0	((/ (* r (sin b)) (cos (+ a b))) (* r (sin b)) (sin b) (cos (+ a b)))
2.0ms	r	@	-inf	((/ (* r (sin b)) (cos (+ a b))) (* r (sin b)) (sin b) (cos (+ a b)))

simplify963.0ms (6.3%)

Memory

12.9MiB live, 146.2MiB allocated; 15ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	235	860
1	647	829
2	2156	785
3	7956	785
0	8014	763
1	8719	743
2	11360	738
3	14575	738
4	17713	738
5	19275	738
6	19601	738
7	19636	738
8	19639	738

Stop Event

1×	saturated
1×	node limit

Counts

32 → 18

Calls

Call 1

Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (* r (sin b)) #s(hole binary64 (* r (sin b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos b)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (+ a b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- b (* -1 a)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b r)))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) r)) (* 1/120 r)))))))))
#s(approx (sin b) #s(hole binary64 b))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* -1/6 (pow b 2))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* 1/120 (pow b 2)) 1/6))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/120 (* -1/5040 (pow b 2)))) 1/6))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos a)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (sin b) #s(hole binary64 (sin b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- a (* -1 b)))))

Outputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r))
#s(approx (* r (sin b)) #s(hole binary64 (* r (sin b))))
#s(approx (* r (sin b)) (*.f64 (sin.f64 b) r))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (/.f64 (fma.f64 (.f64 (.f64 a r) (sin.f64 b)) (/.f64 (sin.f64 b) (cos.f64 b)) (*.f64 (sin.f64 b) r)) (cos.f64 b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos b)))
#s(approx (cos (+ a b)) (cos.f64 b))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (cos (+ a b)) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (+ a b))))
#s(approx (cos (+ a b)) (cos.f64 (+.f64 a b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- b (* -1 a)))))
#s(approx (cos (+ a b)) (cos.f64 (+.f64 a b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (.f64 (/.f64 (fma.f64 (.f64 (sin.f64 a) r) (/.f64 b (cos.f64 a)) r) (cos.f64 a)) b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b r)))
#s(approx (* r (sin b)) (*.f64 b r))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) r)) (* 1/120 r)))))))))
#s(approx (sin b) #s(hole binary64 b))
#s(approx (sin b) b)
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* -1/6 (pow b 2))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* 1/120 (pow b 2)) 1/6))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/120 (* -1/5040 (pow b 2)))) 1/6))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos a)))
#s(approx (cos (+ a b)) (cos.f64 a))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (cos (+ a b)) (fma.f64 (sin.f64 a) (neg.f64 b) (cos.f64 a)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (sin b) #s(hole binary64 (sin b)))
#s(approx (sin b) (sin.f64 b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- a (* -1 b)))))
#s(approx (cos (+ a b)) (cos.f64 (+.f64 a b)))

rewrite227.0ms (1.5%)

Memory

15.9MiB live, 114.3MiB allocated; 14ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	12	19
1	19	19
2	23	19
3	27	19
4	29	19
0	29	19
1	62	19
2	282	19
0	2910	19
1	3178	19
2	4530	19
3	6380	19
4	7604	19
5	8035	19
6	8119	19
7	8163	19
8	8164	19

Stop Event

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

Counts

4 → 50

Calls

Call 1

Inputs
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
(*.f64 r (sin.f64 b))
(sin.f64 b)
(cos.f64 (+.f64 a b))

Outputs
(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)))))
(*.f64 (neg.f64 r) (/.f64 (sin.f64 b) (neg.f64 (cos.f64 (+.f64 a b)))))
(*.f64 (neg.f64 (sin.f64 b)) (/.f64 r (neg.f64 (cos.f64 (+.f64 a b)))))
(*.f64 (/.f64 r (cos.f64 (+.f64 a b))) (sin.f64 b))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
(*.f64 (sin.f64 b) (/.f64 r (cos.f64 (+.f64 a b))))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 (neg.f64 r) (sin.f64 b)) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
(neg.f64 (*.f64 (neg.f64 r) (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b)))))
(*.f64 (neg.f64 (neg.f64 r)) (sin.f64 b))
(*.f64 (neg.f64 (neg.f64 (sin.f64 b))) r)
(*.f64 (neg.f64 r) (neg.f64 (sin.f64 b)))
(*.f64 (neg.f64 (sin.f64 b)) (neg.f64 r))
(*.f64 (sin.f64 b) (neg.f64 (neg.f64 r)))
(*.f64 (sin.f64 b) r)
(*.f64 r (neg.f64 (neg.f64 (sin.f64 b))))
(*.f64 r (sin.f64 b))
(neg.f64 (*.f64 (neg.f64 r) (sin.f64 b)))
(sin.f64 b)
(/.f64 (neg.f64 (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (neg.f64 (cos.f64 (-.f64 b a))))
(/.f64 (neg.f64 (.f64 (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b)))) (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a))))))
(/.f64 (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)))))
(neg.f64 (neg.f64 (cos.f64 (+.f64 a b))))
(fma.f64 (cos.f64 (.f64 a (/.f64 a (-.f64 a b)))) (cos.f64 (.f64 b (/.f64 b (-.f64 a b)))) (.f64 (sin.f64 (.f64 a (/.f64 a (-.f64 a b)))) (sin.f64 (*.f64 b (/.f64 b (-.f64 a b))))))
(fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 b) (cos.f64 a)))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (cos.f64 b) (cos.f64 a)))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a)))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a)))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 b) (cos.f64 a)))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a)) (cos.f64 (-.f64 b a))) (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (cos.f64 (-.f64 b a))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))) (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a))))) (/.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (sin.f64 a) (sin.f64 b))) (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a))))))
(-.f64 (.f64 (cos.f64 (.f64 a (/.f64 (.f64 a a) (fma.f64 (-.f64 b a) b (.f64 a a))))) (cos.f64 (.f64 b (/.f64 (.f64 b b) (fma.f64 (-.f64 b a) b (.f64 a a)))))) (.f64 (sin.f64 (.f64 a (/.f64 (.f64 a a) (fma.f64 (-.f64 b a) b (.f64 a a))))) (sin.f64 (.f64 b (/.f64 (.f64 b b) (fma.f64 (-.f64 b a) b (.f64 a a)))))))
(-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (.f64 (neg.f64 (neg.f64 (sin.f64 a))) (sin.f64 b)))
(-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (.f64 (neg.f64 (sin.f64 b)) (neg.f64 (sin.f64 a))))
(-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (.f64 (neg.f64 (sin.f64 a)) (neg.f64 (sin.f64 b))))
(-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (.f64 (sin.f64 a) (sin.f64 b)))
(cos.f64 (+.f64 (+.f64 (PI.f64) (neg.f64 (+.f64 a b))) (PI.f64)))
(cos.f64 (+.f64 (+.f64 (PI.f64) (+.f64 a b)) (PI.f64)))
(cos.f64 (neg.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(+.f64 (.f64 (cos.f64 (.f64 a (/.f64 a (-.f64 a b)))) (cos.f64 (.f64 b (/.f64 b (-.f64 a b))))) (.f64 (sin.f64 (.f64 a (/.f64 a (-.f64 a b)))) (sin.f64 (.f64 b (/.f64 b (-.f64 a b))))))
(+.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (.f64 (cos.f64 b) (cos.f64 a)))
(+.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (cos.f64 b) (cos.f64 a)))
(+.f64 (.f64 (cos.f64 b) (cos.f64 a)) (.f64 (neg.f64 (sin.f64 b)) (sin.f64 a)))
(+.f64 (.f64 (cos.f64 b) (cos.f64 a)) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))

eval7.0ms (0%)

Memory: 16.7MiB live, 16.7MiB allocated; 0ms collecting garbage
Compiler: Compiled 1 217 to 215 computations (82.3% saved)

prune13.0ms (0.1%)

Memory

-27.1MiB live, 17.5MiB allocated; 5ms collecting garbage

Pruning

16 alts after pruning (15 fresh and 1 done)

	Pruned	Kept	Total
New	49	15	64
Fresh	0	0	0
Picked	0	1	1
Done	0	0	0
Total	49	16	65

Accuracy

99.7%

Counts

65 → 16

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.5%	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
	99.4%	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))))
	71.8%	(/.f64 (.f64 r (sin.f64 b)) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a))))))
	99.4%	(/.f64 (.f64 r (sin.f64 b)) (-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 a) (sin.f64 b))))
✓	71.9%	(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
	50.1%	(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (fma.f64 (sin.f64 a) (neg.f64 b) (cos.f64 a))))
	51.1%	(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
	54.2%	(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 b)))
▶	51.7%	(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 a)))
	48.9%	(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
	71.7%	(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)))))
▶	71.8%	(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
▶	71.8%	(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
	71.9%	(*.f64 (/.f64 r (cos.f64 (+.f64 a b))) (sin.f64 b))
	54.2%	#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))
▶	48.9%	#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))

Compiler

Compiled 595 to 374 computations (37.1% saved)

simplify108.0ms (0.7%)

Memory

12.3MiB live, 56.8MiB allocated; 8ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
cost-diff	0	(sin.f64 b)
cost-diff	0	(*.f64 (sin.f64 b) r)
cost-diff	0	(/.f64 (.f64 (sin.f64 b) r) (.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))
cost-diff	0	(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
cost-diff	0	(cos.f64 (+.f64 a b))
cost-diff	0	(sin.f64 b)
cost-diff	0	(/.f64 (sin.f64 b) (cos.f64 (+.f64 a b)))
cost-diff	0	(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
cost-diff	0	#s(approx (cos (+ a b)) (cos.f64 a))
cost-diff	0	(sin.f64 b)
cost-diff	0	(*.f64 r (sin.f64 b))
cost-diff	0	(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 a)))
cost-diff	0	(cos.f64 a)
cost-diff	0	(/.f64 r (cos.f64 a))
cost-diff	0	(*.f64 (/.f64 r (cos.f64 a)) b)
cost-diff	0	#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
cost-diff	0	(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 b) (cos.f64 a)))
cost-diff	0	(sin.f64 b)
cost-diff	0	(*.f64 r (sin.f64 b))
cost-diff	0	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	36	204
0	45	204
1	56	204
2	74	204
3	97	204
4	115	204
5	139	204
6	237	204
7	831	204
8	5298	204
0	8286	204

Stop Event

1×	saturated
1×	node limit
1×	iter limit

Calls

Call 1

Inputs
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 b) (cos.f64 a)))
(neg.f64 (sin.f64 a))
(sin.f64 a)
a
(*.f64 (cos.f64 b) (cos.f64 a))
(cos.f64 b)
(cos.f64 a)
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
(*.f64 (/.f64 r (cos.f64 a)) b)
(/.f64 r (cos.f64 a))
r
(cos.f64 a)
a
b
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 a)))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
#s(approx (cos (+ a b)) (cos.f64 a))
(cos.f64 a)
a
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
(/.f64 (sin.f64 b) (cos.f64 (+.f64 a b)))
(sin.f64 b)
b
(cos.f64 (+.f64 a b))
(+.f64 a b)
a
r
(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 (sin.f64 b) r) (.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))
(*.f64 (sin.f64 b) r)
(sin.f64 b)
b
r
(*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))
(cos.f64 (-.f64 b a))
(-.f64 b a)
a
(cos.f64 (+.f64 a b))
(+.f64 a b)

Outputs
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 b) (cos.f64 a)))
(neg.f64 (sin.f64 a))
(sin.f64 a)
a
(*.f64 (cos.f64 b) (cos.f64 a))
(cos.f64 b)
(cos.f64 a)
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
(*.f64 (/.f64 r (cos.f64 a)) b)
(/.f64 r (cos.f64 a))
r
(cos.f64 a)
a
b
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 a)))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
#s(approx (cos (+ a b)) (cos.f64 a))
(cos.f64 a)
a
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
(/.f64 (sin.f64 b) (cos.f64 (+.f64 a b)))
(sin.f64 b)
b
(cos.f64 (+.f64 a b))
(+.f64 a b)
a
r
(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 (sin.f64 b) r) (.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))
(*.f64 (sin.f64 b) r)
(sin.f64 b)
b
r
(*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))
(cos.f64 (-.f64 b a))
(-.f64 b a)
a
(cos.f64 (+.f64 a b))
(+.f64 a b)

localize191.0ms (1.2%)

Memory

-16.0MiB live, 233.3MiB allocated; 38ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.26791000976844204	(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
accuracy	0.36328125	(*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))
accuracy	17.621349290363757	(cos.f64 (-.f64 b a))
accuracy	17.947092214126215	(cos.f64 (+.f64 a b))
accuracy	0.0	(sin.f64 b)
accuracy	0.19140625	(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
accuracy	0.25	(/.f64 (sin.f64 b) (cos.f64 (+.f64 a b)))
accuracy	17.947092214126215	(cos.f64 (+.f64 a b))
accuracy	0.0	(cos.f64 a)
accuracy	0.10546875	(*.f64 r (sin.f64 b))
accuracy	0.24609375	(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 a)))
accuracy	31.00943119109075	#s(approx (cos (+ a b)) (cos.f64 a))
accuracy	0.0	(cos.f64 a)
accuracy	0.10546875	(*.f64 (/.f64 r (cos.f64 a)) b)
accuracy	0.15625	(/.f64 r (cos.f64 a))
accuracy	32.66443075431782	#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
accuracy	0.08984375	(*.f64 (cos.f64 b) (cos.f64 a))
accuracy	0.10546875	(*.f64 r (sin.f64 b))
accuracy	0.1648675727109211	(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 b) (cos.f64 a)))
accuracy	0.24609375	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))

Samples

134.0ms	197×	1	valid
25.0ms	59×	0	valid

Compiler

Compiled 195 to 28 computations (85.6% saved)

Precisions

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

ival-cos: 43.0ms (36% of total)

ival-mult: 22.0ms (18.4% of total)

ival-sin: 16.0ms (13.4% of total)

adjust: 14.0ms (11.7% of total)

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

ival-neg: 7.0ms (5.9% of total)

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

ival-sub: 2.0ms (1.7% of total)

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

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

series64.0ms (0.4%)

Memory

-11.5MiB live, 77.9MiB allocated; 20ms collecting garbage

Counts

19 → 145

Calls

Call 1

Inputs
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(*.f64 r (sin.f64 b))
(sin.f64 b)
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 b) (cos.f64 a)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
(*.f64 (/.f64 r (cos.f64 a)) b)
(/.f64 r (cos.f64 a))
(cos.f64 a)
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 a)))
#s(approx (cos (+ a b)) (cos.f64 a))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
(/.f64 (sin.f64 b) (cos.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 (sin.f64 b) r) (.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))
(*.f64 (sin.f64 b) r)
(*.f64 (cos.f64 b) (cos.f64 a))
(cos.f64 (-.f64 b a))
(*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))

Outputs
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b))))))
#s(approx (* r (sin b)) #s(hole binary64 (* r (sin b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ r (cos a)) #s(hole binary64 (/ r (cos a))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ a b)) (cos (- b a))))))
#s(approx (* (sin b) r) #s(hole binary64 (* r (sin b))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos b)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* -1/2 (* a (cos b))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (* b r)))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* 1/2 (* (pow a 2) (* b r))) (* b r))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* b r) (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/4 (* b r)) (* 1/24 (* b r))))) (* -1/2 (* b r)))))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* b r) (* (pow a 2) (- (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/720 (* b r)) (+ (* 1/48 (* b r)) (* 1/2 (+ (* -1/4 (* b r)) (* 1/24 (* b r)))))))) (+ (* -1/4 (* b r)) (* 1/24 (* b r))))) (* -1/2 (* b r)))))))
#s(approx (/ r (cos a)) #s(hole binary64 r))
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* 1/2 (* (pow a 2) r)))))
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/4 r) (* 1/24 r)))) (* -1/2 r))))))
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* (pow a 2) (- (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/720 r) (+ (* 1/48 r) (* 1/2 (+ (* -1/4 r) (* 1/24 r))))))) (+ (* -1/4 r) (* 1/24 r)))) (* -1/2 r))))))
#s(approx (cos a) #s(hole binary64 1))
#s(approx (cos a) #s(hole binary64 (+ 1 (* -1/2 (pow a 2)))))
#s(approx (cos a) #s(hole binary64 (+ 1 (* (pow a 2) (- (* 1/24 (pow a 2)) 1/2)))))
#s(approx (cos a) #s(hole binary64 (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/24 (* -1/720 (pow a 2)))) 1/2)))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos b)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos b))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (/ (sin b) (cos b)) (/ (* a (pow (sin b) 2)) (pow (cos b) 2)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b)))))) (* -1 (/ (pow (sin b) 2) (pow (cos b) 2))))) (/ (sin b) (cos b)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (pow (sin b) 2) (pow (cos b) 2))) (+ (* 1/6 (/ (pow (sin b) 2) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b))))) (cos b)))))) (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b)))))) (* -1 (/ (pow (sin b) 2) (pow (cos b) 2))))) (/ (sin b) (cos b)))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ (* r (sin b)) (pow (cos b) 2))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* -1 (/ (* a (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))))) (pow (cos b) 4))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))))) (pow (cos b) 4)))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))))) (pow (cos b) 6))) (+ (* -1 (/ (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4)))) (pow (cos b) 2))) (/ (* r (* (sin b) (+ (* -1/2 (* (cos b) (sin b))) (+ (* -1/6 (* (cos b) (sin b))) (+ (* 1/6 (* (cos b) (sin b))) (* 1/2 (* (cos b) (sin b)))))))) (pow (cos b) 4)))))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))))) (pow (cos b) 4)))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (cos b)))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* -1/2 (* (pow a 2) (cos b))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* (pow a 2) (+ (* -1/2 (cos b)) (* 1/24 (* (pow a 2) (cos b))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* (pow a 2) (+ (* -1/2 (cos b)) (* (pow a 2) (+ (* -1/720 (* (pow a 2) (cos b))) (* 1/24 (cos b)))))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos b)))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (sin b)))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (* -1 (sin b)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* -1/6 (* a (sin b))))) (* -1 (sin b)))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (pow (cos b) 2)))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))) (pow (cos b) 2))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (+ (* a (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))) (* (cos b) (sin b))))) (pow (cos b) 2))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (+ (* a (+ (* -1 (pow (cos b) 2)) (+ (* -1 (pow (sin b) 2)) (* a (+ (* -1/2 (* (cos b) (sin b))) (+ (* -1/6 (* (cos b) (sin b))) (+ (* 1/6 (* (cos b) (sin b))) (* 1/2 (* (cos b) (sin b)))))))))) (* (cos b) (sin b))))) (pow (cos b) 2))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b)))))
#s(approx (cos a) #s(hole binary64 (cos a)))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (+ a b))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (+ a b)))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (* (cos a) (cos b))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (- b a))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (+ a b)) (cos (- b a)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- b (* -1 a)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (- b (* -1 a))))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ b (* -1 a))) (cos (- b (* -1 a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (+ b (* -1 a)))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (+ b (* -1 a))) (cos (- b (* -1 a))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b r)))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) r)) (* 1/120 r)))))))))
#s(approx (sin b) #s(hole binary64 b))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* -1/6 (pow b 2))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* 1/120 (pow b 2)) 1/6))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/120 (* -1/5040 (pow b 2)))) 1/6))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos a)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* -1/2 (* b (cos a))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos a)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ b (cos a))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (/ 1 (cos a)) (/ (* b (sin a)) (pow (cos a) 2))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (* 1/2 (/ 1 (cos a))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (* -1 (/ (sin a) (pow (cos a) 2))))) (/ 1 (cos a))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* 1/2 (/ 1 (cos a))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (cos a))) (+ (* -1/2 (/ (sin a) (pow (cos a) 2))) (* 1/6 (/ (sin a) (pow (cos a) 2))))))) (* 1/2 (/ 1 (cos a)))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (* -1 (/ (sin a) (pow (cos a) 2))))) (/ 1 (cos a))))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ (* b r) (* (cos a) (cos (neg a))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* -1 (/ (* b (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (* (cos a) (cos (neg a))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* r (* (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a)))) (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (+ (/ (* r (+ (* 1/6 (* (cos a) (sin (neg a)))) (+ (* 1/6 (* (cos (neg a)) (sin a))) (+ (* 1/2 (* (cos a) (sin (neg a)))) (* 1/2 (* (cos (neg a)) (sin a))))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))) (/ (* (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) (- (* -1/6 (/ r (* (cos a) (cos (neg a))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (* (cos a) (cos (neg a)))))))) (* -1/6 (/ r (* (cos a) (cos (neg a)))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (* (sin b) r) #s(hole binary64 (* b r)))
#s(approx (* (sin b) r) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* (sin b) r) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* (sin b) r) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) r)) (* 1/120 r)))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (cos a)))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* -1/2 (* (pow b 2) (cos a))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* (pow b 2) (+ (* -1/2 (cos a)) (* 1/24 (* (pow b 2) (cos a))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* (pow b 2) (+ (* -1/2 (cos a)) (* (pow b 2) (+ (* -1/720 (* (pow b 2) (cos a))) (* 1/24 (cos a)))))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg a))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* -1 (* b (sin (neg a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* -1/2 (* b (cos (neg a)))) (sin (neg a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* b (+ (* -1/2 (cos (neg a))) (* 1/6 (* b (sin (neg a)))))) (sin (neg a)))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos a) (cos (neg a)))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (cos a) (cos (neg a))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (+ (* -1 (* (cos (neg a)) (sin a))) (* b (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a)))))))) (* (cos a) (cos (neg a))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (+ (* -1 (* (cos (neg a)) (sin a))) (* b (+ (* -1 (* (cos a) (cos (neg a)))) (+ (* b (+ (* 1/6 (* (cos a) (sin (neg a)))) (+ (* 1/6 (* (cos (neg a)) (sin a))) (+ (* 1/2 (* (cos a) (sin (neg a)))) (* 1/2 (* (cos (neg a)) (sin a))))))) (* (sin a) (sin (neg a))))))))) (* (cos a) (cos (neg a))))))
#s(approx (sin b) #s(hole binary64 (sin b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- a (* -1 b)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (- a (* -1 b))))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ (* r (sin b)) (* (cos (neg (+ a (* -1 b)))) (cos (- a (* -1 b)))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg (+ a (* -1 b))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (neg (+ a (* -1 b)))) (cos (- a (* -1 b))))))

Calls

9 calls:

Time	Variable		Point	Expression
12.0ms	r	@	-inf	((/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (* r (sin b)) (sin b) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (/ (* r (sin b)) (cos (+ a b))) (* (/ r (cos a)) b) (/ r (cos a)) (cos a) (/ (* r (sin b)) (cos (+ a b))) (cos (+ a b)) (* (/ (sin b) (cos (+ a b))) r) (/ (sin b) (cos (+ a b))) (cos (+ a b)) (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (* (sin b) r) (* (cos b) (cos a)) (cos (- b a)) (* (cos (- b a)) (cos (+ a b))))
8.0ms	a	@	0	((/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (* r (sin b)) (sin b) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (/ (* r (sin b)) (cos (+ a b))) (* (/ r (cos a)) b) (/ r (cos a)) (cos a) (/ (* r (sin b)) (cos (+ a b))) (cos (+ a b)) (* (/ (sin b) (cos (+ a b))) r) (/ (sin b) (cos (+ a b))) (cos (+ a b)) (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (* (sin b) r) (* (cos b) (cos a)) (cos (- b a)) (* (cos (- b a)) (cos (+ a b))))
7.0ms	r	@	0	((/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (* r (sin b)) (sin b) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (/ (* r (sin b)) (cos (+ a b))) (* (/ r (cos a)) b) (/ r (cos a)) (cos a) (/ (* r (sin b)) (cos (+ a b))) (cos (+ a b)) (* (/ (sin b) (cos (+ a b))) r) (/ (sin b) (cos (+ a b))) (cos (+ a b)) (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (* (sin b) r) (* (cos b) (cos a)) (cos (- b a)) (* (cos (- b a)) (cos (+ a b))))
5.0ms	b	@	0	((/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (* r (sin b)) (sin b) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (/ (* r (sin b)) (cos (+ a b))) (* (/ r (cos a)) b) (/ r (cos a)) (cos a) (/ (* r (sin b)) (cos (+ a b))) (cos (+ a b)) (* (/ (sin b) (cos (+ a b))) r) (/ (sin b) (cos (+ a b))) (cos (+ a b)) (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (* (sin b) r) (* (cos b) (cos a)) (cos (- b a)) (* (cos (- b a)) (cos (+ a b))))
5.0ms	r	@	inf	((/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (* r (sin b)) (sin b) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (/ (* r (sin b)) (cos (+ a b))) (* (/ r (cos a)) b) (/ r (cos a)) (cos a) (/ (* r (sin b)) (cos (+ a b))) (cos (+ a b)) (* (/ (sin b) (cos (+ a b))) r) (/ (sin b) (cos (+ a b))) (cos (+ a b)) (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (* (sin b) r) (* (cos b) (cos a)) (cos (- b a)) (* (cos (- b a)) (cos (+ a b))))

simplify764.0ms (5%)

Memory

27.8MiB live, 159.3MiB allocated; 32ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	797	5322
1	2311	4858
0	8589	4755
1	10068	4667
2	13550	4663
3	16482	4663
4	19064	4663
5	21149	4663
6	21855	4663
7	22229	4663
8	22382	4663
9	22392	4663

Stop Event

1×	saturated
1×	node limit

Counts

145 → 80

Calls

Call 1

Inputs
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b))))))
#s(approx (* r (sin b)) #s(hole binary64 (* r (sin b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ r (cos a)) #s(hole binary64 (/ r (cos a))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ a b)) (cos (- b a))))))
#s(approx (* (sin b) r) #s(hole binary64 (* r (sin b))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos b)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* -1/2 (* a (cos b))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (* b r)))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* 1/2 (* (pow a 2) (* b r))) (* b r))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* b r) (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/4 (* b r)) (* 1/24 (* b r))))) (* -1/2 (* b r)))))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* b r) (* (pow a 2) (- (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/720 (* b r)) (+ (* 1/48 (* b r)) (* 1/2 (+ (* -1/4 (* b r)) (* 1/24 (* b r)))))))) (+ (* -1/4 (* b r)) (* 1/24 (* b r))))) (* -1/2 (* b r)))))))
#s(approx (/ r (cos a)) #s(hole binary64 r))
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* 1/2 (* (pow a 2) r)))))
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/4 r) (* 1/24 r)))) (* -1/2 r))))))
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* (pow a 2) (- (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/720 r) (+ (* 1/48 r) (* 1/2 (+ (* -1/4 r) (* 1/24 r))))))) (+ (* -1/4 r) (* 1/24 r)))) (* -1/2 r))))))
#s(approx (cos a) #s(hole binary64 1))
#s(approx (cos a) #s(hole binary64 (+ 1 (* -1/2 (pow a 2)))))
#s(approx (cos a) #s(hole binary64 (+ 1 (* (pow a 2) (- (* 1/24 (pow a 2)) 1/2)))))
#s(approx (cos a) #s(hole binary64 (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/24 (* -1/720 (pow a 2)))) 1/2)))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos b)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos b))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (/ (sin b) (cos b)) (/ (* a (pow (sin b) 2)) (pow (cos b) 2)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b)))))) (* -1 (/ (pow (sin b) 2) (pow (cos b) 2))))) (/ (sin b) (cos b)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (pow (sin b) 2) (pow (cos b) 2))) (+ (* 1/6 (/ (pow (sin b) 2) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b))))) (cos b)))))) (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b)))))) (* -1 (/ (pow (sin b) 2) (pow (cos b) 2))))) (/ (sin b) (cos b)))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ (* r (sin b)) (pow (cos b) 2))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* -1 (/ (* a (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))))) (pow (cos b) 4))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))))) (pow (cos b) 4)))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))))) (pow (cos b) 6))) (+ (* -1 (/ (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4)))) (pow (cos b) 2))) (/ (* r (* (sin b) (+ (* -1/2 (* (cos b) (sin b))) (+ (* -1/6 (* (cos b) (sin b))) (+ (* 1/6 (* (cos b) (sin b))) (* 1/2 (* (cos b) (sin b)))))))) (pow (cos b) 4)))))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))))) (pow (cos b) 4)))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (cos b)))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* -1/2 (* (pow a 2) (cos b))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* (pow a 2) (+ (* -1/2 (cos b)) (* 1/24 (* (pow a 2) (cos b))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* (pow a 2) (+ (* -1/2 (cos b)) (* (pow a 2) (+ (* -1/720 (* (pow a 2) (cos b))) (* 1/24 (cos b)))))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos b)))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (sin b)))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (* -1 (sin b)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* -1/6 (* a (sin b))))) (* -1 (sin b)))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (pow (cos b) 2)))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))) (pow (cos b) 2))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (+ (* a (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))) (* (cos b) (sin b))))) (pow (cos b) 2))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (+ (* a (+ (* -1 (pow (cos b) 2)) (+ (* -1 (pow (sin b) 2)) (* a (+ (* -1/2 (* (cos b) (sin b))) (+ (* -1/6 (* (cos b) (sin b))) (+ (* 1/6 (* (cos b) (sin b))) (* 1/2 (* (cos b) (sin b)))))))))) (* (cos b) (sin b))))) (pow (cos b) 2))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b)))))
#s(approx (cos a) #s(hole binary64 (cos a)))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (+ a b))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (+ a b)))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (* (cos a) (cos b))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (- b a))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (+ a b)) (cos (- b a)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- b (* -1 a)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (- b (* -1 a))))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ b (* -1 a))) (cos (- b (* -1 a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (+ b (* -1 a)))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (+ b (* -1 a))) (cos (- b (* -1 a))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b r)))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) r)) (* 1/120 r)))))))))
#s(approx (sin b) #s(hole binary64 b))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* -1/6 (pow b 2))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* 1/120 (pow b 2)) 1/6))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/120 (* -1/5040 (pow b 2)))) 1/6))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos a)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* -1/2 (* b (cos a))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos a)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ b (cos a))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (/ 1 (cos a)) (/ (* b (sin a)) (pow (cos a) 2))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (* 1/2 (/ 1 (cos a))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (* -1 (/ (sin a) (pow (cos a) 2))))) (/ 1 (cos a))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* 1/2 (/ 1 (cos a))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (cos a))) (+ (* -1/2 (/ (sin a) (pow (cos a) 2))) (* 1/6 (/ (sin a) (pow (cos a) 2))))))) (* 1/2 (/ 1 (cos a)))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (* -1 (/ (sin a) (pow (cos a) 2))))) (/ 1 (cos a))))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ (* b r) (* (cos a) (cos (neg a))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* -1 (/ (* b (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (* (cos a) (cos (neg a))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* r (* (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a)))) (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (+ (/ (* r (+ (* 1/6 (* (cos a) (sin (neg a)))) (+ (* 1/6 (* (cos (neg a)) (sin a))) (+ (* 1/2 (* (cos a) (sin (neg a)))) (* 1/2 (* (cos (neg a)) (sin a))))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))) (/ (* (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) (- (* -1/6 (/ r (* (cos a) (cos (neg a))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (* (cos a) (cos (neg a)))))))) (* -1/6 (/ r (* (cos a) (cos (neg a)))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (* (sin b) r) #s(hole binary64 (* b r)))
#s(approx (* (sin b) r) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* (sin b) r) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* (sin b) r) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) r)) (* 1/120 r)))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (cos a)))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* -1/2 (* (pow b 2) (cos a))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* (pow b 2) (+ (* -1/2 (cos a)) (* 1/24 (* (pow b 2) (cos a))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* (pow b 2) (+ (* -1/2 (cos a)) (* (pow b 2) (+ (* -1/720 (* (pow b 2) (cos a))) (* 1/24 (cos a)))))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg a))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* -1 (* b (sin (neg a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* -1/2 (* b (cos (neg a)))) (sin (neg a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* b (+ (* -1/2 (cos (neg a))) (* 1/6 (* b (sin (neg a)))))) (sin (neg a)))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos a) (cos (neg a)))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (cos a) (cos (neg a))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (+ (* -1 (* (cos (neg a)) (sin a))) (* b (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a)))))))) (* (cos a) (cos (neg a))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (+ (* -1 (* (cos (neg a)) (sin a))) (* b (+ (* -1 (* (cos a) (cos (neg a)))) (+ (* b (+ (* 1/6 (* (cos a) (sin (neg a)))) (+ (* 1/6 (* (cos (neg a)) (sin a))) (+ (* 1/2 (* (cos a) (sin (neg a)))) (* 1/2 (* (cos (neg a)) (sin a))))))) (* (sin a) (sin (neg a))))))))) (* (cos a) (cos (neg a))))))
#s(approx (sin b) #s(hole binary64 (sin b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- a (* -1 b)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (- a (* -1 b))))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ (* r (sin b)) (* (cos (neg (+ a (* -1 b)))) (cos (- a (* -1 b)))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg (+ a (* -1 b))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (neg (+ a (* -1 b)))) (cos (- a (* -1 b))))))

Outputs
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (/.f64 (.f64 (sin.f64 b) r) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (.f64 (cos.f64 a) (cos.f64 b)))))
#s(approx (* r (sin b)) #s(hole binary64 (* r (sin b))))
#s(approx (* (sin b) r) (*.f64 (sin.f64 b) r))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (* (/ r (cos a)) b) (/.f64 (*.f64 b r) (cos.f64 a)))
#s(approx (/ r (cos a)) #s(hole binary64 (/ r (cos a))))
#s(approx (/ r (cos a)) (/.f64 r (cos.f64 a)))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) (*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ a b)) (cos (- b a))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (/.f64 (*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r) (cos.f64 (-.f64 a b))))
#s(approx (* (sin b) r) #s(hole binary64 (* r (sin b))))
#s(approx (* (sin b) r) (*.f64 (sin.f64 b) r))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b)))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (fma.f64 (/.f64 (.f64 a r) (cos.f64 b)) (/.f64 (.f64 (sin.f64 b) (sin.f64 b)) (cos.f64 b)) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos b)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* -1/2 (* a (cos b))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (fma.f64 (/.f64 (.f64 a r) (cos.f64 b)) (/.f64 (.f64 (sin.f64 b) (sin.f64 b)) (cos.f64 b)) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (* b r)))
#s(approx (* (/ r (cos a)) b) (*.f64 b r))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* 1/2 (* (pow a 2) (* b r))) (* b r))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* b r) (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/4 (* b r)) (* 1/24 (* b r))))) (* -1/2 (* b r)))))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* b r) (* (pow a 2) (- (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/720 (* b r)) (+ (* 1/48 (* b r)) (* 1/2 (+ (* -1/4 (* b r)) (* 1/24 (* b r)))))))) (+ (* -1/4 (* b r)) (* 1/24 (* b r))))) (* -1/2 (* b r)))))))
#s(approx (/ r (cos a)) #s(hole binary64 r))
#s(approx (/ r (cos a)) r)
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* 1/2 (* (pow a 2) r)))))
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/4 r) (* 1/24 r)))) (* -1/2 r))))))
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* (pow a 2) (- (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/720 r) (+ (* 1/48 r) (* 1/2 (+ (* -1/4 r) (* 1/24 r))))))) (+ (* -1/4 r) (* 1/24 r)))) (* -1/2 r))))))
#s(approx (cos a) #s(hole binary64 1))
#s(approx (cos a) #s(hole binary64 (+ 1 (* -1/2 (pow a 2)))))
#s(approx (cos a) #s(hole binary64 (+ 1 (* (pow a 2) (- (* 1/24 (pow a 2)) 1/2)))))
#s(approx (cos a) #s(hole binary64 (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/24 (* -1/720 (pow a 2)))) 1/2)))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos b)))
#s(approx (cos (+ a b)) (cos.f64 b))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (cos (+ a b)) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b)))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (fma.f64 (/.f64 (.f64 a r) (cos.f64 b)) (/.f64 (.f64 (sin.f64 b) (sin.f64 b)) (cos.f64 b)) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos b))))
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 b)))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (/ (sin b) (cos b)) (/ (* a (pow (sin b) 2)) (pow (cos b) 2)))))
#s(approx (/ (sin b) (cos (+ a b))) (fma.f64 (/.f64 a (cos.f64 b)) (/.f64 (*.f64 (sin.f64 b) (sin.f64 b)) (cos.f64 b)) (/.f64 (sin.f64 b) (cos.f64 b))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b)))))) (* -1 (/ (pow (sin b) 2) (pow (cos b) 2))))) (/ (sin b) (cos b)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (pow (sin b) 2) (pow (cos b) 2))) (+ (* 1/6 (/ (pow (sin b) 2) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b))))) (cos b)))))) (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b)))))) (* -1 (/ (pow (sin b) 2) (pow (cos b) 2))))) (/ (sin b) (cos b)))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b)))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) (fma.f64 (/.f64 (.f64 a r) (cos.f64 b)) (/.f64 (.f64 (sin.f64 b) (sin.f64 b)) (cos.f64 b)) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ (* r (sin b)) (pow (cos b) 2))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (*.f64 (/.f64 r (cos.f64 b)) (/.f64 (sin.f64 b) (cos.f64 b))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* -1 (/ (* a (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))))) (pow (cos b) 4))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))))) (pow (cos b) 4)))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))))) (pow (cos b) 6))) (+ (* -1 (/ (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4)))) (pow (cos b) 2))) (/ (* r (* (sin b) (+ (* -1/2 (* (cos b) (sin b))) (+ (* -1/6 (* (cos b) (sin b))) (+ (* 1/6 (* (cos b) (sin b))) (* 1/2 (* (cos b) (sin b)))))))) (pow (cos b) 4)))))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))))) (pow (cos b) 4)))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (cos b)))
#s(approx (* (cos b) (cos a)) (cos.f64 b))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* -1/2 (* (pow a 2) (cos b))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* (pow a 2) (+ (* -1/2 (cos b)) (* 1/24 (* (pow a 2) (cos b))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* (pow a 2) (+ (* -1/2 (cos b)) (* (pow a 2) (+ (* -1/720 (* (pow a 2) (cos b))) (* 1/24 (cos b)))))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos b)))
#s(approx (cos (- b a)) (cos.f64 b))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (sin b)))))
#s(approx (cos (- b a)) (fma.f64 (sin.f64 b) a (cos.f64 b)))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (* -1 (sin b)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* -1/6 (* a (sin b))))) (* -1 (sin b)))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (pow (cos b) 2)))
#s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 b) (cos.f64 b)))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))) (pow (cos b) 2))))
#s(approx (* (cos (- b a)) (cos (+ a b))) (fma.f64 (.f64 (sin.f64 b) (cos.f64 b)) (neg.f64 a) (fma.f64 (sin.f64 b) (.f64 (cos.f64 b) a) (*.f64 (cos.f64 b) (cos.f64 b)))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (+ (* a (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))) (* (cos b) (sin b))))) (pow (cos b) 2))))
#s(approx (* (cos (- b a)) (cos (+ a b))) (fma.f64 (fma.f64 (neg.f64 (cos.f64 b)) (sin.f64 b) (fma.f64 (sin.f64 b) (cos.f64 b) (neg.f64 a))) a (*.f64 (cos.f64 b) (cos.f64 b))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (+ (* a (+ (* -1 (pow (cos b) 2)) (+ (* -1 (pow (sin b) 2)) (* a (+ (* -1/2 (* (cos b) (sin b))) (+ (* -1/6 (* (cos b) (sin b))) (+ (* 1/6 (* (cos b) (sin b))) (* 1/2 (* (cos b) (sin b)))))))))) (* (cos b) (sin b))))) (pow (cos b) 2))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b)))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b))))
#s(approx (cos a) #s(hole binary64 (cos a)))
#s(approx (cos a) (cos.f64 a))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (+ a b))))
#s(approx (cos (+ a b)) (cos.f64 (+.f64 a b)))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (+ a b)))))
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (* (cos a) (cos b))))
#s(approx (* (cos b) (cos a)) (*.f64 (cos.f64 a) (cos.f64 b)))
#s(approx (cos (- b a)) #s(hole binary64 (cos (- b a))))
#s(approx (cos (- b a)) (cos.f64 (-.f64 a b)))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (+ a b)) (cos (- b a)))))
#s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- b (* -1 a)))))
#s(approx (cos (+ a b)) (cos.f64 (+.f64 a b)))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (- b (* -1 a))))))
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) (*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ b (* -1 a))) (cos (- b (* -1 a)))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (/.f64 (*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r) (cos.f64 (-.f64 a b))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (+ b (* -1 a)))))
#s(approx (cos (- b a)) (cos.f64 (-.f64 a b)))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (+ b (* -1 a))) (cos (- b (* -1 a))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (/.f64 (*.f64 b r) (cos.f64 a)))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (.f64 (fma.f64 (/.f64 (.f64 (sin.f64 a) r) (cos.f64 a)) (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b r)))
#s(approx (* (sin b) r) (*.f64 b r))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) r)) (* 1/120 r)))))))))
#s(approx (sin b) #s(hole binary64 b))
#s(approx (sin b) b)
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* -1/6 (pow b 2))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* 1/120 (pow b 2)) 1/6))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/120 (* -1/5040 (pow b 2)))) 1/6))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos a)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 a))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (fma.f64 (sin.f64 a) (neg.f64 b) (cos.f64 a)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* -1/2 (* b (cos a))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (/.f64 (*.f64 b r) (cos.f64 a)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (.f64 (fma.f64 (/.f64 (.f64 (sin.f64 a) r) (cos.f64 a)) (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos a)))
#s(approx (cos (+ a b)) (cos.f64 a))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (cos (+ a b)) (fma.f64 (sin.f64 a) (neg.f64 b) (cos.f64 a)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (/.f64 (*.f64 b r) (cos.f64 a)))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (.f64 (fma.f64 (/.f64 (.f64 (sin.f64 a) r) (cos.f64 a)) (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a))) b))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ b (cos a))))
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a)))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (/ 1 (cos a)) (/ (* b (sin a)) (pow (cos a) 2))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (* 1/2 (/ 1 (cos a))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (* -1 (/ (sin a) (pow (cos a) 2))))) (/ 1 (cos a))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* 1/2 (/ 1 (cos a))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (cos a))) (+ (* -1/2 (/ (sin a) (pow (cos a) 2))) (* 1/6 (/ (sin a) (pow (cos a) 2))))))) (* 1/2 (/ 1 (cos a)))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (* -1 (/ (sin a) (pow (cos a) 2))))) (/ 1 (cos a))))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) (/.f64 (*.f64 b r) (cos.f64 a)))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) (.f64 (fma.f64 (/.f64 (.f64 (sin.f64 a) r) (cos.f64 a)) (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a))) b))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ (* b r) (* (cos a) (cos (neg a))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (*.f64 (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* -1 (/ (* b (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (.f64 (fma.f64 (.f64 (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a))) (/.f64 (.f64 (cos.f64 a) (+.f64 (neg.f64 (sin.f64 a)) (sin.f64 a))) (.f64 (cos.f64 a) (cos.f64 a))) (/.f64 (/.f64 r (cos.f64 a)) (cos.f64 a))) b))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (* (cos a) (cos (neg a))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* r (* (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a)))) (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (+ (/ (* r (+ (* 1/6 (* (cos a) (sin (neg a)))) (+ (* 1/6 (* (cos (neg a)) (sin a))) (+ (* 1/2 (* (cos a) (sin (neg a)))) (* 1/2 (* (cos (neg a)) (sin a))))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))) (/ (* (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) (- (* -1/6 (/ r (* (cos a) (cos (neg a))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (* (cos a) (cos (neg a)))))))) (* -1/6 (/ r (* (cos a) (cos (neg a)))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (* (sin b) r) #s(hole binary64 (* b r)))
#s(approx (* (sin b) r) (*.f64 b r))
#s(approx (* (sin b) r) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* (sin b) r) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* (sin b) r) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) r)) (* 1/120 r)))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (cos a)))
#s(approx (* (cos b) (cos a)) (cos.f64 a))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* -1/2 (* (pow b 2) (cos a))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* (pow b 2) (+ (* -1/2 (cos a)) (* 1/24 (* (pow b 2) (cos a))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* (pow b 2) (+ (* -1/2 (cos a)) (* (pow b 2) (+ (* -1/720 (* (pow b 2) (cos a))) (* 1/24 (cos a)))))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg a))))
#s(approx (cos (- b a)) (cos.f64 a))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* -1 (* b (sin (neg a)))))))
#s(approx (cos (- b a)) (fma.f64 (sin.f64 a) b (cos.f64 a)))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* -1/2 (* b (cos (neg a)))) (sin (neg a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* b (+ (* -1/2 (cos (neg a))) (* 1/6 (* b (sin (neg a)))))) (sin (neg a)))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos a) (cos (neg a)))))
#s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 a) (cos.f64 a)))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (cos a) (cos (neg a))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) (fma.f64 (.f64 (cos.f64 a) (+.f64 (neg.f64 (sin.f64 a)) (sin.f64 a))) b (.f64 (cos.f64 a) (cos.f64 a))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (+ (* -1 (* (cos (neg a)) (sin a))) (* b (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a)))))))) (* (cos a) (cos (neg a))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) (fma.f64 (fma.f64 (fma.f64 (neg.f64 (cos.f64 a)) (cos.f64 a) (.f64 (sin.f64 a) (neg.f64 (sin.f64 a)))) b (.f64 (cos.f64 a) (+.f64 (neg.f64 (sin.f64 a)) (sin.f64 a)))) b (*.f64 (cos.f64 a) (cos.f64 a))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (+ (* -1 (* (cos (neg a)) (sin a))) (* b (+ (* -1 (* (cos a) (cos (neg a)))) (+ (* b (+ (* 1/6 (* (cos a) (sin (neg a)))) (+ (* 1/6 (* (cos (neg a)) (sin a))) (+ (* 1/2 (* (cos a) (sin (neg a)))) (* 1/2 (* (cos (neg a)) (sin a))))))) (* (sin a) (sin (neg a))))))))) (* (cos a) (cos (neg a))))))
#s(approx (sin b) #s(hole binary64 (sin b)))
#s(approx (sin b) (sin.f64 b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- a (* -1 b)))))
#s(approx (cos (+ a b)) (cos.f64 (+.f64 a b)))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (- a (* -1 b))))))
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (* (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (cos (- b a))) (*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ (* r (sin b)) (* (cos (neg (+ a (* -1 b)))) (cos (- a (* -1 b)))))))
#s(approx (/ (* (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (/.f64 (*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r) (cos.f64 (-.f64 a b))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg (+ a (* -1 b))))))
#s(approx (cos (- b a)) (cos.f64 (-.f64 a b)))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (neg (+ a (* -1 b)))) (cos (- a (* -1 b))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))

rewrite1.4s (9.2%)

Memory

35.3MiB live, 121.4MiB allocated; 19ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	36	155
1	45	155
2	55	155
3	67	155
4	76	155
5	82	155
6	84	155
0	84	169
1	198	141
2	1238	141
0	8981	141
1	9826	141
2	11959	141
3	15213	141
4	18978	141
5	21800	141
6	23031	141
7	23484	141
8	23564	141

Stop Event

1×	saturated
1×	node limit
1×	saturated

Counts

19 → 207

Calls

Call 1

Inputs
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(*.f64 r (sin.f64 b))
(sin.f64 b)
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 b) (cos.f64 a)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
(*.f64 (/.f64 r (cos.f64 a)) b)
(/.f64 r (cos.f64 a))
(cos.f64 a)
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 a)))
#s(approx (cos (+ a b)) (cos.f64 a))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
(/.f64 (sin.f64 b) (cos.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 (sin.f64 b) r) (.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))
(*.f64 (sin.f64 b) r)
(*.f64 (cos.f64 b) (cos.f64 a))
(cos.f64 (-.f64 b a))
(*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))

Outputs
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
(*.f64 (sin.f64 b) (/.f64 r (cos.f64 (+.f64 a b))))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (neg.f64 (*.f64 (neg.f64 r) (sin.f64 b))) (neg.f64 (neg.f64 (cos.f64 (+.f64 a b)))))
(/.f64 (*.f64 (neg.f64 r) (sin.f64 b)) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
(neg.f64 (/.f64 (*.f64 (neg.f64 r) (sin.f64 b)) (cos.f64 (+.f64 a b))))
(neg.f64 (/.f64 (*.f64 (sin.f64 b) r) (neg.f64 (cos.f64 (+.f64 a b)))))
(*.f64 (sin.f64 b) r)
(*.f64 r (sin.f64 b))
(sin.f64 b)
(/.f64 (fma.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 a)) (cos.f64 a)) (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b))))) (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 a)) (cos.f64 a)) (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b))) (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (sin.f64 a) (sin.f64 b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))) (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (neg.f64 (cos.f64 b)) (cos.f64 a))))))
(/.f64 (neg.f64 (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (neg.f64 (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))
(/.f64 (neg.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (neg.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))))
(/.f64 (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(/.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (-.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (cos.f64 a)) (cos.f64 b)))))
(/.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)))) (cos.f64 (-.f64 a b)))
(fma.f64 (cos.f64 (/.f64 (.f64 a a) (-.f64 a b))) (cos.f64 (/.f64 (.f64 b b) (-.f64 a b))) (.f64 (sin.f64 (/.f64 (.f64 a a) (-.f64 a b))) (sin.f64 (/.f64 (*.f64 b b) (-.f64 a b)))))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 a) (cos.f64 b)))
(-.f64 (.f64 (cos.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a a (.f64 b (-.f64 b a))))) (cos.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a a (.f64 b (-.f64 b a)))))) (.f64 (sin.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a a (.f64 b (-.f64 b a))))) (sin.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a a (.f64 b (-.f64 b a)))))))
(-.f64 (/.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))
(-.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))
(-.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 a)) (neg.f64 (sin.f64 b))))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (neg.f64 (sin.f64 a))) (sin.f64 b)))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 b)) (neg.f64 (sin.f64 a))))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (sin.f64 b)))
(cos.f64 (neg.f64 (-.f64 (neg.f64 b) a)))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 (+.f64 a b)))))
(cos.f64 (neg.f64 (-.f64 (neg.f64 a) b)))
(cos.f64 (neg.f64 (-.f64 b (neg.f64 a))))
(cos.f64 (neg.f64 (neg.f64 (+.f64 a b))))
(cos.f64 (-.f64 (neg.f64 a) b))
(cos.f64 (-.f64 (neg.f64 b) a))
(cos.f64 (-.f64 b (neg.f64 a)))
(cos.f64 (neg.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 a a) (-.f64 a b))) (cos.f64 (/.f64 (.f64 b b) (-.f64 a b)))) (.f64 (sin.f64 (/.f64 (.f64 a a) (-.f64 a b))) (sin.f64 (/.f64 (.f64 b b) (-.f64 a b)))))
(+.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (.f64 (cos.f64 a) (cos.f64 b)))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 a)) (cos.f64 a)) (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))))
(+.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(+.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (cos.f64 a) (cos.f64 b)))
(+.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
(*.f64 (/.f64 r (cos.f64 a)) b)
(*.f64 b (/.f64 r (cos.f64 a)))
(*.f64 r (/.f64 b (cos.f64 a)))
(/.f64 (*.f64 (neg.f64 r) b) (neg.f64 (cos.f64 a)))
(/.f64 (*.f64 b (neg.f64 r)) (neg.f64 (cos.f64 a)))
(/.f64 (neg.f64 (*.f64 b r)) (neg.f64 (cos.f64 a)))
(/.f64 (*.f64 b r) (cos.f64 a))
(/.f64 (neg.f64 (neg.f64 r)) (neg.f64 (neg.f64 (cos.f64 a))))
(/.f64 (neg.f64 r) (neg.f64 (cos.f64 a)))
(/.f64 r (cos.f64 a))
(neg.f64 (/.f64 (neg.f64 r) (cos.f64 a)))
(neg.f64 (/.f64 r (neg.f64 (cos.f64 a))))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 a))))
(cos.f64 (neg.f64 (neg.f64 a)))
(cos.f64 (neg.f64 a))
(cos.f64 a)
(/.f64 (*.f64 (sin.f64 b) r) #s(approx (cos (+ a b)) (cos.f64 a)))
#s(approx (cos (+ a b)) (cos.f64 a))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
(*.f64 (sin.f64 b) (/.f64 r (cos.f64 (+.f64 a b))))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (neg.f64 (*.f64 (neg.f64 r) (sin.f64 b))) (neg.f64 (neg.f64 (cos.f64 (+.f64 a b)))))
(/.f64 (*.f64 (neg.f64 r) (sin.f64 b)) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
(neg.f64 (/.f64 (*.f64 (neg.f64 r) (sin.f64 b)) (cos.f64 (+.f64 a b))))
(neg.f64 (/.f64 (*.f64 (sin.f64 b) r) (neg.f64 (cos.f64 (+.f64 a b)))))
(.f64 (/.f64 (sin.f64 b) (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(.f64 (/.f64 (sin.f64 b) (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))))
(/.f64 (neg.f64 (neg.f64 (sin.f64 b))) (neg.f64 (neg.f64 (cos.f64 (+.f64 a b)))))
(/.f64 (neg.f64 (sin.f64 b)) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (sin.f64 b) (cos.f64 (+.f64 a b)))
(neg.f64 (/.f64 (neg.f64 (sin.f64 b)) (cos.f64 (+.f64 a b))))
(neg.f64 (/.f64 (sin.f64 b) (neg.f64 (cos.f64 (+.f64 a b)))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 a)) (cos.f64 a)) (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b))))) (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 a)) (cos.f64 a)) (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b))) (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (sin.f64 a) (sin.f64 b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))) (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (neg.f64 (cos.f64 b)) (cos.f64 a))))))
(/.f64 (neg.f64 (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (neg.f64 (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))
(/.f64 (neg.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (neg.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))))
(/.f64 (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(/.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (-.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (cos.f64 a)) (cos.f64 b)))))
(/.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)))) (cos.f64 (-.f64 a b)))
(fma.f64 (cos.f64 (/.f64 (.f64 a a) (-.f64 a b))) (cos.f64 (/.f64 (.f64 b b) (-.f64 a b))) (.f64 (sin.f64 (/.f64 (.f64 a a) (-.f64 a b))) (sin.f64 (/.f64 (*.f64 b b) (-.f64 a b)))))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 a) (cos.f64 b)))
(-.f64 (.f64 (cos.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a a (.f64 b (-.f64 b a))))) (cos.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a a (.f64 b (-.f64 b a)))))) (.f64 (sin.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a a (.f64 b (-.f64 b a))))) (sin.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a a (.f64 b (-.f64 b a)))))))
(-.f64 (/.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))
(-.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))
(-.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 a)) (neg.f64 (sin.f64 b))))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (neg.f64 (sin.f64 a))) (sin.f64 b)))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 b)) (neg.f64 (sin.f64 a))))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (sin.f64 b)))
(cos.f64 (neg.f64 (-.f64 (neg.f64 b) a)))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 (+.f64 a b)))))
(cos.f64 (neg.f64 (-.f64 (neg.f64 a) b)))
(cos.f64 (neg.f64 (-.f64 b (neg.f64 a))))
(cos.f64 (neg.f64 (neg.f64 (+.f64 a b))))
(cos.f64 (-.f64 (neg.f64 a) b))
(cos.f64 (-.f64 (neg.f64 b) a))
(cos.f64 (-.f64 b (neg.f64 a)))
(cos.f64 (neg.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 a a) (-.f64 a b))) (cos.f64 (/.f64 (.f64 b b) (-.f64 a b)))) (.f64 (sin.f64 (/.f64 (.f64 a a) (-.f64 a b))) (sin.f64 (/.f64 (.f64 b b) (-.f64 a b)))))
(+.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (.f64 (cos.f64 a) (cos.f64 b)))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 a)) (cos.f64 a)) (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))))
(+.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(+.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (cos.f64 a) (cos.f64 b)))
(+.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(.f64 (.f64 (cos.f64 (-.f64 a b)) (/.f64 (sin.f64 b) (cos.f64 (-.f64 a b)))) (/.f64 r (cos.f64 (+.f64 a b))))
(.f64 (.f64 (cos.f64 (-.f64 a b)) (sin.f64 b)) (/.f64 (/.f64 r (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (/.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))
(.f64 (/.f64 (sin.f64 b) (cos.f64 (-.f64 a b))) (.f64 (/.f64 r (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))))
(.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b)))
(.f64 (cos.f64 (-.f64 a b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))) (/.f64 (cos.f64 (-.f64 a b)) (cos.f64 (-.f64 a b))))
(.f64 (.f64 (sin.f64 b) r) (/.f64 (cos.f64 (-.f64 a b)) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))))
(.f64 (sin.f64 b) (.f64 (/.f64 (/.f64 r (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))))
(/.f64 (/.f64 (.f64 (cos.f64 (-.f64 a b)) (.f64 (sin.f64 b) r)) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b)))
(/.f64 (/.f64 (.f64 (cos.f64 (-.f64 a b)) (.f64 (sin.f64 b) r)) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b)))
(/.f64 (.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b)))
(/.f64 (.f64 (.f64 (neg.f64 r) (sin.f64 b)) (cos.f64 (-.f64 a b))) (*.f64 (neg.f64 (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))))
(/.f64 (.f64 (cos.f64 (-.f64 a b)) (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))
(/.f64 (.f64 (cos.f64 (-.f64 a b)) (.f64 (neg.f64 r) (sin.f64 b))) (*.f64 (neg.f64 (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))))
(/.f64 (neg.f64 (.f64 (cos.f64 (-.f64 a b)) (.f64 (sin.f64 b) r))) (*.f64 (neg.f64 (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))))
(/.f64 (.f64 (cos.f64 (-.f64 a b)) (.f64 (sin.f64 b) r)) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))
(fma.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (.f64 (cos.f64 a) (cos.f64 b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (/.f64 (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b)))))
(+.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b)))) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b)))))
(+.f64 (.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (.f64 (sin.f64 a) (sin.f64 b))))
(*.f64 (/.f64 r (cos.f64 (-.f64 a b))) (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(*.f64 (/.f64 r (cos.f64 (+.f64 a b))) (/.f64 (sin.f64 b) (cos.f64 (-.f64 a b))))
(*.f64 (/.f64 (/.f64 r (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (sin.f64 b))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (-.f64 a b))) (/.f64 r (cos.f64 (+.f64 a b))))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) (/.f64 r (cos.f64 (-.f64 a b))))
(*.f64 (sin.f64 b) (/.f64 (/.f64 r (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))))
(.f64 r (/.f64 (sin.f64 b) (.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))))
(/.f64 (*.f64 (/.f64 (sin.f64 b) (cos.f64 (-.f64 a b))) r) (cos.f64 (+.f64 a b)))
(/.f64 (neg.f64 (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b)))) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (neg.f64 (.f64 (neg.f64 r) (sin.f64 b))) (neg.f64 (.f64 (neg.f64 (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b)))))
(/.f64 (.f64 (neg.f64 r) (sin.f64 b)) (.f64 (neg.f64 (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))))
(/.f64 (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b)))
(/.f64 (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b)))
(/.f64 (.f64 (sin.f64 b) r) (.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))
(neg.f64 (/.f64 (.f64 (neg.f64 r) (sin.f64 b)) (.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))))
(neg.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (neg.f64 (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b)))))
(*.f64 (sin.f64 b) r)
(*.f64 r (sin.f64 b))
(*.f64 (cos.f64 a) (cos.f64 b))
(*.f64 (cos.f64 b) (cos.f64 a))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)))) (cos.f64 (+.f64 a b)))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 a)) (cos.f64 a)) (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b)) (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (sin.f64 a) (sin.f64 b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (-.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))))
(fma.f64 (cos.f64 (/.f64 (.f64 b b) (+.f64 a b))) (cos.f64 (/.f64 (.f64 a a) (+.f64 a b))) (.f64 (sin.f64 (/.f64 (.f64 b b) (+.f64 a b))) (sin.f64 (/.f64 (*.f64 a a) (+.f64 a b)))))
(fma.f64 (cos.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a (+.f64 a b) (.f64 b b)))) (cos.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a (+.f64 a b) (.f64 b b)))) (.f64 (sin.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a (+.f64 a b) (.f64 b b)))) (sin.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a (+.f64 a b) (*.f64 b b))))))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (sin.f64 a) (sin.f64 b)))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (sin.f64 a) (sin.f64 b)))
(fma.f64 (sin.f64 a) (sin.f64 b) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (sin.f64 b) (sin.f64 a) (*.f64 (cos.f64 a) (cos.f64 b)))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(cos.f64 (neg.f64 (+.f64 (neg.f64 b) a)))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 (-.f64 b a)))))
(cos.f64 (neg.f64 (+.f64 (neg.f64 a) b)))
(cos.f64 (neg.f64 (+.f64 b (neg.f64 a))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 b a))))
(cos.f64 (+.f64 (neg.f64 a) b))
(cos.f64 (+.f64 (neg.f64 b) a))
(cos.f64 (+.f64 b (neg.f64 a)))
(cos.f64 (neg.f64 (-.f64 b a)))
(cos.f64 (neg.f64 (-.f64 a b)))
(cos.f64 (-.f64 a b))
(cos.f64 (-.f64 b a))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 b b) (+.f64 a b))) (cos.f64 (/.f64 (.f64 a a) (+.f64 a b)))) (.f64 (sin.f64 (/.f64 (.f64 b b) (+.f64 a b))) (sin.f64 (/.f64 (.f64 a a) (+.f64 a b)))))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a (+.f64 a b) (.f64 b b)))) (cos.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a (+.f64 a b) (.f64 b b))))) (.f64 (sin.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a (+.f64 a b) (.f64 b b)))) (sin.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a (+.f64 a b) (.f64 b b))))))
(+.f64 (.f64 (sin.f64 a) (sin.f64 b)) (.f64 (cos.f64 a) (cos.f64 b)))
(+.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (sin.f64 b)))
(*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))
(*.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b)))
(fma.f64 (cos.f64 (+.f64 a b)) (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (cos.f64 (+.f64 a b)) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (+.f64 a b)) (.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (+.f64 a b))))
(+.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (+.f64 a b))) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (+.f64 a b))))
(+.f64 (.f64 (cos.f64 (+.f64 a b)) (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (cos.f64 (+.f64 a b)) (.f64 (sin.f64 a) (sin.f64 b))))

eval624.0ms (4.1%)

Memory: -43.2MiB live, 39.9MiB allocated; 717ms collecting garbage
Compiler: Compiled 6 523 to 764 computations (88.3% saved)

prune41.0ms (0.3%)

Memory

9.0MiB live, 64.4MiB allocated; 11ms collecting garbage

Pruning

35 alts after pruning (30 fresh and 5 done)

	Pruned	Kept	Total
New	240	24	264
Fresh	4	6	10
Picked	1	4	5
Done	0	1	1
Total	245	35	280

Accuracy

99.8%

Counts

280 → 35

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	99.5%	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
▶	55.8%	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
	53.3%	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 a))))
	99.4%	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))))
	61.1%	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 #s(approx (sin b) b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
	99.4%	(/.f64 (.f64 r (sin.f64 b)) (/.f64 (-.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))) (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)))))))
	99.4%	(/.f64 (.f64 r (sin.f64 b)) (/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 a)) (cos.f64 a)) (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b))) (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (sin.f64 a) (sin.f64 b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (sin.f64 b)))))))
	99.3%	(/.f64 (.f64 r (sin.f64 b)) (-.f64 (/.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))
▶	99.4%	(/.f64 (.f64 r (sin.f64 b)) (-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 a) (sin.f64 b))))
✓	71.9%	(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
	50.1%	(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (fma.f64 (sin.f64 a) (neg.f64 b) (cos.f64 a))))
	51.1%	(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
▶	54.2%	(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
✓	51.7%	(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 a)))
	49.3%	(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
	48.9%	(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
	48.9%	(/.f64 (*.f64 r #s(approx (sin b) b)) #s(approx (cos (+ a b)) (cos.f64 a)))
	71.7%	(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)))))
	54.0%	(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) #s(approx (cos (- b a)) (cos.f64 b)))
	51.6%	(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) #s(approx (cos (- b a)) (cos.f64 a)))
	55.4%	(.f64 (/.f64 (.f64 (sin.f64 b) r) #s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 b) (cos.f64 b)))) (cos.f64 (-.f64 b a)))
	54.0%	(.f64 (/.f64 (.f64 (sin.f64 b) r) #s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 a) (cos.f64 a)))) (cos.f64 (-.f64 b a)))
	48.9%	(.f64 (/.f64 (.f64 #s(approx (sin b) b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
✓	71.8%	(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
	49.0%	(*.f64 (/.f64 #s(approx (sin b) b) (cos.f64 (+.f64 a b))) r)
	71.9%	(*.f64 (/.f64 r (cos.f64 (+.f64 a b))) (sin.f64 b))
	71.7%	(.f64 (.f64 (/.f64 (/.f64 r (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (sin.f64 b)) (cos.f64 (-.f64 b a)))
	71.8%	(.f64 (.f64 (sin.f64 b) r) (/.f64 (cos.f64 (-.f64 a b)) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))))
▶	71.7%	(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
	48.9%	(.f64 #s(approx (/ ( (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (*.f64 (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a)))) (cos.f64 (-.f64 b a)))
	54.2%	(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 b))) r)
	48.9%	(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
	54.2%	#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))
✓	48.9%	#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
▶	31.0%	#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))

Compiler

Compiled 1 552 to 952 computations (38.7% saved)

simplify59.0ms (0.4%)

Memory

-12.4MiB live, 76.2MiB allocated; 15ms collecting garbage

Localize:

Found 19 expressions of interest:

New	Metric	Score	Program
cost-diff	0	(sin.f64 b)
cost-diff	0	(/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))
cost-diff	0	(.f64 r (/.f64 (sin.f64 b) (.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))))
cost-diff	0	(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
cost-diff	0	(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx (* (cos b) (cos a)) (cos.f64 b)))
cost-diff	0	(sin.f64 b)
cost-diff	0	(*.f64 r (sin.f64 b))
cost-diff	0	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
cost-diff	0	#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b))
cost-diff	0	(sin.f64 b)
cost-diff	0	(*.f64 r (sin.f64 b))
cost-diff	0	(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
cost-diff	0	#s(approx (/ r (cos a)) r)
cost-diff	0	(*.f64 #s(approx (/ r (cos a)) r) b)
cost-diff	0	#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))
cost-diff	0	(-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (.f64 (sin.f64 a) (sin.f64 b)))
cost-diff	0	(sin.f64 b)
cost-diff	0	(*.f64 r (sin.f64 b))
cost-diff	0	(/.f64 (.f64 r (sin.f64 b)) (-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 a) (sin.f64 b))))

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	48	268
0	57	268
1	88	266
2	145	266
3	286	266
4	626	266
5	1603	266
6	3937	266
0	8112	266

Stop Event

1×	saturated
1×	node limit
1×	iter limit

Calls

Call 1

Inputs
(/.f64 (.f64 r (sin.f64 b)) (-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 a) (sin.f64 b))))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
(-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (.f64 (sin.f64 a) (sin.f64 b)))
(*.f64 (cos.f64 b) (cos.f64 a))
(cos.f64 b)
(cos.f64 a)
a
(*.f64 (sin.f64 a) (sin.f64 b))
(sin.f64 a)
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))
(*.f64 #s(approx (/ r (cos a)) r) b)
#s(approx (/ r (cos a)) r)
r
b
(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b))
(cos.f64 b)
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx (* (cos b) (cos a)) (cos.f64 b)))
(neg.f64 (sin.f64 a))
(sin.f64 a)
a
#s(approx (* (cos b) (cos a)) (cos.f64 b))
(cos.f64 b)
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
(.f64 r (/.f64 (sin.f64 b) (.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))))
r
(/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))
(sin.f64 b)
b
(*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))
(cos.f64 (-.f64 a b))
(-.f64 a b)
a
(cos.f64 (+.f64 a b))
(+.f64 a b)
(cos.f64 (-.f64 b a))
(-.f64 b a)

Outputs
(/.f64 (.f64 r (sin.f64 b)) (-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 a) (sin.f64 b))))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
(-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (.f64 (sin.f64 a) (sin.f64 b)))
(*.f64 (cos.f64 b) (cos.f64 a))
(cos.f64 b)
(cos.f64 a)
a
(*.f64 (sin.f64 a) (sin.f64 b))
(sin.f64 a)
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))
(*.f64 #s(approx (/ r (cos a)) r) b)
#s(approx (/ r (cos a)) r)
r
b
(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b))
(cos.f64 b)
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx (* (cos b) (cos a)) (cos.f64 b)))
(neg.f64 (sin.f64 a))
(sin.f64 a)
a
#s(approx (* (cos b) (cos a)) (cos.f64 b))
(cos.f64 b)
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
(.f64 r (/.f64 (sin.f64 b) (.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))))
r
(/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))
(sin.f64 b)
b
(*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))
(cos.f64 (-.f64 a b))
(-.f64 a b)
a
(cos.f64 (+.f64 a b))
(+.f64 a b)
(cos.f64 (-.f64 b a))
(-.f64 b a)

localize244.0ms (1.6%)

Memory

-24.3MiB live, 274.3MiB allocated; 52ms collecting garbage

Localize:

Found 19 expressions of interest:

New	Metric	Score
accuracy	0.36328125	(*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))
accuracy	17.621349290363757	(cos.f64 (-.f64 b a))
accuracy	17.621349290363757	(cos.f64 (-.f64 a b))
accuracy	17.947092214126215	(cos.f64 (+.f64 a b))
accuracy	0.10546875	(*.f64 r (sin.f64 b))
accuracy	0.1648675727109211	(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx (* (cos b) (cos a)) (cos.f64 b)))
accuracy	0.24609375	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
accuracy	32.13145172658025	#s(approx (* (cos b) (cos a)) (cos.f64 b))
accuracy	0.0	(cos.f64 b)
accuracy	0.10546875	(*.f64 r (sin.f64 b))
accuracy	0.24609375	(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
accuracy	32.586754943819855	#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b))
accuracy	0.10546875	(*.f64 #s(approx (/ r (cos a)) r) b)
accuracy	31.99238418477146	#s(approx (/ r (cos a)) r)
accuracy	32.66443075431782	#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))
accuracy	0.10546875	(*.f64 r (sin.f64 b))
accuracy	0.14510626923805559	(-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (.f64 (sin.f64 a) (sin.f64 b)))
accuracy	0.24609375	(/.f64 (.f64 r (sin.f64 b)) (-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 a) (sin.f64 b))))
accuracy	0.2578125	(*.f64 (sin.f64 a) (sin.f64 b))

Samples

195.0ms	197×	1	valid
18.0ms	59×	0	valid

Compiler

Compiled 244 to 31 computations (87.3% saved)

Precisions

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

ival-cos: 50.0ms (28.9% of total)

ival-sin: 49.0ms (28.4% of total)

adjust: 29.0ms (16.8% of total)

ival-mult: 22.0ms (12.7% of total)

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

ival-sub: 6.0ms (3.5% of total)

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

ival-neg: 1.0ms (0.6% of total)

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

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

series72.0ms (0.5%)

Memory

3.4MiB live, 96.1MiB allocated; 6ms collecting garbage

Counts

21 → 167

Calls

Call 1

Inputs
(/.f64 (.f64 r (sin.f64 b)) (-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 a) (sin.f64 b))))
(*.f64 r (sin.f64 b))
(sin.f64 b)
(-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (.f64 (sin.f64 a) (sin.f64 b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))
(*.f64 #s(approx (/ r (cos a)) r) b)
#s(approx (/ r (cos a)) r)
(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b))
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx (* (cos b) (cos a)) (cos.f64 b)))
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
(.f64 r (/.f64 (sin.f64 b) (.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))))
(/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))
(*.f64 (sin.f64 a) (sin.f64 b))
(cos.f64 b)
#s(approx (* (cos b) (cos a)) (cos.f64 b))
(cos.f64 (+.f64 a b))
(cos.f64 (-.f64 a b))
(cos.f64 (-.f64 b a))
(*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))

Outputs
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* r (sin b)) (- (* (cos a) (cos b)) (* (sin a) (sin b))))))
#s(approx (* r (sin b)) #s(hole binary64 (* r (sin b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ r (cos a)) #s(hole binary64 (/ r (cos a))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (* (cos (- b a)) (sin b))) (* (cos (+ a b)) (cos (- a b))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ a b)) (cos (- a b))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (cos b)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (* b r)))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* 1/2 (* (pow a 2) (* b r))) (* b r))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* b r) (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/4 (* b r)) (* 1/24 (* b r))))) (* -1/2 (* b r)))))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* b r) (* (pow a 2) (- (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/720 (* b r)) (+ (* 1/48 (* b r)) (* 1/2 (+ (* -1/4 (* b r)) (* 1/24 (* b r)))))))) (+ (* -1/4 (* b r)) (* 1/24 (* b r))))) (* -1/2 (* b r)))))))
#s(approx (/ r (cos a)) #s(hole binary64 r))
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* 1/2 (* (pow a 2) r)))))
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/4 r) (* 1/24 r)))) (* -1/2 r))))))
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* (pow a 2) (- (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/720 r) (+ (* 1/48 r) (* 1/2 (+ (* -1/4 r) (* 1/24 r))))))) (+ (* -1/4 r) (* 1/24 r)))) (* -1/2 r))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos b)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* -1/2 (* a (cos b))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (neg b)))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (* a (- (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (/ (* r (sin b)) (cos (neg b))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (* a (- (+ (* a (- (* -1/2 (/ (* r (sin b)) (cos (neg b)))) (+ (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (cos b) (pow (cos (neg b)) 2))) (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (- (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b))))))) (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (/ (* r (sin b)) (cos (neg b))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (* a (- (+ (* a (- (+ (* -1/2 (/ (* r (sin b)) (cos (neg b)))) (* a (- (* -1/6 (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b))))) (+ (/ (* r (* (sin b) (+ (* 1/6 (* (cos b) (sin (neg b)))) (+ (* 1/6 (* (cos (neg b)) (sin b))) (+ (* 1/2 (* (cos b) (sin (neg b)))) (* 1/2 (* (cos (neg b)) (sin b)))))))) (* (cos b) (pow (cos (neg b)) 2))) (+ (/ (* (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))) (- (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b)))) (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (- (* -1/2 (/ (* r (sin b)) (cos (neg b)))) (+ (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (cos b) (pow (cos (neg b)) 2))) (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (- (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b))))))) (* (cos b) (cos (neg b))))))))) (+ (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (cos b) (pow (cos (neg b)) 2))) (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (- (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b))))))) (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (/ (* r (sin b)) (cos (neg b))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos b) (cos (neg b))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (+ (* -1 (/ (* a (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b))))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))) (/ (* r (sin b)) (* (cos b) (cos (neg b)))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2))) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (/ (* r (sin b)) (* (cos b) (cos (neg b)))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (* (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b))))))) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (+ (* -1 (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2))) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b))))) (/ (* r (* (sin b) (+ (* 1/6 (* (cos b) (sin (neg b)))) (+ (* 1/6 (* (cos (neg b)) (sin b))) (+ (* 1/2 (* (cos b) (sin (neg b)))) (* 1/2 (* (cos (neg b)) (sin b)))))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2))) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (/ (* r (sin b)) (* (cos b) (cos (neg b)))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (/ (sin b) (* (cos b) (cos (neg b))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (+ (* -1 (/ (* a (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))) (/ (sin b) (* (cos b) (cos (neg b)))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2)) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))))) (/ (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (/ (sin b) (* (cos b) (cos (neg b)))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1 (/ (* (sin b) (* (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (+ (* -1 (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (+ (* -1 (/ (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2)) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b))))) (/ (* (sin b) (+ (* 1/6 (* (cos b) (sin (neg b)))) (+ (* 1/6 (* (cos (neg b)) (sin b))) (+ (* 1/2 (* (cos b) (sin (neg b)))) (* 1/2 (* (cos (neg b)) (sin b))))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))))) (+ (* -1 (/ (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2)) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))))) (/ (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (/ (sin b) (* (cos b) (cos (neg b)))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* a (sin b))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* a (+ (sin b) (* -1/6 (* (pow a 2) (sin b)))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* a (+ (sin b) (* (pow a 2) (+ (* -1/6 (sin b)) (* 1/120 (* (pow a 2) (sin b)))))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* a (+ (sin b) (* (pow a 2) (+ (* -1/6 (sin b)) (* (pow a 2) (+ (* -1/5040 (* (pow a 2) (sin b))) (* 1/120 (sin b))))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (cos b)))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* -1/2 (* (pow a 2) (cos b))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* (pow a 2) (+ (* -1/2 (cos b)) (* 1/24 (* (pow a 2) (cos b))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* (pow a 2) (+ (* -1/2 (cos b)) (* (pow a 2) (+ (* -1/720 (* (pow a 2) (cos b))) (* 1/24 (cos b)))))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos b)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (cos (- a b)) #s(hole binary64 (cos (neg b))))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos (neg b)) (* -1 (* a (sin (neg b)))))))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos (neg b)) (* a (- (* -1/2 (* a (cos (neg b)))) (sin (neg b)))))))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos (neg b)) (* a (- (* a (+ (* -1/2 (cos (neg b))) (* 1/6 (* a (sin (neg b)))))) (sin (neg b)))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos b)))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (sin b)))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (* -1 (sin b)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* -1/6 (* a (sin b))))) (* -1 (sin b)))))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (* (cos b) (cos (neg b)))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b))))) (* (cos b) (cos (neg b))))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin (neg b)))) (+ (* -1 (* (cos (neg b)) (sin b))) (* a (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))))) (* (cos b) (cos (neg b))))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin (neg b)))) (+ (* -1 (* (cos (neg b)) (sin b))) (* a (+ (* -1 (* (cos b) (cos (neg b)))) (+ (* a (+ (* 1/6 (* (cos b) (sin (neg b)))) (+ (* 1/6 (* (cos (neg b)) (sin b))) (+ (* 1/2 (* (cos b) (sin (neg b)))) (* 1/2 (* (cos (neg b)) (sin b))))))) (* (sin b) (sin (neg b))))))))) (* (cos b) (cos (neg b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (- (* (cos a) (cos b)) (* (sin a) (sin b)))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b)))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (/ (sin b) (* (cos (+ a b)) (cos (- a b))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* (sin a) (sin b))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (* (cos a) (cos b))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (+ a b))))
#s(approx (cos (- a b)) #s(hole binary64 (cos (- a b))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (- b a))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (* (cos (+ a b)) (cos (- a b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (* (cos (+ b (* -1 a))) (sin b))) (* (cos (neg (+ b (* -1 a)))) (cos (- b (* -1 a)))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (neg (+ b (* -1 a)))) (cos (- b (* -1 a)))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (/ (sin b) (* (cos (neg (+ b (* -1 a)))) (cos (- b (* -1 a)))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- b (* -1 a)))))
#s(approx (cos (- a b)) #s(hole binary64 (cos (neg (+ b (* -1 a))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (+ b (* -1 a)))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (* (cos (neg (+ b (* -1 a)))) (cos (- b (* -1 a))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b r)))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) r)) (* 1/120 r)))))))))
#s(approx (sin b) #s(hole binary64 b))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* -1/6 (pow b 2))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* 1/120 (pow b 2)) 1/6))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/120 (* -1/5040 (pow b 2)))) 1/6))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (cos a)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos a)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* -1/2 (* b (cos a))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* b (* r (cos (neg a)))) (pow (cos a) 2))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (/ (* r (cos (neg a))) (pow (cos a) 2))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (+ (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (* b (- (/ (* r (+ (* -1/2 (cos (neg a))) (* -1/6 (cos (neg a))))) (pow (cos a) 2)) (+ (/ (* r (* (cos (neg a)) (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2))))) (pow (cos a) 4)) (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (pow (cos a) 2)))))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (/ (* r (cos (neg a))) (pow (cos a) 2))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (+ (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (* b (- (+ (* b (- (* 1/3 (/ (* r (sin (neg a))) (pow (cos a) 2))) (+ (/ (* r (* (cos (neg a)) (+ (* -1/2 (* (cos a) (sin a))) (+ (* -1/6 (* (cos a) (sin a))) (+ (* 1/6 (* (cos a) (sin a))) (* 1/2 (* (cos a) (sin a)))))))) (pow (cos a) 4)) (+ (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (/ (* r (+ (* -1/2 (cos (neg a))) (* -1/6 (cos (neg a))))) (pow (cos a) 2)) (+ (/ (* r (* (cos (neg a)) (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2))))) (pow (cos a) 4)) (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (pow (cos a) 2))))) (pow (cos a) 2)) (/ (* (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2))) (- (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (pow (cos a) 2)))))) (/ (* r (+ (* -1/2 (cos (neg a))) (* -1/6 (cos (neg a))))) (pow (cos a) 2))) (+ (/ (* r (* (cos (neg a)) (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2))))) (pow (cos a) 4)) (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (pow (cos a) 2)))))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (/ (* r (cos (neg a))) (pow (cos a) 2))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (/ (* b r) (pow (cos a) 2))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* -1 (/ (* b (* r (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4))) (/ r (pow (cos a) 2))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (pow (cos a) 2))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) 2)) (pow (cos a) 6))) (/ (* r (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2)))) (pow (cos a) 4))))) (/ (* r (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a)))) (pow (cos a) 4)))) (/ r (pow (cos a) 2))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* r (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2))))) (pow (cos a) 6))) (+ (/ (* r (+ (* -1/2 (* (cos a) (sin a))) (+ (* -1/6 (* (cos a) (sin a))) (+ (* 1/6 (* (cos a) (sin a))) (* 1/2 (* (cos a) (sin a))))))) (pow (cos a) 4)) (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (* -1/6 (/ r (pow (cos a) 2))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) 2)) (pow (cos a) 6))) (/ (* r (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2)))) (pow (cos a) 4))))) (pow (cos a) 2)))))) (* -1/6 (/ r (pow (cos a) 2)))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) 2)) (pow (cos a) 6))) (/ (* r (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2)))) (pow (cos a) 4))))) (/ (* r (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a)))) (pow (cos a) 4)))) (/ r (pow (cos a) 2))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (/ b (pow (cos a) 2))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* -1 (* b (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3))))) (/ 1 (pow (cos a) 2))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* 5/6 (/ 1 (pow (cos a) 2))) (+ (* -1 (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3)))) (pow (cos a) 2))) (* -1 (/ (pow (sin a) 2) (pow (cos a) 4)))))) (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3))))) (/ 1 (pow (cos a) 2))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3))) (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2)))) (pow (cos a) 2))) (+ (* -1/2 (/ (sin a) (pow (cos a) 3))) (+ (* -1/6 (/ (sin a) (pow (cos a) 3))) (+ (* 1/6 (/ (sin a) (pow (cos a) 3))) (+ (* 1/2 (/ (sin a) (pow (cos a) 3))) (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (* 5/6 (/ 1 (pow (cos a) 2))) (+ (* -1 (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3)))) (pow (cos a) 2))) (* -1 (/ (pow (sin a) 2) (pow (cos a) 4)))))) (pow (cos a) 2))))))))) (* 5/6 (/ 1 (pow (cos a) 2)))) (+ (* -1 (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3)))) (pow (cos a) 2))) (* -1 (/ (pow (sin a) 2) (pow (cos a) 4)))))) (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3))))) (/ 1 (pow (cos a) 2))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* b (sin a))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* b (+ (sin a) (* -1/6 (* (pow b 2) (sin a)))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* b (+ (sin a) (* (pow b 2) (+ (* -1/6 (sin a)) (* 1/120 (* (pow b 2) (sin a)))))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* b (+ (sin a) (* (pow b 2) (+ (* -1/6 (sin a)) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) (sin a))) (* 1/120 (sin a))))))))))
#s(approx (cos b) #s(hole binary64 1))
#s(approx (cos b) #s(hole binary64 (+ 1 (* -1/2 (pow b 2)))))
#s(approx (cos b) #s(hole binary64 (+ 1 (* (pow b 2) (- (* 1/24 (pow b 2)) 1/2)))))
#s(approx (cos b) #s(hole binary64 (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/24 (* -1/720 (pow b 2)))) 1/2)))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (cos a)))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* -1/2 (* (pow b 2) (cos a))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* (pow b 2) (+ (* -1/2 (cos a)) (* 1/24 (* (pow b 2) (cos a))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* (pow b 2) (+ (* -1/2 (cos a)) (* (pow b 2) (+ (* -1/720 (* (pow b 2) (cos a))) (* 1/24 (cos a)))))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos a)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (cos (- a b)) #s(hole binary64 (cos a)))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos a) (* b (sin a)))))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (* -1 (sin a)))))))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* -1/6 (* b (sin a))))) (* -1 (sin a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg a))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* -1 (* b (sin (neg a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* -1/2 (* b (cos (neg a)))) (sin (neg a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* b (+ (* -1/2 (cos (neg a))) (* 1/6 (* b (sin (neg a)))))) (sin (neg a)))))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (pow (cos a) 2)))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a)))) (pow (cos a) 2))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin a))) (+ (* b (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2)))) (* (cos a) (sin a))))) (pow (cos a) 2))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin a))) (+ (* b (+ (* -1 (pow (cos a) 2)) (+ (* -1 (pow (sin a) 2)) (* b (+ (* -1/2 (* (cos a) (sin a))) (+ (* -1/6 (* (cos a) (sin a))) (+ (* 1/6 (* (cos a) (sin a))) (* 1/2 (* (cos a) (sin a)))))))))) (* (cos a) (sin a))))) (pow (cos a) 2))))
#s(approx (sin b) #s(hole binary64 (sin b)))
#s(approx (cos b) #s(hole binary64 (cos b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (* (cos (neg (+ a (* -1 b)))) (sin b))) (* (cos (+ a (* -1 b))) (cos (- a (* -1 b)))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ a (* -1 b))) (cos (- a (* -1 b)))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (/ (sin b) (* (cos (+ a (* -1 b))) (cos (- a (* -1 b)))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- a (* -1 b)))))
#s(approx (cos (- a b)) #s(hole binary64 (cos (+ a (* -1 b)))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg (+ a (* -1 b))))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (* (cos (+ a (* -1 b))) (cos (- a (* -1 b))))))

Calls

9 calls:

Time	Variable		Point	Expression
13.0ms	r	@	0	((/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (* r (sin b)) (sin b) (- (* (cos b) (cos a)) (* (sin a) (sin b))) (/ (* r (sin b)) (cos (+ a b))) (* (/ r (cos a)) b) (/ r (cos a)) (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (* (sin a) (sin b)) (cos b) (* (cos b) (cos a)) (cos (+ a b)) (cos (- a b)) (cos (- b a)) (* (cos (- a b)) (cos (+ a b))))
9.0ms	r	@	-inf	((/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (* r (sin b)) (sin b) (- (* (cos b) (cos a)) (* (sin a) (sin b))) (/ (* r (sin b)) (cos (+ a b))) (* (/ r (cos a)) b) (/ r (cos a)) (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (* (sin a) (sin b)) (cos b) (* (cos b) (cos a)) (cos (+ a b)) (cos (- a b)) (cos (- b a)) (* (cos (- a b)) (cos (+ a b))))
8.0ms	b	@	-inf	((/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (* r (sin b)) (sin b) (- (* (cos b) (cos a)) (* (sin a) (sin b))) (/ (* r (sin b)) (cos (+ a b))) (* (/ r (cos a)) b) (/ r (cos a)) (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (* (sin a) (sin b)) (cos b) (* (cos b) (cos a)) (cos (+ a b)) (cos (- a b)) (cos (- b a)) (* (cos (- a b)) (cos (+ a b))))
7.0ms	b	@	0	((/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (* r (sin b)) (sin b) (- (* (cos b) (cos a)) (* (sin a) (sin b))) (/ (* r (sin b)) (cos (+ a b))) (* (/ r (cos a)) b) (/ r (cos a)) (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (* (sin a) (sin b)) (cos b) (* (cos b) (cos a)) (cos (+ a b)) (cos (- a b)) (cos (- b a)) (* (cos (- a b)) (cos (+ a b))))
7.0ms	a	@	0	((/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (* r (sin b)) (sin b) (- (* (cos b) (cos a)) (* (sin a) (sin b))) (/ (* r (sin b)) (cos (+ a b))) (* (/ r (cos a)) b) (/ r (cos a)) (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (* (sin a) (sin b)) (cos b) (* (cos b) (cos a)) (cos (+ a b)) (cos (- a b)) (cos (- b a)) (* (cos (- a b)) (cos (+ a b))))

simplify951.0ms (6.2%)

Memory

-3.9MiB live, 185.1MiB allocated; 20ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	1033	7070
1	3168	6740
0	8329	6626
1	9839	6531
2	12430	6511
3	14920	6511
4	16749	6511
5	18342	6511
6	19578	6511
7	20590	6511
8	21156	6511
9	21389	6511
10	21451	6511
11	21457	6511

Stop Event

1×	saturated
1×	node limit

Counts

167 → 93

Calls

Call 1

Inputs
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* r (sin b)) (- (* (cos a) (cos b)) (* (sin a) (sin b))))))
#s(approx (* r (sin b)) #s(hole binary64 (* r (sin b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ r (cos a)) #s(hole binary64 (/ r (cos a))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (* (cos (- b a)) (sin b))) (* (cos (+ a b)) (cos (- a b))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ a b)) (cos (- a b))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (cos b)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (* b r)))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* 1/2 (* (pow a 2) (* b r))) (* b r))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* b r) (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/4 (* b r)) (* 1/24 (* b r))))) (* -1/2 (* b r)))))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* b r) (* (pow a 2) (- (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/720 (* b r)) (+ (* 1/48 (* b r)) (* 1/2 (+ (* -1/4 (* b r)) (* 1/24 (* b r)))))))) (+ (* -1/4 (* b r)) (* 1/24 (* b r))))) (* -1/2 (* b r)))))))
#s(approx (/ r (cos a)) #s(hole binary64 r))
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* 1/2 (* (pow a 2) r)))))
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/4 r) (* 1/24 r)))) (* -1/2 r))))))
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* (pow a 2) (- (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/720 r) (+ (* 1/48 r) (* 1/2 (+ (* -1/4 r) (* 1/24 r))))))) (+ (* -1/4 r) (* 1/24 r)))) (* -1/2 r))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos b)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* -1/2 (* a (cos b))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (neg b)))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (* a (- (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (/ (* r (sin b)) (cos (neg b))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (* a (- (+ (* a (- (* -1/2 (/ (* r (sin b)) (cos (neg b)))) (+ (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (cos b) (pow (cos (neg b)) 2))) (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (- (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b))))))) (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (/ (* r (sin b)) (cos (neg b))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (* a (- (+ (* a (- (+ (* -1/2 (/ (* r (sin b)) (cos (neg b)))) (* a (- (* -1/6 (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b))))) (+ (/ (* r (* (sin b) (+ (* 1/6 (* (cos b) (sin (neg b)))) (+ (* 1/6 (* (cos (neg b)) (sin b))) (+ (* 1/2 (* (cos b) (sin (neg b)))) (* 1/2 (* (cos (neg b)) (sin b)))))))) (* (cos b) (pow (cos (neg b)) 2))) (+ (/ (* (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))) (- (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b)))) (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (- (* -1/2 (/ (* r (sin b)) (cos (neg b)))) (+ (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (cos b) (pow (cos (neg b)) 2))) (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (- (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b))))))) (* (cos b) (cos (neg b))))))))) (+ (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (cos b) (pow (cos (neg b)) 2))) (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (- (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b))))))) (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (/ (* r (sin b)) (cos (neg b))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos b) (cos (neg b))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (+ (* -1 (/ (* a (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b))))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))) (/ (* r (sin b)) (* (cos b) (cos (neg b)))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2))) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (/ (* r (sin b)) (* (cos b) (cos (neg b)))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (* (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b))))))) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (+ (* -1 (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2))) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b))))) (/ (* r (* (sin b) (+ (* 1/6 (* (cos b) (sin (neg b)))) (+ (* 1/6 (* (cos (neg b)) (sin b))) (+ (* 1/2 (* (cos b) (sin (neg b)))) (* 1/2 (* (cos (neg b)) (sin b)))))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2))) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (/ (* r (sin b)) (* (cos b) (cos (neg b)))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (/ (sin b) (* (cos b) (cos (neg b))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (+ (* -1 (/ (* a (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))) (/ (sin b) (* (cos b) (cos (neg b)))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2)) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))))) (/ (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (/ (sin b) (* (cos b) (cos (neg b)))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1 (/ (* (sin b) (* (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (+ (* -1 (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (+ (* -1 (/ (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2)) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b))))) (/ (* (sin b) (+ (* 1/6 (* (cos b) (sin (neg b)))) (+ (* 1/6 (* (cos (neg b)) (sin b))) (+ (* 1/2 (* (cos b) (sin (neg b)))) (* 1/2 (* (cos (neg b)) (sin b))))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))))) (+ (* -1 (/ (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2)) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))))) (/ (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (/ (sin b) (* (cos b) (cos (neg b)))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* a (sin b))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* a (+ (sin b) (* -1/6 (* (pow a 2) (sin b)))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* a (+ (sin b) (* (pow a 2) (+ (* -1/6 (sin b)) (* 1/120 (* (pow a 2) (sin b)))))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* a (+ (sin b) (* (pow a 2) (+ (* -1/6 (sin b)) (* (pow a 2) (+ (* -1/5040 (* (pow a 2) (sin b))) (* 1/120 (sin b))))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (cos b)))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* -1/2 (* (pow a 2) (cos b))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* (pow a 2) (+ (* -1/2 (cos b)) (* 1/24 (* (pow a 2) (cos b))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* (pow a 2) (+ (* -1/2 (cos b)) (* (pow a 2) (+ (* -1/720 (* (pow a 2) (cos b))) (* 1/24 (cos b)))))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos b)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (cos (- a b)) #s(hole binary64 (cos (neg b))))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos (neg b)) (* -1 (* a (sin (neg b)))))))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos (neg b)) (* a (- (* -1/2 (* a (cos (neg b)))) (sin (neg b)))))))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos (neg b)) (* a (- (* a (+ (* -1/2 (cos (neg b))) (* 1/6 (* a (sin (neg b)))))) (sin (neg b)))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos b)))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (sin b)))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (* -1 (sin b)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* -1/6 (* a (sin b))))) (* -1 (sin b)))))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (* (cos b) (cos (neg b)))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b))))) (* (cos b) (cos (neg b))))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin (neg b)))) (+ (* -1 (* (cos (neg b)) (sin b))) (* a (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))))) (* (cos b) (cos (neg b))))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin (neg b)))) (+ (* -1 (* (cos (neg b)) (sin b))) (* a (+ (* -1 (* (cos b) (cos (neg b)))) (+ (* a (+ (* 1/6 (* (cos b) (sin (neg b)))) (+ (* 1/6 (* (cos (neg b)) (sin b))) (+ (* 1/2 (* (cos b) (sin (neg b)))) (* 1/2 (* (cos (neg b)) (sin b))))))) (* (sin b) (sin (neg b))))))))) (* (cos b) (cos (neg b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (- (* (cos a) (cos b)) (* (sin a) (sin b)))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b)))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (/ (sin b) (* (cos (+ a b)) (cos (- a b))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* (sin a) (sin b))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (* (cos a) (cos b))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (+ a b))))
#s(approx (cos (- a b)) #s(hole binary64 (cos (- a b))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (- b a))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (* (cos (+ a b)) (cos (- a b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (* (cos (+ b (* -1 a))) (sin b))) (* (cos (neg (+ b (* -1 a)))) (cos (- b (* -1 a)))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (neg (+ b (* -1 a)))) (cos (- b (* -1 a)))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (/ (sin b) (* (cos (neg (+ b (* -1 a)))) (cos (- b (* -1 a)))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- b (* -1 a)))))
#s(approx (cos (- a b)) #s(hole binary64 (cos (neg (+ b (* -1 a))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (+ b (* -1 a)))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (* (cos (neg (+ b (* -1 a)))) (cos (- b (* -1 a))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b r)))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) r)) (* 1/120 r)))))))))
#s(approx (sin b) #s(hole binary64 b))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* -1/6 (pow b 2))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* 1/120 (pow b 2)) 1/6))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/120 (* -1/5040 (pow b 2)))) 1/6))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (cos a)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos a)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* -1/2 (* b (cos a))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* b (* r (cos (neg a)))) (pow (cos a) 2))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (/ (* r (cos (neg a))) (pow (cos a) 2))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (+ (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (* b (- (/ (* r (+ (* -1/2 (cos (neg a))) (* -1/6 (cos (neg a))))) (pow (cos a) 2)) (+ (/ (* r (* (cos (neg a)) (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2))))) (pow (cos a) 4)) (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (pow (cos a) 2)))))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (/ (* r (cos (neg a))) (pow (cos a) 2))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (+ (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (* b (- (+ (* b (- (* 1/3 (/ (* r (sin (neg a))) (pow (cos a) 2))) (+ (/ (* r (* (cos (neg a)) (+ (* -1/2 (* (cos a) (sin a))) (+ (* -1/6 (* (cos a) (sin a))) (+ (* 1/6 (* (cos a) (sin a))) (* 1/2 (* (cos a) (sin a)))))))) (pow (cos a) 4)) (+ (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (/ (* r (+ (* -1/2 (cos (neg a))) (* -1/6 (cos (neg a))))) (pow (cos a) 2)) (+ (/ (* r (* (cos (neg a)) (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2))))) (pow (cos a) 4)) (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (pow (cos a) 2))))) (pow (cos a) 2)) (/ (* (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2))) (- (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (pow (cos a) 2)))))) (/ (* r (+ (* -1/2 (cos (neg a))) (* -1/6 (cos (neg a))))) (pow (cos a) 2))) (+ (/ (* r (* (cos (neg a)) (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2))))) (pow (cos a) 4)) (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (pow (cos a) 2)))))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (/ (* r (cos (neg a))) (pow (cos a) 2))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (/ (* b r) (pow (cos a) 2))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* -1 (/ (* b (* r (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4))) (/ r (pow (cos a) 2))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (pow (cos a) 2))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) 2)) (pow (cos a) 6))) (/ (* r (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2)))) (pow (cos a) 4))))) (/ (* r (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a)))) (pow (cos a) 4)))) (/ r (pow (cos a) 2))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* r (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2))))) (pow (cos a) 6))) (+ (/ (* r (+ (* -1/2 (* (cos a) (sin a))) (+ (* -1/6 (* (cos a) (sin a))) (+ (* 1/6 (* (cos a) (sin a))) (* 1/2 (* (cos a) (sin a))))))) (pow (cos a) 4)) (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (* -1/6 (/ r (pow (cos a) 2))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) 2)) (pow (cos a) 6))) (/ (* r (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2)))) (pow (cos a) 4))))) (pow (cos a) 2)))))) (* -1/6 (/ r (pow (cos a) 2)))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) 2)) (pow (cos a) 6))) (/ (* r (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2)))) (pow (cos a) 4))))) (/ (* r (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a)))) (pow (cos a) 4)))) (/ r (pow (cos a) 2))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (/ b (pow (cos a) 2))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* -1 (* b (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3))))) (/ 1 (pow (cos a) 2))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* 5/6 (/ 1 (pow (cos a) 2))) (+ (* -1 (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3)))) (pow (cos a) 2))) (* -1 (/ (pow (sin a) 2) (pow (cos a) 4)))))) (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3))))) (/ 1 (pow (cos a) 2))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3))) (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2)))) (pow (cos a) 2))) (+ (* -1/2 (/ (sin a) (pow (cos a) 3))) (+ (* -1/6 (/ (sin a) (pow (cos a) 3))) (+ (* 1/6 (/ (sin a) (pow (cos a) 3))) (+ (* 1/2 (/ (sin a) (pow (cos a) 3))) (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (* 5/6 (/ 1 (pow (cos a) 2))) (+ (* -1 (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3)))) (pow (cos a) 2))) (* -1 (/ (pow (sin a) 2) (pow (cos a) 4)))))) (pow (cos a) 2))))))))) (* 5/6 (/ 1 (pow (cos a) 2)))) (+ (* -1 (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3)))) (pow (cos a) 2))) (* -1 (/ (pow (sin a) 2) (pow (cos a) 4)))))) (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3))))) (/ 1 (pow (cos a) 2))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* b (sin a))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* b (+ (sin a) (* -1/6 (* (pow b 2) (sin a)))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* b (+ (sin a) (* (pow b 2) (+ (* -1/6 (sin a)) (* 1/120 (* (pow b 2) (sin a)))))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* b (+ (sin a) (* (pow b 2) (+ (* -1/6 (sin a)) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) (sin a))) (* 1/120 (sin a))))))))))
#s(approx (cos b) #s(hole binary64 1))
#s(approx (cos b) #s(hole binary64 (+ 1 (* -1/2 (pow b 2)))))
#s(approx (cos b) #s(hole binary64 (+ 1 (* (pow b 2) (- (* 1/24 (pow b 2)) 1/2)))))
#s(approx (cos b) #s(hole binary64 (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/24 (* -1/720 (pow b 2)))) 1/2)))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (cos a)))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* -1/2 (* (pow b 2) (cos a))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* (pow b 2) (+ (* -1/2 (cos a)) (* 1/24 (* (pow b 2) (cos a))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* (pow b 2) (+ (* -1/2 (cos a)) (* (pow b 2) (+ (* -1/720 (* (pow b 2) (cos a))) (* 1/24 (cos a)))))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos a)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (cos (- a b)) #s(hole binary64 (cos a)))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos a) (* b (sin a)))))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (* -1 (sin a)))))))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* -1/6 (* b (sin a))))) (* -1 (sin a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg a))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* -1 (* b (sin (neg a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* -1/2 (* b (cos (neg a)))) (sin (neg a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* b (+ (* -1/2 (cos (neg a))) (* 1/6 (* b (sin (neg a)))))) (sin (neg a)))))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (pow (cos a) 2)))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a)))) (pow (cos a) 2))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin a))) (+ (* b (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2)))) (* (cos a) (sin a))))) (pow (cos a) 2))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin a))) (+ (* b (+ (* -1 (pow (cos a) 2)) (+ (* -1 (pow (sin a) 2)) (* b (+ (* -1/2 (* (cos a) (sin a))) (+ (* -1/6 (* (cos a) (sin a))) (+ (* 1/6 (* (cos a) (sin a))) (* 1/2 (* (cos a) (sin a)))))))))) (* (cos a) (sin a))))) (pow (cos a) 2))))
#s(approx (sin b) #s(hole binary64 (sin b)))
#s(approx (cos b) #s(hole binary64 (cos b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (* (cos (neg (+ a (* -1 b)))) (sin b))) (* (cos (+ a (* -1 b))) (cos (- a (* -1 b)))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ a (* -1 b))) (cos (- a (* -1 b)))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (/ (sin b) (* (cos (+ a (* -1 b))) (cos (- a (* -1 b)))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- a (* -1 b)))))
#s(approx (cos (- a b)) #s(hole binary64 (cos (+ a (* -1 b)))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg (+ a (* -1 b))))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (* (cos (+ a (* -1 b))) (cos (- a (* -1 b))))))

Outputs
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* r (sin b)) (- (* (cos a) (cos b)) (* (sin a) (sin b))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (/.f64 (.f64 (sin.f64 b) r) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (cos.f64 a) (cos.f64 b)))))
#s(approx (* r (sin b)) #s(hole binary64 (* r (sin b))))
#s(approx (* r (sin b)) (*.f64 (sin.f64 b) r))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b)))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (* (/ r (cos a)) b) (/.f64 (*.f64 b r) (cos.f64 a)))
#s(approx (/ r (cos a)) #s(hole binary64 (/ r (cos a))))
#s(approx (/ r (cos a)) (/.f64 r (cos.f64 a)))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (/.f64 (.f64 (sin.f64 b) r) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (cos.f64 a) (cos.f64 b)))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (* (cos (- b a)) (sin b))) (* (cos (+ a b)) (cos (- a b))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) (.f64 (/.f64 (.f64 (sin.f64 b) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (/.f64 r (cos.f64 (-.f64 a b)))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ a b)) (cos (- a b))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (/.f64 (*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 a b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b)))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (fma.f64 (/.f64 (.f64 a r) (cos.f64 b)) (/.f64 (.f64 (sin.f64 b) (sin.f64 b)) (cos.f64 b)) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (cos b)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) (cos.f64 b))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (fma.f64 (/.f64 (.f64 a r) (cos.f64 b)) (/.f64 (.f64 (sin.f64 b) (sin.f64 b)) (cos.f64 b)) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (* b r)))
#s(approx (* (/ r (cos a)) b) (*.f64 b r))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* 1/2 (* (pow a 2) (* b r))) (* b r))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* b r) (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/4 (* b r)) (* 1/24 (* b r))))) (* -1/2 (* b r)))))))
#s(approx (* (/ r (cos a)) b) #s(hole binary64 (+ (* b r) (* (pow a 2) (- (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/720 (* b r)) (+ (* 1/48 (* b r)) (* 1/2 (+ (* -1/4 (* b r)) (* 1/24 (* b r)))))))) (+ (* -1/4 (* b r)) (* 1/24 (* b r))))) (* -1/2 (* b r)))))))
#s(approx (/ r (cos a)) #s(hole binary64 r))
#s(approx (/ r (cos a)) r)
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* 1/2 (* (pow a 2) r)))))
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/4 r) (* 1/24 r)))) (* -1/2 r))))))
#s(approx (/ r (cos a)) #s(hole binary64 (+ r (* (pow a 2) (- (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/720 r) (+ (* 1/48 r) (* 1/2 (+ (* -1/4 r) (* 1/24 r))))))) (+ (* -1/4 r) (* 1/24 r)))) (* -1/2 r))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b)))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (fma.f64 (/.f64 (.f64 a r) (cos.f64 b)) (/.f64 (.f64 (sin.f64 b) (sin.f64 b)) (cos.f64 b)) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos b)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) (cos.f64 b))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* -1/2 (* a (cos b))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (neg b)))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b)))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (* a (- (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (/ (* r (sin b)) (cos (neg b))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) (fma.f64 (fma.f64 (/.f64 (.f64 (sin.f64 b) (sin.f64 b)) (cos.f64 b)) (/.f64 r (cos.f64 b)) (.f64 (neg.f64 (/.f64 r (cos.f64 b))) (.f64 (/.f64 (neg.f64 (fma.f64 (sin.f64 b) (cos.f64 b) (.f64 (neg.f64 (sin.f64 b)) (cos.f64 b)))) (cos.f64 b)) (/.f64 (sin.f64 b) (cos.f64 b))))) a (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (* a (- (+ (* a (- (* -1/2 (/ (* r (sin b)) (cos (neg b)))) (+ (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (cos b) (pow (cos (neg b)) 2))) (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (- (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b))))))) (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (/ (* r (sin b)) (cos (neg b))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (* a (- (+ (* a (- (+ (* -1/2 (/ (* r (sin b)) (cos (neg b)))) (* a (- (* -1/6 (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b))))) (+ (/ (* r (* (sin b) (+ (* 1/6 (* (cos b) (sin (neg b)))) (+ (* 1/6 (* (cos (neg b)) (sin b))) (+ (* 1/2 (* (cos b) (sin (neg b)))) (* 1/2 (* (cos (neg b)) (sin b)))))))) (* (cos b) (pow (cos (neg b)) 2))) (+ (/ (* (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))) (- (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b)))) (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (- (* -1/2 (/ (* r (sin b)) (cos (neg b)))) (+ (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (cos b) (pow (cos (neg b)) 2))) (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (- (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b))))))) (* (cos b) (cos (neg b))))))))) (+ (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (cos b) (pow (cos (neg b)) 2))) (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (- (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b))))))) (/ (* r (pow (sin b) 2)) (* (cos b) (cos (neg b))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (cos b) (pow (cos (neg b)) 2))))) (/ (* r (sin b)) (cos (neg b))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos b) (cos (neg b))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (/.f64 (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b)) (cos.f64 b)))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (+ (* -1 (/ (* a (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b))))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))) (/ (* r (sin b)) (* (cos b) (cos (neg b)))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (fma.f64 (neg.f64 (/.f64 a (.f64 (cos.f64 b) (cos.f64 b)))) (.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 b)) (/.f64 (neg.f64 (fma.f64 (sin.f64 b) (cos.f64 b) (.f64 (neg.f64 (sin.f64 b)) (cos.f64 b)))) (cos.f64 b))) (/.f64 (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b)) (cos.f64 b))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2))) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (/ (* r (sin b)) (* (cos b) (cos (neg b)))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (fma.f64 (fma.f64 (fma.f64 (neg.f64 r) (.f64 (.f64 (/.f64 (neg.f64 (fma.f64 (sin.f64 b) (cos.f64 b) (.f64 (neg.f64 (sin.f64 b)) (cos.f64 b)))) (cos.f64 b)) (/.f64 (neg.f64 (fma.f64 (sin.f64 b) (cos.f64 b) (.f64 (neg.f64 (sin.f64 b)) (cos.f64 b)))) (.f64 (cos.f64 b) (cos.f64 b)))) (/.f64 (sin.f64 b) (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b)))) (.f64 (.f64 (/.f64 (fma.f64 (neg.f64 (cos.f64 b)) (cos.f64 b) (.f64 (neg.f64 (sin.f64 b)) (sin.f64 b))) (cos.f64 b)) (/.f64 (sin.f64 b) (cos.f64 b))) (/.f64 r (.f64 (cos.f64 b) (cos.f64 b))))) (neg.f64 a) (.f64 (neg.f64 (/.f64 r (.f64 (cos.f64 b) (cos.f64 b)))) (.f64 (/.f64 (neg.f64 (fma.f64 (sin.f64 b) (cos.f64 b) (.f64 (neg.f64 (sin.f64 b)) (cos.f64 b)))) (cos.f64 b)) (/.f64 (sin.f64 b) (cos.f64 b))))) a (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 b)) (cos.f64 b))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (* (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b))))))) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (+ (* -1 (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2))) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b))))) (/ (* r (* (sin b) (+ (* 1/6 (* (cos b) (sin (neg b)))) (+ (* 1/6 (* (cos (neg b)) (sin b))) (+ (* 1/2 (* (cos b) (sin (neg b)))) (* 1/2 (* (cos (neg b)) (sin b)))))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2))) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (/ (* r (sin b)) (* (cos b) (cos (neg b)))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (/ (sin b) (* (cos b) (cos (neg b))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (/.f64 (/.f64 (sin.f64 b) (cos.f64 b)) (cos.f64 b)))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (+ (* -1 (/ (* a (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))) (/ (sin b) (* (cos b) (cos (neg b)))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (fma.f64 (neg.f64 (/.f64 a (.f64 (cos.f64 b) (cos.f64 b)))) (.f64 (/.f64 (neg.f64 (fma.f64 (sin.f64 b) (cos.f64 b) (*.f64 (neg.f64 (sin.f64 b)) (cos.f64 b)))) (cos.f64 b)) (/.f64 (sin.f64 b) (cos.f64 b))) (/.f64 (/.f64 (sin.f64 b) (cos.f64 b)) (cos.f64 b))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2)) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))))) (/ (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (/ (sin b) (* (cos b) (cos (neg b)))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (fma.f64 (fma.f64 (fma.f64 (neg.f64 (/.f64 (sin.f64 b) (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b)))) (.f64 (/.f64 (neg.f64 (fma.f64 (sin.f64 b) (cos.f64 b) (.f64 (neg.f64 (sin.f64 b)) (cos.f64 b)))) (cos.f64 b)) (/.f64 (neg.f64 (fma.f64 (sin.f64 b) (cos.f64 b) (.f64 (neg.f64 (sin.f64 b)) (cos.f64 b)))) (.f64 (cos.f64 b) (cos.f64 b)))) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 b)) (cos.f64 b) (.f64 (neg.f64 (sin.f64 b)) (sin.f64 b))) (sin.f64 b)) (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (.f64 (cos.f64 b) (cos.f64 b))))) (neg.f64 a) (.f64 (neg.f64 (/.f64 (/.f64 (sin.f64 b) (cos.f64 b)) (cos.f64 b))) (/.f64 (neg.f64 (fma.f64 (sin.f64 b) (cos.f64 b) (.f64 (neg.f64 (sin.f64 b)) (cos.f64 b)))) (.f64 (cos.f64 b) (cos.f64 b))))) a (/.f64 (/.f64 (sin.f64 b) (cos.f64 b)) (cos.f64 b))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1 (/ (* (sin b) (* (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))))) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (+ (* -1 (/ (* (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) (+ (* -1 (/ (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2)) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (* (cos b) (cos (neg b))))) (/ (* (sin b) (+ (* 1/6 (* (cos b) (sin (neg b)))) (+ (* 1/6 (* (cos (neg b)) (sin b))) (+ (* 1/2 (* (cos b) (sin (neg b)))) (* 1/2 (* (cos (neg b)) (sin b))))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))))) (+ (* -1 (/ (* (sin b) (pow (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b)))) 2)) (* (pow (cos b) 3) (pow (cos (neg b)) 3)))) (/ (* (sin b) (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2)))))) (/ (* (sin b) (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b))))) (* (pow (cos b) 2) (pow (cos (neg b)) 2))))) (/ (sin b) (* (cos b) (cos (neg b)))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* a (sin b))))
#s(approx (* (sin a) (sin b)) (*.f64 (sin.f64 b) a))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* a (+ (sin b) (* -1/6 (* (pow a 2) (sin b)))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* a (+ (sin b) (* (pow a 2) (+ (* -1/6 (sin b)) (* 1/120 (* (pow a 2) (sin b)))))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* a (+ (sin b) (* (pow a 2) (+ (* -1/6 (sin b)) (* (pow a 2) (+ (* -1/5040 (* (pow a 2) (sin b))) (* 1/120 (sin b))))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (cos b)))
#s(approx (* (cos b) (cos a)) (cos.f64 b))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* -1/2 (* (pow a 2) (cos b))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* (pow a 2) (+ (* -1/2 (cos b)) (* 1/24 (* (pow a 2) (cos b))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos b) (* (pow a 2) (+ (* -1/2 (cos b)) (* (pow a 2) (+ (* -1/720 (* (pow a 2) (cos b))) (* 1/24 (cos b)))))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos b)))
#s(approx (cos (+ a b)) (cos.f64 b))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (cos (+ a b)) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (cos (- a b)) #s(hole binary64 (cos (neg b))))
#s(approx (cos (- a b)) (cos.f64 b))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos (neg b)) (* -1 (* a (sin (neg b)))))))
#s(approx (cos (- a b)) (fma.f64 (sin.f64 b) a (cos.f64 b)))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos (neg b)) (* a (- (* -1/2 (* a (cos (neg b)))) (sin (neg b)))))))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos (neg b)) (* a (- (* a (+ (* -1/2 (cos (neg b))) (* 1/6 (* a (sin (neg b)))))) (sin (neg b)))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos b)))
#s(approx (cos (- b a)) (cos.f64 b))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (sin b)))))
#s(approx (cos (- b a)) (fma.f64 (sin.f64 b) a (cos.f64 b)))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (* -1 (sin b)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* -1/6 (* a (sin b))))) (* -1 (sin b)))))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (* (cos b) (cos (neg b)))))
#s(approx (* (cos (- a b)) (cos (+ a b))) (*.f64 (cos.f64 b) (cos.f64 b)))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin (neg b)))) (* -1 (* (cos (neg b)) (sin b))))) (* (cos b) (cos (neg b))))))
#s(approx (* (cos (- a b)) (cos (+ a b))) (fma.f64 (neg.f64 (fma.f64 (sin.f64 b) (cos.f64 b) (.f64 (neg.f64 (sin.f64 b)) (cos.f64 b)))) a (.f64 (cos.f64 b) (cos.f64 b))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin (neg b)))) (+ (* -1 (* (cos (neg b)) (sin b))) (* a (+ (* -1 (* (cos b) (cos (neg b)))) (* (sin b) (sin (neg b)))))))) (* (cos b) (cos (neg b))))))
#s(approx (* (cos (- a b)) (cos (+ a b))) (fma.f64 (fma.f64 (neg.f64 (neg.f64 (sin.f64 b))) (cos.f64 b) (fma.f64 (fma.f64 (neg.f64 (cos.f64 b)) (cos.f64 b) (.f64 (neg.f64 (sin.f64 b)) (sin.f64 b))) a (.f64 (neg.f64 (sin.f64 b)) (cos.f64 b)))) a (*.f64 (cos.f64 b) (cos.f64 b))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin (neg b)))) (+ (* -1 (* (cos (neg b)) (sin b))) (* a (+ (* -1 (* (cos b) (cos (neg b)))) (+ (* a (+ (* 1/6 (* (cos b) (sin (neg b)))) (+ (* 1/6 (* (cos (neg b)) (sin b))) (+ (* 1/2 (* (cos b) (sin (neg b)))) (* 1/2 (* (cos (neg b)) (sin b))))))) (* (sin b) (sin (neg b))))))))) (* (cos b) (cos (neg b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (- (* (cos a) (cos b)) (* (sin a) (sin b)))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (cos.f64 a) (cos.f64 b))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b)))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (cos.f64 a) (cos.f64 b))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (/ (sin b) (* (cos (+ a b)) (cos (- a b))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (/.f64 (/.f64 (sin.f64 b) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* (sin a) (sin b))))
#s(approx (* (sin a) (sin b)) (*.f64 (sin.f64 a) (sin.f64 b)))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (* (cos a) (cos b))))
#s(approx (* (cos b) (cos a)) (*.f64 (cos.f64 a) (cos.f64 b)))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (+ a b))))
#s(approx (cos (+ a b)) (cos.f64 (+.f64 a b)))
#s(approx (cos (- a b)) #s(hole binary64 (cos (- a b))))
#s(approx (cos (- a b)) (cos.f64 (-.f64 a b)))
#s(approx (cos (- b a)) #s(hole binary64 (cos (- b a))))
#s(approx (cos (- b a)) (cos.f64 (-.f64 b a)))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (* (cos (+ a b)) (cos (- a b)))))
#s(approx (* (cos (- a b)) (cos (+ a b))) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (/.f64 (sin.f64 b) (cos.f64 (-.f64 b (neg.f64 a))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (* (cos (+ b (* -1 a))) (sin b))) (* (cos (neg (+ b (* -1 a)))) (cos (- b (* -1 a)))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) (.f64 (/.f64 (.f64 (sin.f64 b) (cos.f64 (+.f64 (neg.f64 a) b))) (cos.f64 (+.f64 (neg.f64 a) b))) (/.f64 r (cos.f64 (-.f64 b (neg.f64 a))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (neg (+ b (* -1 a)))) (cos (- b (* -1 a)))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (*.f64 (/.f64 r (cos.f64 (-.f64 b (neg.f64 a)))) (/.f64 (sin.f64 b) (cos.f64 (+.f64 (neg.f64 a) b)))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (/ (sin b) (* (cos (neg (+ b (* -1 a)))) (cos (- b (* -1 a)))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (/.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 (neg.f64 a) b))) (cos.f64 (-.f64 b (neg.f64 a)))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- b (* -1 a)))))
#s(approx (cos (+ a b)) (cos.f64 (-.f64 b (neg.f64 a))))
#s(approx (cos (- a b)) #s(hole binary64 (cos (neg (+ b (* -1 a))))))
#s(approx (cos (- a b)) (cos.f64 (+.f64 (neg.f64 a) b)))
#s(approx (cos (- b a)) #s(hole binary64 (cos (+ b (* -1 a)))))
#s(approx (cos (- b a)) (cos.f64 (+.f64 (neg.f64 a) b)))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (* (cos (neg (+ b (* -1 a)))) (cos (- b (* -1 a))))))
#s(approx (* (cos (- a b)) (cos (+ a b))) (*.f64 (cos.f64 (+.f64 (neg.f64 a) b)) (cos.f64 (-.f64 b (neg.f64 a)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (/.f64 (*.f64 b r) (cos.f64 a)))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (.f64 (fma.f64 (/.f64 (.f64 (sin.f64 a) r) (cos.f64 a)) (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b r)))
#s(approx (* r (sin b)) (*.f64 b r))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) r)) (* 1/120 r)))))))))
#s(approx (sin b) #s(hole binary64 b))
#s(approx (sin b) b)
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* -1/6 (pow b 2))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* 1/120 (pow b 2)) 1/6))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/120 (* -1/5040 (pow b 2)))) 1/6))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (cos a)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) (cos.f64 a))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (/.f64 (*.f64 b r) (cos.f64 a)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (.f64 (fma.f64 (/.f64 (.f64 (sin.f64 a) r) (cos.f64 a)) (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (/.f64 (*.f64 b r) (cos.f64 a)))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (.f64 (fma.f64 (/.f64 (.f64 (sin.f64 a) r) (cos.f64 a)) (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos a)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) (cos.f64 a))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* -1/2 (* b (cos a))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* b (* r (cos (neg a)))) (pow (cos a) 2))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) (.f64 (/.f64 (.f64 (cos.f64 a) r) (cos.f64 a)) (/.f64 b (cos.f64 a))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (/ (* r (cos (neg a))) (pow (cos a) 2))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (+ (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (* b (- (/ (* r (+ (* -1/2 (cos (neg a))) (* -1/6 (cos (neg a))))) (pow (cos a) 2)) (+ (/ (* r (* (cos (neg a)) (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2))))) (pow (cos a) 4)) (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (pow (cos a) 2)))))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (/ (* r (cos (neg a))) (pow (cos a) 2))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (+ (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (* b (- (+ (* b (- (* 1/3 (/ (* r (sin (neg a))) (pow (cos a) 2))) (+ (/ (* r (* (cos (neg a)) (+ (* -1/2 (* (cos a) (sin a))) (+ (* -1/6 (* (cos a) (sin a))) (+ (* 1/6 (* (cos a) (sin a))) (* 1/2 (* (cos a) (sin a)))))))) (pow (cos a) 4)) (+ (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (/ (* r (+ (* -1/2 (cos (neg a))) (* -1/6 (cos (neg a))))) (pow (cos a) 2)) (+ (/ (* r (* (cos (neg a)) (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2))))) (pow (cos a) 4)) (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (pow (cos a) 2))))) (pow (cos a) 2)) (/ (* (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2))) (- (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (pow (cos a) 2)))))) (/ (* r (+ (* -1/2 (cos (neg a))) (* -1/6 (cos (neg a))))) (pow (cos a) 2))) (+ (/ (* r (* (cos (neg a)) (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2))))) (pow (cos a) 4)) (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (* -1 (/ (* r (sin (neg a))) (pow (cos a) 2))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (pow (cos a) 2)))))) (/ (* r (* (cos (neg a)) (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4)))) (/ (* r (cos (neg a))) (pow (cos a) 2))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (/ (* b r) (pow (cos a) 2))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (*.f64 (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* -1 (/ (* b (* r (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))))) (pow (cos a) 4))) (/ r (pow (cos a) 2))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (pow (cos a) 2))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) 2)) (pow (cos a) 6))) (/ (* r (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2)))) (pow (cos a) 4))))) (/ (* r (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a)))) (pow (cos a) 4)))) (/ r (pow (cos a) 2))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* r (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2))))) (pow (cos a) 6))) (+ (/ (* r (+ (* -1/2 (* (cos a) (sin a))) (+ (* -1/6 (* (cos a) (sin a))) (+ (* 1/6 (* (cos a) (sin a))) (* 1/2 (* (cos a) (sin a))))))) (pow (cos a) 4)) (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (* -1/6 (/ r (pow (cos a) 2))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) 2)) (pow (cos a) 6))) (/ (* r (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2)))) (pow (cos a) 4))))) (pow (cos a) 2)))))) (* -1/6 (/ r (pow (cos a) 2)))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) 2)) (pow (cos a) 6))) (/ (* r (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2)))) (pow (cos a) 4))))) (/ (* r (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a)))) (pow (cos a) 4)))) (/ r (pow (cos a) 2))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (/ b (pow (cos a) 2))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (/.f64 b (*.f64 (cos.f64 a) (cos.f64 a))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* -1 (* b (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3))))) (/ 1 (pow (cos a) 2))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (.f64 (fma.f64 (/.f64 (+.f64 (neg.f64 (sin.f64 a)) (sin.f64 a)) (.f64 (.f64 (cos.f64 a) (cos.f64 a)) (cos.f64 a))) (neg.f64 b) (neg.f64 (+.f64 (/.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 a)) (.f64 (cos.f64 a) (cos.f64 a))) (/.f64 (.f64 (neg.f64 (cos.f64 a)) (cos.f64 a)) (*.f64 (cos.f64 a) (cos.f64 a)))))) b))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* 5/6 (/ 1 (pow (cos a) 2))) (+ (* -1 (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3)))) (pow (cos a) 2))) (* -1 (/ (pow (sin a) 2) (pow (cos a) 4)))))) (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3))))) (/ 1 (pow (cos a) 2))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3))) (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2)))) (pow (cos a) 2))) (+ (* -1/2 (/ (sin a) (pow (cos a) 3))) (+ (* -1/6 (/ (sin a) (pow (cos a) 3))) (+ (* 1/6 (/ (sin a) (pow (cos a) 3))) (+ (* 1/2 (/ (sin a) (pow (cos a) 3))) (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (- (* 5/6 (/ 1 (pow (cos a) 2))) (+ (* -1 (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3)))) (pow (cos a) 2))) (* -1 (/ (pow (sin a) 2) (pow (cos a) 4)))))) (pow (cos a) 2))))))))) (* 5/6 (/ 1 (pow (cos a) 2)))) (+ (* -1 (/ (* (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a))) (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3)))) (pow (cos a) 2))) (* -1 (/ (pow (sin a) 2) (pow (cos a) 4)))))) (+ (* -1 (/ (sin a) (pow (cos a) 3))) (/ (sin a) (pow (cos a) 3))))) (/ 1 (pow (cos a) 2))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* b (sin a))))
#s(approx (* (sin a) (sin b)) (*.f64 (sin.f64 a) b))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* b (+ (sin a) (* -1/6 (* (pow b 2) (sin a)))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* b (+ (sin a) (* (pow b 2) (+ (* -1/6 (sin a)) (* 1/120 (* (pow b 2) (sin a)))))))))
#s(approx (* (sin a) (sin b)) #s(hole binary64 (* b (+ (sin a) (* (pow b 2) (+ (* -1/6 (sin a)) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) (sin a))) (* 1/120 (sin a))))))))))
#s(approx (cos b) #s(hole binary64 1))
#s(approx (cos b) #s(hole binary64 (+ 1 (* -1/2 (pow b 2)))))
#s(approx (cos b) #s(hole binary64 (+ 1 (* (pow b 2) (- (* 1/24 (pow b 2)) 1/2)))))
#s(approx (cos b) #s(hole binary64 (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/24 (* -1/720 (pow b 2)))) 1/2)))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (cos a)))
#s(approx (* (cos b) (cos a)) (cos.f64 a))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* -1/2 (* (pow b 2) (cos a))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* (pow b 2) (+ (* -1/2 (cos a)) (* 1/24 (* (pow b 2) (cos a))))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (+ (cos a) (* (pow b 2) (+ (* -1/2 (cos a)) (* (pow b 2) (+ (* -1/720 (* (pow b 2) (cos a))) (* 1/24 (cos a)))))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos a)))
#s(approx (cos (+ a b)) (cos.f64 a))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (cos (+ a b)) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (cos (- a b)) #s(hole binary64 (cos a)))
#s(approx (cos (- a b)) (cos.f64 a))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos a) (* b (sin a)))))
#s(approx (cos (- a b)) (fma.f64 (sin.f64 a) b (cos.f64 a)))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (* -1 (sin a)))))))
#s(approx (cos (- a b)) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* -1/6 (* b (sin a))))) (* -1 (sin a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg a))))
#s(approx (cos (- b a)) (cos.f64 a))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* -1 (* b (sin (neg a)))))))
#s(approx (cos (- b a)) (fma.f64 (sin.f64 a) b (cos.f64 a)))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* -1/2 (* b (cos (neg a)))) (sin (neg a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* b (+ (* -1/2 (cos (neg a))) (* 1/6 (* b (sin (neg a)))))) (sin (neg a)))))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (pow (cos a) 2)))
#s(approx (* (cos (- a b)) (cos (+ a b))) (*.f64 (cos.f64 a) (cos.f64 a)))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin a))) (* (cos a) (sin a)))) (pow (cos a) 2))))
#s(approx (* (cos (- a b)) (cos (+ a b))) (fma.f64 (fma.f64 (neg.f64 (sin.f64 a)) (cos.f64 a) (.f64 (sin.f64 a) (cos.f64 a))) b (.f64 (cos.f64 a) (cos.f64 a))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin a))) (+ (* b (+ (* -1 (pow (cos a) 2)) (* -1 (pow (sin a) 2)))) (* (cos a) (sin a))))) (pow (cos a) 2))))
#s(approx (* (cos (- a b)) (cos (+ a b))) (fma.f64 (fma.f64 (neg.f64 (sin.f64 a)) (cos.f64 a) (fma.f64 (sin.f64 a) (cos.f64 a) (neg.f64 b))) b (*.f64 (cos.f64 a) (cos.f64 a))))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin a))) (+ (* b (+ (* -1 (pow (cos a) 2)) (+ (* -1 (pow (sin a) 2)) (* b (+ (* -1/2 (* (cos a) (sin a))) (+ (* -1/6 (* (cos a) (sin a))) (+ (* 1/6 (* (cos a) (sin a))) (* 1/2 (* (cos a) (sin a)))))))))) (* (cos a) (sin a))))) (pow (cos a) 2))))
#s(approx (sin b) #s(hole binary64 (sin b)))
#s(approx (sin b) (sin.f64 b))
#s(approx (cos b) #s(hole binary64 (cos b)))
#s(approx (cos b) (cos.f64 b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (-.f64 a (neg.f64 b)))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (* (cos (neg (+ a (* -1 b)))) (sin b))) (* (cos (+ a (* -1 b))) (cos (- a (* -1 b)))))))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) (.f64 (/.f64 (.f64 (cos.f64 (+.f64 (neg.f64 b) a)) (sin.f64 b)) (cos.f64 (-.f64 a (neg.f64 b)))) (/.f64 r (cos.f64 (+.f64 (neg.f64 b) a)))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ a (* -1 b))) (cos (- a (* -1 b)))))))
#s(approx (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (/.f64 (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 (neg.f64 b) a))) (cos.f64 (-.f64 a (neg.f64 b)))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) #s(hole binary64 (/ (sin b) (* (cos (+ a (* -1 b))) (cos (- a (* -1 b)))))))
#s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (/.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 (neg.f64 b) a))) (cos.f64 (-.f64 a (neg.f64 b)))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- a (* -1 b)))))
#s(approx (cos (+ a b)) (cos.f64 (-.f64 a (neg.f64 b))))
#s(approx (cos (- a b)) #s(hole binary64 (cos (+ a (* -1 b)))))
#s(approx (cos (- a b)) (cos.f64 (+.f64 (neg.f64 b) a)))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg (+ a (* -1 b))))))
#s(approx (cos (- b a)) (cos.f64 (+.f64 (neg.f64 b) a)))
#s(approx (* (cos (- a b)) (cos (+ a b))) #s(hole binary64 (* (cos (+ a (* -1 b))) (cos (- a (* -1 b))))))
#s(approx (* (cos (- a b)) (cos (+ a b))) (*.f64 (cos.f64 (+.f64 (neg.f64 b) a)) (cos.f64 (-.f64 a (neg.f64 b)))))

rewrite756.0ms (4.9%)

Memory

4.9MiB live, 147.3MiB allocated; 15ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	48	214
1	57	214
2	66	214
3	76	214
4	80	214
5	84	214
6	86	214
7	88	214
0	88	174
1	222	174
2	1630	174
0	8159	174
1	9017	174
2	11499	174
3	15059	174
4	18678	174
5	20832	174
6	21881	174
7	22289	174
8	22297	174

Stop Event

1×	saturated
1×	node limit
1×	saturated

Counts

21 → 281

Calls

Call 1

Inputs
(/.f64 (.f64 r (sin.f64 b)) (-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 a) (sin.f64 b))))
(*.f64 r (sin.f64 b))
(sin.f64 b)
(-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (.f64 (sin.f64 a) (sin.f64 b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))
(*.f64 #s(approx (/ r (cos a)) r) b)
#s(approx (/ r (cos a)) r)
(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b))
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx (* (cos b) (cos a)) (cos.f64 b)))
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
(.f64 r (/.f64 (sin.f64 b) (.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))))
(/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))
(*.f64 (sin.f64 a) (sin.f64 b))
(cos.f64 b)
#s(approx (* (cos b) (cos a)) (cos.f64 b))
(cos.f64 (+.f64 a b))
(cos.f64 (-.f64 a b))
(cos.f64 (-.f64 b a))
(*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))

Outputs
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))))
(.f64 (.f64 (cos.f64 (-.f64 b a)) r) (/.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a))))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
(.f64 (cos.f64 (-.f64 b a)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))))
(.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a))) (.f64 r (cos.f64 (-.f64 b a))))
(*.f64 (sin.f64 b) (/.f64 r (cos.f64 (+.f64 a b))))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))
(/.f64 (.f64 (cos.f64 (-.f64 b a)) (.f64 (sin.f64 b) r)) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))
(/.f64 (neg.f64 (*.f64 (neg.f64 r) (sin.f64 b))) (neg.f64 (neg.f64 (cos.f64 (+.f64 a b)))))
(/.f64 (*.f64 (neg.f64 r) (sin.f64 b)) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
(neg.f64 (/.f64 (*.f64 (neg.f64 r) (sin.f64 b)) (cos.f64 (+.f64 a b))))
(neg.f64 (/.f64 (*.f64 (sin.f64 b) r) (neg.f64 (cos.f64 (+.f64 a b)))))
(fma.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (.f64 (cos.f64 a) (cos.f64 b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (/.f64 (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b)))))
(+.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b)))) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b)))))
(+.f64 (.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (.f64 (sin.f64 a) (sin.f64 b))))
(*.f64 (sin.f64 b) r)
(*.f64 r (sin.f64 b))
(sin.f64 b)
(/.f64 (-.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (sin.f64 a)) (.f64 (.f64 (sin.f64 b) (sin.f64 b)) (sin.f64 b))) (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (neg.f64 (cos.f64 b)) (cos.f64 a))))))
(/.f64 (neg.f64 (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (neg.f64 (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))
(/.f64 (neg.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))) (cos.f64 (+.f64 a b)))) (neg.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)))))
(/.f64 (neg.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b)))) (neg.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a))))))
(/.f64 (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(/.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a) (-.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (cos.f64 b)) (cos.f64 a)))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))))
(/.f64 (*.f64 (neg.f64 (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a))) (neg.f64 (cos.f64 (-.f64 b a))))
(/.f64 (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a)))
(fma.f64 (cos.f64 (/.f64 (.f64 a a) (-.f64 a b))) (cos.f64 (/.f64 (.f64 b b) (-.f64 a b))) (.f64 (sin.f64 (/.f64 (.f64 a a) (-.f64 a b))) (sin.f64 (/.f64 (*.f64 b b) (-.f64 a b)))))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 a) (cos.f64 b)))
(-.f64 (.f64 (cos.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a a (.f64 b (-.f64 b a))))) (cos.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a a (.f64 b (-.f64 b a)))))) (.f64 (sin.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a a (.f64 b (-.f64 b a))))) (sin.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a a (.f64 b (-.f64 b a)))))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)) (cos.f64 (-.f64 b a))) (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (cos.f64 (-.f64 b a))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 a)) (cos.f64 a))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)))) (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (sin.f64 a)) (.f64 (.f64 (sin.f64 b) (sin.f64 b)) (sin.f64 b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)))))
(-.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))
(-.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 a)) (neg.f64 (sin.f64 b))))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (neg.f64 (sin.f64 a))) (sin.f64 b)))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 b)) (neg.f64 (sin.f64 a))))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (sin.f64 b)))
(cos.f64 (neg.f64 (-.f64 (neg.f64 b) a)))
(cos.f64 (neg.f64 (-.f64 a (neg.f64 b))))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 (+.f64 a b)))))
(cos.f64 (neg.f64 (-.f64 b (neg.f64 a))))
(cos.f64 (neg.f64 (-.f64 (neg.f64 a) b)))
(cos.f64 (neg.f64 (neg.f64 (+.f64 a b))))
(cos.f64 (-.f64 (neg.f64 b) a))
(cos.f64 (-.f64 b (neg.f64 a)))
(cos.f64 (-.f64 (neg.f64 a) b))
(cos.f64 (-.f64 a (neg.f64 b)))
(cos.f64 (neg.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 a a) (-.f64 a b))) (cos.f64 (/.f64 (.f64 b b) (-.f64 a b)))) (.f64 (sin.f64 (/.f64 (.f64 a a) (-.f64 a b))) (sin.f64 (/.f64 (.f64 b b) (-.f64 a b)))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (sin.f64 a)) (.f64 (.f64 (sin.f64 b) (sin.f64 b)) (sin.f64 b))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a))))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 a)) (cos.f64 a))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a))))))
(+.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(+.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (cos.f64 a) (cos.f64 b)))
(+.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))
(*.f64 #s(approx (/ r (cos a)) r) b)
#s(approx (/ r (cos a)) r)
(/.f64 (.f64 (sin.f64 b) r) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b))
(/.f64 (.f64 (sin.f64 b) r) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx (* (cos b) (cos a)) (cos.f64 b)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))))
(.f64 (.f64 (cos.f64 (-.f64 b a)) r) (/.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a))))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
(.f64 (cos.f64 (-.f64 b a)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))))
(.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a))) (.f64 r (cos.f64 (-.f64 b a))))
(*.f64 (sin.f64 b) (/.f64 r (cos.f64 (+.f64 a b))))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))
(/.f64 (.f64 (cos.f64 (-.f64 b a)) (.f64 (sin.f64 b) r)) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))
(/.f64 (neg.f64 (*.f64 (neg.f64 r) (sin.f64 b))) (neg.f64 (neg.f64 (cos.f64 (+.f64 a b)))))
(/.f64 (*.f64 (neg.f64 r) (sin.f64 b)) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
(neg.f64 (/.f64 (*.f64 (neg.f64 r) (sin.f64 b)) (cos.f64 (+.f64 a b))))
(neg.f64 (/.f64 (*.f64 (sin.f64 b) r) (neg.f64 (cos.f64 (+.f64 a b)))))
(fma.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (.f64 (cos.f64 a) (cos.f64 b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (/.f64 (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b)))))
(+.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b)))) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b)))))
(+.f64 (.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (.f64 (sin.f64 a) (sin.f64 b))))
(*.f64 (/.f64 r (cos.f64 (-.f64 b a))) (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) (/.f64 r (cos.f64 (-.f64 b a))))
(*.f64 (/.f64 r (cos.f64 (+.f64 a b))) (/.f64 (sin.f64 b) (cos.f64 (-.f64 b a))))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (-.f64 b a))) (/.f64 r (cos.f64 (+.f64 a b))))
(*.f64 (/.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a))) r)
(.f64 (sin.f64 b) (/.f64 r (.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))))
(*.f64 r (/.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a))))
(/.f64 (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 (/.f64 (sin.f64 b) (cos.f64 (-.f64 b a))) r) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (/.f64 (sin.f64 b) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b)))
(/.f64 (.f64 (neg.f64 r) (sin.f64 b)) (.f64 (neg.f64 (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a))))
(/.f64 (*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 (sin.f64 b) r) (.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))
(.f64 (/.f64 (/.f64 (sin.f64 b) (cos.f64 (-.f64 b a))) (.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (/.f64 (sin.f64 b) (cos.f64 (-.f64 b a))) (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(.f64 (/.f64 (/.f64 (sin.f64 b) (cos.f64 (-.f64 b a))) (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))))
(.f64 (/.f64 (/.f64 (sin.f64 b) (cos.f64 (-.f64 b a))) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))))
(/.f64 (neg.f64 (neg.f64 (sin.f64 b))) (neg.f64 (*.f64 (neg.f64 (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a)))))
(/.f64 (neg.f64 (/.f64 (sin.f64 b) (cos.f64 (-.f64 b a)))) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (neg.f64 (sin.f64 b)) (*.f64 (neg.f64 (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a))))
(/.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a)))
(/.f64 (/.f64 (sin.f64 b) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b)))
(/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))))
(neg.f64 (/.f64 (sin.f64 b) (*.f64 (neg.f64 (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a)))))
(*.f64 (sin.f64 a) (sin.f64 b))
(*.f64 (sin.f64 b) (sin.f64 a))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 b))))
(cos.f64 (neg.f64 (neg.f64 b)))
(cos.f64 (neg.f64 b))
(cos.f64 b)
#s(approx (* (cos b) (cos a)) (cos.f64 b))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (sin.f64 a)) (.f64 (.f64 (sin.f64 b) (sin.f64 b)) (sin.f64 b))) (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (neg.f64 (cos.f64 b)) (cos.f64 a))))))
(/.f64 (neg.f64 (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (neg.f64 (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))
(/.f64 (neg.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))) (cos.f64 (+.f64 a b)))) (neg.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)))))
(/.f64 (neg.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b)))) (neg.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a))))))
(/.f64 (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(/.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a) (-.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (cos.f64 b)) (cos.f64 a)))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))))
(/.f64 (*.f64 (neg.f64 (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a))) (neg.f64 (cos.f64 (-.f64 b a))))
(/.f64 (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a)))
(fma.f64 (cos.f64 (/.f64 (.f64 a a) (-.f64 a b))) (cos.f64 (/.f64 (.f64 b b) (-.f64 a b))) (.f64 (sin.f64 (/.f64 (.f64 a a) (-.f64 a b))) (sin.f64 (/.f64 (*.f64 b b) (-.f64 a b)))))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 a) (cos.f64 b)))
(-.f64 (.f64 (cos.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a a (.f64 b (-.f64 b a))))) (cos.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a a (.f64 b (-.f64 b a)))))) (.f64 (sin.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a a (.f64 b (-.f64 b a))))) (sin.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a a (.f64 b (-.f64 b a)))))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)) (cos.f64 (-.f64 b a))) (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (cos.f64 (-.f64 b a))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 a)) (cos.f64 a))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)))) (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (sin.f64 a)) (.f64 (.f64 (sin.f64 b) (sin.f64 b)) (sin.f64 b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)))))
(-.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))
(-.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 a)) (neg.f64 (sin.f64 b))))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (neg.f64 (sin.f64 a))) (sin.f64 b)))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 b)) (neg.f64 (sin.f64 a))))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (sin.f64 b)))
(cos.f64 (neg.f64 (-.f64 (neg.f64 b) a)))
(cos.f64 (neg.f64 (-.f64 a (neg.f64 b))))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 (+.f64 a b)))))
(cos.f64 (neg.f64 (-.f64 b (neg.f64 a))))
(cos.f64 (neg.f64 (-.f64 (neg.f64 a) b)))
(cos.f64 (neg.f64 (neg.f64 (+.f64 a b))))
(cos.f64 (-.f64 (neg.f64 b) a))
(cos.f64 (-.f64 b (neg.f64 a)))
(cos.f64 (-.f64 (neg.f64 a) b))
(cos.f64 (-.f64 a (neg.f64 b)))
(cos.f64 (neg.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 a a) (-.f64 a b))) (cos.f64 (/.f64 (.f64 b b) (-.f64 a b)))) (.f64 (sin.f64 (/.f64 (.f64 a a) (-.f64 a b))) (sin.f64 (/.f64 (.f64 b b) (-.f64 a b)))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (sin.f64 a)) (.f64 (.f64 (sin.f64 b) (sin.f64 b)) (sin.f64 b))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a))))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 a)) (cos.f64 a))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a))))))
(+.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(+.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (cos.f64 a) (cos.f64 b)))
(+.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a) (-.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (sin.f64 a)) (sin.f64 b)))))
(/.f64 (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))) (cos.f64 (+.f64 a b)))
(fma.f64 (cos.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a (+.f64 a b) (.f64 b b)))) (cos.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a (+.f64 a b) (.f64 b b)))) (.f64 (sin.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a (+.f64 a b) (.f64 b b)))) (sin.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a (+.f64 a b) (*.f64 b b))))))
(fma.f64 (cos.f64 (/.f64 (.f64 b b) (+.f64 a b))) (cos.f64 (/.f64 (.f64 a a) (+.f64 a b))) (.f64 (sin.f64 (/.f64 (.f64 b b) (+.f64 a b))) (sin.f64 (/.f64 (*.f64 a a) (+.f64 a b)))))
(fma.f64 (cos.f64 (/.f64 (.f64 a a) (+.f64 a b))) (cos.f64 (/.f64 (.f64 b b) (+.f64 a b))) (.f64 (sin.f64 (/.f64 (.f64 a a) (+.f64 a b))) (sin.f64 (/.f64 (*.f64 b b) (+.f64 a b)))))
(fma.f64 (cos.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a a (.f64 b (+.f64 a b))))) (cos.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a a (.f64 b (+.f64 a b))))) (.f64 (sin.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a a (.f64 b (+.f64 a b))))) (sin.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a a (*.f64 b (+.f64 a b)))))))
(fma.f64 (sin.f64 a) (sin.f64 b) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (sin.f64 a) (sin.f64 b)))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (sin.f64 a) (sin.f64 b)))
(fma.f64 (sin.f64 b) (sin.f64 a) (*.f64 (cos.f64 a) (cos.f64 b)))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(cos.f64 (neg.f64 (+.f64 (neg.f64 b) a)))
(cos.f64 (neg.f64 (+.f64 b (neg.f64 a))))
(cos.f64 (neg.f64 (+.f64 (neg.f64 a) b)))
(cos.f64 (neg.f64 (+.f64 a (neg.f64 b))))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 (-.f64 a b)))))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 (-.f64 b a)))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 a b))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 b a))))
(cos.f64 (+.f64 (neg.f64 b) a))
(cos.f64 (+.f64 b (neg.f64 a)))
(cos.f64 (+.f64 (neg.f64 a) b))
(cos.f64 (+.f64 a (neg.f64 b)))
(cos.f64 (neg.f64 (-.f64 b a)))
(cos.f64 (neg.f64 (-.f64 a b)))
(cos.f64 (-.f64 b a))
(cos.f64 (-.f64 a b))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a (+.f64 a b) (.f64 b b)))) (cos.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a (+.f64 a b) (.f64 b b))))) (.f64 (sin.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a (+.f64 a b) (.f64 b b)))) (sin.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a (+.f64 a b) (.f64 b b))))))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 b b) (+.f64 a b))) (cos.f64 (/.f64 (.f64 a a) (+.f64 a b)))) (.f64 (sin.f64 (/.f64 (.f64 b b) (+.f64 a b))) (sin.f64 (/.f64 (.f64 a a) (+.f64 a b)))))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 a a) (+.f64 a b))) (cos.f64 (/.f64 (.f64 b b) (+.f64 a b)))) (.f64 (sin.f64 (/.f64 (.f64 a a) (+.f64 a b))) (sin.f64 (/.f64 (.f64 b b) (+.f64 a b)))))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a a (.f64 b (+.f64 a b))))) (cos.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a a (.f64 b (+.f64 a b)))))) (.f64 (sin.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a a (.f64 b (+.f64 a b))))) (sin.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a a (.f64 b (+.f64 a b)))))))
(+.f64 (.f64 (sin.f64 a) (sin.f64 b)) (.f64 (cos.f64 a) (cos.f64 b)))
(+.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (sin.f64 b)))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a) (-.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (sin.f64 a)) (sin.f64 b)))))
(/.f64 (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))) (cos.f64 (+.f64 a b)))
(fma.f64 (cos.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a (+.f64 a b) (.f64 b b)))) (cos.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a (+.f64 a b) (.f64 b b)))) (.f64 (sin.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a (+.f64 a b) (.f64 b b)))) (sin.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a (+.f64 a b) (*.f64 b b))))))
(fma.f64 (cos.f64 (/.f64 (.f64 b b) (+.f64 a b))) (cos.f64 (/.f64 (.f64 a a) (+.f64 a b))) (.f64 (sin.f64 (/.f64 (.f64 b b) (+.f64 a b))) (sin.f64 (/.f64 (*.f64 a a) (+.f64 a b)))))
(fma.f64 (cos.f64 (/.f64 (.f64 a a) (+.f64 a b))) (cos.f64 (/.f64 (.f64 b b) (+.f64 a b))) (.f64 (sin.f64 (/.f64 (.f64 a a) (+.f64 a b))) (sin.f64 (/.f64 (*.f64 b b) (+.f64 a b)))))
(fma.f64 (cos.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a a (.f64 b (+.f64 a b))))) (cos.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a a (.f64 b (+.f64 a b))))) (.f64 (sin.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a a (.f64 b (+.f64 a b))))) (sin.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a a (*.f64 b (+.f64 a b)))))))
(fma.f64 (sin.f64 a) (sin.f64 b) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (sin.f64 a) (sin.f64 b)))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (sin.f64 a) (sin.f64 b)))
(fma.f64 (sin.f64 b) (sin.f64 a) (*.f64 (cos.f64 a) (cos.f64 b)))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(cos.f64 (neg.f64 (+.f64 (neg.f64 b) a)))
(cos.f64 (neg.f64 (+.f64 b (neg.f64 a))))
(cos.f64 (neg.f64 (+.f64 (neg.f64 a) b)))
(cos.f64 (neg.f64 (+.f64 a (neg.f64 b))))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 (-.f64 a b)))))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 (-.f64 b a)))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 a b))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 b a))))
(cos.f64 (+.f64 (neg.f64 b) a))
(cos.f64 (+.f64 b (neg.f64 a)))
(cos.f64 (+.f64 (neg.f64 a) b))
(cos.f64 (+.f64 a (neg.f64 b)))
(cos.f64 (neg.f64 (-.f64 b a)))
(cos.f64 (neg.f64 (-.f64 a b)))
(cos.f64 (-.f64 b a))
(cos.f64 (-.f64 a b))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a (+.f64 a b) (.f64 b b)))) (cos.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a (+.f64 a b) (.f64 b b))))) (.f64 (sin.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a (+.f64 a b) (.f64 b b)))) (sin.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a (+.f64 a b) (.f64 b b))))))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 b b) (+.f64 a b))) (cos.f64 (/.f64 (.f64 a a) (+.f64 a b)))) (.f64 (sin.f64 (/.f64 (.f64 b b) (+.f64 a b))) (sin.f64 (/.f64 (.f64 a a) (+.f64 a b)))))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 a a) (+.f64 a b))) (cos.f64 (/.f64 (.f64 b b) (+.f64 a b)))) (.f64 (sin.f64 (/.f64 (.f64 a a) (+.f64 a b))) (sin.f64 (/.f64 (.f64 b b) (+.f64 a b)))))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a a (.f64 b (+.f64 a b))))) (cos.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a a (.f64 b (+.f64 a b)))))) (.f64 (sin.f64 (/.f64 (.f64 (.f64 a a) a) (fma.f64 a a (.f64 b (+.f64 a b))))) (sin.f64 (/.f64 (.f64 (.f64 b b) b) (fma.f64 a a (.f64 b (+.f64 a b)))))))
(+.f64 (.f64 (sin.f64 a) (sin.f64 b)) (.f64 (cos.f64 a) (cos.f64 b)))
(+.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (sin.f64 b)))
(*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))
(*.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 (.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a))) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (cos.f64 (-.f64 b a))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(/.f64 (.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))))
(/.f64 (.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))))
(/.f64 (.f64 (cos.f64 (-.f64 b a)) (.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 (cos.f64 (-.f64 b a)) (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(/.f64 (.f64 (cos.f64 (-.f64 b a)) (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))))
(/.f64 (.f64 (cos.f64 (-.f64 b a)) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))) (.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a))) (.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (sin.f64 a)) (.f64 (.f64 (sin.f64 b) (sin.f64 b)) (sin.f64 b))) (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (sin.f64 a)) (.f64 (.f64 (sin.f64 b) (sin.f64 b)) (sin.f64 b))))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (sin.f64 a)) (sin.f64 b))))))
(fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (.f64 (cos.f64 b) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 a)) (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (.f64 (cos.f64 a) (cos.f64 a)) (.f64 (cos.f64 b) (cos.f64 b)) (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (fabs.f64 (.f64 (cos.f64 a) (cos.f64 b))) (fabs.f64 (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)) (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a))))
(fma.f64 (cos.f64 (-.f64 b a)) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (cos.f64 (-.f64 b a)) (*.f64 (cos.f64 a) (cos.f64 b))))
(fma.f64 (cos.f64 (-.f64 b a)) (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (cos.f64 (-.f64 b a)) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))))
(fma.f64 (cos.f64 (+.f64 a b)) (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (cos.f64 (+.f64 a b)) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (cos.f64 (-.f64 b a))))
(fma.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (+.f64 a b)) (.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (+.f64 a b))))
(fma.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (cos.f64 a) (.f64 (cos.f64 b) (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (cos.f64 b) (.f64 (cos.f64 a) (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)) (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)))
(+.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (+.f64 a b))) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (+.f64 a b))))
(+.f64 (.f64 (cos.f64 (-.f64 b a)) (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (cos.f64 (-.f64 b a)) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))))
(+.f64 (.f64 (cos.f64 (-.f64 b a)) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))) (.f64 (cos.f64 (-.f64 b a)) (.f64 (cos.f64 a) (cos.f64 b))))
(+.f64 (.f64 (cos.f64 (+.f64 a b)) (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (cos.f64 (+.f64 a b)) (.f64 (sin.f64 a) (sin.f64 b))))
(+.f64 (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (cos.f64 (-.f64 b a))) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a))))
(+.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a))) (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (cos.f64 (-.f64 b a))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)) (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (sin.f64 a) (sin.f64 b))))

eval956.0ms (6.2%)

Memory: -3.9MiB live, 41.6MiB allocated; 5ms collecting garbage
Compiler: Compiled 8 512 to 1 130 computations (86.7% saved)

prune42.0ms (0.3%)

Memory

16.7MiB live, 69.3MiB allocated; 8ms collecting garbage

Pruning

44 alts after pruning (35 fresh and 9 done)

	Pruned	Kept	Total
New	275	18	293
Fresh	8	17	25
Picked	1	4	5
Done	0	5	5
Total	284	44	328

Accuracy

99.9%

Counts

328 → 44

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	99.5%	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
✓	55.8%	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
	53.3%	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 a))))
▶	99.4%	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))))
	61.1%	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 #s(approx (sin b) b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
	99.4%	(/.f64 (.f64 r (sin.f64 b)) (/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 a)) (cos.f64 a)) (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b))) (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (sin.f64 a) (sin.f64 b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (sin.f64 b)))))))
	99.3%	(/.f64 (.f64 r (sin.f64 b)) (-.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))
	99.3%	(/.f64 (.f64 r (sin.f64 b)) (-.f64 (/.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))
✓	99.4%	(/.f64 (.f64 r (sin.f64 b)) (-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 a) (sin.f64 b))))
✓	71.9%	(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
	50.1%	(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
▶	51.1%	(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
✓	54.2%	(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
✓	51.7%	(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 a)))
▶	49.3%	(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
	31.1%	(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
	31.2%	(/.f64 (.f64 r #s(approx (sin b) b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
	48.9%	(/.f64 (*.f64 r #s(approx (sin b) b)) #s(approx (cos (+ a b)) (cos.f64 a)))
	71.7%	(.f64 (/.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a))) (.f64 r (cos.f64 (-.f64 b a))))
	71.7%	(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))))
	51.6%	(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) #s(approx (cos (- b a)) (cos.f64 a)))
	55.4%	(.f64 (/.f64 (.f64 (sin.f64 b) r) #s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 b) (cos.f64 b)))) (cos.f64 (-.f64 b a)))
	48.9%	(.f64 (/.f64 (.f64 #s(approx (sin b) b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
✓	71.8%	(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
	49.0%	(*.f64 (/.f64 #s(approx (sin b) b) (cos.f64 (+.f64 a b))) r)
	71.9%	(*.f64 (/.f64 r (cos.f64 (+.f64 a b))) (sin.f64 b))
	71.7%	(.f64 (.f64 (/.f64 (/.f64 r (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (sin.f64 b)) (cos.f64 (-.f64 b a)))
▶	71.7%	(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
	71.8%	(.f64 (.f64 (sin.f64 b) r) (/.f64 (cos.f64 (-.f64 a b)) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))))
	99.3%	(.f64 (.f64 r (/.f64 (sin.f64 b) (fma.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))))) (cos.f64 (-.f64 b a)))
	99.3%	(.f64 (.f64 r (/.f64 (sin.f64 b) (fma.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (cos.f64 (-.f64 b a)))))) (cos.f64 (-.f64 b a)))
	54.0%	(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) #s(approx (cos (- b a)) (cos.f64 b)))
	51.7%	(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) #s(approx (cos (- b a)) (cos.f64 a)))
	54.2%	(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) #s(approx (cos (+ a b)) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
	51.6%	(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) #s(approx (cos (+ a b)) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
	55.4%	(.f64 (.f64 r (/.f64 (sin.f64 b) #s(approx (* (cos (- a b)) (cos (+ a b))) (*.f64 (cos.f64 b) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
	54.1%	(.f64 (.f64 r (/.f64 (sin.f64 b) #s(approx (* (cos (- a b)) (cos (+ a b))) (*.f64 (cos.f64 a) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
	48.9%	(.f64 (.f64 r #s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (/.f64 b (*.f64 (cos.f64 a) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
	54.2%	(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 b))) r)
▶	48.9%	(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
	54.2%	#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))
✓	48.9%	#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
✓	31.0%	#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))
	71.9%	#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) (.f64 (/.f64 (.f64 (sin.f64 b) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (/.f64 r (cos.f64 (-.f64 a b)))))

Compiler

Compiled 1 909 to 1 199 computations (37.2% saved)

simplify61.0ms (0.4%)

Memory

10.1MiB live, 54.7MiB allocated; 4ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
cost-diff	0	(/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))
cost-diff	0	(sin.f64 b)
cost-diff	0	(.f64 (sin.f64 b) (/.f64 r (.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))))
cost-diff	0	(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
cost-diff	0	(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 b) (cos.f64 a)))
cost-diff	0	#s(approx (sin b) b)
cost-diff	0	(*.f64 r #s(approx (sin b) b))
cost-diff	0	(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
cost-diff	0	#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
cost-diff	0	(sin.f64 b)
cost-diff	0	(*.f64 r (sin.f64 b))
cost-diff	0	(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
cost-diff	0	(cos.f64 a)
cost-diff	0	(/.f64 b (cos.f64 a))
cost-diff	0	#s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a)))
cost-diff	0	(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
cost-diff	0	(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a)))
cost-diff	0	(sin.f64 b)
cost-diff	0	(*.f64 r (sin.f64 b))
cost-diff	0	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	47	279
0	56	279
1	77	279
2	111	279
3	172	279
4	293	279
5	670	279
6	1766	279
7	4724	279
0	8105	279

Stop Event

1×	saturated
1×	node limit
1×	iter limit

Calls

Call 1

Inputs
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a)))
(cos.f64 b)
(cos.f64 a)
a
(*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))
(neg.f64 (sin.f64 b))
(sin.f64 a)
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a)))
(/.f64 b (cos.f64 a))
b
(cos.f64 a)
a
r
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
(fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))
(neg.f64 a)
a
(cos.f64 b)
(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(*.f64 r #s(approx (sin b) b))
r
#s(approx (sin b) b)
b
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 b) (cos.f64 a)))
(sin.f64 b)
(neg.f64 (sin.f64 a))
(sin.f64 a)
a
(*.f64 (cos.f64 b) (cos.f64 a))
(cos.f64 b)
(cos.f64 a)
(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
(.f64 (sin.f64 b) (/.f64 r (.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))))
(sin.f64 b)
b
(/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))
r
(*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))
(cos.f64 (-.f64 b a))
(-.f64 b a)
a
(cos.f64 (+.f64 a b))
(+.f64 a b)

Outputs
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a)))
(cos.f64 b)
(cos.f64 a)
a
(*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))
(neg.f64 (sin.f64 b))
(sin.f64 a)
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a)))
(/.f64 b (cos.f64 a))
b
(cos.f64 a)
a
r
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
(fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))
(neg.f64 a)
a
(cos.f64 b)
(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(*.f64 r #s(approx (sin b) b))
r
#s(approx (sin b) b)
b
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 b) (cos.f64 a)))
(sin.f64 b)
(neg.f64 (sin.f64 a))
(sin.f64 a)
a
(*.f64 (cos.f64 b) (cos.f64 a))
(cos.f64 b)
(cos.f64 a)
(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
(.f64 (sin.f64 b) (/.f64 r (.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))))
(sin.f64 b)
b
(/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))
r
(*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))
(cos.f64 (-.f64 b a))
(-.f64 b a)
a
(cos.f64 (+.f64 a b))
(+.f64 a b)

localize888.0ms (5.8%)

Memory

13.9MiB live, 301.3MiB allocated; 31ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.26791000976844204	(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
accuracy	0.36328125	(*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))
accuracy	17.621349290363757	(cos.f64 (-.f64 b a))
accuracy	17.947092214126215	(cos.f64 (+.f64 a b))
accuracy	0.10546875	(*.f64 r #s(approx (sin b) b))
accuracy	0.1648675727109211	(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 b) (cos.f64 a)))
accuracy	0.24609375	(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
accuracy	32.53999125771635	#s(approx (sin b) b)
accuracy	0.078125	(fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))
accuracy	0.10546875	(*.f64 r (sin.f64 b))
accuracy	0.24609375	(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
accuracy	34.71025186318229	#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
accuracy	0.0	(cos.f64 a)
accuracy	0.125	(/.f64 b (cos.f64 a))
accuracy	0.19140625	(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
accuracy	32.783575902796215	#s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a)))
accuracy	0.10546875	(*.f64 r (sin.f64 b))
accuracy	0.16096132271092106	(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a)))
accuracy	0.24609375	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))))
accuracy	0.2578125	(*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))

Samples

843.0ms	197×	1	valid
15.0ms	59×	0	valid

Compiler

Compiled 254 to 36 computations (85.8% saved)

Precisions

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

ival-cos: 698.0ms (84.8% of total)

ival-add: 33.0ms (4% of total)

ival-mult: 27.0ms (3.3% of total)

adjust: 23.0ms (2.8% of total)

ival-sin: 20.0ms (2.4% of total)

ival-div: 14.0ms (1.7% of total)

ival-sub: 4.0ms (0.5% of total)

ival-neg: 4.0ms (0.5% of total)

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

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

series52.0ms (0.3%)

Memory

-46.2MiB live, 54.5MiB allocated; 10ms collecting garbage

Counts

22 → 180

Calls

Call 1

Inputs
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))))
(*.f64 r (sin.f64 b))
(sin.f64 b)
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a)))
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a)))
(/.f64 b (cos.f64 a))
(cos.f64 a)
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(*.f64 r #s(approx (sin b) b))
#s(approx (sin b) b)
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 b) (cos.f64 a)))
(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
(.f64 (sin.f64 b) (/.f64 r (.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))))
(/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))
(*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))
(fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))
(cos.f64 (+.f64 a b))
(cos.f64 (-.f64 b a))
(*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))

Outputs
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (/ (* r (sin b)) (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b))))))
#s(approx (* r (sin b)) #s(hole binary64 (* r (sin b))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* r (sin b)) (- (* (cos a) (cos b)) (* (sin a) (sin b))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ a b)) (cos (- b a))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ r (* (cos (+ a b)) (cos (- b a))))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (cos b)))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* -1/2 (* a (cos b))))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos b))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (/ (sin b) (cos b)) (/ (* a (pow (sin b) 2)) (pow (cos b) 2)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b)))))) (* -1 (/ (pow (sin b) 2) (pow (cos b) 2))))) (/ (sin b) (cos b)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (pow (sin b) 2) (pow (cos b) 2))) (+ (* 1/6 (/ (pow (sin b) 2) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b))))) (cos b)))))) (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b)))))) (* -1 (/ (pow (sin b) 2) (pow (cos b) 2))))) (/ (sin b) (cos b)))))
#s(approx (/ b (cos a)) #s(hole binary64 b))
#s(approx (/ b (cos a)) #s(hole binary64 (+ b (* 1/2 (* (pow a 2) b)))))
#s(approx (/ b (cos a)) #s(hole binary64 (+ b (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/4 b) (* 1/24 b)))) (* -1/2 b))))))
#s(approx (/ b (cos a)) #s(hole binary64 (+ b (* (pow a 2) (- (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/720 b) (+ (* 1/48 b) (* 1/2 (+ (* -1/4 b) (* 1/24 b))))))) (+ (* -1/4 b) (* 1/24 b)))) (* -1/2 b))))))
#s(approx (cos a) #s(hole binary64 1))
#s(approx (cos a) #s(hole binary64 (+ 1 (* -1/2 (pow a 2)))))
#s(approx (cos a) #s(hole binary64 (+ 1 (* (pow a 2) (- (* 1/24 (pow a 2)) 1/2)))))
#s(approx (cos a) #s(hole binary64 (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/24 (* -1/720 (pow a 2)))) 1/2)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (cos b)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos b)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* -1/2 (* a (cos b))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (pow (cos b) 2))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (+ (* -1 (/ (* a (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))))) (pow (cos b) 4))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))))) (pow (cos b) 4)))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))))) (pow (cos b) 6))) (+ (* -1 (/ (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4)))) (pow (cos b) 2))) (/ (* r (* (sin b) (+ (* -1/2 (* (cos b) (sin b))) (+ (* -1/6 (* (cos b) (sin b))) (+ (* 1/6 (* (cos b) (sin b))) (* 1/2 (* (cos b) (sin b)))))))) (pow (cos b) 4)))))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))))) (pow (cos b) 4)))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ r (pow (cos b) 2))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* -1 (/ (* a (* r (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))))) (pow (cos b) 4))) (/ r (pow (cos b) 2)))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2)) (pow (cos b) 6))) (/ (* r (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))) (pow (cos b) 4))))) (/ (* r (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))) (pow (cos b) 4)))) (/ r (pow (cos b) 2)))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 6))) (+ (* -1 (/ (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2)) (pow (cos b) 6))) (/ (* r (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))) (pow (cos b) 4)))) (pow (cos b) 2))) (/ (* r (+ (* -1/2 (* (cos b) (sin b))) (+ (* -1/6 (* (cos b) (sin b))) (+ (* 1/6 (* (cos b) (sin b))) (* 1/2 (* (cos b) (sin b))))))) (pow (cos b) 4)))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2)) (pow (cos b) 6))) (/ (* r (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))) (pow (cos b) 4))))) (/ (* r (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))) (pow (cos b) 4)))) (/ r (pow (cos b) 2)))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* -1 (* a (sin b)))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* a (+ (* -1 (sin b)) (* 1/6 (* (pow a 2) (sin b)))))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* a (+ (* -1 (sin b)) (* (pow a 2) (+ (* -1/120 (* (pow a 2) (sin b))) (* 1/6 (sin b))))))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* a (+ (* -1 (sin b)) (* (pow a 2) (+ (* 1/6 (sin b)) (* (pow a 2) (+ (* -1/120 (sin b)) (* 1/5040 (* (pow a 2) (sin b)))))))))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (cos b)))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos b)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos b)))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (sin b)))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (* -1 (sin b)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* -1/6 (* a (sin b))))) (* -1 (sin b)))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (pow (cos b) 2)))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))) (pow (cos b) 2))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (+ (* a (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))) (* (cos b) (sin b))))) (pow (cos b) 2))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (+ (* a (+ (* -1 (pow (cos b) 2)) (+ (* -1 (pow (sin b) 2)) (* a (+ (* -1/2 (* (cos b) (sin b))) (+ (* -1/6 (* (cos b) (sin b))) (+ (* 1/6 (* (cos b) (sin b))) (* 1/2 (* (cos b) (sin b)))))))))) (* (cos b) (sin b))))) (pow (cos b) 2))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (+ a b)))))
#s(approx (/ b (cos a)) #s(hole binary64 (/ b (cos a))))
#s(approx (cos a) #s(hole binary64 (cos a)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (- (* (cos a) (cos b)) (* (sin a) (sin b)))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b)))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* -1 (* (sin a) (sin b)))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (* -1 (* a (sin b)))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (* a (+ (* -1 (sin b)) (/ (cos b) a)))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (+ a b))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (- b a))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (+ a b)) (cos (- b a)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (- b (* -1 a))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ b (* -1 a))) (cos (- b (* -1 a)))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ r (* (cos (+ b (* -1 a))) (cos (- b (* -1 a)))))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (* -1 (* a (+ (sin b) (* -1 (/ (cos b) a)))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- b (* -1 a)))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (+ b (* -1 a)))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (+ b (* -1 a))) (cos (- b (* -1 a))))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b r)))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) r)) (* 1/120 r)))))))))
#s(approx (sin b) #s(hole binary64 b))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* -1/6 (pow b 2))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* 1/120 (pow b 2)) 1/6))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/120 (* -1/5040 (pow b 2)))) 1/6))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (cos a)))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* -1/2 (* b (cos a))))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ b (cos a))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (/ 1 (cos a)) (/ (* b (sin a)) (pow (cos a) 2))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (* 1/2 (/ 1 (cos a))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (* -1 (/ (sin a) (pow (cos a) 2))))) (/ 1 (cos a))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* 1/2 (/ 1 (cos a))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (cos a))) (+ (* -1/2 (/ (sin a) (pow (cos a) 2))) (* 1/6 (/ (sin a) (pow (cos a) 2))))))) (* 1/2 (/ 1 (cos a)))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (* -1 (/ (sin a) (pow (cos a) 2))))) (/ 1 (cos a))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (cos a)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos a)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* -1/2 (* b (cos a))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (/ (* b r) (* (cos a) (cos (neg a))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* -1 (/ (* b (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (* (cos a) (cos (neg a))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* r (* (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a)))) (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (+ (/ (* r (+ (* 1/6 (* (cos a) (sin (neg a)))) (+ (* 1/6 (* (cos (neg a)) (sin a))) (+ (* 1/2 (* (cos a) (sin (neg a)))) (* 1/2 (* (cos (neg a)) (sin a))))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))) (/ (* (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) (- (* -1/6 (/ r (* (cos a) (cos (neg a))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (* (cos a) (cos (neg a)))))))) (* -1/6 (/ r (* (cos a) (cos (neg a)))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ r (* (cos a) (cos (neg a))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* -1 (/ (* b (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))) (/ r (* (cos a) (cos (neg a)))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* b (- (* -1 (* b (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a)))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* b (- (* b (- (* -1 (* b (+ (* -1 (/ (* r (* (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a)))) (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (+ (* -1 (/ (* (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (* (cos a) (cos (neg a))))) (/ (* r (+ (* 1/6 (* (cos a) (sin (neg a)))) (+ (* 1/6 (* (cos (neg a)) (sin a))) (+ (* 1/2 (* (cos a) (sin (neg a)))) (* 1/2 (* (cos (neg a)) (sin a))))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a)))))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* -1 (* b (sin a)))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* b (+ (* -1 (sin a)) (* 1/6 (* (pow b 2) (sin a)))))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* b (+ (* -1 (sin a)) (* (pow b 2) (+ (* -1/120 (* (pow b 2) (sin a))) (* 1/6 (sin a))))))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* b (+ (* -1 (sin a)) (* (pow b 2) (+ (* 1/6 (sin a)) (* (pow b 2) (+ (* -1/120 (sin a)) (* 1/5040 (* (pow b 2) (sin a)))))))))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 1))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (+ 1 (* -1 (* a b)))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (+ 1 (* b (+ (* -1 a) (* -1/2 b))))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (+ 1 (* b (+ (* -1 a) (* b (- (* 1/6 (* a b)) 1/2)))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos a)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg a))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* -1 (* b (sin (neg a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* -1/2 (* b (cos (neg a)))) (sin (neg a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* b (+ (* -1/2 (cos (neg a))) (* 1/6 (* b (sin (neg a)))))) (sin (neg a)))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos a) (cos (neg a)))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (cos a) (cos (neg a))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (+ (* -1 (* (cos (neg a)) (sin a))) (* b (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a)))))))) (* (cos a) (cos (neg a))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (+ (* -1 (* (cos (neg a)) (sin a))) (* b (+ (* -1 (* (cos a) (cos (neg a)))) (+ (* b (+ (* 1/6 (* (cos a) (sin (neg a)))) (+ (* 1/6 (* (cos (neg a)) (sin a))) (+ (* 1/2 (* (cos a) (sin (neg a)))) (* 1/2 (* (cos (neg a)) (sin a))))))) (* (sin a) (sin (neg a))))))))) (* (cos a) (cos (neg a))))))
#s(approx (sin b) #s(hole binary64 (sin b)))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (- a (* -1 b))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (neg (+ a (* -1 b)))) (cos (- a (* -1 b)))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ r (* (cos (neg (+ a (* -1 b)))) (cos (- a (* -1 b)))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- a (* -1 b)))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg (+ a (* -1 b))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (neg (+ a (* -1 b)))) (cos (- a (* -1 b))))))

Calls

9 calls:

Time	Variable		Point	Expression
8.0ms	r	@	0	((/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (* r (sin b)) (sin b) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (* (/ (sin b) (cos (+ a b))) r) (/ (sin b) (cos (+ a b))) (/ b (cos a)) (cos a) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (- (* (cos b) (cos a)) (* (sin a) (sin b))) (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (* r (sin b)) (sin b) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (/ r (* (cos (- b a)) (cos (+ a b)))) (* (neg (sin b)) (sin a)) (+ (* (neg a) (sin b)) (cos b)) (cos (+ a b)) (cos (- b a)) (* (cos (- b a)) (cos (+ a b))))
6.0ms	r	@	-inf	((/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (* r (sin b)) (sin b) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (* (/ (sin b) (cos (+ a b))) r) (/ (sin b) (cos (+ a b))) (/ b (cos a)) (cos a) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (- (* (cos b) (cos a)) (* (sin a) (sin b))) (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (* r (sin b)) (sin b) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (/ r (* (cos (- b a)) (cos (+ a b)))) (* (neg (sin b)) (sin a)) (+ (* (neg a) (sin b)) (cos b)) (cos (+ a b)) (cos (- b a)) (* (cos (- b a)) (cos (+ a b))))
5.0ms	b	@	0	((/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (* r (sin b)) (sin b) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (* (/ (sin b) (cos (+ a b))) r) (/ (sin b) (cos (+ a b))) (/ b (cos a)) (cos a) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (- (* (cos b) (cos a)) (* (sin a) (sin b))) (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (* r (sin b)) (sin b) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (/ r (* (cos (- b a)) (cos (+ a b)))) (* (neg (sin b)) (sin a)) (+ (* (neg a) (sin b)) (cos b)) (cos (+ a b)) (cos (- b a)) (* (cos (- b a)) (cos (+ a b))))
5.0ms	r	@	inf	((/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (* r (sin b)) (sin b) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (* (/ (sin b) (cos (+ a b))) r) (/ (sin b) (cos (+ a b))) (/ b (cos a)) (cos a) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (- (* (cos b) (cos a)) (* (sin a) (sin b))) (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (* r (sin b)) (sin b) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (/ r (* (cos (- b a)) (cos (+ a b)))) (* (neg (sin b)) (sin a)) (+ (* (neg a) (sin b)) (cos b)) (cos (+ a b)) (cos (- b a)) (* (cos (- b a)) (cos (+ a b))))
4.0ms	b	@	-inf	((/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (* r (sin b)) (sin b) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (* (/ (sin b) (cos (+ a b))) r) (/ (sin b) (cos (+ a b))) (/ b (cos a)) (cos a) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) (- (* (cos b) (cos a)) (* (sin a) (sin b))) (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) (* r (sin b)) (sin b) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (/ r (* (cos (- b a)) (cos (+ a b)))) (* (neg (sin b)) (sin a)) (+ (* (neg a) (sin b)) (cos b)) (cos (+ a b)) (cos (- b a)) (* (cos (- b a)) (cos (+ a b))))

simplify520.0ms (3.4%)

Memory

28.0MiB live, 120.5MiB allocated; 5ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	916	7121
1	2637	6447
0	8903	6337
1	10531	6214
2	13761	6210
3	16707	6210
4	19137	6210
5	20980	6210
6	21742	6210
7	22241	6210
8	22510	6210
9	22546	6210

Stop Event

1×	saturated
1×	node limit

Counts

180 → 101

Calls

Call 1

Inputs
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (/ (* r (sin b)) (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b))))))
#s(approx (* r (sin b)) #s(hole binary64 (* r (sin b))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* r (sin b)) (- (* (cos a) (cos b)) (* (sin a) (sin b))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ a b)) (cos (- b a))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ r (* (cos (+ a b)) (cos (- b a))))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (cos b)))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* -1/2 (* a (cos b))))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos b))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (/ (sin b) (cos b)) (/ (* a (pow (sin b) 2)) (pow (cos b) 2)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b)))))) (* -1 (/ (pow (sin b) 2) (pow (cos b) 2))))) (/ (sin b) (cos b)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (pow (sin b) 2) (pow (cos b) 2))) (+ (* 1/6 (/ (pow (sin b) 2) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b))))) (cos b)))))) (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b)))))) (* -1 (/ (pow (sin b) 2) (pow (cos b) 2))))) (/ (sin b) (cos b)))))
#s(approx (/ b (cos a)) #s(hole binary64 b))
#s(approx (/ b (cos a)) #s(hole binary64 (+ b (* 1/2 (* (pow a 2) b)))))
#s(approx (/ b (cos a)) #s(hole binary64 (+ b (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/4 b) (* 1/24 b)))) (* -1/2 b))))))
#s(approx (/ b (cos a)) #s(hole binary64 (+ b (* (pow a 2) (- (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/720 b) (+ (* 1/48 b) (* 1/2 (+ (* -1/4 b) (* 1/24 b))))))) (+ (* -1/4 b) (* 1/24 b)))) (* -1/2 b))))))
#s(approx (cos a) #s(hole binary64 1))
#s(approx (cos a) #s(hole binary64 (+ 1 (* -1/2 (pow a 2)))))
#s(approx (cos a) #s(hole binary64 (+ 1 (* (pow a 2) (- (* 1/24 (pow a 2)) 1/2)))))
#s(approx (cos a) #s(hole binary64 (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/24 (* -1/720 (pow a 2)))) 1/2)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (cos b)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos b)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* -1/2 (* a (cos b))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (pow (cos b) 2))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (+ (* -1 (/ (* a (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))))) (pow (cos b) 4))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))))) (pow (cos b) 4)))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))))) (pow (cos b) 6))) (+ (* -1 (/ (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4)))) (pow (cos b) 2))) (/ (* r (* (sin b) (+ (* -1/2 (* (cos b) (sin b))) (+ (* -1/6 (* (cos b) (sin b))) (+ (* 1/6 (* (cos b) (sin b))) (* 1/2 (* (cos b) (sin b)))))))) (pow (cos b) 4)))))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))))) (pow (cos b) 4)))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ r (pow (cos b) 2))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* -1 (/ (* a (* r (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))))) (pow (cos b) 4))) (/ r (pow (cos b) 2)))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2)) (pow (cos b) 6))) (/ (* r (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))) (pow (cos b) 4))))) (/ (* r (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))) (pow (cos b) 4)))) (/ r (pow (cos b) 2)))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 6))) (+ (* -1 (/ (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2)) (pow (cos b) 6))) (/ (* r (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))) (pow (cos b) 4)))) (pow (cos b) 2))) (/ (* r (+ (* -1/2 (* (cos b) (sin b))) (+ (* -1/6 (* (cos b) (sin b))) (+ (* 1/6 (* (cos b) (sin b))) (* 1/2 (* (cos b) (sin b))))))) (pow (cos b) 4)))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2)) (pow (cos b) 6))) (/ (* r (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))) (pow (cos b) 4))))) (/ (* r (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))) (pow (cos b) 4)))) (/ r (pow (cos b) 2)))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* -1 (* a (sin b)))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* a (+ (* -1 (sin b)) (* 1/6 (* (pow a 2) (sin b)))))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* a (+ (* -1 (sin b)) (* (pow a 2) (+ (* -1/120 (* (pow a 2) (sin b))) (* 1/6 (sin b))))))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* a (+ (* -1 (sin b)) (* (pow a 2) (+ (* 1/6 (sin b)) (* (pow a 2) (+ (* -1/120 (sin b)) (* 1/5040 (* (pow a 2) (sin b)))))))))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (cos b)))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos b)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos b)))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (sin b)))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (* -1 (sin b)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* -1/6 (* a (sin b))))) (* -1 (sin b)))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (pow (cos b) 2)))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))) (pow (cos b) 2))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (+ (* a (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))) (* (cos b) (sin b))))) (pow (cos b) 2))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (+ (* a (+ (* -1 (pow (cos b) 2)) (+ (* -1 (pow (sin b) 2)) (* a (+ (* -1/2 (* (cos b) (sin b))) (+ (* -1/6 (* (cos b) (sin b))) (+ (* 1/6 (* (cos b) (sin b))) (* 1/2 (* (cos b) (sin b)))))))))) (* (cos b) (sin b))))) (pow (cos b) 2))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (+ a b)))))
#s(approx (/ b (cos a)) #s(hole binary64 (/ b (cos a))))
#s(approx (cos a) #s(hole binary64 (cos a)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (- (* (cos a) (cos b)) (* (sin a) (sin b)))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b)))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* -1 (* (sin a) (sin b)))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (* -1 (* a (sin b)))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (* a (+ (* -1 (sin b)) (/ (cos b) a)))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (+ a b))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (- b a))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (+ a b)) (cos (- b a)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (- b (* -1 a))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ b (* -1 a))) (cos (- b (* -1 a)))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ r (* (cos (+ b (* -1 a))) (cos (- b (* -1 a)))))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (* -1 (* a (+ (sin b) (* -1 (/ (cos b) a)))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- b (* -1 a)))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (+ b (* -1 a)))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (+ b (* -1 a))) (cos (- b (* -1 a))))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b r)))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) r)) (* 1/120 r)))))))))
#s(approx (sin b) #s(hole binary64 b))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* -1/6 (pow b 2))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* 1/120 (pow b 2)) 1/6))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/120 (* -1/5040 (pow b 2)))) 1/6))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (cos a)))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* -1/2 (* b (cos a))))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ b (cos a))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (/ 1 (cos a)) (/ (* b (sin a)) (pow (cos a) 2))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (* 1/2 (/ 1 (cos a))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (* -1 (/ (sin a) (pow (cos a) 2))))) (/ 1 (cos a))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* 1/2 (/ 1 (cos a))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (cos a))) (+ (* -1/2 (/ (sin a) (pow (cos a) 2))) (* 1/6 (/ (sin a) (pow (cos a) 2))))))) (* 1/2 (/ 1 (cos a)))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (* -1 (/ (sin a) (pow (cos a) 2))))) (/ 1 (cos a))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (cos a)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos a)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* -1/2 (* b (cos a))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (/ (* b r) (* (cos a) (cos (neg a))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* -1 (/ (* b (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (* (cos a) (cos (neg a))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* r (* (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a)))) (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (+ (/ (* r (+ (* 1/6 (* (cos a) (sin (neg a)))) (+ (* 1/6 (* (cos (neg a)) (sin a))) (+ (* 1/2 (* (cos a) (sin (neg a)))) (* 1/2 (* (cos (neg a)) (sin a))))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))) (/ (* (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) (- (* -1/6 (/ r (* (cos a) (cos (neg a))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (* (cos a) (cos (neg a)))))))) (* -1/6 (/ r (* (cos a) (cos (neg a)))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ r (* (cos a) (cos (neg a))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* -1 (/ (* b (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))) (/ r (* (cos a) (cos (neg a)))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* b (- (* -1 (* b (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a)))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* b (- (* b (- (* -1 (* b (+ (* -1 (/ (* r (* (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a)))) (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (+ (* -1 (/ (* (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (* (cos a) (cos (neg a))))) (/ (* r (+ (* 1/6 (* (cos a) (sin (neg a)))) (+ (* 1/6 (* (cos (neg a)) (sin a))) (+ (* 1/2 (* (cos a) (sin (neg a)))) (* 1/2 (* (cos (neg a)) (sin a))))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a)))))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* -1 (* b (sin a)))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* b (+ (* -1 (sin a)) (* 1/6 (* (pow b 2) (sin a)))))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* b (+ (* -1 (sin a)) (* (pow b 2) (+ (* -1/120 (* (pow b 2) (sin a))) (* 1/6 (sin a))))))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* b (+ (* -1 (sin a)) (* (pow b 2) (+ (* 1/6 (sin a)) (* (pow b 2) (+ (* -1/120 (sin a)) (* 1/5040 (* (pow b 2) (sin a)))))))))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 1))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (+ 1 (* -1 (* a b)))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (+ 1 (* b (+ (* -1 a) (* -1/2 b))))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (+ 1 (* b (+ (* -1 a) (* b (- (* 1/6 (* a b)) 1/2)))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos a)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg a))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* -1 (* b (sin (neg a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* -1/2 (* b (cos (neg a)))) (sin (neg a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* b (+ (* -1/2 (cos (neg a))) (* 1/6 (* b (sin (neg a)))))) (sin (neg a)))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos a) (cos (neg a)))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (cos a) (cos (neg a))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (+ (* -1 (* (cos (neg a)) (sin a))) (* b (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a)))))))) (* (cos a) (cos (neg a))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (+ (* -1 (* (cos (neg a)) (sin a))) (* b (+ (* -1 (* (cos a) (cos (neg a)))) (+ (* b (+ (* 1/6 (* (cos a) (sin (neg a)))) (+ (* 1/6 (* (cos (neg a)) (sin a))) (+ (* 1/2 (* (cos a) (sin (neg a)))) (* 1/2 (* (cos (neg a)) (sin a))))))) (* (sin a) (sin (neg a))))))))) (* (cos a) (cos (neg a))))))
#s(approx (sin b) #s(hole binary64 (sin b)))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (- a (* -1 b))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (neg (+ a (* -1 b)))) (cos (- a (* -1 b)))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ r (* (cos (neg (+ a (* -1 b)))) (cos (- a (* -1 b)))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- a (* -1 b)))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg (+ a (* -1 b))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (neg (+ a (* -1 b)))) (cos (- a (* -1 b))))))

Outputs
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (/ (* r (sin b)) (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b))))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (/.f64 (.f64 (sin.f64 b) r) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (.f64 (cos.f64 a) (cos.f64 b)))))
#s(approx (* r (sin b)) #s(hole binary64 (* r (sin b))))
#s(approx (* r (sin b)) (*.f64 (sin.f64 b) r))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* r (sin b)) (- (* (cos a) (cos b)) (* (sin a) (sin b))))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (/.f64 (.f64 (sin.f64 b) r) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (.f64 (cos.f64 a) (cos.f64 b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b))))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (/.f64 (.f64 (sin.f64 b) r) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (.f64 (cos.f64 a) (cos.f64 b)))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ a b)) (cos (- b a))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (/.f64 (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ r (* (cos (+ a b)) (cos (- b a))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) (/.f64 (/.f64 r (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b)))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (fma.f64 (/.f64 (.f64 a r) (cos.f64 b)) (/.f64 (.f64 (sin.f64 b) (sin.f64 b)) (cos.f64 b)) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (cos b)))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (cos.f64 b))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* -1/2 (* a (cos b))))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b)))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) (fma.f64 (/.f64 (.f64 a r) (cos.f64 b)) (/.f64 (.f64 (sin.f64 b) (sin.f64 b)) (cos.f64 b)) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos b))))
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 b)))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (/ (sin b) (cos b)) (/ (* a (pow (sin b) 2)) (pow (cos b) 2)))))
#s(approx (/ (sin b) (cos (+ a b))) (fma.f64 (/.f64 (*.f64 (sin.f64 b) (sin.f64 b)) (cos.f64 b)) (/.f64 a (cos.f64 b)) (/.f64 (sin.f64 b) (cos.f64 b))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b)))))) (* -1 (/ (pow (sin b) 2) (pow (cos b) 2))))) (/ (sin b) (cos b)))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (pow (sin b) 2) (pow (cos b) 2))) (+ (* 1/6 (/ (pow (sin b) 2) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b))))) (cos b)))))) (+ (* -1 (/ (pow (sin b) 3) (pow (cos b) 3))) (* -1/2 (/ (sin b) (cos b)))))) (* -1 (/ (pow (sin b) 2) (pow (cos b) 2))))) (/ (sin b) (cos b)))))
#s(approx (/ b (cos a)) #s(hole binary64 b))
#s(approx (/ b (cos a)) b)
#s(approx (/ b (cos a)) #s(hole binary64 (+ b (* 1/2 (* (pow a 2) b)))))
#s(approx (/ b (cos a)) #s(hole binary64 (+ b (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/4 b) (* 1/24 b)))) (* -1/2 b))))))
#s(approx (/ b (cos a)) #s(hole binary64 (+ b (* (pow a 2) (- (* (pow a 2) (- (* -1 (* (pow a 2) (+ (* -1/720 b) (+ (* 1/48 b) (* 1/2 (+ (* -1/4 b) (* 1/24 b))))))) (+ (* -1/4 b) (* 1/24 b)))) (* -1/2 b))))))
#s(approx (cos a) #s(hole binary64 1))
#s(approx (cos a) #s(hole binary64 (+ 1 (* -1/2 (pow a 2)))))
#s(approx (cos a) #s(hole binary64 (+ 1 (* (pow a 2) (- (* 1/24 (pow a 2)) 1/2)))))
#s(approx (cos a) #s(hole binary64 (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/24 (* -1/720 (pow a 2)))) 1/2)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b)))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (fma.f64 (/.f64 (.f64 a r) (cos.f64 b)) (/.f64 (.f64 (sin.f64 b) (sin.f64 b)) (cos.f64 b)) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (cos b)))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (cos.f64 b))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b)))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (fma.f64 (/.f64 (.f64 a r) (cos.f64 b)) (/.f64 (.f64 (sin.f64 b) (sin.f64 b)) (cos.f64 b)) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos b)))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (cos.f64 b))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* -1/2 (* a (cos b))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b)))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) (fma.f64 (/.f64 (.f64 a r) (cos.f64 b)) (/.f64 (.f64 (sin.f64 b) (sin.f64 b)) (cos.f64 b)) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (+ (* 1/6 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))) (/ (* (sin b) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b))))) (cos b)))))) (+ (* -1 (/ (* r (pow (sin b) 3)) (pow (cos b) 3))) (* -1/2 (/ (* r (sin b)) (cos b)))))) (* -1 (/ (* r (pow (sin b) 2)) (pow (cos b) 2))))) (/ (* r (sin b)) (cos b)))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (pow (cos b) 2))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (*.f64 (/.f64 r (cos.f64 b)) (/.f64 (sin.f64 b) (cos.f64 b))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (+ (* -1 (/ (* a (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))))) (pow (cos b) 4))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))))) (pow (cos b) 4)))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (sin b) (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))))) (pow (cos b) 6))) (+ (* -1 (/ (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4)))) (pow (cos b) 2))) (/ (* r (* (sin b) (+ (* -1/2 (* (cos b) (sin b))) (+ (* -1/6 (* (cos b) (sin b))) (+ (* 1/6 (* (cos b) (sin b))) (* 1/2 (* (cos b) (sin b)))))))) (pow (cos b) 4)))))) (+ (* -1 (/ (* r (* (sin b) (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2))) (pow (cos b) 6))) (/ (* r (* (sin b) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 4))))) (/ (* r (* (sin b) (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))))) (pow (cos b) 4)))) (/ (* r (sin b)) (pow (cos b) 2)))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ r (pow (cos b) 2))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) (/.f64 r (*.f64 (cos.f64 b) (cos.f64 b))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* -1 (/ (* a (* r (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))))) (pow (cos b) 4))) (/ r (pow (cos b) 2)))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2)) (pow (cos b) 6))) (/ (* r (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))) (pow (cos b) 4))))) (/ (* r (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))) (pow (cos b) 4)))) (/ r (pow (cos b) 2)))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2))))) (pow (cos b) 6))) (+ (* -1 (/ (* (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2)) (pow (cos b) 6))) (/ (* r (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))) (pow (cos b) 4)))) (pow (cos b) 2))) (/ (* r (+ (* -1/2 (* (cos b) (sin b))) (+ (* -1/6 (* (cos b) (sin b))) (+ (* 1/6 (* (cos b) (sin b))) (* 1/2 (* (cos b) (sin b))))))) (pow (cos b) 4)))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b))) 2)) (pow (cos b) 6))) (/ (* r (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))) (pow (cos b) 4))))) (/ (* r (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))) (pow (cos b) 4)))) (/ r (pow (cos b) 2)))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* -1 (* a (sin b)))))
#s(approx (* (neg (sin b)) (sin a)) (*.f64 (neg.f64 a) (sin.f64 b)))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* a (+ (* -1 (sin b)) (* 1/6 (* (pow a 2) (sin b)))))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* a (+ (* -1 (sin b)) (* (pow a 2) (+ (* -1/120 (* (pow a 2) (sin b))) (* 1/6 (sin b))))))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* a (+ (* -1 (sin b)) (* (pow a 2) (+ (* 1/6 (sin b)) (* (pow a 2) (+ (* -1/120 (sin b)) (* 1/5040 (* (pow a 2) (sin b)))))))))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (cos b)))
#s(approx (+ (* (neg a) (sin b)) (cos b)) (cos.f64 b))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (cos (+ a b)) #s(hole binary64 (cos b)))
#s(approx (cos (+ a b)) (cos.f64 b))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (cos (+ a b)) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos b)))
#s(approx (cos (- b a)) (cos.f64 b))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (sin b)))))
#s(approx (cos (- b a)) (fma.f64 (sin.f64 b) a (cos.f64 b)))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (* -1 (sin b)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* -1/6 (* a (sin b))))) (* -1 (sin b)))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (pow (cos b) 2)))
#s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 b) (cos.f64 b)))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (* (cos b) (sin b)))) (pow (cos b) 2))))
#s(approx (* (cos (- b a)) (cos (+ a b))) (fma.f64 (neg.f64 a) (.f64 (sin.f64 b) (cos.f64 b)) (fma.f64 (.f64 (cos.f64 b) a) (sin.f64 b) (*.f64 (cos.f64 b) (cos.f64 b)))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (+ (* a (+ (* -1 (pow (cos b) 2)) (* -1 (pow (sin b) 2)))) (* (cos b) (sin b))))) (pow (cos b) 2))))
#s(approx (* (cos (- b a)) (cos (+ a b))) (fma.f64 (fma.f64 (neg.f64 (cos.f64 b)) (sin.f64 b) (fma.f64 (sin.f64 b) (cos.f64 b) (neg.f64 a))) a (*.f64 (cos.f64 b) (cos.f64 b))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* a (+ (* -1 (* (cos b) (sin b))) (+ (* a (+ (* -1 (pow (cos b) 2)) (+ (* -1 (pow (sin b) 2)) (* a (+ (* -1/2 (* (cos b) (sin b))) (+ (* -1/6 (* (cos b) (sin b))) (+ (* 1/6 (* (cos b) (sin b))) (* 1/2 (* (cos b) (sin b)))))))))) (* (cos b) (sin b))))) (pow (cos b) 2))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b)))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (+ a b)))))
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
#s(approx (/ b (cos a)) #s(hole binary64 (/ b (cos a))))
#s(approx (/ b (cos a)) (/.f64 b (cos.f64 a)))
#s(approx (cos a) #s(hole binary64 (cos a)))
#s(approx (cos a) (cos.f64 a))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (- (* (cos a) (cos b)) (* (sin a) (sin b)))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b)))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* -1 (* (sin a) (sin b)))))
#s(approx (* (neg (sin b)) (sin a)) (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (* -1 (* a (sin b)))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) (*.f64 (neg.f64 a) (sin.f64 b)))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (* a (+ (* -1 (sin b)) (/ (cos b) a)))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) (*.f64 (-.f64 (/.f64 (cos.f64 b) a) (sin.f64 b)) a))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (+ a b))))
#s(approx (cos (+ a b)) (cos.f64 (+.f64 a b)))
#s(approx (cos (- b a)) #s(hole binary64 (cos (- b a))))
#s(approx (cos (- b a)) (cos.f64 (-.f64 a b)))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (+ a b)) (cos (- b a)))))
#s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (- b (* -1 a))))))
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (+ b (* -1 a))) (cos (- b (* -1 a)))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (/.f64 (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ r (* (cos (+ b (* -1 a))) (cos (- b (* -1 a)))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) (/.f64 (/.f64 r (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (* -1 (* a (+ (sin b) (* -1 (/ (cos b) a)))))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) (*.f64 (-.f64 (sin.f64 b) (/.f64 (cos.f64 b) a)) (neg.f64 a)))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- b (* -1 a)))))
#s(approx (cos (+ a b)) (cos.f64 (+.f64 a b)))
#s(approx (cos (- b a)) #s(hole binary64 (cos (+ b (* -1 a)))))
#s(approx (cos (- b a)) (cos.f64 (-.f64 a b)))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (+ b (* -1 a))) (cos (- b (* -1 a))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (.f64 (fma.f64 (/.f64 (.f64 (sin.f64 a) r) (cos.f64 a)) (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b r)))
#s(approx (* r (sin b)) (*.f64 b r))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* r (sin b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* (pow b 2) (+ (* -1/5040 (* (pow b 2) r)) (* 1/120 r)))))))))
#s(approx (sin b) #s(hole binary64 b))
#s(approx (sin b) b)
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* -1/6 (pow b 2))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* 1/120 (pow b 2)) 1/6))))))
#s(approx (sin b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/120 (* -1/5040 (pow b 2)))) 1/6))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (cos a)))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (cos.f64 a))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* -1/2 (* b (cos a))))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) (.f64 (fma.f64 (/.f64 (.f64 (sin.f64 a) r) (cos.f64 a)) (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a))) b))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ b (cos a))))
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a)))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (/ 1 (cos a)) (/ (* b (sin a)) (pow (cos a) 2))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (* 1/2 (/ 1 (cos a))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (* -1 (/ (sin a) (pow (cos a) 2))))) (/ 1 (cos a))))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* 1/2 (/ 1 (cos a))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (cos a))) (+ (* -1/2 (/ (sin a) (pow (cos a) 2))) (* 1/6 (/ (sin a) (pow (cos a) 2))))))) (* 1/2 (/ 1 (cos a)))) (+ (* -1 (/ (pow (sin a) 2) (pow (cos a) 3))) (* 1/6 (/ 1 (cos a)))))) (* -1 (/ (sin a) (pow (cos a) 2))))) (/ 1 (cos a))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (.f64 (fma.f64 (/.f64 (.f64 (sin.f64 a) r) (cos.f64 a)) (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin a) (sin b)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (cos a)))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (cos.f64 a))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (.f64 (fma.f64 (/.f64 (.f64 (sin.f64 a) r) (cos.f64 a)) (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (/ (* r (sin b)) (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (cos a)))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (cos.f64 a))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* -1/2 (* b (cos a))))))))
#s(approx (+ (* (sin b) (neg (sin a))) (* (cos b) (cos a))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) (.f64 (fma.f64 (/.f64 (.f64 (sin.f64 a) r) (cos.f64 a)) (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a))) b))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (sin a) (- (* -1/6 (/ r (cos a))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (cos a))) (+ (* -1/2 (/ (* r (sin a)) (pow (cos a) 2))) (* 1/6 (/ (* r (sin a)) (pow (cos a) 2))))))) (* -1/6 (/ r (cos a)))) (+ (* -1 (/ (* r (pow (sin a) 2)) (pow (cos a) 3))) (* -1/2 (/ r (cos a)))))) (* -1 (/ (* r (sin a)) (pow (cos a) 2))))) (/ r (cos a))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (/ (* b r) (* (cos a) (cos (neg a))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (*.f64 (/.f64 r (cos.f64 a)) (/.f64 b (cos.f64 a))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* -1 (/ (* b (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (.f64 (fma.f64 (neg.f64 (/.f64 b (.f64 (cos.f64 a) (cos.f64 a)))) (.f64 (/.f64 (.f64 (cos.f64 a) (+.f64 (neg.f64 (sin.f64 a)) (sin.f64 a))) (cos.f64 a)) (/.f64 r (cos.f64 a))) (/.f64 (/.f64 r (cos.f64 a)) (cos.f64 a))) b))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (* (cos a) (cos (neg a))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* r (* (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a)))) (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (+ (/ (* r (+ (* 1/6 (* (cos a) (sin (neg a)))) (+ (* 1/6 (* (cos (neg a)) (sin a))) (+ (* 1/2 (* (cos a) (sin (neg a)))) (* 1/2 (* (cos (neg a)) (sin a))))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))) (/ (* (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) (- (* -1/6 (/ r (* (cos a) (cos (neg a))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (* (cos a) (cos (neg a)))))))) (* -1/6 (/ r (* (cos a) (cos (neg a)))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a))))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ r (* (cos a) (cos (neg a))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) (/.f64 (/.f64 r (cos.f64 a)) (cos.f64 a)))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* -1 (/ (* b (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))) (/ r (* (cos a) (cos (neg a)))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) (fma.f64 (neg.f64 (/.f64 b (.f64 (cos.f64 a) (cos.f64 a)))) (.f64 (/.f64 (*.f64 (cos.f64 a) (+.f64 (neg.f64 (sin.f64 a)) (sin.f64 a))) (cos.f64 a)) (/.f64 r (cos.f64 a))) (/.f64 (/.f64 r (cos.f64 a)) (cos.f64 a))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* b (- (* -1 (* b (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a)))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) (fma.f64 (fma.f64 (fma.f64 (neg.f64 (/.f64 r (.f64 (.f64 (cos.f64 a) (cos.f64 a)) (cos.f64 a)))) (.f64 (/.f64 (.f64 (cos.f64 a) (+.f64 (neg.f64 (sin.f64 a)) (sin.f64 a))) (.f64 (cos.f64 a) (cos.f64 a))) (/.f64 (.f64 (cos.f64 a) (+.f64 (neg.f64 (sin.f64 a)) (sin.f64 a))) (cos.f64 a))) (.f64 (/.f64 (fma.f64 (neg.f64 (cos.f64 a)) (cos.f64 a) (.f64 (sin.f64 a) (neg.f64 (sin.f64 a)))) (.f64 (cos.f64 a) (cos.f64 a))) (/.f64 (/.f64 r (cos.f64 a)) (cos.f64 a)))) (neg.f64 b) (.f64 (neg.f64 (/.f64 (/.f64 r (cos.f64 a)) (cos.f64 a))) (/.f64 (.f64 (cos.f64 a) (+.f64 (neg.f64 (sin.f64 a)) (sin.f64 a))) (.f64 (cos.f64 a) (cos.f64 a))))) b (/.f64 (/.f64 r (cos.f64 a)) (cos.f64 a))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (+ (* b (- (* b (- (* -1 (* b (+ (* -1 (/ (* r (* (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a)))) (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))))) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (+ (* -1 (/ (* (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (* (cos a) (cos (neg a))))) (/ (* r (+ (* 1/6 (* (cos a) (sin (neg a)))) (+ (* 1/6 (* (cos (neg a)) (sin a))) (+ (* 1/2 (* (cos a) (sin (neg a)))) (* 1/2 (* (cos (neg a)) (sin a))))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))))) (+ (* -1 (/ (* r (pow (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a)))) 2)) (* (pow (cos a) 3) (pow (cos (neg a)) 3)))) (/ (* r (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2)))))) (/ (* r (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (pow (cos a) 2) (pow (cos (neg a)) 2))))) (/ r (* (cos a) (cos (neg a)))))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* -1 (* b (sin a)))))
#s(approx (* (neg (sin b)) (sin a)) (*.f64 (neg.f64 b) (sin.f64 a)))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* b (+ (* -1 (sin a)) (* 1/6 (* (pow b 2) (sin a)))))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* b (+ (* -1 (sin a)) (* (pow b 2) (+ (* -1/120 (* (pow b 2) (sin a))) (* 1/6 (sin a))))))))
#s(approx (* (neg (sin b)) (sin a)) #s(hole binary64 (* b (+ (* -1 (sin a)) (* (pow b 2) (+ (* 1/6 (sin a)) (* (pow b 2) (+ (* -1/120 (sin a)) (* 1/5040 (* (pow b 2) (sin a)))))))))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 1))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (+ 1 (* -1 (* a b)))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (+ 1 (* b (+ (* -1 a) (* -1/2 b))))))
#s(approx (+ (* (neg a) (sin b)) (cos b)) #s(hole binary64 (+ 1 (* b (+ (* -1 a) (* b (- (* 1/6 (* a b)) 1/2)))))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos a)))
#s(approx (cos (+ a b)) (cos.f64 a))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (cos (+ a b)) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (cos (+ a b)) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg a))))
#s(approx (cos (- b a)) (cos.f64 a))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* -1 (* b (sin (neg a)))))))
#s(approx (cos (- b a)) (fma.f64 (sin.f64 a) b (cos.f64 a)))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* -1/2 (* b (cos (neg a)))) (sin (neg a)))))))
#s(approx (cos (- b a)) #s(hole binary64 (+ (cos (neg a)) (* b (- (* b (+ (* -1/2 (cos (neg a))) (* 1/6 (* b (sin (neg a)))))) (sin (neg a)))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos a) (cos (neg a)))))
#s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 a) (cos.f64 a)))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (* -1 (* (cos (neg a)) (sin a))))) (* (cos a) (cos (neg a))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) (fma.f64 (.f64 (cos.f64 a) (+.f64 (neg.f64 (sin.f64 a)) (sin.f64 a))) b (.f64 (cos.f64 a) (cos.f64 a))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (+ (* -1 (* (cos (neg a)) (sin a))) (* b (+ (* -1 (* (cos a) (cos (neg a)))) (* (sin a) (sin (neg a)))))))) (* (cos a) (cos (neg a))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) (fma.f64 (fma.f64 (fma.f64 (neg.f64 (cos.f64 a)) (cos.f64 a) (.f64 (sin.f64 a) (neg.f64 (sin.f64 a)))) b (.f64 (cos.f64 a) (+.f64 (neg.f64 (sin.f64 a)) (sin.f64 a)))) b (*.f64 (cos.f64 a) (cos.f64 a))))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (+ (* b (+ (* -1 (* (cos a) (sin (neg a)))) (+ (* -1 (* (cos (neg a)) (sin a))) (* b (+ (* -1 (* (cos a) (cos (neg a)))) (+ (* b (+ (* 1/6 (* (cos a) (sin (neg a)))) (+ (* 1/6 (* (cos (neg a)) (sin a))) (+ (* 1/2 (* (cos a) (sin (neg a)))) (* 1/2 (* (cos (neg a)) (sin a))))))) (* (sin a) (sin (neg a))))))))) (* (cos a) (cos (neg a))))))
#s(approx (sin b) #s(hole binary64 (sin b)))
#s(approx (sin b) (sin.f64 b))
#s(approx (* (/ (sin b) (cos (+ a b))) r) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (* (/ (sin b) (cos (+ a b))) r) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (/ (sin b) (cos (+ a b))) #s(hole binary64 (/ (sin b) (cos (- a (* -1 b))))))
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (* (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (cos (- b a))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) #s(hole binary64 (/ (* r (sin b)) (* (cos (neg (+ a (* -1 b)))) (cos (- a (* -1 b)))))))
#s(approx (* (sin b) (/ r (* (cos (- b a)) (cos (+ a b))))) (/.f64 (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) #s(hole binary64 (/ r (* (cos (neg (+ a (* -1 b)))) (cos (- a (* -1 b)))))))
#s(approx (/ r (* (cos (- b a)) (cos (+ a b)))) (/.f64 (/.f64 r (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))))
#s(approx (cos (+ a b)) #s(hole binary64 (cos (- a (* -1 b)))))
#s(approx (cos (+ a b)) (cos.f64 (+.f64 a b)))
#s(approx (cos (- b a)) #s(hole binary64 (cos (neg (+ a (* -1 b))))))
#s(approx (cos (- b a)) (cos.f64 (-.f64 a b)))
#s(approx (* (cos (- b a)) (cos (+ a b))) #s(hole binary64 (* (cos (neg (+ a (* -1 b)))) (cos (- a (* -1 b))))))
#s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))

rewrite1.2s (7.8%)

Memory

-13.7MiB live, 171.4MiB allocated; 19ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	47	221
1	56	221
2	65	221
3	80	221
4	87	221
5	91	221
6	95	221
7	97	221
0	97	169
1	258	169
2	1831	169
0	8862	169
1	9831	169
2	13074	169
3	17082	169
4	20954	169
5	23164	169
6	24316	169
7	24790	169

Stop Event

1×	saturated
1×	node limit
1×	saturated

Counts

22 → 315

Calls

Call 1

Inputs
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))))
(*.f64 r (sin.f64 b))
(sin.f64 b)
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a)))
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a)))
(/.f64 b (cos.f64 a))
(cos.f64 a)
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(*.f64 r #s(approx (sin b) b))
#s(approx (sin b) b)
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 b) (cos.f64 a)))
(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
(.f64 (sin.f64 b) (/.f64 r (.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))))
(/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))
(*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))
(fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))
(cos.f64 (+.f64 a b))
(cos.f64 (-.f64 b a))
(*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))

Outputs
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))
(.f64 (.f64 (cos.f64 (-.f64 a b)) (sin.f64 b)) (/.f64 (/.f64 r (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))))
(.f64 (/.f64 (.f64 (/.f64 r (cos.f64 (-.f64 a b))) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (sin.f64 b))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
(.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b)))
(.f64 (/.f64 (/.f64 r (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))) (.f64 (sin.f64 b) (cos.f64 (-.f64 a b))))
(.f64 (cos.f64 (-.f64 a b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))))
(.f64 (sin.f64 b) (/.f64 (.f64 (/.f64 r (cos.f64 (-.f64 a b))) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))))
(*.f64 (sin.f64 b) (/.f64 r (cos.f64 (+.f64 a b))))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (*.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b))))
(/.f64 (.f64 (cos.f64 (-.f64 a b)) (.f64 (sin.f64 b) r)) (*.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b))))
(/.f64 (neg.f64 (*.f64 (neg.f64 r) (sin.f64 b))) (neg.f64 (neg.f64 (cos.f64 (+.f64 a b)))))
(/.f64 (*.f64 (neg.f64 r) (sin.f64 b)) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
(neg.f64 (/.f64 (*.f64 (neg.f64 r) (sin.f64 b)) (cos.f64 (+.f64 a b))))
(neg.f64 (/.f64 (*.f64 (sin.f64 b) r) (neg.f64 (cos.f64 (+.f64 a b)))))
(fma.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (.f64 (cos.f64 a) (cos.f64 b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (/.f64 (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b)))))
(+.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b)))) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b)))))
(+.f64 (.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (.f64 (sin.f64 a) (sin.f64 b))))
(*.f64 (sin.f64 b) r)
(*.f64 r (sin.f64 b))
(neg.f64 (neg.f64 (sin.f64 b)))
(sin.f64 (neg.f64 (+.f64 (PI.f64) b)))
(sin.f64 (+.f64 (neg.f64 b) (PI.f64)))
(sin.f64 (+.f64 (+.f64 (PI.f64) b) (PI.f64)))
(sin.f64 (neg.f64 (neg.f64 b)))
(sin.f64 b)
(/.f64 (neg.f64 (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (neg.f64 (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))
(/.f64 (neg.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))) (cos.f64 (+.f64 a b)))) (neg.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)))))
(/.f64 (neg.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (neg.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))))
(/.f64 (neg.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))))
(/.f64 (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(/.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))
(/.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (neg.f64 (cos.f64 (-.f64 a b))))
(/.f64 (*.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b))) (cos.f64 (-.f64 a b)))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b))))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b))))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 a) (cos.f64 b)))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (cos.f64 (-.f64 a b))) (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (cos.f64 (-.f64 a b))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (sin.f64 a) (sin.f64 b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)))))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (neg.f64 (sin.f64 a))) (sin.f64 b)))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 a)) (neg.f64 (sin.f64 b))))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 b)) (neg.f64 (sin.f64 a))))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (sin.f64 b)))
(-.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))
(-.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)))
(cos.f64 (neg.f64 (neg.f64 (+.f64 a b))))
(cos.f64 (-.f64 (neg.f64 a) b))
(cos.f64 (-.f64 a (neg.f64 b)))
(cos.f64 (-.f64 (neg.f64 b) a))
(cos.f64 (-.f64 b (neg.f64 a)))
(cos.f64 (neg.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))) (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 b))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 b))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))) (/.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))))
(+.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))))
(+.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(+.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (.f64 (cos.f64 a) (cos.f64 b)))
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a)))
(/.f64 (neg.f64 (neg.f64 b)) (neg.f64 (neg.f64 (cos.f64 a))))
(/.f64 (neg.f64 b) (neg.f64 (cos.f64 a)))
(/.f64 b (cos.f64 a))
(neg.f64 (/.f64 (neg.f64 b) (cos.f64 a)))
(neg.f64 (/.f64 b (neg.f64 (cos.f64 a))))
(cos.f64 (neg.f64 (neg.f64 a)))
(cos.f64 (neg.f64 a))
(cos.f64 a)
(/.f64 (.f64 (sin.f64 b) r) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
#s(approx (- (* (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
(*.f64 r #s(approx (sin b) b))
#s(approx (sin b) b)
(/.f64 (neg.f64 (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (neg.f64 (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))
(/.f64 (neg.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))) (cos.f64 (+.f64 a b)))) (neg.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)))))
(/.f64 (neg.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (neg.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))))
(/.f64 (neg.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))))
(/.f64 (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(/.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))
(/.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (neg.f64 (cos.f64 (-.f64 a b))))
(/.f64 (*.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b))) (cos.f64 (-.f64 a b)))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b))))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b))))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 a) (cos.f64 b)))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (cos.f64 (-.f64 a b))) (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (cos.f64 (-.f64 a b))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (sin.f64 a) (sin.f64 b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)))))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (neg.f64 (sin.f64 a))) (sin.f64 b)))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 a)) (neg.f64 (sin.f64 b))))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 b)) (neg.f64 (sin.f64 a))))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (sin.f64 b)))
(-.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))
(-.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)))
(cos.f64 (neg.f64 (neg.f64 (+.f64 a b))))
(cos.f64 (-.f64 (neg.f64 a) b))
(cos.f64 (-.f64 a (neg.f64 b)))
(cos.f64 (-.f64 (neg.f64 b) a))
(cos.f64 (-.f64 b (neg.f64 a)))
(cos.f64 (neg.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))) (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 b))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 b))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))) (/.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))))
(+.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))))
(+.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(+.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (.f64 (cos.f64 a) (cos.f64 b)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))
(.f64 (.f64 (cos.f64 (-.f64 a b)) (sin.f64 b)) (/.f64 (/.f64 r (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))))
(.f64 (/.f64 (.f64 (/.f64 r (cos.f64 (-.f64 a b))) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (sin.f64 b))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
(.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b)))
(.f64 (/.f64 (/.f64 r (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))) (.f64 (sin.f64 b) (cos.f64 (-.f64 a b))))
(.f64 (cos.f64 (-.f64 a b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))))
(.f64 (sin.f64 b) (/.f64 (.f64 (/.f64 r (cos.f64 (-.f64 a b))) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))))
(*.f64 (sin.f64 b) (/.f64 r (cos.f64 (+.f64 a b))))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (*.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b))))
(/.f64 (.f64 (cos.f64 (-.f64 a b)) (.f64 (sin.f64 b) r)) (*.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b))))
(/.f64 (neg.f64 (*.f64 (neg.f64 r) (sin.f64 b))) (neg.f64 (neg.f64 (cos.f64 (+.f64 a b)))))
(/.f64 (*.f64 (neg.f64 r) (sin.f64 b)) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
(neg.f64 (/.f64 (*.f64 (neg.f64 r) (sin.f64 b)) (cos.f64 (+.f64 a b))))
(neg.f64 (/.f64 (*.f64 (sin.f64 b) r) (neg.f64 (cos.f64 (+.f64 a b)))))
(fma.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (.f64 (cos.f64 a) (cos.f64 b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (/.f64 (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b)))))
(+.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b)))) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b)))))
(+.f64 (.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (/.f64 (/.f64 (.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (.f64 (sin.f64 a) (sin.f64 b))))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (-.f64 a b))) (/.f64 r (cos.f64 (+.f64 a b))))
(*.f64 (/.f64 r (cos.f64 (+.f64 a b))) (/.f64 (sin.f64 b) (cos.f64 (-.f64 a b))))
(*.f64 (/.f64 r (cos.f64 (-.f64 a b))) (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) (/.f64 r (cos.f64 (-.f64 a b))))
(*.f64 (/.f64 (/.f64 r (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))) (sin.f64 b))
(*.f64 (sin.f64 b) (/.f64 (/.f64 r (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))))
(.f64 r (/.f64 (sin.f64 b) (.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b)))))
(/.f64 (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 (/.f64 r (cos.f64 (-.f64 a b))) (sin.f64 b)) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 (sin.f64 b) (/.f64 r (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))
(/.f64 (.f64 (neg.f64 r) (sin.f64 b)) (.f64 (neg.f64 (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r) (cos.f64 (-.f64 a b)))
(/.f64 (.f64 (sin.f64 b) r) (.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b))))
(.f64 (/.f64 (/.f64 r (cos.f64 (-.f64 a b))) (.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b)))) (cos.f64 (-.f64 a b)))
(.f64 (/.f64 (/.f64 r (cos.f64 (-.f64 a b))) (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(.f64 (/.f64 (/.f64 r (cos.f64 (-.f64 a b))) (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))))
(.f64 (/.f64 (/.f64 r (cos.f64 (-.f64 a b))) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))))
(.f64 (/.f64 (/.f64 r (cos.f64 (-.f64 a b))) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))
(/.f64 (neg.f64 (/.f64 r (cos.f64 (-.f64 a b)))) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (neg.f64 (neg.f64 r)) (neg.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b)))))
(/.f64 (neg.f64 r) (*.f64 (neg.f64 (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))))
(/.f64 (/.f64 r (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b)))
(/.f64 (/.f64 r (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b)))
(/.f64 r (*.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b))))
(neg.f64 (/.f64 (neg.f64 r) (*.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b)))))
(neg.f64 (/.f64 r (*.f64 (neg.f64 (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b)))))
(*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))
(*.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))
(*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))
(*.f64 (sin.f64 b) (neg.f64 (sin.f64 a)))
(neg.f64 (*.f64 (sin.f64 a) (sin.f64 b)))
(/.f64 (-.f64 (.f64 (cos.f64 b) (cos.f64 b)) (.f64 (.f64 a (sin.f64 b)) (.f64 a (sin.f64 b)))) (-.f64 (cos.f64 b) (*.f64 (neg.f64 a) (sin.f64 b))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 a (sin.f64 b)) (.f64 a (sin.f64 b))) (.f64 (cos.f64 b) (cos.f64 b)))) (neg.f64 (-.f64 (*.f64 (neg.f64 a) (sin.f64 b)) (cos.f64 b))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 a (sin.f64 b)) (.f64 a (sin.f64 b))) (.f64 (neg.f64 a) (sin.f64 b)) (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b)))) (neg.f64 (fma.f64 (.f64 (sin.f64 b) (sin.f64 b)) (.f64 a a) (.f64 (cos.f64 b) (-.f64 (cos.f64 b) (.f64 (neg.f64 a) (sin.f64 b)))))))
(/.f64 (-.f64 (.f64 (.f64 a (sin.f64 b)) (.f64 a (sin.f64 b))) (.f64 (cos.f64 b) (cos.f64 b))) (-.f64 (*.f64 (neg.f64 a) (sin.f64 b)) (cos.f64 b)))
(/.f64 (fma.f64 (.f64 (.f64 a (sin.f64 b)) (.f64 a (sin.f64 b))) (.f64 (neg.f64 a) (sin.f64 b)) (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b))) (fma.f64 (cos.f64 b) (cos.f64 b) (-.f64 (.f64 (.f64 a (sin.f64 b)) (.f64 a (sin.f64 b))) (.f64 (*.f64 (neg.f64 a) (sin.f64 b)) (cos.f64 b)))))
(/.f64 (fma.f64 (.f64 (.f64 a (sin.f64 b)) (.f64 a (sin.f64 b))) (.f64 (neg.f64 a) (sin.f64 b)) (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b))) (fma.f64 (.f64 (sin.f64 b) (sin.f64 b)) (.f64 a a) (.f64 (cos.f64 b) (-.f64 (cos.f64 b) (.f64 (neg.f64 a) (sin.f64 b))))))
(fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))
(fma.f64 a (neg.f64 (sin.f64 b)) (cos.f64 b))
(fma.f64 (sin.f64 b) (neg.f64 a) (cos.f64 b))
(-.f64 (/.f64 (.f64 (.f64 a (sin.f64 b)) (.f64 a (sin.f64 b))) (-.f64 (.f64 (neg.f64 a) (sin.f64 b)) (cos.f64 b))) (/.f64 (.f64 (cos.f64 b) (cos.f64 b)) (-.f64 (.f64 (neg.f64 a) (sin.f64 b)) (cos.f64 b))))
(-.f64 (cos.f64 b) (*.f64 (neg.f64 (neg.f64 a)) (sin.f64 b)))
(-.f64 (cos.f64 b) (*.f64 (neg.f64 (sin.f64 b)) (neg.f64 a)))
(-.f64 (cos.f64 b) (*.f64 a (sin.f64 b)))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a (sin.f64 b)) (.f64 a (sin.f64 b))) (.f64 (neg.f64 a) (sin.f64 b))) (fma.f64 (.f64 (sin.f64 b) (sin.f64 b)) (.f64 a a) (.f64 (cos.f64 b) (-.f64 (cos.f64 b) (.f64 (neg.f64 a) (sin.f64 b)))))) (/.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b)) (fma.f64 (.f64 (sin.f64 b) (sin.f64 b)) (.f64 a a) (.f64 (cos.f64 b) (-.f64 (cos.f64 b) (*.f64 (neg.f64 a) (sin.f64 b)))))))
(+.f64 (*.f64 (neg.f64 a) (sin.f64 b)) (cos.f64 b))
(+.f64 (cos.f64 b) (*.f64 (neg.f64 a) (sin.f64 b)))
(/.f64 (neg.f64 (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (neg.f64 (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))
(/.f64 (neg.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))) (cos.f64 (+.f64 a b)))) (neg.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)))))
(/.f64 (neg.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (neg.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))))
(/.f64 (neg.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))))
(/.f64 (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(/.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))
(/.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (neg.f64 (cos.f64 (-.f64 a b))))
(/.f64 (*.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b))) (cos.f64 (-.f64 a b)))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b))))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b))))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (*.f64 (cos.f64 a) (cos.f64 b)))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (cos.f64 (-.f64 a b))) (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (cos.f64 (-.f64 a b))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (sin.f64 a) (sin.f64 b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)))))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (neg.f64 (sin.f64 a))) (sin.f64 b)))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 a)) (neg.f64 (sin.f64 b))))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 b)) (neg.f64 (sin.f64 a))))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (sin.f64 b)))
(-.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))
(-.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)))
(cos.f64 (neg.f64 (neg.f64 (+.f64 a b))))
(cos.f64 (-.f64 (neg.f64 a) b))
(cos.f64 (-.f64 a (neg.f64 b)))
(cos.f64 (-.f64 (neg.f64 b) a))
(cos.f64 (-.f64 b (neg.f64 a)))
(cos.f64 (neg.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))) (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 b))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 b))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))) (/.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))))
(+.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))))
(+.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (.f64 (neg.f64 (neg.f64 (cos.f64 b))) (cos.f64 a)))
(+.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (.f64 (cos.f64 a) (cos.f64 b)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (cos.f64 a)) (cos.f64 b)))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (sin.f64 a) (sin.f64 b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (-.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (sin.f64 a)) (sin.f64 b)))))
(/.f64 (*.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b)))
(fma.f64 (sin.f64 a) (sin.f64 b) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (neg.f64 (neg.f64 (sin.f64 a))) (sin.f64 b)))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (neg.f64 (sin.f64 a)) (neg.f64 (sin.f64 b))))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (neg.f64 (sin.f64 b)) (neg.f64 (sin.f64 a))))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (sin.f64 a) (sin.f64 b)))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (neg.f64 (sin.f64 a))) (sin.f64 b)))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 a)) (neg.f64 (sin.f64 b))))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 b)) (neg.f64 (sin.f64 a))))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (sin.f64 a) (sin.f64 b)))
(fma.f64 (sin.f64 b) (sin.f64 a) (*.f64 (cos.f64 a) (cos.f64 b)))
(-.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 b a))))
(cos.f64 (+.f64 (neg.f64 a) b))
(cos.f64 (+.f64 a (neg.f64 b)))
(cos.f64 (+.f64 (neg.f64 b) a))
(cos.f64 (+.f64 b (neg.f64 a)))
(cos.f64 (neg.f64 (-.f64 b a)))
(cos.f64 (neg.f64 (-.f64 a b)))
(cos.f64 (-.f64 a b))
(cos.f64 (-.f64 b a))
(+.f64 (.f64 (sin.f64 a) (sin.f64 b)) (.f64 (cos.f64 a) (cos.f64 b)))
(+.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (neg.f64 (sin.f64 a))) (sin.f64 b)))
(+.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 a)) (neg.f64 (sin.f64 b))))
(+.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (neg.f64 (sin.f64 b)) (neg.f64 (sin.f64 a))))
(+.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (sin.f64 b)))
(*.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b)))
(*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))
(/.f64 (.f64 (.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b))) (cos.f64 (-.f64 a b))) (cos.f64 (-.f64 a b)))
(/.f64 (.f64 (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (cos.f64 (-.f64 a b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(/.f64 (.f64 (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))))
(/.f64 (.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))))
(/.f64 (.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 a b))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))
(/.f64 (.f64 (cos.f64 (-.f64 a b)) (.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b)))) (cos.f64 (-.f64 a b)))
(/.f64 (.f64 (cos.f64 (-.f64 a b)) (.f64 (cos.f64 (+.f64 a b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))
(/.f64 (.f64 (cos.f64 (-.f64 a b)) (.f64 (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))))
(/.f64 (.f64 (cos.f64 (-.f64 a b)) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))))
(/.f64 (.f64 (cos.f64 (-.f64 a b)) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b))) (.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b))))
(fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))))
(fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))))
(fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (fabs.f64 (.f64 (cos.f64 a) (cos.f64 b))) (fabs.f64 (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))))
(fma.f64 (fabs.f64 (.f64 (cos.f64 a) (cos.f64 b))) (fabs.f64 (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (.f64 (cos.f64 a) (cos.f64 a)) (.f64 (cos.f64 b) (cos.f64 b)) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))))
(fma.f64 (.f64 (cos.f64 a) (cos.f64 a)) (.f64 (cos.f64 b) (cos.f64 b)) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (.f64 (cos.f64 b) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 a)) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))))
(fma.f64 (.f64 (cos.f64 b) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 a)) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))))
(fma.f64 (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (cos.f64 (+.f64 a b)) (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (cos.f64 (+.f64 a b)) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (cos.f64 (-.f64 a b)) (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (cos.f64 (-.f64 a b)) (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))))
(fma.f64 (cos.f64 (-.f64 a b)) (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (.f64 (cos.f64 (-.f64 a b)) (*.f64 (cos.f64 a) (cos.f64 b))))
(fma.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (+.f64 a b)) (.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (+.f64 a b))))
(fma.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)) (.f64 (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (cos.f64 (-.f64 a b))))
(fma.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))))
(fma.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (cos.f64 (-.f64 a b)) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))
(fma.f64 (cos.f64 a) (.f64 (cos.f64 b) (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))))
(fma.f64 (cos.f64 a) (.f64 (cos.f64 b) (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (*.f64 (sin.f64 a) (sin.f64 b))))
(fma.f64 (cos.f64 b) (.f64 (cos.f64 a) (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))))
(fma.f64 (cos.f64 b) (.f64 (cos.f64 a) (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (*.f64 (sin.f64 a) (sin.f64 b))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)))
(+.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (+.f64 a b))) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (+.f64 a b))))
(+.f64 (.f64 (cos.f64 (-.f64 a b)) (.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))) (.f64 (cos.f64 (-.f64 a b)) (.f64 (cos.f64 a) (cos.f64 b))))
(+.f64 (.f64 (cos.f64 (-.f64 a b)) (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (cos.f64 (-.f64 a b)) (.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))))
(+.f64 (.f64 (cos.f64 (+.f64 a b)) (.f64 (cos.f64 a) (cos.f64 b))) (.f64 (cos.f64 (+.f64 a b)) (.f64 (sin.f64 a) (sin.f64 b))))
(+.f64 (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (cos.f64 (-.f64 a b))) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))))
(+.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b))) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (cos.f64 (-.f64 a b))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (.f64 (sin.f64 a) (sin.f64 b))))

eval46.0ms (0.3%)

Memory: 31.1MiB live, 86.5MiB allocated; 8ms collecting garbage
Compiler: Compiled 10 083 to 1 176 computations (88.3% saved)

prune76.0ms (0.5%)

Memory

-0.5MiB live, 46.0MiB allocated; 3ms collecting garbage

Pruning

50 alts after pruning (39 fresh and 11 done)

	Pruned	Kept	Total
New	341	16	357
Fresh	7	23	30
Picked	3	2	5
Done	0	9	9
Total	351	50	401

Accuracy

99.9%

Counts

401 → 50

Alt Table

Click to see full alt table

Status	Accuracy	Program
	6.7%	(/.f64 (.f64 r (sin.f64 (+.f64 (neg.f64 b) (PI.f64)))) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
✓	99.5%	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
✓	55.8%	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
	53.3%	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 a))))
✓	99.4%	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))))
	61.1%	(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (.f64 (neg.f64 #s(approx (sin b) b)) (sin.f64 a))))
	99.4%	(/.f64 (.f64 r (sin.f64 b)) (/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 a)) (cos.f64 a)) (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b))) (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (sin.f64 a) (sin.f64 b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (sin.f64 b)))))))
	99.3%	(/.f64 (.f64 r (sin.f64 b)) (-.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))
	99.3%	(/.f64 (.f64 r (sin.f64 b)) (-.f64 (/.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))
✓	99.4%	(/.f64 (.f64 r (sin.f64 b)) (-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 a) (sin.f64 b))))
	99.4%	(/.f64 (.f64 r (sin.f64 b)) (+.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 b))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))) (/.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))))
✓	71.9%	(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
	50.1%	(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
	41.7%	(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) #s(approx (sin b) b) (cos.f64 b))))
	51.1%	(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) #s(approx (+ (* (neg a) (sin b)) (cos b)) (*.f64 (-.f64 (/.f64 (cos.f64 b) a) (sin.f64 b)) a))))
	10.9%	(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) #s(approx (+ (* (neg a) (sin b)) (cos b)) (*.f64 (neg.f64 a) (sin.f64 b)))))
✓	54.2%	(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
✓	51.7%	(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 a)))
	49.0%	(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 (+.f64 (neg.f64 b) (PI.f64))) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
	31.1%	(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
	52.2%	(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 #s(approx (sin b) b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
	30.2%	(/.f64 (.f64 r #s(approx (sin b) b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
	31.2%	(/.f64 (.f64 r #s(approx (sin b) b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
	48.9%	(/.f64 (*.f64 r #s(approx (sin b) b)) #s(approx (cos (+ a b)) (cos.f64 a)))
	71.7%	(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))))
	51.6%	(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) #s(approx (cos (- b a)) (cos.f64 a)))
	48.9%	(.f64 (/.f64 (.f64 #s(approx (sin b) b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
✓	71.8%	(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
	49.0%	(*.f64 (/.f64 #s(approx (sin b) b) (cos.f64 (+.f64 a b))) r)
	71.9%	(*.f64 (/.f64 r (cos.f64 (+.f64 a b))) (sin.f64 b))
	9.0%	(.f64 (.f64 (sin.f64 (+.f64 (neg.f64 b) (PI.f64))) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
	99.3%	(.f64 (.f64 (sin.f64 b) (/.f64 r (fma.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (cos.f64 (-.f64 a b)) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))))) (cos.f64 (-.f64 b a)))
	54.0%	(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) #s(approx (cos (- b a)) (cos.f64 b)))
	54.1%	(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) #s(approx (cos (+ a b)) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
	55.3%	(.f64 (.f64 (sin.f64 b) (/.f64 r #s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 b) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
	54.1%	(.f64 (.f64 (sin.f64 b) (/.f64 r #s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 a) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
	71.8%	(.f64 (.f64 (sin.f64 b) r) (/.f64 (cos.f64 (-.f64 a b)) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))))
	99.3%	(.f64 (.f64 r (/.f64 (sin.f64 b) (fma.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (cos.f64 (-.f64 b a)))))) (cos.f64 (-.f64 b a)))
	51.7%	(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) #s(approx (cos (- b a)) (cos.f64 a)))
	54.2%	(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) #s(approx (cos (+ a b)) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
	51.6%	(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) #s(approx (cos (+ a b)) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
	55.4%	(.f64 (.f64 r (/.f64 (sin.f64 b) #s(approx (* (cos (- a b)) (cos (+ a b))) (*.f64 (cos.f64 b) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
	54.1%	(.f64 (.f64 r (/.f64 (sin.f64 b) #s(approx (* (cos (- a b)) (cos (+ a b))) (*.f64 (cos.f64 a) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
	48.9%	(.f64 (.f64 r #s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (/.f64 b (*.f64 (cos.f64 a) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
	54.2%	(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 b))) r)
✓	48.9%	(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
	54.2%	#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))
✓	48.9%	#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
✓	31.0%	#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))
	71.9%	#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) (.f64 (/.f64 (.f64 (sin.f64 b) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (/.f64 r (cos.f64 (-.f64 a b)))))

Compiler

Compiled 3 216 to 1 089 computations (66.1% saved)

regimes713.0ms (4.6%)

Memory

-42.6MiB live, 108.3MiB allocated; 37ms collecting garbage

Counts

74 → 1

Calls

Call 1

Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
(/.f64 (*.f64 r #s(approx (sin b) b)) #s(approx (cos (+ a b)) (cos.f64 a)))
(/.f64 (.f64 r #s(approx (sin b) b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
(*.f64 (/.f64 #s(approx (sin b) b) (cos.f64 (+.f64 a b))) r)
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 b))) r)
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 a)))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 b)))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
(*.f64 (/.f64 r (cos.f64 (+.f64 a b))) (sin.f64 b))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) #s(approx (+ (* (neg a) (sin b)) (cos b)) (*.f64 (neg.f64 a) (sin.f64 b)))))
(/.f64 (.f64 r #s(approx (sin b) b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) #s(approx (sin b) b) (cos.f64 b))))
(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (fma.f64 (sin.f64 a) (neg.f64 b) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (fma.f64 (sin.f64 a) (neg.f64 b) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(.f64 (.f64 r #s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (/.f64 b (*.f64 (cos.f64 a) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 #s(approx (sin b) b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 (+.f64 (neg.f64 b) (PI.f64)))) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(.f64 #s(approx (/ ( (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (*.f64 (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a)))) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (.f64 #s(approx (sin b) b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) #s(approx (+ (* (neg a) (sin b)) (cos b)) (*.f64 (-.f64 (/.f64 (cos.f64 b) a) (sin.f64 b)) a))))
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
(.f64 (.f64 r (/.f64 (sin.f64 b) #s(approx (* (cos (- a b)) (cos (+ a b))) (*.f64 (cos.f64 a) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 r (/.f64 (sin.f64 b) #s(approx (* (cos (- a b)) (cos (+ a b))) (*.f64 (cos.f64 b) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 (sin.f64 b) (/.f64 r #s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 a) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 (sin.f64 b) (/.f64 r #s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 b) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) #s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 a) (cos.f64 a)))) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) #s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 b) (cos.f64 b)))) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 #s(approx (sin b) b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (.f64 (neg.f64 #s(approx (sin b) b)) (sin.f64 a))))
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) #s(approx (cos (+ a b)) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) #s(approx (cos (+ a b)) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) #s(approx (cos (- b a)) (cos.f64 a)))
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) #s(approx (cos (- b a)) (cos.f64 b)))
(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) #s(approx (cos (+ a b)) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) #s(approx (cos (- b a)) (cos.f64 b)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) #s(approx (cos (- b a)) (cos.f64 a)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) #s(approx (cos (- b a)) (cos.f64 b)))
(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 (+.f64 (neg.f64 b) (PI.f64))) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 (sin.f64 b) r) (/.f64 (cos.f64 (-.f64 a b)) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))))
(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 (sin.f64 (+.f64 (neg.f64 b) (PI.f64))) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) (.f64 (/.f64 (.f64 (sin.f64 b) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (/.f64 r (cos.f64 (-.f64 a b)))))
(.f64 (.f64 (/.f64 (/.f64 r (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (sin.f64 b)) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a))) (.f64 r (cos.f64 (-.f64 b a))))
(/.f64 (.f64 r (sin.f64 b)) (-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 a) (sin.f64 b))))
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(.f64 (.f64 r (/.f64 (sin.f64 b) (fma.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (cos.f64 (-.f64 b a)))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 r (/.f64 (sin.f64 b) (fma.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (cos.f64 (-.f64 b a)) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 (sin.f64 b) (/.f64 r (fma.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (cos.f64 (-.f64 a b)) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 a b)))))) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)))))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b)))) (fma.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b) (.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 (-.f64 b a)))))
(/.f64 (.f64 r (sin.f64 b)) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a)))) (cos.f64 (+.f64 a b))) (fma.f64 (.f64 (.f64 (cos.f64 b) (cos.f64 a)) (cos.f64 b)) (cos.f64 a) (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (cos.f64 (-.f64 b a))))))
(/.f64 (.f64 r (sin.f64 b)) (-.f64 (/.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))
(/.f64 (.f64 r (sin.f64 b)) (-.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))
(/.f64 (.f64 r (sin.f64 b)) (-.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 b)) (cos.f64 a)) (fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))
(/.f64 (.f64 r (sin.f64 b)) (/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 a)) (cos.f64 a)) (.f64 (.f64 (cos.f64 b) (cos.f64 b)) (cos.f64 b))) (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (sin.f64 a) (sin.f64 b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (.f64 (sin.f64 a) (sin.f64 b)))))))
(/.f64 (.f64 r (sin.f64 b)) (/.f64 (-.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b))) (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))) (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)))) (fma.f64 (.f64 (sin.f64 a) (sin.f64 a)) (.f64 (sin.f64 b) (sin.f64 b)) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (.f64 (neg.f64 (cos.f64 b)) (cos.f64 a)))))))
(/.f64 (.f64 r (sin.f64 b)) (+.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b)) (.f64 (cos.f64 a) (cos.f64 b))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))))) (/.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 a) (sin.f64 b)) (sin.f64 a)) (sin.f64 b)) (.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))) (fma.f64 (.f64 (.f64 (cos.f64 a) (cos.f64 b)) (cos.f64 a)) (cos.f64 b) (.f64 (.f64 (sin.f64 a) (neg.f64 (sin.f64 b))) (fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b))))))))

Outputs
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))

Calls

4 calls:

639.0ms	b
31.0ms	(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
20.0ms	r
18.0ms	a

Results

Accuracy	Segments	Branch
99.5%	1	`(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))`
99.5%	1	`r`
99.5%	1	`a`
99.5%	1	`b`

Compiler

Compiled 12 to 17 computations (-41.7% saved)

regimes69.0ms (0.4%)

Memory

20.0MiB live, 158.3MiB allocated; 11ms collecting garbage

Counts

61 → 1

Calls

Call 1

Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
(/.f64 (*.f64 r #s(approx (sin b) b)) #s(approx (cos (+ a b)) (cos.f64 a)))
(/.f64 (.f64 r #s(approx (sin b) b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
(*.f64 (/.f64 #s(approx (sin b) b) (cos.f64 (+.f64 a b))) r)
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 b))) r)
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 a)))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 b)))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
(*.f64 (/.f64 r (cos.f64 (+.f64 a b))) (sin.f64 b))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) #s(approx (+ (* (neg a) (sin b)) (cos b)) (*.f64 (neg.f64 a) (sin.f64 b)))))
(/.f64 (.f64 r #s(approx (sin b) b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) #s(approx (sin b) b) (cos.f64 b))))
(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (fma.f64 (sin.f64 a) (neg.f64 b) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (fma.f64 (sin.f64 a) (neg.f64 b) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(.f64 (.f64 r #s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (/.f64 b (*.f64 (cos.f64 a) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 #s(approx (sin b) b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 (+.f64 (neg.f64 b) (PI.f64)))) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(.f64 #s(approx (/ ( (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (*.f64 (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a)))) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (.f64 #s(approx (sin b) b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) #s(approx (+ (* (neg a) (sin b)) (cos b)) (*.f64 (-.f64 (/.f64 (cos.f64 b) a) (sin.f64 b)) a))))
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
(.f64 (.f64 r (/.f64 (sin.f64 b) #s(approx (* (cos (- a b)) (cos (+ a b))) (*.f64 (cos.f64 a) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 r (/.f64 (sin.f64 b) #s(approx (* (cos (- a b)) (cos (+ a b))) (*.f64 (cos.f64 b) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 (sin.f64 b) (/.f64 r #s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 a) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 (sin.f64 b) (/.f64 r #s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 b) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) #s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 a) (cos.f64 a)))) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) #s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 b) (cos.f64 b)))) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 #s(approx (sin b) b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (.f64 (neg.f64 #s(approx (sin b) b)) (sin.f64 a))))
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) #s(approx (cos (+ a b)) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) #s(approx (cos (+ a b)) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) #s(approx (cos (- b a)) (cos.f64 a)))
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) #s(approx (cos (- b a)) (cos.f64 b)))
(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) #s(approx (cos (+ a b)) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) #s(approx (cos (- b a)) (cos.f64 b)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) #s(approx (cos (- b a)) (cos.f64 a)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) #s(approx (cos (- b a)) (cos.f64 b)))
(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 (+.f64 (neg.f64 b) (PI.f64))) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 (sin.f64 b) r) (/.f64 (cos.f64 (-.f64 a b)) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))))
(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 (sin.f64 (+.f64 (neg.f64 b) (PI.f64))) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) (.f64 (/.f64 (.f64 (sin.f64 b) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (/.f64 r (cos.f64 (-.f64 a b)))))
(.f64 (.f64 (/.f64 (/.f64 r (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (sin.f64 b)) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a))) (.f64 r (cos.f64 (-.f64 b a))))
(/.f64 (.f64 r (sin.f64 b)) (-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 a) (sin.f64 b))))
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))))

Outputs
(/.f64 (.f64 r (sin.f64 b)) (-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 a) (sin.f64 b))))

Calls

4 calls:

18.0ms	r
17.0ms	b
16.0ms	(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
15.0ms	a

Results

Accuracy	Segments	Branch
99.4%	1	`(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))`
99.4%	1	`r`
99.4%	1	`a`
99.4%	1	`b`

Compiler

Compiled 12 to 17 computations (-41.7% saved)

regimes64.0ms (0.4%)

Memory

14.1MiB live, 110.8MiB allocated; 9ms collecting garbage

Counts

59 → 1

Calls

Call 1

Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
(/.f64 (*.f64 r #s(approx (sin b) b)) #s(approx (cos (+ a b)) (cos.f64 a)))
(/.f64 (.f64 r #s(approx (sin b) b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
(*.f64 (/.f64 #s(approx (sin b) b) (cos.f64 (+.f64 a b))) r)
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 b))) r)
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 a)))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 b)))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
(*.f64 (/.f64 r (cos.f64 (+.f64 a b))) (sin.f64 b))
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) #s(approx (+ (* (neg a) (sin b)) (cos b)) (*.f64 (neg.f64 a) (sin.f64 b)))))
(/.f64 (.f64 r #s(approx (sin b) b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) #s(approx (sin b) b) (cos.f64 b))))
(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (fma.f64 (sin.f64 a) (neg.f64 b) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (fma.f64 (sin.f64 a) (neg.f64 b) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(.f64 (.f64 r #s(approx (/ (sin b) (* (cos (- a b)) (cos (+ a b)))) (/.f64 b (*.f64 (cos.f64 a) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 #s(approx (sin b) b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 (+.f64 (neg.f64 b) (PI.f64)))) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(.f64 #s(approx (/ ( (sin b) r) (* (cos (- b a)) (cos (+ a b)))) (*.f64 (/.f64 b (cos.f64 a)) (/.f64 r (cos.f64 a)))) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (.f64 #s(approx (sin b) b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (- ( (cos b) (cos a)) (* (sin a) (sin b))) #s(approx (+ (* (neg a) (sin b)) (cos b)) (*.f64 (-.f64 (/.f64 (cos.f64 b) a) (sin.f64 b)) a))))
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) #s(approx ( (cos b) (cos a)) (cos.f64 b))))
(.f64 (.f64 r (/.f64 (sin.f64 b) #s(approx (* (cos (- a b)) (cos (+ a b))) (*.f64 (cos.f64 a) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 r (/.f64 (sin.f64 b) #s(approx (* (cos (- a b)) (cos (+ a b))) (*.f64 (cos.f64 b) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 (sin.f64 b) (/.f64 r #s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 a) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 (sin.f64 b) (/.f64 r #s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 b) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) #s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 a) (cos.f64 a)))) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) #s(approx (* (cos (- b a)) (cos (+ a b))) (*.f64 (cos.f64 b) (cos.f64 b)))) (cos.f64 (-.f64 b a)))
(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 #s(approx (sin b) b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (.f64 (neg.f64 #s(approx (sin b) b)) (sin.f64 a))))
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) #s(approx (cos (+ a b)) (cos.f64 a))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) #s(approx (cos (+ a b)) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) #s(approx (cos (- b a)) (cos.f64 a)))
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) #s(approx (cos (- b a)) (cos.f64 b)))
(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) #s(approx (cos (+ a b)) (cos.f64 b))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) #s(approx (cos (- b a)) (cos.f64 b)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) #s(approx (cos (- b a)) (cos.f64 a)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) #s(approx (cos (- b a)) (cos.f64 b)))
(/.f64 (.f64 r #s(approx (sin b) b)) (fma.f64 (sin.f64 (+.f64 (neg.f64 b) (PI.f64))) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(.f64 (.f64 r (/.f64 (sin.f64 b) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 (sin.f64 b) r) (/.f64 (cos.f64 (-.f64 a b)) (*.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b)))))
(.f64 (.f64 (sin.f64 b) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (.f64 (sin.f64 b) r) (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) (cos.f64 (-.f64 b a)))
(.f64 (.f64 (sin.f64 (+.f64 (neg.f64 b) (PI.f64))) (/.f64 r (*.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b))))) (cos.f64 (-.f64 b a)))
#s(approx (* (* r (/ (sin b) (* (cos (- a b)) (cos (+ a b))))) (cos (- b a))) (.f64 (/.f64 (.f64 (sin.f64 b) (cos.f64 (-.f64 b a))) (cos.f64 (+.f64 a b))) (/.f64 r (cos.f64 (-.f64 a b)))))
(.f64 (.f64 (/.f64 (/.f64 r (cos.f64 (-.f64 a b))) (cos.f64 (+.f64 a b))) (sin.f64 b)) (cos.f64 (-.f64 b a)))
(.f64 (/.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) (cos.f64 (-.f64 b a))) (.f64 r (cos.f64 (-.f64 b a))))

Outputs
(*.f64 (/.f64 r (cos.f64 (+.f64 a b))) (sin.f64 b))

Calls

4 calls:

17.0ms	b
16.0ms	r
14.0ms	a
14.0ms	(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))

Results

Accuracy	Segments	Branch
71.9%	1	`(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))`
71.9%	1	`r`
71.9%	1	`a`
71.9%	1	`b`

Compiler

Compiled 12 to 17 computations (-41.7% saved)

regimes33.0ms (0.2%)

Memory

-20.9MiB live, 25.8MiB allocated; 1ms collecting garbage

Counts

12 → 3

Calls

Call 1

Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
(/.f64 (*.f64 r #s(approx (sin b) b)) #s(approx (cos (+ a b)) (cos.f64 a)))
(/.f64 (.f64 r #s(approx (sin b) b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
(*.f64 (/.f64 #s(approx (sin b) b) (cos.f64 (+.f64 a b))) r)
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 b))) r)
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 a)))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 b)))
(/.f64 (.f64 r (sin.f64 b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))

Outputs

(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 b)))

#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))

(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 b)))

Calls

4 calls:

21.0ms	a
4.0ms	r
4.0ms	(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
4.0ms	b

Results

Accuracy	Segments	Branch
59.1%	3	`(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))`
71.5%	3	`a`
72.1%	3	`b`
56.8%	2	`r`

Compiler

Compiled 12 to 17 computations (-41.7% saved)

regimes4.0ms (0%)

Memory

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

Counts

10 → 3

Calls

Call 1

Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
(/.f64 (*.f64 r #s(approx (sin b) b)) #s(approx (cos (+ a b)) (cos.f64 a)))
(/.f64 (.f64 r #s(approx (sin b) b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
(*.f64 (/.f64 #s(approx (sin b) b) (cos.f64 (+.f64 a b))) r)
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 b))) r)
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 a)))

Outputs

(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 b))) r)

#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))

#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))

Calls

1 calls:

3.0ms

Results

Accuracy	Segments	Branch
72.1%	3	`b`

Compiler

Compiled 1 to 3 computations (-200% saved)

regimes3.0ms (0%)

Memory

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

Counts

8 → 3

Calls

Call 1

Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
(/.f64 (*.f64 r #s(approx (sin b) b)) #s(approx (cos (+ a b)) (cos.f64 a)))
(/.f64 (.f64 r #s(approx (sin b) b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
(*.f64 (/.f64 #s(approx (sin b) b) (cos.f64 (+.f64 a b))) r)
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))

Outputs

#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))

#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))

#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))

Calls

1 calls:

3.0ms

Results

Accuracy	Segments	Branch
72.1%	3	`b`

Compiler

Compiled 1 to 3 computations (-200% saved)

regimes11.0ms (0.1%)

Memory

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

Counts

7 → 1

Calls

Call 1

Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
(/.f64 (*.f64 r #s(approx (sin b) b)) #s(approx (cos (+ a b)) (cos.f64 a)))
(/.f64 (.f64 r #s(approx (sin b) b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))
(*.f64 (/.f64 #s(approx (sin b) b) (cos.f64 (+.f64 a b))) r)
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))

Outputs
(*.f64 (/.f64 #s(approx (sin b) b) (cos.f64 (+.f64 a b))) r)

Calls

4 calls:

2.0ms	b
2.0ms	r
2.0ms	(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
2.0ms	a

Results

Accuracy	Segments	Branch
49.0%	1	`r`
49.0%	1	`(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))`
49.0%	1	`a`
49.0%	1	`b`

Compiler

Compiled 12 to 17 computations (-41.7% saved)

regimes322.0ms (2.1%)

Memory

-29.6MiB live, 17.2MiB allocated; 2ms collecting garbage

Counts

5 → 1

Calls

Call 1

Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
(*.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))) r)
(/.f64 (*.f64 r #s(approx (sin b) b)) #s(approx (cos (+ a b)) (cos.f64 a)))
(/.f64 (.f64 r #s(approx (sin b) b)) #s(approx (+ ( (sin b) (neg (sin a))) (* (cos b) (cos a))) (cos.f64 b)))

Outputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))

Calls

4 calls:

315.0ms	r
2.0ms	(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
2.0ms	a
2.0ms	b

Results

Accuracy	Segments	Branch
48.9%	1	`(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))`
48.9%	1	`r`
48.9%	1	`a`
48.9%	1	`b`

Compiler

Compiled 12 to 17 computations (-41.7% saved)

regimes4.0ms (0%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))

Outputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))

Calls

4 calls:

1.0ms	(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
1.0ms	r
1.0ms	b
1.0ms	a

Results

Accuracy	Segments	Branch
31.0%	1	`(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))`
31.0%	1	`a`
31.0%	1	`b`
31.0%	1	`r`

Compiler

Compiled 12 to 17 computations (-41.7% saved)

bsearch49.0ms (0.3%)

Memory

-20.9MiB live, 73.7MiB allocated; 9ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
18.0ms	4.6232048386727355e-11	5.726708598876419e-8
25.0ms	-7.728569049447597e-7	-8.122274593321771e-16

Samples

25.0ms	146×	1	valid
8.0ms	126×	0	valid

Compiler

Compiled 488 to 422 computations (13.5% saved)

Precisions

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

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

adjust: 4.0ms (19.5% of total)

ival-sin: 3.0ms (14.6% of total)

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

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

ival-mult: 2.0ms (9.8% of total)

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

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

bsearch2.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	4.6232048386727355e-11	5.726708598876419e-8
1.0ms	-7.728569049447597e-7	-8.122274593321771e-16

Compiler

Compiled 555 to 464 computations (16.4% saved)

bsearch2.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	4.6232048386727355e-11	5.726708598876419e-8
1.0ms	-7.728569049447597e-7	-8.122274593321771e-16

Compiler

Compiled 573 to 473 computations (17.5% saved)

simplify59.0ms (0.4%)

Memory

2.6MiB live, 49.5MiB allocated; 2ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	59	233
1	99	233
2	128	233
3	157	233
4	172	233
5	208	233
6	548	233
7	3705	233

Stop Event

1×	node limit

Calls

Call 1

Inputs
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) (-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 a) (sin.f64 b))))
(*.f64 (/.f64 r (cos.f64 (+.f64 a b))) (sin.f64 b))
(if (<=.f64 b #s(literal -1770887431076117/2361183241434822606848 binary64)) (/.f64 (.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 b))) (if (<=.f64 b #s(literal 8613596464754233/151115727451828646838272 binary64)) #s(approx (/ ( r (sin b)) (cos (+ a b))) (.f64 (/.f64 r (cos.f64 a)) b)) (/.f64 (.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 b)))))
(if (<=.f64 b #s(literal -1770887431076117/2361183241434822606848 binary64)) (.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 b))) r) (if (<=.f64 b #s(literal 8613596464754233/151115727451828646838272 binary64)) #s(approx (/ ( r (sin b)) (cos (+ a b))) (.f64 (/.f64 r (cos.f64 a)) b)) #s(approx (/ ( r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))))
(if (<=.f64 b #s(literal -1770887431076117/2361183241434822606848 binary64)) #s(approx (/ (* r (sin b)) (cos (+ a b))) (.f64 (/.f64 r (cos.f64 b)) (sin.f64 b))) (if (<=.f64 b #s(literal 8613596464754233/151115727451828646838272 binary64)) #s(approx (/ ( r (sin b)) (cos (+ a b))) (.f64 (/.f64 r (cos.f64 a)) b)) #s(approx (/ ( r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))))
(*.f64 (/.f64 #s(approx (sin b) b) (cos.f64 (+.f64 a b))) r)
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))

Outputs
(/.f64 (.f64 r (sin.f64 b)) (fma.f64 (sin.f64 b) (neg.f64 (sin.f64 a)) (.f64 (cos.f64 b) (cos.f64 a))))
(/.f64 (.f64 r (sin.f64 b)) (-.f64 (.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 a) (sin.f64 b))))
(*.f64 (/.f64 r (cos.f64 (+.f64 a b))) (sin.f64 b))
(if (<=.f64 b #s(literal -1770887431076117/2361183241434822606848 binary64)) (/.f64 (.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 b))) (if (<=.f64 b #s(literal 8613596464754233/151115727451828646838272 binary64)) #s(approx (/ ( r (sin b)) (cos (+ a b))) (.f64 (/.f64 r (cos.f64 a)) b)) (/.f64 (.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 b)))))
(if (or (<=.f64 b #s(literal -1770887431076117/2361183241434822606848 binary64)) (not (<=.f64 b #s(literal 8613596464754233/151115727451828646838272 binary64)))) (/.f64 (.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (cos.f64 b))) #s(approx (/ ( r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b)))
(if (<=.f64 b #s(literal -1770887431076117/2361183241434822606848 binary64)) (.f64 #s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 b))) r) (if (<=.f64 b #s(literal 8613596464754233/151115727451828646838272 binary64)) #s(approx (/ ( r (sin b)) (cos (+ a b))) (.f64 (/.f64 r (cos.f64 a)) b)) #s(approx (/ ( r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))))
(if (<=.f64 b #s(literal -1770887431076117/2361183241434822606848 binary64)) #s(approx (/ (* r (sin b)) (cos (+ a b))) (.f64 (/.f64 r (cos.f64 b)) (sin.f64 b))) (if (<=.f64 b #s(literal 8613596464754233/151115727451828646838272 binary64)) #s(approx (/ ( r (sin b)) (cos (+ a b))) (.f64 (/.f64 r (cos.f64 a)) b)) #s(approx (/ ( r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 b)) (sin.f64 b)))))
(if (or (<=.f64 b #s(literal -1770887431076117/2361183241434822606848 binary64)) (not (<=.f64 b #s(literal 8613596464754233/151115727451828646838272 binary64)))) #s(approx (/ (* r (sin b)) (cos (+ a b))) (.f64 (/.f64 r (cos.f64 b)) (sin.f64 b))) #s(approx (/ ( r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b)))
(*.f64 (/.f64 #s(approx (sin b) b) (cos.f64 (+.f64 a b))) r)
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (/.f64 r (cos.f64 a)) b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 #s(approx (/ r (cos a)) r) b))

derivations992.0ms (6.5%)

Memory

37.9MiB live, 274.7MiB allocated; 17ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 221 to 54 computations (75.6% saved)

preprocess107.0ms (0.7%)

Memory: -21.0MiB live, 38.2MiB allocated; 8ms collecting garbage
Remove: (negabs r)
Compiler: Compiled 492 to 148 computations (69.9% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze279.0ms (1.8%)

sample1.7s (10.9%)

explain225.0ms (1.5%)

preprocess48.0ms (0.3%)

eval0.0ms (0%)

prune0.0ms (0%)

simplify28.0ms (0.2%)

localize44.0ms (0.3%)

series302.0ms (2%)

simplify963.0ms (6.3%)

rewrite227.0ms (1.5%)

eval7.0ms (0%)

prune13.0ms (0.1%)

simplify108.0ms (0.7%)

localize191.0ms (1.2%)

series64.0ms (0.4%)

simplify764.0ms (5%)

rewrite1.4s (9.2%)

eval624.0ms (4.1%)

prune41.0ms (0.3%)

simplify59.0ms (0.4%)

localize244.0ms (1.6%)

series72.0ms (0.5%)

simplify951.0ms (6.2%)

rewrite756.0ms (4.9%)

eval956.0ms (6.2%)

prune42.0ms (0.3%)

simplify61.0ms (0.4%)

localize888.0ms (5.8%)

series52.0ms (0.3%)

simplify520.0ms (3.4%)

rewrite1.2s (7.8%)

eval46.0ms (0.3%)

prune76.0ms (0.5%)

regimes713.0ms (4.6%)

regimes69.0ms (0.4%)

regimes64.0ms (0.4%)

regimes33.0ms (0.2%)

regimes4.0ms (0%)

regimes3.0ms (0%)

regimes11.0ms (0.1%)

regimes322.0ms (2.1%)

regimes4.0ms (0%)

bsearch49.0ms (0.3%)

bsearch2.0ms (0%)

bsearch2.0ms (0%)

simplify59.0ms (0.4%)

derivations992.0ms (6.5%)

preprocess107.0ms (0.7%)

end0.0ms (0%)

Profiling