rsin A (should all be same)

Time bar (total: 4.4s)

start0.0ms (0%)

Memory
0.2MiB live, 0.2MiB allocated; 0ms collecting garbage

analyze254.0ms (5.8%)

Memory
37.1MiB live, 418.5MiB allocated; 39ms collecting garbage
Algorithm
1×search
Search
ProbabilityValidUnknownPreconditionInfiniteDomainCan'tIter
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.5s (34.3%)

Memory
34.5MiB live, 2 155.2MiB allocated; 303ms collecting garbage
Samples
1.1s5 993×1valid
151.0ms2 263×0valid
Precisions
Click to see histograms. Total time spent on operations: 943.0ms
ival-cos: 396.0ms (42% of total)
ival-sin: 233.0ms (24.7% of total)
adjust: 147.0ms (15.6% of total)
ival-div!: 65.0ms (6.9% of total)
ival-mult!: 60.0ms (6.4% of total)
ival-add!: 42.0ms (4.5% of total)
Bogosity

preprocess44.0ms (1%)

Memory
-39.5MiB live, 60.1MiB allocated; 6ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03897
110397
225197
357397
4101397
5204597
6433797
Stop Event
1×node-limit
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶76.1%
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
Symmetry

(negabs r)

Compiler

Compiled 16 to 16 computations (0% saved)

series16.0ms (0.4%)

Memory
29.5MiB live, 29.5MiB allocated; 0ms collecting garbage
Counts
8 → 34
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
#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 (+ a b) #s(hole binary64 b))
#s(approx (+ a b) #s(hole binary64 a))
#s(approx (+ a b) #s(hole binary64 (* a (+ 1 (/ 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 (+ a b) #s(hole binary64 (* -1 (* a (- (* -1 (/ b a)) 1)))))
#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 (+ a b) #s(hole binary64 (* b (+ 1 (/ a 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 (+ a b) #s(hole binary64 (* -1 (* b (- (* -1 (/ a b)) 1)))))
Calls

9 calls:

TimeVariablePointExpression
2.0ms
b
@-inf
((/ (* r (sin b)) (cos (+ a b))) (* r (sin b)) r (sin b) b (cos (+ a b)) (+ a b) a)
2.0ms
r
@inf
((/ (* r (sin b)) (cos (+ a b))) (* r (sin b)) r (sin b) b (cos (+ a b)) (+ a b) a)
2.0ms
a
@0
((/ (* r (sin b)) (cos (+ a b))) (* r (sin b)) r (sin b) b (cos (+ a b)) (+ a b) a)
2.0ms
r
@0
((/ (* r (sin b)) (cos (+ a b))) (* r (sin b)) r (sin b) b (cos (+ a b)) (+ a b) a)
2.0ms
r
@-inf
((/ (* r (sin b)) (cos (+ a b))) (* r (sin b)) r (sin b) b (cos (+ a b)) (+ a b) a)

rewrite167.0ms (3.8%)

Memory
-5.4MiB live, 273.8MiB allocated; 17ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0220879
0227843
11317787
08041753
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
42 → 69
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
#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 (+ a b) #s(hole binary64 b))
#s(approx (+ a b) #s(hole binary64 a))
#s(approx (+ a b) #s(hole binary64 (* a (+ 1 (/ 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 (+ a b) #s(hole binary64 (* -1 (* a (- (* -1 (/ b a)) 1)))))
#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 (+ a b) #s(hole binary64 (* b (+ 1 (/ a 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 (+ a b) #s(hole binary64 (* -1 (* b (- (* -1 (/ a b)) 1)))))
Outputs
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (sin.f64 b) r))) (neg.f64 (neg.f64 (cos.f64 (+.f64 a b)))))
(/.f64 (neg.f64 (*.f64 (sin.f64 b) r)) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
(*.f64 (sin.f64 b) r)
(*.f64 r (sin.f64 b))
r
(*.f64 (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)))
(pow.f64 (sin.f64 b) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))
(sin.f64 b)
(exp.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 1 binary64)))
b
(/.f64 (-.f64 (*.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) (sin.f64 b)))) (fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (sin.f64 a) (sin.f64 b))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)) (fma.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))))
(sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (+.f64 a b) (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 (+.f64 a b)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (+.f64 a b)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a)))
(-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b)))
(cos.f64 (neg.f64 (neg.f64 (+.f64 a b))))
(cos.f64 (neg.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(+.f64 (*.f64 (sin.f64 (+.f64 a b)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (+.f64 a b)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 b b) b (*.f64 (*.f64 a a) a)) (fma.f64 b b (-.f64 (*.f64 a a) (*.f64 b a))))
(/.f64 (neg.f64 (-.f64 (*.f64 a a) (*.f64 b b))) (neg.f64 (-.f64 a b)))
(/.f64 (neg.f64 (fma.f64 (*.f64 a a) a (*.f64 (*.f64 b b) b))) (neg.f64 (fma.f64 a a (-.f64 (*.f64 b b) (*.f64 a b)))))
(/.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 b a))
(/.f64 (-.f64 (*.f64 a a) (*.f64 b b)) (-.f64 a b))
(/.f64 (fma.f64 (*.f64 a a) a (*.f64 (*.f64 b b) b)) (fma.f64 a a (-.f64 (*.f64 b b) (*.f64 a b))))
(-.f64 (/.f64 (*.f64 a a) (-.f64 a b)) (/.f64 (*.f64 b b) (-.f64 a b)))
(+.f64 (/.f64 (*.f64 (*.f64 a a) a) (fma.f64 a a (-.f64 (*.f64 b b) (*.f64 a b)))) (/.f64 (*.f64 (*.f64 b b) b) (fma.f64 a a (-.f64 (*.f64 b b) (*.f64 a b)))))
(+.f64 a b)
(+.f64 b a)
a
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (tan.f64 b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (fma.f64 a (*.f64 r (*.f64 (tan.f64 b) (tan.f64 b))) (*.f64 r (tan.f64 b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (fma.f64 (-.f64 (*.f64 (neg.f64 a) (fma.f64 #s(literal -1/2 binary64) (*.f64 r (tan.f64 b)) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64)))))) (neg.f64 (*.f64 r (*.f64 (tan.f64 b) (tan.f64 b))))) a (*.f64 r (tan.f64 b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (fma.f64 (-.f64 (*.f64 (-.f64 (neg.f64 (*.f64 (+.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (*.f64 #s(literal 1/6 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) (*.f64 (sin.f64 b) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 r (tan.f64 b)) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64))))) (cos.f64 b)))) a)) (fma.f64 #s(literal -1/2 binary64) (*.f64 r (tan.f64 b)) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64)))))) a) (neg.f64 (*.f64 r (*.f64 (tan.f64 b) (tan.f64 b))))) a (*.f64 r (tan.f64 b))))
#s(approx (cos (+ a b)) (cos.f64 b))
#s(approx (cos (+ a b)) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (cos (+ a b)) (fma.f64 a (-.f64 (*.f64 (*.f64 (cos.f64 b) a) #s(literal -1/2 binary64)) (sin.f64 b)) (cos.f64 b)))
#s(approx (cos (+ a b)) (fma.f64 a (-.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 b) a) #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 b))) a) (sin.f64 b)) (cos.f64 b)))
#s(approx (+ a b) b)
#s(approx (+ a b) a)
#s(approx (+ a b) (*.f64 (+.f64 (/.f64 b a) #s(literal 1 binary64)) a))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (-.f64 b (neg.f64 a)))))
#s(approx (cos (+ a b)) (cos.f64 (-.f64 b (neg.f64 a))))
#s(approx (+ a b) (*.f64 (neg.f64 a) (-.f64 (/.f64 (neg.f64 b) a) #s(literal 1 binary64))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (fma.f64 b (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (fma.f64 (-.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (neg.f64 b) (fma.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) #s(literal -1/3 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) (sin.f64 a)) (cos.f64 a)))) (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64))))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (* r (sin b)) (*.f64 b r))
#s(approx (* r (sin b)) (*.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/6 binary64) r) b))
#s(approx (* r (sin b)) (*.f64 (fma.f64 (fma.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal -1/6 binary64) r)) (*.f64 b b) r) b))
#s(approx (* r (sin b)) (*.f64 (fma.f64 (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/5040 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 1/120 binary64) r)) (*.f64 #s(literal -1/6 binary64) r)) (*.f64 b b) r) b))
#s(approx (sin b) b)
#s(approx (sin b) (*.f64 (fma.f64 (*.f64 b b) #s(literal -1/6 binary64) #s(literal 1 binary64)) b))
#s(approx (sin b) (*.f64 (fma.f64 (-.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 b b)) #s(literal 1/6 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (sin b) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 b b) #s(literal 1/120 binary64)) (*.f64 b b)) #s(literal 1/6 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (cos (+ a b)) (cos.f64 a))
#s(approx (cos (+ a b)) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
#s(approx (cos (+ a b)) (fma.f64 b (-.f64 (*.f64 (*.f64 (cos.f64 a) b) #s(literal -1/2 binary64)) (sin.f64 a)) (cos.f64 a)))
#s(approx (cos (+ a b)) (fma.f64 b (-.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 a) b) #s(literal 1/6 binary64) (*.f64 (cos.f64 a) #s(literal -1/2 binary64))) b) (sin.f64 a)) (cos.f64 a)))
#s(approx (+ a b) (*.f64 (+.f64 (/.f64 a b) #s(literal 1 binary64)) b))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (-.f64 a (neg.f64 b)))))
#s(approx (cos (+ a b)) (cos.f64 (-.f64 a (neg.f64 b))))
#s(approx (+ a b) (*.f64 (neg.f64 b) (-.f64 (/.f64 (neg.f64 a) b) #s(literal 1 binary64))))

eval8.0ms (0.2%)

Memory
21.3MiB live, 21.3MiB allocated; 0ms collecting garbage
Compiler

Compiled 730 to 345 computations (52.7% saved)

prune21.0ms (0.5%)

Memory
-8.3MiB live, 41.8MiB allocated; 8ms collecting garbage
Pruning

21 alts after pruning (21 fresh and 0 done)

PrunedKeptTotal
New412162
Fresh000
Picked101
Done000
Total422163
Accuracy
99.7%
Counts
63 → 21
Alt Table
Click to see full alt table
StatusAccuracyProgram
76.1%
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
76.0%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (cos.f64 (+.f64 a b)))
▶38.2%
(/.f64 (*.f64 r (*.f64 (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 a b)))
75.9%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 (+.f64 a b)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (+.f64 a b)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
99.3%
(/.f64 (*.f64 r (sin.f64 b)) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)) (fma.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (sin.f64 a) (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 (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) (sin.f64 b)))) (fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (sin.f64 a) (sin.f64 b)))))
▶99.4%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
39.5%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (+.f64 a b) (/.f64 (PI.f64) #s(literal 2 binary64)))))
▶39.9%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
64.4%
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) (*.f64 (+.f64 (/.f64 a b) #s(literal 1 binary64)) b))))
▶62.9%
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) b)))
50.4%
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) a)))
47.7%
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
60.6%
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
59.5%
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (fma.f64 a (-.f64 (*.f64 (*.f64 (cos.f64 b) a) #s(literal -1/2 binary64)) (sin.f64 b)) (cos.f64 b))))
36.9%
(/.f64 (*.f64 r (exp.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 1 binary64)))) (cos.f64 (+.f64 a b)))
46.0%
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
45.6%
(/.f64 #s(approx (* r (sin b)) (*.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/6 binary64) r) b)) (cos.f64 (+.f64 a b)))
76.1%
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
▶63.0%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (tan.f64 b)))
46.0%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 b (/.f64 r (cos.f64 a))))
Compiler

Compiled 592 to 512 computations (13.5% saved)

series61.0ms (1.4%)

Memory
-0.9MiB live, 87.3MiB allocated; 17ms collecting garbage
Counts
32 → 158
Calls
Call 1
Inputs
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
(-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a)))
(*.f64 (cos.f64 b) (cos.f64 a))
(cos.f64 b)
(cos.f64 a)
a
(*.f64 (sin.f64 b) (sin.f64 a))
(sin.f64 a)
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (tan.f64 b)))
(*.f64 r (tan.f64 b))
(tan.f64 b)
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) b)))
(cos.f64 #s(approx (+ a b) b))
#s(approx (+ a b) b)
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 (+.f64 a b))
(+.f64 a b)
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
#s(literal 2 binary64)
(/.f64 (*.f64 r (*.f64 (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 a b)))
(*.f64 r (*.f64 (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 b) #s(literal 1/2 binary64))))
(*.f64 (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)))
(pow.f64 (sin.f64 b) #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(cos.f64 (+.f64 a b))
Outputs
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #s(hole binary64 (/ (* r (sin b)) (- (* (cos a) (cos b)) (* (sin a) (sin b))))))
#s(approx (* r (tan b)) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) (+ a b))))))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) #s(hole binary64 (* r (sin b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (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)) (* (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)) (* (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)) (* (sin b) (sin a))) #s(hole binary64 (cos b)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (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) #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 (* (sin b) (sin a)) #s(hole binary64 (* a (sin b))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* a (+ (sin b) (* -1/6 (* (pow a 2) (sin b)))))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* a (+ (sin b) (* (pow a 2) (+ (* -1/6 (sin b)) (* 1/120 (* (pow a 2) (sin b)))))))))
#s(approx (* (sin b) (sin a)) #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 (sin a) #s(hole binary64 a))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* -1/6 (pow a 2))))))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* 1/120 (pow a 2)) 1/6))))))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6))))))
#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 (+ a b) #s(hole binary64 b))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (/ (* a (* r (* (cos (- (* 1/2 (PI)) b)) (sin b)))) (pow (sin (- (* 1/2 (PI)) b)) 2)) (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (pow (cos (- (* 1/2 (PI)) b)) 2) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))) (* -1 (/ (* r (* (cos (- (* 1/2 (PI)) b)) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 2))))) (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (* (cos (- (* 1/2 (PI)) b)) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 2))) (+ (* 1/6 (/ (* r (* (cos (- (* 1/2 (PI)) b)) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 2))) (/ (* (cos (- (* 1/2 (PI)) b)) (+ (* -1 (/ (* r (* (pow (cos (- (* 1/2 (PI)) b)) 2) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b)))))) (sin (- (* 1/2 (PI)) b))))))) (+ (* -1 (/ (* r (* (pow (cos (- (* 1/2 (PI)) b)) 2) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))) (* -1 (/ (* r (* (cos (- (* 1/2 (PI)) b)) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 2))))) (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) b))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) b)) (* -1 (* a (cos (- (* 1/2 (PI)) b)))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) b)) (* a (+ (* -1 (cos (- (* 1/2 (PI)) b))) (* -1/2 (* a (sin (- (* 1/2 (PI)) b)))))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) b)) (* a (+ (* -1 (cos (- (* 1/2 (PI)) b))) (* a (+ (* -1/2 (sin (- (* 1/2 (PI)) b))) (* 1/6 (* a (cos (- (* 1/2 (PI)) b)))))))))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) b)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (- (+ (* -1 a) (* 1/2 (PI))) b)))
#s(approx (neg (+ a b)) #s(hole binary64 (* -1 b)))
#s(approx (neg (+ a b)) #s(hole binary64 (- (* -1 a) b)))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (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 (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (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 b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (- (* (cos a) (cos b)) (* (sin a) (sin b)))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (* (cos a) (cos b))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* (sin a) (sin b))))
#s(approx (+ a b) #s(hole binary64 a))
#s(approx (+ a b) #s(hole binary64 (* a (+ 1 (/ b a)))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ a b)))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* -1 a)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* a (- (* 1/2 (/ (PI) a)) (+ 1 (/ b a))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* -1 a)))
#s(approx (neg (+ a b)) #s(hole binary64 (* a (- (* -1 (/ b a)) 1))))
#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 (+ a b) #s(hole binary64 (* -1 (* a (- (* -1 (/ b a)) 1)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* r (sin b)) (sin (- (+ (* -1 a) (* 1/2 (PI))) b)))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ (* -1 a) (* 1/2 (PI))) b))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* -1 (* a (+ 1 (* -1 (/ (- (* 1/2 (PI)) b) a)))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* -1 (* a (+ 1 (/ b a))))))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (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)) (* (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)) (* (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)) (* (sin b) (sin a))) #s(hole binary64 (cos a)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#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) #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 (* (sin b) (sin a)) #s(hole binary64 (* b (sin a))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* b (+ (sin a) (* -1/6 (* (pow b 2) (sin a)))))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* b (+ (sin a) (* (pow b 2) (+ (* -1/6 (sin a)) (* 1/120 (* (pow b 2) (sin a)))))))))
#s(approx (* (sin b) (sin a)) #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 (/ (* 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 (tan b)) #s(hole binary64 (* b r)))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* 1/3 (* (pow b 2) r))))))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* 2/15 (* (pow b 2) r)) (* 1/3 r)))))))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* 1/3 r) (* (pow b 2) (+ (* 17/315 (* (pow b 2) r)) (* 2/15 r)))))))))
#s(approx (tan b) #s(hole binary64 b))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* 1/3 (pow b 2))))))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (+ 1/3 (* 2/15 (pow b 2))))))))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (+ 1/3 (* (pow b 2) (+ 2/15 (* 17/315 (pow b 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 (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* b r) (sin (- (* 1/2 (PI)) a)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (/ r (sin (- (* 1/2 (PI)) a))) (/ (* b (* r (cos (- (* 1/2 (PI)) a)))) (pow (sin (- (* 1/2 (PI)) a)) 2))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (sin (- (* 1/2 (PI)) a)))) (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a))))))) (* -1 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))))) (/ r (sin (- (* 1/2 (PI)) a)))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (cos (- (* 1/2 (PI)) a)) (- (* -1/6 (/ r (sin (- (* 1/2 (PI)) a)))) (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a))))))) (sin (- (* 1/2 (PI)) a)))) (+ (* -1/2 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))) (* 1/6 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))))))) (* -1/6 (/ r (sin (- (* 1/2 (PI)) a))))) (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a))))))) (* -1 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))))) (/ r (sin (- (* 1/2 (PI)) a)))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) a))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) a)) (* -1 (* b (cos (- (* 1/2 (PI)) a)))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) a)) (* b (+ (* -1 (cos (- (* 1/2 (PI)) a))) (* -1/2 (* b (sin (- (* 1/2 (PI)) a)))))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) a)) (* b (+ (* -1 (cos (- (* 1/2 (PI)) a))) (* b (+ (* -1/2 (sin (- (* 1/2 (PI)) a))) (* 1/6 (* b (cos (- (* 1/2 (PI)) a)))))))))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) a)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (- (+ (* -1 b) (* 1/2 (PI))) a)))
#s(approx (neg (+ a b)) #s(hole binary64 (- (* -1 b) a)))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (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 (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (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 (* (pow (sin b) 1/2) (pow (sin b) 1/2))) #s(hole binary64 (* b r)))
#s(approx (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) #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 (* (pow (sin b) 1/2) (pow (sin b) 1/2)) #s(hole binary64 b))
#s(approx (* (pow (sin b) 1/2) (pow (sin b) 1/2)) #s(hole binary64 (* b (+ 1 (* -1/6 (pow b 2))))))
#s(approx (* (pow (sin b) 1/2) (pow (sin b) 1/2)) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* 1/120 (pow b 2)) 1/6))))))
#s(approx (* (pow (sin b) 1/2) (pow (sin b) 1/2)) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/120 (* -1/5040 (pow b 2)))) 1/6))))))
#s(approx (pow (sin b) 1/2) #s(hole binary64 (sqrt b)))
#s(approx (pow (sin b) 1/2) #s(hole binary64 (+ (sqrt b) (* -1/12 (sqrt (pow b 5))))))
#s(approx (pow (sin b) 1/2) #s(hole binary64 (+ (sqrt b) (* (pow b 3) (+ (* -1/12 (sqrt (/ 1 b))) (* 1/240 (sqrt (pow b 3))))))))
#s(approx (pow (sin b) 1/2) #s(hole binary64 (+ (sqrt b) (* (pow b 3) (+ (* -1/12 (sqrt (/ 1 b))) (* (pow b 2) (+ (* -1/288 (sqrt (/ 1 b))) (* 1/240 (sqrt (/ 1 b))))))))))
#s(approx (tan b) #s(hole binary64 (/ (sin b) (cos b))))
#s(approx (+ a b) #s(hole binary64 (* b (+ 1 (/ a b)))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* -1 b)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* b (- (* 1/2 (/ (PI) b)) (+ 1 (/ a b))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* b (- (* -1 (/ a b)) 1))))
#s(approx (* (pow (sin b) 1/2) (pow (sin b) 1/2)) #s(hole binary64 (sin b)))
#s(approx (pow (sin b) 1/2) #s(hole binary64 (sqrt (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 (+ a b) #s(hole binary64 (* -1 (* b (- (* -1 (/ a b)) 1)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* r (sin b)) (sin (- (+ (* -1 b) (* 1/2 (PI))) a)))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ (* -1 b) (* 1/2 (PI))) a))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* -1 (* b (+ 1 (* -1 (/ (- (* 1/2 (PI)) a) b)))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* -1 (* b (+ 1 (/ a b))))))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
Calls

9 calls:

TimeVariablePointExpression
18.0ms
r
@0
((/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (* r (sin b)) r (sin b) b (- (* (cos b) (cos a)) (* (sin b) (sin a))) (* (cos b) (cos a)) (cos b) (cos a) a (* (sin b) (sin a)) (sin a) (/ (* r (sin b)) (cos (+ a b))) (* r (tan b)) (tan b) (/ (* r (sin b)) (cos (+ a b))) (cos (+ a b)) (+ a b) (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (sin (+ (neg (+ a b)) (/ (PI) 2))) (+ (neg (+ a b)) (/ (PI) 2)) (neg (+ a b)) (+ a b) (/ (PI) 2) (PI) 2 (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (* (pow (sin b) 1/2) (pow (sin b) 1/2)) (pow (sin b) 1/2) 1/2 (cos (+ a b)))
7.0ms
a
@-inf
((/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (* r (sin b)) r (sin b) b (- (* (cos b) (cos a)) (* (sin b) (sin a))) (* (cos b) (cos a)) (cos b) (cos a) a (* (sin b) (sin a)) (sin a) (/ (* r (sin b)) (cos (+ a b))) (* r (tan b)) (tan b) (/ (* r (sin b)) (cos (+ a b))) (cos (+ a b)) (+ a b) (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (sin (+ (neg (+ a b)) (/ (PI) 2))) (+ (neg (+ a b)) (/ (PI) 2)) (neg (+ a b)) (+ a b) (/ (PI) 2) (PI) 2 (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (* (pow (sin b) 1/2) (pow (sin b) 1/2)) (pow (sin b) 1/2) 1/2 (cos (+ a b)))
6.0ms
a
@0
((/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (* r (sin b)) r (sin b) b (- (* (cos b) (cos a)) (* (sin b) (sin a))) (* (cos b) (cos a)) (cos b) (cos a) a (* (sin b) (sin a)) (sin a) (/ (* r (sin b)) (cos (+ a b))) (* r (tan b)) (tan b) (/ (* r (sin b)) (cos (+ a b))) (cos (+ a b)) (+ a b) (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (sin (+ (neg (+ a b)) (/ (PI) 2))) (+ (neg (+ a b)) (/ (PI) 2)) (neg (+ a b)) (+ a b) (/ (PI) 2) (PI) 2 (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (* (pow (sin b) 1/2) (pow (sin b) 1/2)) (pow (sin b) 1/2) 1/2 (cos (+ a b)))
5.0ms
r
@-inf
((/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (* r (sin b)) r (sin b) b (- (* (cos b) (cos a)) (* (sin b) (sin a))) (* (cos b) (cos a)) (cos b) (cos a) a (* (sin b) (sin a)) (sin a) (/ (* r (sin b)) (cos (+ a b))) (* r (tan b)) (tan b) (/ (* r (sin b)) (cos (+ a b))) (cos (+ a b)) (+ a b) (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (sin (+ (neg (+ a b)) (/ (PI) 2))) (+ (neg (+ a b)) (/ (PI) 2)) (neg (+ a b)) (+ a b) (/ (PI) 2) (PI) 2 (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (* (pow (sin b) 1/2) (pow (sin b) 1/2)) (pow (sin b) 1/2) 1/2 (cos (+ a b)))
5.0ms
b
@-inf
((/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (* r (sin b)) r (sin b) b (- (* (cos b) (cos a)) (* (sin b) (sin a))) (* (cos b) (cos a)) (cos b) (cos a) a (* (sin b) (sin a)) (sin a) (/ (* r (sin b)) (cos (+ a b))) (* r (tan b)) (tan b) (/ (* r (sin b)) (cos (+ a b))) (cos (+ a b)) (+ a b) (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (sin (+ (neg (+ a b)) (/ (PI) 2))) (+ (neg (+ a b)) (/ (PI) 2)) (neg (+ a b)) (+ a b) (/ (PI) 2) (PI) 2 (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (* (pow (sin b) 1/2) (pow (sin b) 1/2)) (pow (sin b) 1/2) 1/2 (cos (+ a b)))

rewrite196.0ms (4.5%)

Memory
0.9MiB live, 192.5MiB allocated; 35ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
07014806
07444132
140694080
082233909
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
190 → 379
Calls
Call 1
Inputs
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
(-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a)))
(*.f64 (cos.f64 b) (cos.f64 a))
(cos.f64 b)
(cos.f64 a)
a
(*.f64 (sin.f64 b) (sin.f64 a))
(sin.f64 a)
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (tan.f64 b)))
(*.f64 r (tan.f64 b))
(tan.f64 b)
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) b)))
(cos.f64 #s(approx (+ a b) b))
#s(approx (+ a b) b)
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 (+.f64 a b))
(+.f64 a b)
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
#s(literal 2 binary64)
(/.f64 (*.f64 r (*.f64 (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 a b)))
(*.f64 r (*.f64 (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 b) #s(literal 1/2 binary64))))
(*.f64 (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)))
(pow.f64 (sin.f64 b) #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(cos.f64 (+.f64 a b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #s(hole binary64 (/ (* r (sin b)) (- (* (cos a) (cos b)) (* (sin a) (sin b))))))
#s(approx (* r (tan b)) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) (+ a b))))))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) #s(hole binary64 (* r (sin b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (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)) (* (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)) (* (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)) (* (sin b) (sin a))) #s(hole binary64 (cos b)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (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) #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 (* (sin b) (sin a)) #s(hole binary64 (* a (sin b))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* a (+ (sin b) (* -1/6 (* (pow a 2) (sin b)))))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* a (+ (sin b) (* (pow a 2) (+ (* -1/6 (sin b)) (* 1/120 (* (pow a 2) (sin b)))))))))
#s(approx (* (sin b) (sin a)) #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 (sin a) #s(hole binary64 a))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* -1/6 (pow a 2))))))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* 1/120 (pow a 2)) 1/6))))))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6))))))
#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 (+ a b) #s(hole binary64 b))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (/ (* a (* r (* (cos (- (* 1/2 (PI)) b)) (sin b)))) (pow (sin (- (* 1/2 (PI)) b)) 2)) (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (pow (cos (- (* 1/2 (PI)) b)) 2) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))) (* -1 (/ (* r (* (cos (- (* 1/2 (PI)) b)) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 2))))) (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (* (cos (- (* 1/2 (PI)) b)) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 2))) (+ (* 1/6 (/ (* r (* (cos (- (* 1/2 (PI)) b)) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 2))) (/ (* (cos (- (* 1/2 (PI)) b)) (+ (* -1 (/ (* r (* (pow (cos (- (* 1/2 (PI)) b)) 2) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b)))))) (sin (- (* 1/2 (PI)) b))))))) (+ (* -1 (/ (* r (* (pow (cos (- (* 1/2 (PI)) b)) 2) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))) (* -1 (/ (* r (* (cos (- (* 1/2 (PI)) b)) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 2))))) (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) b))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) b)) (* -1 (* a (cos (- (* 1/2 (PI)) b)))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) b)) (* a (+ (* -1 (cos (- (* 1/2 (PI)) b))) (* -1/2 (* a (sin (- (* 1/2 (PI)) b)))))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) b)) (* a (+ (* -1 (cos (- (* 1/2 (PI)) b))) (* a (+ (* -1/2 (sin (- (* 1/2 (PI)) b))) (* 1/6 (* a (cos (- (* 1/2 (PI)) b)))))))))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) b)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (- (+ (* -1 a) (* 1/2 (PI))) b)))
#s(approx (neg (+ a b)) #s(hole binary64 (* -1 b)))
#s(approx (neg (+ a b)) #s(hole binary64 (- (* -1 a) b)))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (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 (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (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 b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (- (* (cos a) (cos b)) (* (sin a) (sin b)))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (* (cos a) (cos b))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* (sin a) (sin b))))
#s(approx (+ a b) #s(hole binary64 a))
#s(approx (+ a b) #s(hole binary64 (* a (+ 1 (/ b a)))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ a b)))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* -1 a)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* a (- (* 1/2 (/ (PI) a)) (+ 1 (/ b a))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* -1 a)))
#s(approx (neg (+ a b)) #s(hole binary64 (* a (- (* -1 (/ b a)) 1))))
#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 (+ a b) #s(hole binary64 (* -1 (* a (- (* -1 (/ b a)) 1)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* r (sin b)) (sin (- (+ (* -1 a) (* 1/2 (PI))) b)))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ (* -1 a) (* 1/2 (PI))) b))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* -1 (* a (+ 1 (* -1 (/ (- (* 1/2 (PI)) b) a)))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* -1 (* a (+ 1 (/ b a))))))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (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)) (* (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)) (* (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)) (* (sin b) (sin a))) #s(hole binary64 (cos a)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#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) #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 (* (sin b) (sin a)) #s(hole binary64 (* b (sin a))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* b (+ (sin a) (* -1/6 (* (pow b 2) (sin a)))))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* b (+ (sin a) (* (pow b 2) (+ (* -1/6 (sin a)) (* 1/120 (* (pow b 2) (sin a)))))))))
#s(approx (* (sin b) (sin a)) #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 (/ (* 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 (tan b)) #s(hole binary64 (* b r)))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* 1/3 (* (pow b 2) r))))))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* 2/15 (* (pow b 2) r)) (* 1/3 r)))))))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* 1/3 r) (* (pow b 2) (+ (* 17/315 (* (pow b 2) r)) (* 2/15 r)))))))))
#s(approx (tan b) #s(hole binary64 b))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* 1/3 (pow b 2))))))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (+ 1/3 (* 2/15 (pow b 2))))))))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (+ 1/3 (* (pow b 2) (+ 2/15 (* 17/315 (pow b 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 (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* b r) (sin (- (* 1/2 (PI)) a)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (/ r (sin (- (* 1/2 (PI)) a))) (/ (* b (* r (cos (- (* 1/2 (PI)) a)))) (pow (sin (- (* 1/2 (PI)) a)) 2))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (sin (- (* 1/2 (PI)) a)))) (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a))))))) (* -1 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))))) (/ r (sin (- (* 1/2 (PI)) a)))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (cos (- (* 1/2 (PI)) a)) (- (* -1/6 (/ r (sin (- (* 1/2 (PI)) a)))) (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a))))))) (sin (- (* 1/2 (PI)) a)))) (+ (* -1/2 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))) (* 1/6 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))))))) (* -1/6 (/ r (sin (- (* 1/2 (PI)) a))))) (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a))))))) (* -1 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))))) (/ r (sin (- (* 1/2 (PI)) a)))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) a))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) a)) (* -1 (* b (cos (- (* 1/2 (PI)) a)))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) a)) (* b (+ (* -1 (cos (- (* 1/2 (PI)) a))) (* -1/2 (* b (sin (- (* 1/2 (PI)) a)))))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) a)) (* b (+ (* -1 (cos (- (* 1/2 (PI)) a))) (* b (+ (* -1/2 (sin (- (* 1/2 (PI)) a))) (* 1/6 (* b (cos (- (* 1/2 (PI)) a)))))))))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) a)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (- (+ (* -1 b) (* 1/2 (PI))) a)))
#s(approx (neg (+ a b)) #s(hole binary64 (- (* -1 b) a)))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (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 (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (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 (* (pow (sin b) 1/2) (pow (sin b) 1/2))) #s(hole binary64 (* b r)))
#s(approx (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) #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 (* (pow (sin b) 1/2) (pow (sin b) 1/2)) #s(hole binary64 b))
#s(approx (* (pow (sin b) 1/2) (pow (sin b) 1/2)) #s(hole binary64 (* b (+ 1 (* -1/6 (pow b 2))))))
#s(approx (* (pow (sin b) 1/2) (pow (sin b) 1/2)) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* 1/120 (pow b 2)) 1/6))))))
#s(approx (* (pow (sin b) 1/2) (pow (sin b) 1/2)) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/120 (* -1/5040 (pow b 2)))) 1/6))))))
#s(approx (pow (sin b) 1/2) #s(hole binary64 (sqrt b)))
#s(approx (pow (sin b) 1/2) #s(hole binary64 (+ (sqrt b) (* -1/12 (sqrt (pow b 5))))))
#s(approx (pow (sin b) 1/2) #s(hole binary64 (+ (sqrt b) (* (pow b 3) (+ (* -1/12 (sqrt (/ 1 b))) (* 1/240 (sqrt (pow b 3))))))))
#s(approx (pow (sin b) 1/2) #s(hole binary64 (+ (sqrt b) (* (pow b 3) (+ (* -1/12 (sqrt (/ 1 b))) (* (pow b 2) (+ (* -1/288 (sqrt (/ 1 b))) (* 1/240 (sqrt (/ 1 b))))))))))
#s(approx (tan b) #s(hole binary64 (/ (sin b) (cos b))))
#s(approx (+ a b) #s(hole binary64 (* b (+ 1 (/ a b)))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* -1 b)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* b (- (* 1/2 (/ (PI) b)) (+ 1 (/ a b))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* b (- (* -1 (/ a b)) 1))))
#s(approx (* (pow (sin b) 1/2) (pow (sin b) 1/2)) #s(hole binary64 (sin b)))
#s(approx (pow (sin b) 1/2) #s(hole binary64 (sqrt (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 (+ a b) #s(hole binary64 (* -1 (* b (- (* -1 (/ a b)) 1)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* r (sin b)) (sin (- (+ (* -1 b) (* 1/2 (PI))) a)))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ (* -1 b) (* 1/2 (PI))) a))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* -1 (* b (+ 1 (* -1 (/ (- (* 1/2 (PI)) a) b)))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* -1 (* b (+ 1 (/ a b))))))
#s(approx (/ (* r (* (pow (sin b) 1/2) (pow (sin b) 1/2))) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
Outputs
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (neg.f64 (*.f64 (sin.f64 b) r)) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
(*.f64 (*.f64 r (sqrt.f64 (sin.f64 b))) (sqrt.f64 (sin.f64 b)))
(*.f64 (sin.f64 b) r)
(*.f64 r (sin.f64 b))
r
(*.f64 (neg.f64 (neg.f64 (sqrt.f64 (sin.f64 b)))) (neg.f64 (neg.f64 (sqrt.f64 (sin.f64 b)))))
(*.f64 (pow.f64 (sqrt.f64 (sin.f64 b)) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 b)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (sqrt.f64 (sin.f64 b)) #s(literal 1 binary64)) (sqrt.f64 (sin.f64 b)))
(*.f64 (neg.f64 (sqrt.f64 (sin.f64 b))) (neg.f64 (sqrt.f64 (sin.f64 b))))
(*.f64 (sqrt.f64 (sin.f64 b)) (sqrt.f64 (sin.f64 b)))
(pow.f64 (neg.f64 (sqrt.f64 (sin.f64 b))) #s(literal 2 binary64))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (sin.f64 b)) #s(literal 2 binary64))
(pow.f64 (sin.f64 b) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))
(sin.f64 b)
(sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))
(fabs.f64 (sin.f64 b))
(exp.f64 (fma.f64 (log.f64 (sin.f64 b)) #s(literal 1/2 binary64) (*.f64 (log.f64 (sin.f64 b)) #s(literal 1/2 binary64))))
(exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 1/2 binary64)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 (sin.f64 b))) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 1 binary64)))
b
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64))) (cos.f64 (-.f64 a b)))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))))
(sin.f64 (+.f64 (+.f64 a b) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 (+.f64 a b)) #s(literal 0 binary64) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (neg.f64 (+.f64 a b))) #s(literal 0 binary64) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (+.f64 a b)) (*.f64 #s(literal 0 binary64) (sin.f64 (neg.f64 (+.f64 a 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 (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)))
(-.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 (sin.f64 a) (sin.f64 b)))
(cos.f64 (neg.f64 (neg.f64 (+.f64 a b))))
(cos.f64 (neg.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(+.f64 (*.f64 (sin.f64 (+.f64 a b)) #s(literal 0 binary64)) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (+.f64 a b))) (*.f64 #s(literal 0 binary64) (sin.f64 (neg.f64 (+.f64 a b)))))
(+.f64 (*.f64 (sin.f64 (neg.f64 (+.f64 a b))) #s(literal 0 binary64)) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(+.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a)))
(+.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(*.f64 (cos.f64 a) (cos.f64 b))
(*.f64 (cos.f64 b) (cos.f64 a))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 b))) (sin.f64 (+.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 b)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) b)) (sin.f64 (+.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) b))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 a))) (sin.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 a)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) a)) (sin.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) a))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 (neg.f64 a) (neg.f64 b)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 a) b)) (cos.f64 (-.f64 (neg.f64 a) b))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 a (neg.f64 b))) (cos.f64 (-.f64 a (neg.f64 b)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 b) (neg.f64 a))) (cos.f64 (-.f64 (neg.f64 b) (neg.f64 a)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 b) a)) (cos.f64 (-.f64 (neg.f64 b) a))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 b (neg.f64 a))) (cos.f64 (-.f64 b (neg.f64 a)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b))) #s(literal 2 binary64))
(*.f64 (pow.f64 (cos.f64 b) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 b) #s(literal 1/2 binary64)))
(pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal 1/2 binary64))
(pow.f64 (cos.f64 b) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 b) #s(literal -1 binary64)))
(sin.f64 (+.f64 (neg.f64 b) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 b) #s(literal 0 binary64) (*.f64 (cos.f64 b) #s(literal 1 binary64)))
(cos.f64 (neg.f64 (neg.f64 b)))
(cos.f64 (neg.f64 b))
(cos.f64 b)
(exp.f64 (*.f64 (log.f64 (cos.f64 b)) #s(literal 1 binary64)))
(+.f64 (*.f64 (sin.f64 b) #s(literal 0 binary64)) (*.f64 (cos.f64 b) #s(literal 1 binary64)))
(*.f64 (pow.f64 (cos.f64 a) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 a) #s(literal 1/2 binary64)))
(pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) #s(literal 1/2 binary64))
(pow.f64 (cos.f64 a) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 a) #s(literal -1 binary64)))
(sin.f64 (+.f64 (neg.f64 a) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 a) #s(literal 0 binary64) (*.f64 (cos.f64 a) #s(literal 1 binary64)))
(cos.f64 (neg.f64 (neg.f64 a)))
(cos.f64 (neg.f64 a))
(cos.f64 a)
(exp.f64 (*.f64 (log.f64 (cos.f64 a)) #s(literal 1 binary64)))
(+.f64 (*.f64 (sin.f64 a) #s(literal 0 binary64)) (*.f64 (cos.f64 a) #s(literal 1 binary64)))
a
(*.f64 (sin.f64 a) (sin.f64 b))
(*.f64 (sin.f64 b) (sin.f64 a))
(/.f64 (-.f64 (cos.f64 (-.f64 a b)) (cos.f64 (+.f64 a b))) #s(literal 2 binary64))
(*.f64 (pow.f64 (sin.f64 a) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 a) #s(literal 1/2 binary64)))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 a) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 a) #s(literal -1 binary64)))
(sin.f64 a)
(exp.f64 (*.f64 (log.f64 (sin.f64 a)) #s(literal 1 binary64)))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (tan.f64 b) r))
(*.f64 (tan.f64 b) r)
(*.f64 r (tan.f64 b))
(/.f64 (neg.f64 (*.f64 (sin.f64 b) r)) (neg.f64 (cos.f64 b)))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 b))
(/.f64 (+.f64 (tan.f64 b) (tan.f64 (PI.f64))) (-.f64 #s(literal 1 binary64) (*.f64 (tan.f64 b) (tan.f64 (PI.f64)))))
(/.f64 (neg.f64 (sin.f64 b)) (neg.f64 (cos.f64 b)))
(/.f64 (sin.f64 b) (cos.f64 b))
(tan.f64 (+.f64 (+.f64 b (PI.f64)) (PI.f64)))
(tan.f64 (+.f64 b (PI.f64)))
(tan.f64 b)
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 #s(approx (+ a b) b))))
(/.f64 (neg.f64 (*.f64 (sin.f64 b) r)) (neg.f64 (cos.f64 #s(approx (+ a b) b))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 #s(approx (+ a b) b)))
(sin.f64 (+.f64 (neg.f64 #s(approx (+ a b) b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 #s(approx (+ a b) b) (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 #s(approx (+ a b) b)) #s(literal 0 binary64) (*.f64 (cos.f64 #s(approx (+ a b) b)) #s(literal 1 binary64)))
(cos.f64 (neg.f64 (neg.f64 #s(approx (+ a b) b))))
(cos.f64 (neg.f64 #s(approx (+ a b) b)))
(cos.f64 #s(approx (+ a b) b))
(+.f64 (*.f64 (sin.f64 #s(approx (+ a b) b)) #s(literal 0 binary64)) (*.f64 (cos.f64 #s(approx (+ a b) b)) #s(literal 1 binary64)))
#s(approx (+ a b) b)
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (neg.f64 (*.f64 (sin.f64 b) r)) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64))) (cos.f64 (-.f64 a b)))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))))
(sin.f64 (+.f64 (+.f64 a b) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 (+.f64 a b)) #s(literal 0 binary64) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (neg.f64 (+.f64 a b))) #s(literal 0 binary64) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (+.f64 a b)) (*.f64 #s(literal 0 binary64) (sin.f64 (neg.f64 (+.f64 a 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 (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)))
(-.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 (sin.f64 a) (sin.f64 b)))
(cos.f64 (neg.f64 (neg.f64 (+.f64 a b))))
(cos.f64 (neg.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(+.f64 (*.f64 (sin.f64 (+.f64 a b)) #s(literal 0 binary64)) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (+.f64 a b))) (*.f64 #s(literal 0 binary64) (sin.f64 (neg.f64 (+.f64 a b)))))
(+.f64 (*.f64 (sin.f64 (neg.f64 (+.f64 a b))) #s(literal 0 binary64)) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(+.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a)))
(+.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(/.f64 (-.f64 (*.f64 (+.f64 a b) (+.f64 a b)) (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (+.f64 a b) (+.f64 a b)) (neg.f64 (+.f64 a b)) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) #s(literal 8 binary64))) (fma.f64 (+.f64 a b) (+.f64 a b) (-.f64 (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (neg.f64 (+.f64 a b)))
(neg.f64 (+.f64 a b))
(fma.f64 #s(literal -1 binary64) a (neg.f64 b))
(fma.f64 a #s(literal -1 binary64) (neg.f64 b))
(+.f64 (neg.f64 a) (neg.f64 b))
(/.f64 (-.f64 (*.f64 a a) (*.f64 b b)) (-.f64 a b))
(/.f64 (fma.f64 (*.f64 a a) a (*.f64 (*.f64 b b) b)) (fma.f64 a a (-.f64 (*.f64 b b) (*.f64 a b))))
(+.f64 a b)
(+.f64 b a)
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
#s(literal 2 binary64)
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (neg.f64 (*.f64 (sin.f64 b) r)) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
(*.f64 (*.f64 r (sqrt.f64 (sin.f64 b))) (sqrt.f64 (sin.f64 b)))
(*.f64 (sin.f64 b) r)
(*.f64 r (sin.f64 b))
(*.f64 (neg.f64 (neg.f64 (sqrt.f64 (sin.f64 b)))) (neg.f64 (neg.f64 (sqrt.f64 (sin.f64 b)))))
(*.f64 (pow.f64 (sqrt.f64 (sin.f64 b)) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 b)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (sqrt.f64 (sin.f64 b)) #s(literal 1 binary64)) (sqrt.f64 (sin.f64 b)))
(*.f64 (neg.f64 (sqrt.f64 (sin.f64 b))) (neg.f64 (sqrt.f64 (sin.f64 b))))
(*.f64 (sqrt.f64 (sin.f64 b)) (sqrt.f64 (sin.f64 b)))
(pow.f64 (neg.f64 (sqrt.f64 (sin.f64 b))) #s(literal 2 binary64))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (sin.f64 b)) #s(literal 2 binary64))
(pow.f64 (sin.f64 b) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))
(sin.f64 b)
(sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))
(fabs.f64 (sin.f64 b))
(exp.f64 (fma.f64 (log.f64 (sin.f64 b)) #s(literal 1/2 binary64) (*.f64 (log.f64 (sin.f64 b)) #s(literal 1/2 binary64))))
(exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 1/2 binary64)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 (sin.f64 b))) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 1 binary64)))
(*.f64 (neg.f64 (pow.f64 (sin.f64 b) #s(literal 1/4 binary64))) (neg.f64 (pow.f64 (sin.f64 b) #s(literal 1/4 binary64))))
(*.f64 (fabs.f64 (pow.f64 (sin.f64 b) #s(literal 1/4 binary64))) (fabs.f64 (pow.f64 (sin.f64 b) #s(literal 1/4 binary64))))
(*.f64 (pow.f64 (sin.f64 b) #s(literal 1/4 binary64)) (pow.f64 (sin.f64 b) #s(literal 1/4 binary64)))
(pow.f64 (exp.f64 (log.f64 (sin.f64 b))) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (sin.f64 b) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal 1/4 binary64))
(pow.f64 (sin.f64 b) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1/2 binary64)))
(sqrt.f64 (sin.f64 b))
(fabs.f64 (neg.f64 (sqrt.f64 (sin.f64 b))))
(fabs.f64 (sqrt.f64 (sin.f64 b)))
(exp.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 1/2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 1/2 binary64))) (sinh.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 1/2 binary64))))
#s(literal 1/2 binary64)
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64))) (cos.f64 (-.f64 a b)))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))))
(sin.f64 (+.f64 (+.f64 a b) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 (+.f64 a b)) #s(literal 0 binary64) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (neg.f64 (+.f64 a b))) #s(literal 0 binary64) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (+.f64 a b)) (*.f64 #s(literal 0 binary64) (sin.f64 (neg.f64 (+.f64 a 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 (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)))
(-.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 (sin.f64 a) (sin.f64 b)))
(cos.f64 (neg.f64 (neg.f64 (+.f64 a b))))
(cos.f64 (neg.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(+.f64 (*.f64 (sin.f64 (+.f64 a b)) #s(literal 0 binary64)) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (+.f64 a b))) (*.f64 #s(literal 0 binary64) (sin.f64 (neg.f64 (+.f64 a b)))))
(+.f64 (*.f64 (sin.f64 (neg.f64 (+.f64 a b))) #s(literal 0 binary64)) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(+.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a)))
(+.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (* r (tan b)) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a) b))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (* r (sin b)) (*.f64 (sin.f64 b) r))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (fma.f64 (tan.f64 b) r (/.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) a) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (fma.f64 (-.f64 (*.f64 (neg.f64 a) (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64)))))) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))))) a (*.f64 (tan.f64 b) r)))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (fma.f64 (-.f64 (*.f64 (-.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) #s(literal -1/2 binary64) (fma.f64 #s(literal 1/6 binary64) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) (*.f64 (sin.f64 b) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64))))) (cos.f64 b))))) a)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64)))))) a) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))))) a (*.f64 (tan.f64 b) r)))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (cos.f64 b))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 a (-.f64 (*.f64 (*.f64 (cos.f64 b) a) #s(literal -1/2 binary64)) (sin.f64 b)) (cos.f64 b)))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 a (-.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 b) a) #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 b))) a) (sin.f64 b)) (cos.f64 b)))
#s(approx (* (cos b) (cos a)) (cos.f64 b))
#s(approx (* (cos b) (cos a)) (fma.f64 (*.f64 (*.f64 a a) #s(literal -1/2 binary64)) (cos.f64 b) (cos.f64 b)))
#s(approx (* (cos b) (cos a)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a a)) (cos.f64 b) (*.f64 #s(literal -1/2 binary64) (cos.f64 b))) (*.f64 a a) (cos.f64 b)))
#s(approx (* (cos b) (cos a)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 a a)) (cos.f64 b) (*.f64 #s(literal 1/24 binary64) (cos.f64 b))) (*.f64 a a) (*.f64 #s(literal -1/2 binary64) (cos.f64 b))) (*.f64 a a) (cos.f64 b)))
#s(approx (cos a) #s(literal 1 binary64))
#s(approx (cos a) (fma.f64 (*.f64 a a) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos a) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))
#s(approx (cos a) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 a a) #s(literal 1/24 binary64)) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))
#s(approx (* (sin b) (sin a)) (*.f64 (sin.f64 b) a))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 a a)) (sin.f64 b) (sin.f64 b)) a))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 a a) (sin.f64 b)) #s(literal 1/120 binary64) (*.f64 (sin.f64 b) #s(literal -1/6 binary64))) (*.f64 a a) (sin.f64 b)) a))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 b) (*.f64 (fma.f64 #s(literal 1/120 binary64) (sin.f64 b) (*.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 a a)) (sin.f64 b))) (*.f64 a a))) (*.f64 a a) (sin.f64 b)) a))
#s(approx (sin a) a)
#s(approx (sin a) (*.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 a a) #s(literal 1 binary64)) a))
#s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a))
#s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (fma.f64 (tan.f64 b) r (/.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) a) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (fma.f64 (-.f64 (*.f64 (neg.f64 a) (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64)))))) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))))) a (*.f64 (tan.f64 b) r)))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (fma.f64 (-.f64 (*.f64 (-.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) #s(literal -1/2 binary64) (fma.f64 #s(literal 1/6 binary64) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) (*.f64 (sin.f64 b) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64))))) (cos.f64 b))))) a)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64)))))) a) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))))) a (*.f64 (tan.f64 b) r)))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (cos.f64 b))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 a (-.f64 (*.f64 (*.f64 (cos.f64 b) a) #s(literal -1/2 binary64)) (sin.f64 b)) (cos.f64 b)))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 a (-.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 b) a) #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 b))) a) (sin.f64 b)) (cos.f64 b)))
#s(approx (+ a b) b)
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (fma.f64 r (/.f64 (sin.f64 b) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))) (/.f64 (*.f64 (*.f64 a r) (*.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)) (sin.f64 b))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (fma.f64 (-.f64 (*.f64 (neg.f64 a) (fma.f64 (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))) #s(literal -1/2 binary64) (neg.f64 (*.f64 r (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))))) (sin.f64 b)) (pow.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)) #s(literal 3 binary64))))))) (neg.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)) (sin.f64 b)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)))))))) a (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (fma.f64 (-.f64 (*.f64 (-.f64 (*.f64 (neg.f64 a) (fma.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)) (sin.f64 b)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)))))) #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)) (/.f64 (fma.f64 (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))) #s(literal -1/2 binary64) (neg.f64 (*.f64 r (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))))) (sin.f64 b)) (pow.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)) #s(literal 3 binary64)))))) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)) (sin.f64 b)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)))))) #s(literal 1/6 binary64))))) (fma.f64 (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))) #s(literal -1/2 binary64) (neg.f64 (*.f64 r (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))))) (sin.f64 b)) (pow.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)) #s(literal 3 binary64))))))) a) (neg.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)) (sin.f64 b)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)))))))) a (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (neg.f64 a) (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (fma.f64 (*.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)) a) #s(literal -1/2 binary64) (neg.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)))) a (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/6 binary64) a) (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)) (*.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)) #s(literal -1/2 binary64))) a (neg.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b)))) a (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (neg.f64 a)) b))
#s(approx (neg (+ a b)) (neg.f64 b))
#s(approx (neg (+ a b)) (-.f64 (neg.f64 a) b))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (fma.f64 (tan.f64 b) r (/.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) a) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (fma.f64 (-.f64 (*.f64 (neg.f64 a) (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64)))))) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))))) a (*.f64 (tan.f64 b) r)))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (fma.f64 (-.f64 (*.f64 (-.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) #s(literal -1/2 binary64) (fma.f64 #s(literal 1/6 binary64) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) (*.f64 (sin.f64 b) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64))))) (cos.f64 b))))) a)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64)))))) a) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))))) a (*.f64 (tan.f64 b) r)))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (cos.f64 (+.f64 a b)))
#s(approx (* (cos b) (cos a)) (*.f64 (cos.f64 a) (cos.f64 b)))
#s(approx (* (sin b) (sin a)) (*.f64 (sin.f64 a) (sin.f64 b)))
#s(approx (+ a b) a)
#s(approx (+ a b) (*.f64 (+.f64 (/.f64 b a) #s(literal 1 binary64)) a))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a) b)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 a))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (*.f64 (-.f64 (-.f64 (*.f64 (/.f64 (PI.f64) a) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (/.f64 b a)) a))
#s(approx (neg (+ a b)) (neg.f64 a))
#s(approx (neg (+ a b)) (*.f64 (-.f64 (/.f64 (neg.f64 b) a) #s(literal 1 binary64)) a))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (-.f64 b (neg.f64 a)))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (cos.f64 (-.f64 b (neg.f64 a))))
#s(approx (+ a b) (*.f64 (neg.f64 a) (-.f64 (/.f64 (neg.f64 b) a) #s(literal 1 binary64))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (neg.f64 a)) b))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (neg.f64 a)) b)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (*.f64 (neg.f64 a) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b) a)) #s(literal 1 binary64))))
#s(approx (neg (+ a b)) (*.f64 (neg.f64 a) (+.f64 (/.f64 b a) #s(literal 1 binary64))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (-.f64 b (neg.f64 a)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (fma.f64 b (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (fma.f64 (-.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (neg.f64 b) (fma.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) #s(literal -1/3 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) (sin.f64 a)) (cos.f64 a)))) (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64))))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (* r (sin b)) (*.f64 b r))
#s(approx (* r (sin b)) (*.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/6 binary64) r) b))
#s(approx (* r (sin b)) (*.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal 1/120 binary64) (*.f64 #s(literal -1/6 binary64) r)) (*.f64 b b) r) b))
#s(approx (* r (sin b)) (*.f64 (fma.f64 (fma.f64 (*.f64 b b) (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/5040 binary64) (*.f64 #s(literal 1/120 binary64) r)) (*.f64 #s(literal -1/6 binary64) r)) (*.f64 b b) r) b))
#s(approx (sin b) b)
#s(approx (sin b) (*.f64 (fma.f64 (*.f64 b b) #s(literal -1/6 binary64) #s(literal 1 binary64)) b))
#s(approx (sin b) (*.f64 (fma.f64 (-.f64 (*.f64 (*.f64 b b) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (sin b) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 b b) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 b b)) #s(literal 1/6 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (cos.f64 a))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 b (-.f64 (*.f64 (*.f64 (cos.f64 a) b) #s(literal -1/2 binary64)) (sin.f64 a)) (cos.f64 a)))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 b (-.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 a) b) #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 a))) b) (sin.f64 a)) (cos.f64 a)))
#s(approx (* (cos b) (cos a)) (cos.f64 a))
#s(approx (* (cos b) (cos a)) (fma.f64 (*.f64 (*.f64 b b) #s(literal -1/2 binary64)) (cos.f64 a) (cos.f64 a)))
#s(approx (* (cos b) (cos a)) (fma.f64 (fma.f64 (*.f64 (*.f64 b b) #s(literal 1/24 binary64)) (cos.f64 a) (*.f64 #s(literal -1/2 binary64) (cos.f64 a))) (*.f64 b b) (cos.f64 a)))
#s(approx (* (cos b) (cos a)) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 b b) #s(literal -1/720 binary64)) (cos.f64 a) (*.f64 #s(literal 1/24 binary64) (cos.f64 a))) (*.f64 b b) (*.f64 #s(literal -1/2 binary64) (cos.f64 a))) (*.f64 b b) (cos.f64 a)))
#s(approx (cos b) #s(literal 1 binary64))
#s(approx (cos b) (fma.f64 (*.f64 b b) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos b) (fma.f64 (-.f64 (*.f64 (*.f64 b b) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 b b) #s(literal 1 binary64)))
#s(approx (cos b) (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 b b) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 b b)) #s(literal 1/2 binary64)) (*.f64 b b) #s(literal 1 binary64)))
#s(approx (* (sin b) (sin a)) (*.f64 (sin.f64 a) b))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (*.f64 (*.f64 b b) (sin.f64 a)) #s(literal -1/6 binary64) (sin.f64 a)) b))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 b b) (sin.f64 a)) #s(literal 1/120 binary64) (*.f64 (sin.f64 a) #s(literal -1/6 binary64))) (*.f64 b b) (sin.f64 a)) b))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 a) (*.f64 (fma.f64 (*.f64 (*.f64 b b) (sin.f64 a)) #s(literal -1/5040 binary64) (*.f64 (sin.f64 a) #s(literal 1/120 binary64))) (*.f64 b b))) (*.f64 b b) (sin.f64 a)) b))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (fma.f64 b (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (fma.f64 (-.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (neg.f64 b) (fma.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) #s(literal -1/3 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) (sin.f64 a)) (cos.f64 a)))) (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64))))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (* r (tan b)) (*.f64 b r))
#s(approx (* r (tan b)) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 (*.f64 b b) r) r) b))
#s(approx (* r (tan b)) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 1/3 binary64) r)) (*.f64 b b) r) b))
#s(approx (* r (tan b)) (*.f64 (fma.f64 (fma.f64 (*.f64 b b) (fma.f64 #s(literal 17/315 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 2/15 binary64) r)) (*.f64 #s(literal 1/3 binary64) r)) (*.f64 b b) r) b))
#s(approx (tan b) b)
#s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (tan b) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (tan b) (*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 17/315 binary64) (*.f64 b b) #s(literal 2/15 binary64)) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (cos.f64 a))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 b (-.f64 (*.f64 (*.f64 (cos.f64 a) b) #s(literal -1/2 binary64)) (sin.f64 a)) (cos.f64 a)))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 b (-.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 a) b) #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 a))) b) (sin.f64 a)) (cos.f64 a)))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (fma.f64 b (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)))))) (/.f64 r (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)))) b))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (fma.f64 (-.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))) #s(literal -1/2 binary64) (neg.f64 (*.f64 r (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))))) (pow.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)) #s(literal 3 binary64))))))) b) (neg.f64 (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)))))))) b (/.f64 r (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)))) b))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (neg.f64 b) (fma.f64 (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)))))) #s(literal -1/3 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)) (/.f64 (-.f64 (*.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))) #s(literal -1/2 binary64) (neg.f64 (*.f64 r (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))))) (pow.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)) #s(literal 3 binary64))))))) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)))))) (-.f64 (*.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))) #s(literal -1/2 binary64) (neg.f64 (*.f64 r (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))))) (pow.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)) #s(literal 3 binary64)))))))) b) (neg.f64 (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)))))))) b (/.f64 r (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)))) b))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (neg.f64 b) (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (fma.f64 (*.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)) b) #s(literal -1/2 binary64) (neg.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)))) b (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/6 binary64) b) (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)) (*.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)) #s(literal -1/2 binary64))) b (neg.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a)))) b (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (neg.f64 b)) a))
#s(approx (neg (+ a b)) (-.f64 (neg.f64 b) a))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (fma.f64 b (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (fma.f64 (-.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (neg.f64 b) (fma.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) #s(literal -1/3 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) (sin.f64 a)) (cos.f64 a)))) (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64))))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (* r (sin b)) (*.f64 b r))
#s(approx (* r (sin b)) (*.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/6 binary64) r) b))
#s(approx (* r (sin b)) (*.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal 1/120 binary64) (*.f64 #s(literal -1/6 binary64) r)) (*.f64 b b) r) b))
#s(approx (* r (sin b)) (*.f64 (fma.f64 (fma.f64 (*.f64 b b) (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/5040 binary64) (*.f64 #s(literal 1/120 binary64) r)) (*.f64 #s(literal -1/6 binary64) r)) (*.f64 b b) r) b))
#s(approx (sin b) b)
#s(approx (sin b) (*.f64 (fma.f64 (*.f64 b b) #s(literal -1/6 binary64) #s(literal 1 binary64)) b))
#s(approx (sin b) (*.f64 (fma.f64 (-.f64 (*.f64 (*.f64 b b) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (sin b) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 b b) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 b b)) #s(literal 1/6 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (pow (sin b) 1/2) (sqrt.f64 b))
#s(approx (pow (sin b) 1/2) (fma.f64 (pow.f64 b #s(literal 5/2 binary64)) #s(literal -1/12 binary64) (sqrt.f64 b)))
#s(approx (pow (sin b) 1/2) (fma.f64 (fma.f64 (*.f64 (sqrt.f64 b) b) #s(literal 1/240 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 b)) #s(literal -1/12 binary64))) (*.f64 (*.f64 b b) b) (sqrt.f64 b)))
#s(approx (pow (sin b) 1/2) (fma.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 b)) #s(literal 1/1440 binary64)) (*.f64 b b) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 b)) #s(literal -1/12 binary64))) (*.f64 (*.f64 b b) b) (sqrt.f64 b)))
#s(approx (tan b) (tan.f64 b))
#s(approx (+ a b) (*.f64 (+.f64 (/.f64 a b) #s(literal 1 binary64)) b))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (*.f64 (-.f64 (-.f64 (*.f64 (/.f64 (PI.f64) b) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (/.f64 a b)) b))
#s(approx (neg (+ a b)) (*.f64 (-.f64 (/.f64 (neg.f64 a) b) #s(literal 1 binary64)) b))
#s(approx (sin b) (sin.f64 b))
#s(approx (pow (sin b) 1/2) (sqrt.f64 (sin.f64 b)))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (-.f64 a (neg.f64 b)))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (cos.f64 (-.f64 a (neg.f64 b))))
#s(approx (+ a b) (*.f64 (neg.f64 b) (-.f64 (/.f64 (neg.f64 a) b) #s(literal 1 binary64))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (neg.f64 b)) a))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (neg.f64 b)) a)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (*.f64 (neg.f64 b) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a) b)) #s(literal 1 binary64))))
#s(approx (neg (+ a b)) (*.f64 (neg.f64 b) (+.f64 (/.f64 a b) #s(literal 1 binary64))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (-.f64 a (neg.f64 b)))))

eval52.0ms (1.2%)

Memory
-23.2MiB live, 75.9MiB allocated; 15ms collecting garbage
Compiler

Compiled 4 263 to 1 620 computations (62% saved)

prune61.0ms (1.4%)

Memory
4.0MiB live, 98.0MiB allocated; 3ms collecting garbage
Pruning

58 alts after pruning (58 fresh and 0 done)

PrunedKeptTotal
New34248390
Fresh61016
Picked505
Done000
Total35358411
Accuracy
99.8%
Counts
411 → 58
Alt Table
Click to see full alt table
StatusAccuracyProgram
49.6%
(/.f64 (*.f64 (*.f64 r (sqrt.f64 (sin.f64 b))) (sqrt.f64 (sin.f64 b))) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
32.1%
(/.f64 (*.f64 (*.f64 r (sqrt.f64 (sin.f64 b))) (sqrt.f64 (sin.f64 b))) (cos.f64 #s(approx (+ a b) b)))
99.4%
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
76.1%
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
62.9%
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 #s(approx (+ a b) b)))
32.2%
(/.f64 (*.f64 r (pow.f64 (sqrt.f64 (sin.f64 b)) #s(literal 2 binary64))) (cos.f64 #s(approx (+ a b) b)))
▶21.2%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
99.3%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
76.0%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (cos.f64 (+.f64 a b)))
62.9%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (cos.f64 #s(approx (+ a b) b)))
41.2%
(/.f64 (*.f64 r (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
31.4%
(/.f64 (*.f64 r (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))) (cos.f64 #s(approx (+ a b) b)))
75.9%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 (+.f64 a b)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (+.f64 a b)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
▶99.5%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))))
99.3%
(/.f64 (*.f64 r (sin.f64 b)) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)) (fma.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (sin.f64 a) (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 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64)) (*.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 (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) (sin.f64 b)))) (fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (sin.f64 a) (sin.f64 b)))))
73.9%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal 1/2 binary64)) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
72.3%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (exp.f64 (*.f64 (log.f64 (cos.f64 b)) #s(literal 1 binary64))) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
99.4%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (/.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 a) #s(literal -1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
87.7%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) (sin.f64 a))))
99.4%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 a) #s(literal -1 binary64))))))
44.2%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (*.f64 (pow.f64 (sin.f64 a) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 a) #s(literal 1/2 binary64))))))
▶61.0%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
62.1%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
62.7%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 a a) #s(literal 1 binary64)) a)))))
67.3%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) a))))
59.6%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 a a) #s(literal 1/24 binary64)) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
59.5%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
59.5%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (*.f64 a a) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
63.8%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 b)) (*.f64 (sin.f64 b) (sin.f64 a))))
51.5%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
39.5%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (+.f64 a b) (/.f64 (PI.f64) #s(literal 2 binary64)))))
39.2%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 #s(approx (+ a b) b) (/.f64 (PI.f64) #s(literal 2 binary64)))))
38.6%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 #s(approx (neg (+ a b)) (*.f64 (-.f64 (/.f64 (neg.f64 b) a) #s(literal 1 binary64)) a)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
38.9%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))))
▶19.3%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
19.5%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 a))))
64.4%
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) (*.f64 (+.f64 (/.f64 a b) #s(literal 1 binary64)) b))))
50.4%
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) a)))
47.7%
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
60.6%
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
59.5%
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 a (-.f64 (*.f64 (*.f64 (cos.f64 b) a) #s(literal -1/2 binary64)) (sin.f64 b)) (cos.f64 b))))
41.3%
(/.f64 (*.f64 r (fabs.f64 (sin.f64 b))) (cos.f64 #s(approx (+ a b) b)))
46.0%
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
32.7%
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 #s(approx (+ a b) b)))
76.1%
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
63.0%
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 #s(approx (+ a b) b))))
39.9%
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a) b))))
33.4%
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))))
63.0%
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (tan.f64 b) r))
46.0%
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 b (/.f64 r (cos.f64 a))))
35.0%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (/.f64 (+.f64 (tan.f64 b) (tan.f64 (PI.f64))) (-.f64 #s(literal 1 binary64) (*.f64 (tan.f64 b) (tan.f64 (PI.f64)))))))
32.2%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 17/315 binary64) (*.f64 b b) #s(literal 2/15 binary64)) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
32.2%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
32.3%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b))))
▶32.7%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) b)))
32.2%
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(approx (* r (tan b)) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 1/3 binary64) r)) (*.f64 b b) r) b)))
Compiler

Compiled 1 990 to 1 816 computations (8.7% saved)

series72.0ms (1.6%)

Memory
10.4MiB live, 106.2MiB allocated; 6ms collecting garbage
Counts
51 → 227
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)
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) b)))
(*.f64 r #s(approx (tan b) b))
#s(approx (tan b) b)
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
(sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))
(neg.f64 b)
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))
#s(literal 1 binary64)
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))
#s(literal 1/2 binary64)
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))
(cos.f64 (*.f64 #s(literal 2 binary64) b))
(*.f64 #s(literal 2 binary64) b)
#s(literal 2 binary64)
#s(literal -1/2 binary64)
(sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 (+.f64 a b))
(+.f64 a b)
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a))))
(*.f64 (cos.f64 b) (cos.f64 a))
(*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))
#s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a))
(*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)
(fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64))
(-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64))
(*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a))
(fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64))
#s(literal -1/5040 binary64)
(*.f64 a a)
#s(literal 1/120 binary64)
#s(literal 1/6 binary64)
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 (tan b)) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) (+ a b))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* (/ r (sin (- (* 1/2 (PI)) (+ a b)))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b))))))))
#s(approx (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) #s(hole binary64 (* r (sqrt (- 1/2 (* 1/2 (cos (* 2 b))))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #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)))) #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 (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 (* (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 (sin a) #s(hole binary64 a))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* -1/6 (pow a 2))))))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* 1/120 (pow a 2)) 1/6))))))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6))))))
#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 (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (/ (* a (* r (* (cos (- (* 1/2 (PI)) b)) (sin b)))) (pow (sin (- (* 1/2 (PI)) b)) 2)) (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (pow (cos (- (* 1/2 (PI)) b)) 2) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))) (* -1 (/ (* r (* (cos (- (* 1/2 (PI)) b)) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 2))))) (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (* (cos (- (* 1/2 (PI)) b)) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 2))) (+ (* 1/6 (/ (* r (* (cos (- (* 1/2 (PI)) b)) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 2))) (/ (* (cos (- (* 1/2 (PI)) b)) (+ (* -1 (/ (* r (* (pow (cos (- (* 1/2 (PI)) b)) 2) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b)))))) (sin (- (* 1/2 (PI)) b))))))) (+ (* -1 (/ (* r (* (pow (cos (- (* 1/2 (PI)) b)) 2) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))) (* -1 (/ (* r (* (cos (- (* 1/2 (PI)) b)) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 2))))) (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) b))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) b)) (* -1 (* a (cos (- (* 1/2 (PI)) b)))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) b)) (* a (+ (* -1 (cos (- (* 1/2 (PI)) b))) (* -1/2 (* a (sin (- (* 1/2 (PI)) b)))))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) b)) (* a (+ (* -1 (cos (- (* 1/2 (PI)) b))) (* a (+ (* -1/2 (sin (- (* 1/2 (PI)) b))) (* 1/6 (* a (cos (- (* 1/2 (PI)) b)))))))))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) b)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (- (+ (* -1 a) (* 1/2 (PI))) b)))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* (/ r (sin (- (* 1/2 (PI)) b))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b))))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (* (/ r (sin (- (* 1/2 (PI)) b))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b)))))) (* (/ (* a (* r (cos (- (* 1/2 (PI)) b)))) (pow (sin (- (* 1/2 (PI)) b)) 2)) (sqrt (- 1/2 (* 1/2 (cos (* 2 b)))))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (* a (+ (* -1 (* (* a (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) b)) 2)) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) b)))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b))))))) (* (/ (* r (cos (- (* 1/2 (PI)) b))) (pow (sin (- (* 1/2 (PI)) b)) 2)) (sqrt (- 1/2 (* 1/2 (cos (* 2 b)))))))) (* (/ r (sin (- (* 1/2 (PI)) b))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b)))))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (* a (+ (* a (+ (* -1 (* (* a (+ (* -1/2 (/ (* r (cos (- (* 1/2 (PI)) b))) (pow (sin (- (* 1/2 (PI)) b)) 2))) (+ (* 1/6 (/ (* r (cos (- (* 1/2 (PI)) b))) (pow (sin (- (* 1/2 (PI)) b)) 2))) (/ (* (cos (- (* 1/2 (PI)) b)) (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) b)) 2)) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) b)))))) (sin (- (* 1/2 (PI)) b)))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b))))))) (* -1 (* (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) b)) 2)) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) b))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b))))))))) (* (/ (* r (cos (- (* 1/2 (PI)) b))) (pow (sin (- (* 1/2 (PI)) b)) 2)) (sqrt (- 1/2 (* 1/2 (cos (* 2 b)))))))) (* (/ r (sin (- (* 1/2 (PI)) b))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b)))))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* -1 b)))
#s(approx (neg (+ a b)) #s(hole binary64 (- (* -1 a) b)))
#s(approx (+ a b) #s(hole binary64 b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (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)) (* (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)) (* (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)) (* (sin b) (sin a))) #s(hole binary64 (cos b)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (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 (* (sin b) (sin a)) #s(hole binary64 (* a (sin b))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* a (+ (sin b) (* -1/6 (* (pow a 2) (sin b)))))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* a (+ (sin b) (* (pow a 2) (+ (* -1/6 (sin b)) (* 1/120 (* (pow a 2) (sin b)))))))))
#s(approx (* (sin b) (sin a)) #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 (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 a))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* a (+ 1 (* -1/6 (pow a 2))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* 1/120 (pow a 2)) 1/6))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow a 2)))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) #s(hole binary64 (+ 1 (* (pow a 2) (- (* 1/120 (pow a 2)) 1/6)))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) #s(hole binary64 (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6)))))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(hole binary64 (- (* 1/120 (pow a 2)) 1/6)))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(hole binary64 (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6)))
#s(approx (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) #s(hole binary64 (* 1/120 (pow a 2))))
#s(approx (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) #s(hole binary64 (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2))))))
#s(approx (+ (* -1/5040 (* a a)) 1/120) #s(hole binary64 1/120))
#s(approx (+ (* -1/5040 (* a a)) 1/120) #s(hole binary64 (+ 1/120 (* -1/5040 (pow a 2)))))
#s(approx (* a a) #s(hole binary64 (pow a 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 (* (neg (sin b)) (sin a)) #s(hole binary64 (* -1 (* (sin a) (sin b)))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ a b)))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* -1 a)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* a (- (* 1/2 (/ (PI) a)) (+ 1 (/ b a))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* -1 a)))
#s(approx (neg (+ a b)) #s(hole binary64 (* a (- (* -1 (/ b a)) 1))))
#s(approx (+ a b) #s(hole binary64 a))
#s(approx (+ a b) #s(hole binary64 (* a (+ 1 (/ b a)))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (- (* (cos a) (cos b)) (* (sin a) (sin b)))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (* (cos a) (cos b))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* (sin a) (sin b))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* -1/5040 (pow a 7))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* (pow a 7) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* (pow a 7) (- (* 1/120 (/ 1 (pow a 2))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* (pow a 7) (- (+ (* 1/120 (/ 1 (pow a 2))) (/ 1 (pow a 6))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) #s(hole binary64 (* -1/5040 (pow a 6))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) #s(hole binary64 (* (pow a 6) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) #s(hole binary64 (* (pow a 6) (- (* 1/120 (/ 1 (pow a 2))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) #s(hole binary64 (* (pow a 6) (- (+ (* 1/120 (/ 1 (pow a 2))) (/ 1 (pow a 6))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(hole binary64 (* -1/5040 (pow a 4))))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(hole binary64 (* (pow a 4) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(hole binary64 (* (pow a 4) (- (* 1/120 (/ 1 (pow a 2))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) #s(hole binary64 (* -1/5040 (pow a 4))))
#s(approx (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) #s(hole binary64 (* (pow a 4) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (+ (* -1/5040 (* a a)) 1/120) #s(hole binary64 (* -1/5040 (pow a 2))))
#s(approx (+ (* -1/5040 (* a a)) 1/120) #s(hole binary64 (* (pow a 2) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* r (sin b)) (sin (- (+ (* -1 a) (* 1/2 (PI))) b)))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ (* -1 a) (* 1/2 (PI))) b))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* -1 (* a (+ 1 (* -1 (/ (- (* 1/2 (PI)) b) a)))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* (/ r (sin (- (+ (* -1 a) (* 1/2 (PI))) b))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b))))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* -1 (* a (+ 1 (/ b a))))))
#s(approx (+ a b) #s(hole binary64 (* -1 (* a (- (* -1 (/ b a)) 1)))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* -1 (* (pow a 7) (- 1/5040 (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* -1 (* (pow a 7) (- (+ 1/5040 (/ 1/6 (pow a 4))) (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* -1 (* (pow a 7) (- (+ 1/5040 (/ 1/6 (pow a 4))) (+ (* 1/120 (/ 1 (pow a 2))) (/ 1 (pow a 6))))))))
#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 (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 (* (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 (sin b)) #s(hole binary64 (* -1 b)))
#s(approx (neg (sin b)) #s(hole binary64 (* b (- (* 1/6 (pow b 2)) 1))))
#s(approx (neg (sin b)) #s(hole binary64 (* b (- (* (pow b 2) (+ 1/6 (* -1/120 (pow b 2)))) 1))))
#s(approx (neg (sin b)) #s(hole binary64 (* b (- (* (pow b 2) (+ 1/6 (* (pow b 2) (- (* 1/5040 (pow b 2)) 1/120)))) 1))))
#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 (tan b)) #s(hole binary64 (* b r)))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* 1/3 (* (pow b 2) r))))))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* 2/15 (* (pow b 2) r)) (* 1/3 r)))))))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* 1/3 r) (* (pow b 2) (+ (* 17/315 (* (pow b 2) r)) (* 2/15 r)))))))))
#s(approx (tan b) #s(hole binary64 b))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* 1/3 (pow b 2))))))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (+ 1/3 (* 2/15 (pow b 2))))))))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (+ 1/3 (* (pow b 2) (+ 2/15 (* 17/315 (pow b 2))))))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* b r) (sin (- (* 1/2 (PI)) a)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (/ r (sin (- (* 1/2 (PI)) a))) (/ (* b (* r (cos (- (* 1/2 (PI)) a)))) (pow (sin (- (* 1/2 (PI)) a)) 2))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (sin (- (* 1/2 (PI)) a)))) (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a))))))) (* -1 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))))) (/ r (sin (- (* 1/2 (PI)) a)))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (cos (- (* 1/2 (PI)) a)) (- (* -1/6 (/ r (sin (- (* 1/2 (PI)) a)))) (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a))))))) (sin (- (* 1/2 (PI)) a)))) (+ (* -1/2 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))) (* 1/6 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))))))) (* -1/6 (/ r (sin (- (* 1/2 (PI)) a))))) (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a))))))) (* -1 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))))) (/ r (sin (- (* 1/2 (PI)) a)))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) a))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) a)) (* -1 (* b (cos (- (* 1/2 (PI)) a)))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) a)) (* b (+ (* -1 (cos (- (* 1/2 (PI)) a))) (* -1/2 (* b (sin (- (* 1/2 (PI)) a)))))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) a)) (* b (+ (* -1 (cos (- (* 1/2 (PI)) a))) (* b (+ (* -1/2 (sin (- (* 1/2 (PI)) a))) (* 1/6 (* b (cos (- (* 1/2 (PI)) a)))))))))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) a)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (- (+ (* -1 b) (* 1/2 (PI))) a)))
#s(approx (neg b) #s(hole binary64 (* -1 b)))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* b r) (sin (- (* 1/2 (PI)) a)))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (/ r (sin (- (* 1/2 (PI)) a))) (/ (* b (* r (cos (- (* 1/2 (PI)) a)))) (pow (sin (- (* 1/2 (PI)) a)) 2))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (* b (+ (* b (+ (* -1 (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a)))))) (* -1/6 (/ r (sin (- (* 1/2 (PI)) a)))))) (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2)))) (/ r (sin (- (* 1/2 (PI)) a)))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (* b (+ (* b (+ (* -1 (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a)))))) (+ (* -1/6 (/ r (sin (- (* 1/2 (PI)) a)))) (* b (+ (* -1 (+ (* -1/2 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))) (+ (* 1/6 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))) (/ (* (cos (- (* 1/2 (PI)) a)) (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a)))))) (sin (- (* 1/2 (PI)) a)))))) (* -1/6 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2)))))))) (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2)))) (/ r (sin (- (* 1/2 (PI)) a)))))))
#s(approx (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) #s(hole binary64 (* b r)))
#s(approx (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) #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 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) #s(hole binary64 b))
#s(approx (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) #s(hole binary64 (* b (+ 1 (* -1/6 (pow b 2))))))
#s(approx (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* 1/120 (pow b 2)) 1/6))))))
#s(approx (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/120 (* -1/5040 (pow b 2)))) 1/6))))))
#s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) #s(hole binary64 (/ 1 b)))
#s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) #s(hole binary64 (/ (+ 1 (* 1/6 (pow b 2))) b)))
#s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) #s(hole binary64 (/ (+ 1 (* (pow b 2) (+ 1/6 (* 7/360 (pow b 2))))) b)))
#s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) #s(hole binary64 (/ (+ 1 (* (pow b 2) (+ 1/6 (* (pow b 2) (+ 7/360 (* 31/15120 (pow b 2))))))) b)))
#s(approx (- 1/2 (* 1/2 (cos (* 2 b)))) #s(hole binary64 (pow b 2)))
#s(approx (- 1/2 (* 1/2 (cos (* 2 b)))) #s(hole binary64 (* (pow b 2) (+ 1 (* -1/3 (pow b 2))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 b)))) #s(hole binary64 (* (pow b 2) (+ 1 (* (pow b 2) (- (* 2/45 (pow b 2)) 1/3))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 b)))) #s(hole binary64 (* (pow b 2) (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 2/45 (* -1/315 (pow b 2)))) 1/3))))))
#s(approx (* 1/2 (cos (* 2 b))) #s(hole binary64 1/2))
#s(approx (* 1/2 (cos (* 2 b))) #s(hole binary64 (+ 1/2 (* -1 (pow b 2)))))
#s(approx (* 1/2 (cos (* 2 b))) #s(hole binary64 (+ 1/2 (* (pow b 2) (- (* 1/3 (pow b 2)) 1)))))
#s(approx (* 1/2 (cos (* 2 b))) #s(hole binary64 (+ 1/2 (* (pow b 2) (- (* (pow b 2) (+ 1/3 (* -2/45 (pow b 2)))) 1)))))
#s(approx (cos (* 2 b)) #s(hole binary64 1))
#s(approx (cos (* 2 b)) #s(hole binary64 (+ 1 (* -2 (pow b 2)))))
#s(approx (cos (* 2 b)) #s(hole binary64 (+ 1 (* (pow b 2) (- (* 2/3 (pow b 2)) 2)))))
#s(approx (cos (* 2 b)) #s(hole binary64 (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 2/3 (* -4/45 (pow b 2)))) 2)))))
#s(approx (neg (+ a b)) #s(hole binary64 (- (* -1 b) a)))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (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)) (* (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)) (* (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 (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (cos a)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#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 (* (sin b) (sin a)) #s(hole binary64 (* b (sin a))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* b (+ (sin a) (* -1/6 (* (pow b 2) (sin a)))))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* b (+ (sin a) (* (pow b 2) (+ (* -1/6 (sin a)) (* 1/120 (* (pow b 2) (sin a)))))))))
#s(approx (* (sin b) (sin a)) #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 (neg (sin b)) #s(hole binary64 (* -1 (sin b))))
#s(approx (tan b) #s(hole binary64 (/ (sin b) (cos b))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* -1 b)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* b (- (* 1/2 (/ (PI) b)) (+ 1 (/ a b))))))
#s(approx (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) #s(hole binary64 (sqrt (- 1/2 (* 1/2 (cos (* 2 b)))))))
#s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) #s(hole binary64 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 b))))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* b (- (* -1 (/ a b)) 1))))
#s(approx (+ a b) #s(hole binary64 (* b (+ 1 (/ a b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* r (sin b)) (sin (- (+ (* -1 b) (* 1/2 (PI))) a)))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ (* -1 b) (* 1/2 (PI))) a))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* -1 (* b (+ 1 (* -1 (/ (- (* 1/2 (PI)) a) b)))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* (/ r (sin (- (+ (* -1 b) (* 1/2 (PI))) a))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b))))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* -1 (* b (+ 1 (/ a b))))))
#s(approx (+ a b) #s(hole binary64 (* -1 (* b (- (* -1 (/ a b)) 1)))))
Calls

9 calls:

TimeVariablePointExpression
11.0ms
a
@0
((/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (* r (sin b)) r (sin b) b (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (cos b) (cos a) a (* (neg (sin b)) (sin a)) (neg (sin b)) (sin a) (/ (* r (sin b)) (cos (+ a b))) (* r (tan b)) (tan b) (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (sin (+ (neg (+ a b)) (/ (PI) 2))) (+ (neg (+ a b)) (/ (PI) 2)) (neg b) (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (- 1/2 (* 1/2 (cos (* 2 b)))) 1/2 (* 1/2 (cos (* 2 b))) (cos (* 2 b)) (* 2 b) 2 -1/2 (sin (+ (neg (+ a b)) (/ (PI) 2))) (+ (neg (+ a b)) (/ (PI) 2)) (neg (+ a b)) (+ a b) (/ (PI) 2) (PI) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (- (* (cos b) (cos a)) (* (sin b) (sin a))) (* (cos b) (cos a)) (* (sin b) (sin a)) (sin a) (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) (+ (* -1/5040 (* a a)) 1/120) -1/5040 (* a a) 1/120 1/6)
9.0ms
b
@inf
((/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (* r (sin b)) r (sin b) b (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (cos b) (cos a) a (* (neg (sin b)) (sin a)) (neg (sin b)) (sin a) (/ (* r (sin b)) (cos (+ a b))) (* r (tan b)) (tan b) (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (sin (+ (neg (+ a b)) (/ (PI) 2))) (+ (neg (+ a b)) (/ (PI) 2)) (neg b) (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (- 1/2 (* 1/2 (cos (* 2 b)))) 1/2 (* 1/2 (cos (* 2 b))) (cos (* 2 b)) (* 2 b) 2 -1/2 (sin (+ (neg (+ a b)) (/ (PI) 2))) (+ (neg (+ a b)) (/ (PI) 2)) (neg (+ a b)) (+ a b) (/ (PI) 2) (PI) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (- (* (cos b) (cos a)) (* (sin b) (sin a))) (* (cos b) (cos a)) (* (sin b) (sin a)) (sin a) (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) (+ (* -1/5040 (* a a)) 1/120) -1/5040 (* a a) 1/120 1/6)
8.0ms
r
@-inf
((/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (* r (sin b)) r (sin b) b (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (cos b) (cos a) a (* (neg (sin b)) (sin a)) (neg (sin b)) (sin a) (/ (* r (sin b)) (cos (+ a b))) (* r (tan b)) (tan b) (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (sin (+ (neg (+ a b)) (/ (PI) 2))) (+ (neg (+ a b)) (/ (PI) 2)) (neg b) (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (- 1/2 (* 1/2 (cos (* 2 b)))) 1/2 (* 1/2 (cos (* 2 b))) (cos (* 2 b)) (* 2 b) 2 -1/2 (sin (+ (neg (+ a b)) (/ (PI) 2))) (+ (neg (+ a b)) (/ (PI) 2)) (neg (+ a b)) (+ a b) (/ (PI) 2) (PI) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (- (* (cos b) (cos a)) (* (sin b) (sin a))) (* (cos b) (cos a)) (* (sin b) (sin a)) (sin a) (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) (+ (* -1/5040 (* a a)) 1/120) -1/5040 (* a a) 1/120 1/6)
7.0ms
r
@0
((/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (* r (sin b)) r (sin b) b (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (cos b) (cos a) a (* (neg (sin b)) (sin a)) (neg (sin b)) (sin a) (/ (* r (sin b)) (cos (+ a b))) (* r (tan b)) (tan b) (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (sin (+ (neg (+ a b)) (/ (PI) 2))) (+ (neg (+ a b)) (/ (PI) 2)) (neg b) (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (- 1/2 (* 1/2 (cos (* 2 b)))) 1/2 (* 1/2 (cos (* 2 b))) (cos (* 2 b)) (* 2 b) 2 -1/2 (sin (+ (neg (+ a b)) (/ (PI) 2))) (+ (neg (+ a b)) (/ (PI) 2)) (neg (+ a b)) (+ a b) (/ (PI) 2) (PI) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (- (* (cos b) (cos a)) (* (sin b) (sin a))) (* (cos b) (cos a)) (* (sin b) (sin a)) (sin a) (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) (+ (* -1/5040 (* a a)) 1/120) -1/5040 (* a a) 1/120 1/6)
7.0ms
b
@-inf
((/ (* r (sin b)) (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a)))) (* r (sin b)) r (sin b) b (+ (* (cos b) (cos a)) (* (neg (sin b)) (sin a))) (cos b) (cos a) a (* (neg (sin b)) (sin a)) (neg (sin b)) (sin a) (/ (* r (sin b)) (cos (+ a b))) (* r (tan b)) (tan b) (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (sin (+ (neg (+ a b)) (/ (PI) 2))) (+ (neg (+ a b)) (/ (PI) 2)) (neg b) (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (- 1/2 (* 1/2 (cos (* 2 b)))) 1/2 (* 1/2 (cos (* 2 b))) (cos (* 2 b)) (* 2 b) 2 -1/2 (sin (+ (neg (+ a b)) (/ (PI) 2))) (+ (neg (+ a b)) (/ (PI) 2)) (neg (+ a b)) (+ a b) (/ (PI) 2) (PI) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (- (* (cos b) (cos a)) (* (sin b) (sin a))) (* (cos b) (cos a)) (* (sin b) (sin a)) (sin a) (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) (+ (* -1/5040 (* a a)) 1/120) -1/5040 (* a a) 1/120 1/6)

rewrite213.0ms (4.9%)

Memory
-9.6MiB live, 223.1MiB allocated; 18ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
010097570
010766502
158936449
086626219
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
278 → 511
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)
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) b)))
(*.f64 r #s(approx (tan b) b))
#s(approx (tan b) b)
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
(sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))
(neg.f64 b)
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))
#s(literal 1 binary64)
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))
#s(literal 1/2 binary64)
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))
(cos.f64 (*.f64 #s(literal 2 binary64) b))
(*.f64 #s(literal 2 binary64) b)
#s(literal 2 binary64)
#s(literal -1/2 binary64)
(sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 (+.f64 a b))
(+.f64 a b)
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a))))
(*.f64 (cos.f64 b) (cos.f64 a))
(*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))
#s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a))
(*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)
(fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64))
(-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64))
(*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a))
(fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64))
#s(literal -1/5040 binary64)
(*.f64 a a)
#s(literal 1/120 binary64)
#s(literal 1/6 binary64)
#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 (tan b)) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) (+ a b))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* (/ r (sin (- (* 1/2 (PI)) (+ a b)))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b))))))))
#s(approx (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) #s(hole binary64 (* r (sqrt (- 1/2 (* 1/2 (cos (* 2 b))))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #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)))) #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 (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 (* (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 (sin a) #s(hole binary64 a))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* -1/6 (pow a 2))))))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* 1/120 (pow a 2)) 1/6))))))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6))))))
#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 (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (/ (* a (* r (* (cos (- (* 1/2 (PI)) b)) (sin b)))) (pow (sin (- (* 1/2 (PI)) b)) 2)) (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (* a (- (* -1 (* a (+ (* -1 (/ (* r (* (pow (cos (- (* 1/2 (PI)) b)) 2) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))) (* -1 (/ (* r (* (cos (- (* 1/2 (PI)) b)) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 2))))) (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (* a (- (* a (- (* -1 (* a (+ (* -1/2 (/ (* r (* (cos (- (* 1/2 (PI)) b)) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 2))) (+ (* 1/6 (/ (* r (* (cos (- (* 1/2 (PI)) b)) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 2))) (/ (* (cos (- (* 1/2 (PI)) b)) (+ (* -1 (/ (* r (* (pow (cos (- (* 1/2 (PI)) b)) 2) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b)))))) (sin (- (* 1/2 (PI)) b))))))) (+ (* -1 (/ (* r (* (pow (cos (- (* 1/2 (PI)) b)) 2) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))) (* -1 (/ (* r (* (cos (- (* 1/2 (PI)) b)) (sin b))) (pow (sin (- (* 1/2 (PI)) b)) 2))))) (/ (* r (sin b)) (sin (- (* 1/2 (PI)) b))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) b))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) b)) (* -1 (* a (cos (- (* 1/2 (PI)) b)))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) b)) (* a (+ (* -1 (cos (- (* 1/2 (PI)) b))) (* -1/2 (* a (sin (- (* 1/2 (PI)) b)))))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) b)) (* a (+ (* -1 (cos (- (* 1/2 (PI)) b))) (* a (+ (* -1/2 (sin (- (* 1/2 (PI)) b))) (* 1/6 (* a (cos (- (* 1/2 (PI)) b)))))))))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) b)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (- (+ (* -1 a) (* 1/2 (PI))) b)))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* (/ r (sin (- (* 1/2 (PI)) b))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b))))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (* (/ r (sin (- (* 1/2 (PI)) b))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b)))))) (* (/ (* a (* r (cos (- (* 1/2 (PI)) b)))) (pow (sin (- (* 1/2 (PI)) b)) 2)) (sqrt (- 1/2 (* 1/2 (cos (* 2 b)))))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (* a (+ (* -1 (* (* a (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) b)) 2)) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) b)))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b))))))) (* (/ (* r (cos (- (* 1/2 (PI)) b))) (pow (sin (- (* 1/2 (PI)) b)) 2)) (sqrt (- 1/2 (* 1/2 (cos (* 2 b)))))))) (* (/ r (sin (- (* 1/2 (PI)) b))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b)))))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (+ (* a (+ (* a (+ (* -1 (* (* a (+ (* -1/2 (/ (* r (cos (- (* 1/2 (PI)) b))) (pow (sin (- (* 1/2 (PI)) b)) 2))) (+ (* 1/6 (/ (* r (cos (- (* 1/2 (PI)) b))) (pow (sin (- (* 1/2 (PI)) b)) 2))) (/ (* (cos (- (* 1/2 (PI)) b)) (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) b)) 2)) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) b)))))) (sin (- (* 1/2 (PI)) b)))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b))))))) (* -1 (* (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) b)) 2)) (pow (sin (- (* 1/2 (PI)) b)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) b))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b))))))))) (* (/ (* r (cos (- (* 1/2 (PI)) b))) (pow (sin (- (* 1/2 (PI)) b)) 2)) (sqrt (- 1/2 (* 1/2 (cos (* 2 b)))))))) (* (/ r (sin (- (* 1/2 (PI)) b))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b)))))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* -1 b)))
#s(approx (neg (+ a b)) #s(hole binary64 (- (* -1 a) b)))
#s(approx (+ a b) #s(hole binary64 b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (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)) (* (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)) (* (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)) (* (sin b) (sin a))) #s(hole binary64 (cos b)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (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 (* (sin b) (sin a)) #s(hole binary64 (* a (sin b))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* a (+ (sin b) (* -1/6 (* (pow a 2) (sin b)))))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* a (+ (sin b) (* (pow a 2) (+ (* -1/6 (sin b)) (* 1/120 (* (pow a 2) (sin b)))))))))
#s(approx (* (sin b) (sin a)) #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 (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 a))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* a (+ 1 (* -1/6 (pow a 2))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* 1/120 (pow a 2)) 1/6))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow a 2)))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) #s(hole binary64 (+ 1 (* (pow a 2) (- (* 1/120 (pow a 2)) 1/6)))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) #s(hole binary64 (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6)))))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(hole binary64 (- (* 1/120 (pow a 2)) 1/6)))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(hole binary64 (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6)))
#s(approx (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) #s(hole binary64 (* 1/120 (pow a 2))))
#s(approx (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) #s(hole binary64 (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2))))))
#s(approx (+ (* -1/5040 (* a a)) 1/120) #s(hole binary64 1/120))
#s(approx (+ (* -1/5040 (* a a)) 1/120) #s(hole binary64 (+ 1/120 (* -1/5040 (pow a 2)))))
#s(approx (* a a) #s(hole binary64 (pow a 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 (* (neg (sin b)) (sin a)) #s(hole binary64 (* -1 (* (sin a) (sin b)))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ a b)))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* -1 a)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* a (- (* 1/2 (/ (PI) a)) (+ 1 (/ b a))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* -1 a)))
#s(approx (neg (+ a b)) #s(hole binary64 (* a (- (* -1 (/ b a)) 1))))
#s(approx (+ a b) #s(hole binary64 a))
#s(approx (+ a b) #s(hole binary64 (* a (+ 1 (/ b a)))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (- (* (cos a) (cos b)) (* (sin a) (sin b)))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (* (cos a) (cos b))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* (sin a) (sin b))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* -1/5040 (pow a 7))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* (pow a 7) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* (pow a 7) (- (* 1/120 (/ 1 (pow a 2))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* (pow a 7) (- (+ (* 1/120 (/ 1 (pow a 2))) (/ 1 (pow a 6))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) #s(hole binary64 (* -1/5040 (pow a 6))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) #s(hole binary64 (* (pow a 6) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) #s(hole binary64 (* (pow a 6) (- (* 1/120 (/ 1 (pow a 2))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) #s(hole binary64 (* (pow a 6) (- (+ (* 1/120 (/ 1 (pow a 2))) (/ 1 (pow a 6))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(hole binary64 (* -1/5040 (pow a 4))))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(hole binary64 (* (pow a 4) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(hole binary64 (* (pow a 4) (- (* 1/120 (/ 1 (pow a 2))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) #s(hole binary64 (* -1/5040 (pow a 4))))
#s(approx (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) #s(hole binary64 (* (pow a 4) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (+ (* -1/5040 (* a a)) 1/120) #s(hole binary64 (* -1/5040 (pow a 2))))
#s(approx (+ (* -1/5040 (* a a)) 1/120) #s(hole binary64 (* (pow a 2) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- b (* -1 a))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* r (sin b)) (sin (- (+ (* -1 a) (* 1/2 (PI))) b)))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ (* -1 a) (* 1/2 (PI))) b))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* -1 (* a (+ 1 (* -1 (/ (- (* 1/2 (PI)) b) a)))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* (/ r (sin (- (+ (* -1 a) (* 1/2 (PI))) b))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b))))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* -1 (* a (+ 1 (/ b a))))))
#s(approx (+ a b) #s(hole binary64 (* -1 (* a (- (* -1 (/ b a)) 1)))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* -1 (* (pow a 7) (- 1/5040 (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* -1 (* (pow a 7) (- (+ 1/5040 (/ 1/6 (pow a 4))) (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) #s(hole binary64 (* -1 (* (pow a 7) (- (+ 1/5040 (/ 1/6 (pow a 4))) (+ (* 1/120 (/ 1 (pow a 2))) (/ 1 (pow a 6))))))))
#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 (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 (* (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 (sin b)) #s(hole binary64 (* -1 b)))
#s(approx (neg (sin b)) #s(hole binary64 (* b (- (* 1/6 (pow b 2)) 1))))
#s(approx (neg (sin b)) #s(hole binary64 (* b (- (* (pow b 2) (+ 1/6 (* -1/120 (pow b 2)))) 1))))
#s(approx (neg (sin b)) #s(hole binary64 (* b (- (* (pow b 2) (+ 1/6 (* (pow b 2) (- (* 1/5040 (pow b 2)) 1/120)))) 1))))
#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 (tan b)) #s(hole binary64 (* b r)))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* 1/3 (* (pow b 2) r))))))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* 2/15 (* (pow b 2) r)) (* 1/3 r)))))))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* 1/3 r) (* (pow b 2) (+ (* 17/315 (* (pow b 2) r)) (* 2/15 r)))))))))
#s(approx (tan b) #s(hole binary64 b))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* 1/3 (pow b 2))))))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (+ 1/3 (* 2/15 (pow b 2))))))))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (+ 1/3 (* (pow b 2) (+ 2/15 (* 17/315 (pow b 2))))))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* b r) (sin (- (* 1/2 (PI)) a)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (/ r (sin (- (* 1/2 (PI)) a))) (/ (* b (* r (cos (- (* 1/2 (PI)) a)))) (pow (sin (- (* 1/2 (PI)) a)) 2))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (* b (- (* b (- (* -1/6 (/ r (sin (- (* 1/2 (PI)) a)))) (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a))))))) (* -1 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))))) (/ r (sin (- (* 1/2 (PI)) a)))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (* b (- (* b (- (+ (* -1 (* b (+ (* -1 (/ (* (cos (- (* 1/2 (PI)) a)) (- (* -1/6 (/ r (sin (- (* 1/2 (PI)) a)))) (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a))))))) (sin (- (* 1/2 (PI)) a)))) (+ (* -1/2 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))) (* 1/6 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))))))) (* -1/6 (/ r (sin (- (* 1/2 (PI)) a))))) (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a))))))) (* -1 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))))) (/ r (sin (- (* 1/2 (PI)) a)))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) a))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) a)) (* -1 (* b (cos (- (* 1/2 (PI)) a)))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) a)) (* b (+ (* -1 (cos (- (* 1/2 (PI)) a))) (* -1/2 (* b (sin (- (* 1/2 (PI)) a)))))))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) a)) (* b (+ (* -1 (cos (- (* 1/2 (PI)) a))) (* b (+ (* -1/2 (sin (- (* 1/2 (PI)) a))) (* 1/6 (* b (cos (- (* 1/2 (PI)) a)))))))))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) a)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (- (+ (* -1 b) (* 1/2 (PI))) a)))
#s(approx (neg b) #s(hole binary64 (* -1 b)))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* b r) (sin (- (* 1/2 (PI)) a)))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (/ r (sin (- (* 1/2 (PI)) a))) (/ (* b (* r (cos (- (* 1/2 (PI)) a)))) (pow (sin (- (* 1/2 (PI)) a)) 2))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (* b (+ (* b (+ (* -1 (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a)))))) (* -1/6 (/ r (sin (- (* 1/2 (PI)) a)))))) (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2)))) (/ r (sin (- (* 1/2 (PI)) a)))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* b (+ (* b (+ (* b (+ (* -1 (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a)))))) (+ (* -1/6 (/ r (sin (- (* 1/2 (PI)) a)))) (* b (+ (* -1 (+ (* -1/2 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))) (+ (* 1/6 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2))) (/ (* (cos (- (* 1/2 (PI)) a)) (+ (* -1 (/ (* r (pow (cos (- (* 1/2 (PI)) a)) 2)) (pow (sin (- (* 1/2 (PI)) a)) 3))) (* -1/2 (/ r (sin (- (* 1/2 (PI)) a)))))) (sin (- (* 1/2 (PI)) a)))))) (* -1/6 (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2)))))))) (/ (* r (cos (- (* 1/2 (PI)) a))) (pow (sin (- (* 1/2 (PI)) a)) 2)))) (/ r (sin (- (* 1/2 (PI)) a)))))))
#s(approx (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) #s(hole binary64 (* b r)))
#s(approx (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) #s(hole binary64 (* b (+ r (* -1/6 (* (pow b 2) r))))))
#s(approx (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* -1/6 r) (* 1/120 (* (pow b 2) r))))))))
#s(approx (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) #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 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) #s(hole binary64 b))
#s(approx (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) #s(hole binary64 (* b (+ 1 (* -1/6 (pow b 2))))))
#s(approx (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* 1/120 (pow b 2)) 1/6))))))
#s(approx (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) #s(hole binary64 (* b (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 1/120 (* -1/5040 (pow b 2)))) 1/6))))))
#s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) #s(hole binary64 (/ 1 b)))
#s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) #s(hole binary64 (/ (+ 1 (* 1/6 (pow b 2))) b)))
#s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) #s(hole binary64 (/ (+ 1 (* (pow b 2) (+ 1/6 (* 7/360 (pow b 2))))) b)))
#s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) #s(hole binary64 (/ (+ 1 (* (pow b 2) (+ 1/6 (* (pow b 2) (+ 7/360 (* 31/15120 (pow b 2))))))) b)))
#s(approx (- 1/2 (* 1/2 (cos (* 2 b)))) #s(hole binary64 (pow b 2)))
#s(approx (- 1/2 (* 1/2 (cos (* 2 b)))) #s(hole binary64 (* (pow b 2) (+ 1 (* -1/3 (pow b 2))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 b)))) #s(hole binary64 (* (pow b 2) (+ 1 (* (pow b 2) (- (* 2/45 (pow b 2)) 1/3))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 b)))) #s(hole binary64 (* (pow b 2) (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 2/45 (* -1/315 (pow b 2)))) 1/3))))))
#s(approx (* 1/2 (cos (* 2 b))) #s(hole binary64 1/2))
#s(approx (* 1/2 (cos (* 2 b))) #s(hole binary64 (+ 1/2 (* -1 (pow b 2)))))
#s(approx (* 1/2 (cos (* 2 b))) #s(hole binary64 (+ 1/2 (* (pow b 2) (- (* 1/3 (pow b 2)) 1)))))
#s(approx (* 1/2 (cos (* 2 b))) #s(hole binary64 (+ 1/2 (* (pow b 2) (- (* (pow b 2) (+ 1/3 (* -2/45 (pow b 2)))) 1)))))
#s(approx (cos (* 2 b)) #s(hole binary64 1))
#s(approx (cos (* 2 b)) #s(hole binary64 (+ 1 (* -2 (pow b 2)))))
#s(approx (cos (* 2 b)) #s(hole binary64 (+ 1 (* (pow b 2) (- (* 2/3 (pow b 2)) 2)))))
#s(approx (cos (* 2 b)) #s(hole binary64 (+ 1 (* (pow b 2) (- (* (pow b 2) (+ 2/3 (* -4/45 (pow b 2)))) 2)))))
#s(approx (neg (+ a b)) #s(hole binary64 (- (* -1 b) a)))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (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)) (* (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)) (* (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 (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (cos a)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#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 (* (sin b) (sin a)) #s(hole binary64 (* b (sin a))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* b (+ (sin a) (* -1/6 (* (pow b 2) (sin a)))))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* b (+ (sin a) (* (pow b 2) (+ (* -1/6 (sin a)) (* 1/120 (* (pow b 2) (sin a)))))))))
#s(approx (* (sin b) (sin a)) #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 (neg (sin b)) #s(hole binary64 (* -1 (sin b))))
#s(approx (tan b) #s(hole binary64 (/ (sin b) (cos b))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* -1 b)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* b (- (* 1/2 (/ (PI) b)) (+ 1 (/ a b))))))
#s(approx (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) #s(hole binary64 (sqrt (- 1/2 (* 1/2 (cos (* 2 b)))))))
#s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) #s(hole binary64 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 b))))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* b (- (* -1 (/ a b)) 1))))
#s(approx (+ a b) #s(hole binary64 (* b (+ 1 (/ a b)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(hole binary64 (/ (* r (sin b)) (cos (- a (* -1 b))))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (/ (* r (sin b)) (sin (- (+ (* -1 b) (* 1/2 (PI))) a)))))
#s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ (* -1 b) (* 1/2 (PI))) a))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) #s(hole binary64 (* -1 (* b (+ 1 (* -1 (/ (- (* 1/2 (PI)) a) b)))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) #s(hole binary64 (* (/ r (sin (- (+ (* -1 b) (* 1/2 (PI))) a))) (sqrt (- 1/2 (* 1/2 (cos (* 2 b))))))))
#s(approx (neg (+ a b)) #s(hole binary64 (* -1 (* b (+ 1 (/ a b))))))
#s(approx (+ a b) #s(hole binary64 (* -1 (* b (- (* -1 (/ a b)) 1)))))
Outputs
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (neg.f64 (*.f64 (sin.f64 b) r)) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
(*.f64 (sin.f64 b) r)
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
(/.f64 (-.f64 (*.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) (sin.f64 b)))) (cos.f64 (-.f64 a b)))
(/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))) (*.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)))) (sin.f64 (-.f64 a (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (-.f64 (*.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 (neg.f64 (sin.f64 a)) (sin.f64 b)))) (cos.f64 (+.f64 (neg.f64 b) a)))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)) (fma.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64))) (fma.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (-.f64 (*.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 (cos.f64 a) (cos.f64 b))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)) (-.f64 (*.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))) (*.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))))))
(sin.f64 (+.f64 (neg.f64 (-.f64 a (neg.f64 b))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) a))
(sin.f64 (+.f64 a (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (-.f64 a (neg.f64 b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (+.f64 a b) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (neg.f64 (+.f64 a b))))
(fma.f64 (sin.f64 (-.f64 a (neg.f64 b))) #s(literal 0 binary64) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (+.f64 a b)) #s(literal 0 binary64) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (neg.f64 (+.f64 a b))) #s(literal 0 binary64) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal -1 binary64) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 #s(literal -1 binary64) (*.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 (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 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (+.f64 a b)) (*.f64 #s(literal 0 binary64) (sin.f64 (neg.f64 (+.f64 a b)))))
(-.f64 (*.f64 (cos.f64 a) (cos.f64 (*.f64 #s(literal 1 binary64) b))) (*.f64 (sin.f64 a) (sin.f64 (*.f64 #s(literal 1 binary64) b))))
(-.f64 (*.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 (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 b))) (sin.f64 a)))
(-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b)))
(cos.f64 (neg.f64 (neg.f64 (-.f64 a (neg.f64 b)))))
(cos.f64 (neg.f64 (neg.f64 (+.f64 a b))))
(cos.f64 (neg.f64 (-.f64 a (neg.f64 b))))
(cos.f64 (-.f64 a (neg.f64 b)))
(cos.f64 (-.f64 (neg.f64 b) a))
(cos.f64 (neg.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(+.f64 (*.f64 (sin.f64 (-.f64 a (neg.f64 b))) #s(literal 0 binary64)) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(+.f64 (*.f64 (sin.f64 (+.f64 a b)) #s(literal 0 binary64)) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (+.f64 a b))) (*.f64 #s(literal 0 binary64) (sin.f64 (neg.f64 (+.f64 a b)))))
(+.f64 (*.f64 (sin.f64 (neg.f64 (+.f64 a b))) #s(literal 0 binary64)) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(+.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)))
(sin.f64 (+.f64 (neg.f64 b) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 b) #s(literal 0 binary64) (*.f64 (cos.f64 b) #s(literal 1 binary64)))
(cos.f64 (neg.f64 (neg.f64 b)))
(cos.f64 (neg.f64 b))
(cos.f64 b)
(+.f64 (*.f64 (sin.f64 b) #s(literal 0 binary64)) (*.f64 (cos.f64 b) #s(literal 1 binary64)))
(sin.f64 (+.f64 (neg.f64 a) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 a) #s(literal 0 binary64) (*.f64 (cos.f64 a) #s(literal 1 binary64)))
(cos.f64 (neg.f64 (neg.f64 a)))
(cos.f64 (neg.f64 a))
(cos.f64 a)
(+.f64 (*.f64 (sin.f64 a) #s(literal 0 binary64)) (*.f64 (cos.f64 a) #s(literal 1 binary64)))
a
(*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))
(*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))
(*.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 a) (sin.f64 b)))
(*.f64 (sin.f64 a) (neg.f64 (sin.f64 b)))
(/.f64 (+.f64 (sin.f64 (-.f64 a (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 a b))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 b (PI.f64)) a)) (cos.f64 (+.f64 (+.f64 b (PI.f64)) a))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (+.f64 a b)) (cos.f64 (+.f64 (neg.f64 b) a))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 a (+.f64 b (PI.f64)))) (cos.f64 (+.f64 a (+.f64 b (PI.f64))))) #s(literal 2 binary64))
(neg.f64 (*.f64 (sin.f64 a) (sin.f64 b)))
(*.f64 #s(literal -1 binary64) (sin.f64 b))
(*.f64 (sin.f64 b) #s(literal -1 binary64))
(neg.f64 (sin.f64 b))
(sin.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 b (PI.f64)))
(sin.f64 (neg.f64 b))
(fma.f64 (sin.f64 b) (cos.f64 (PI.f64)) (*.f64 (cos.f64 b) (sin.f64 (PI.f64))))
(-.f64 (*.f64 (cos.f64 b) #s(literal 0 binary64)) (*.f64 (sin.f64 b) #s(literal 1 binary64)))
(cos.f64 (neg.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (*.f64 (sin.f64 b) (cos.f64 (PI.f64))) (*.f64 (cos.f64 b) (sin.f64 (PI.f64))))
(sin.f64 a)
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 #s(approx (tan b) b) r))
(*.f64 #s(approx (tan b) b) r)
(*.f64 r #s(approx (tan b) b))
#s(approx (tan b) b)
(*.f64 r (/.f64 (sin.f64 b) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b)))))
(/.f64 (neg.f64 (*.f64 (sin.f64 b) r)) (neg.f64 (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b)))))
(/.f64 (*.f64 (sin.f64 b) r) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
(sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))
(*.f64 #s(literal -1 binary64) b)
(*.f64 b #s(literal -1 binary64))
(neg.f64 b)
(*.f64 r (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 a b))))
(/.f64 (neg.f64 (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) r)) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) r) (cos.f64 (+.f64 a b)))
(*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) r)
(*.f64 r (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))
(/.f64 (*.f64 r #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))
(*.f64 (pow.f64 (pow.f64 (sin.f64 b) #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (sin.f64 b) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)))
(pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))) #s(literal -1 binary64))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 b) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))
(sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))
(exp.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 b))) #s(literal 1/2 binary64)))
#s(literal 1 binary64)
(*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64)))
(*.f64 (pow.f64 (sin.f64 b) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 b) #s(literal -1/2 binary64)))
(pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) #s(literal -1 binary64))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))
(pow.f64 (sin.f64 b) #s(literal -1 binary64))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 b))) #s(literal -1/2 binary64)))
(+.f64 (cosh.f64 (*.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 b))) #s(literal -1/2 binary64))) (sinh.f64 (*.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 b))) #s(literal -1/2 binary64))))
(*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 b) (sin.f64 b))
(pow.f64 (sin.f64 b) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 b b)) (cos.f64 (+.f64 b b))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (+.f64 b b)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (+.f64 #s(literal 1/4 binary64) (fma.f64 (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 2 binary64))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 b b))))
#s(literal 1/2 binary64)
(*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 b b)))
(sin.f64 (+.f64 (neg.f64 (+.f64 b b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 #s(literal 2 binary64) b (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 (+.f64 b b)) #s(literal 0 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1 binary64)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (+.f64 b b))))
(cos.f64 (neg.f64 (+.f64 b b)))
(cos.f64 (+.f64 b b))
(+.f64 (*.f64 (sin.f64 (+.f64 b b)) #s(literal 0 binary64)) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1 binary64)))
(*.f64 #s(literal 2 binary64) b)
(*.f64 b #s(literal 2 binary64))
(+.f64 b b)
#s(literal 2 binary64)
#s(literal -1/2 binary64)
(/.f64 (-.f64 (*.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) (sin.f64 b)))) (cos.f64 (-.f64 a b)))
(/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))) (*.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)))) (sin.f64 (-.f64 a (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (-.f64 (*.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 (neg.f64 (sin.f64 a)) (sin.f64 b)))) (cos.f64 (+.f64 (neg.f64 b) a)))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)) (fma.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64))) (fma.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (-.f64 (*.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 (cos.f64 a) (cos.f64 b))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)) (-.f64 (*.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))) (*.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b))))))
(sin.f64 (+.f64 (neg.f64 (-.f64 a (neg.f64 b))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) a))
(sin.f64 (+.f64 a (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (-.f64 a (neg.f64 b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (+.f64 a b) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (neg.f64 (+.f64 a b))))
(fma.f64 (sin.f64 (-.f64 a (neg.f64 b))) #s(literal 0 binary64) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (+.f64 a b)) #s(literal 0 binary64) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (neg.f64 (+.f64 a b))) #s(literal 0 binary64) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal -1 binary64) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 #s(literal -1 binary64) (*.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 (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 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (+.f64 a b)) (*.f64 #s(literal 0 binary64) (sin.f64 (neg.f64 (+.f64 a b)))))
(-.f64 (*.f64 (cos.f64 a) (cos.f64 (*.f64 #s(literal 1 binary64) b))) (*.f64 (sin.f64 a) (sin.f64 (*.f64 #s(literal 1 binary64) b))))
(-.f64 (*.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 (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 b))) (sin.f64 a)))
(-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b)))
(cos.f64 (neg.f64 (neg.f64 (-.f64 a (neg.f64 b)))))
(cos.f64 (neg.f64 (neg.f64 (+.f64 a b))))
(cos.f64 (neg.f64 (-.f64 a (neg.f64 b))))
(cos.f64 (-.f64 a (neg.f64 b)))
(cos.f64 (-.f64 (neg.f64 b) a))
(cos.f64 (neg.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(+.f64 (*.f64 (sin.f64 (-.f64 a (neg.f64 b))) #s(literal 0 binary64)) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(+.f64 (*.f64 (sin.f64 (+.f64 a b)) #s(literal 0 binary64)) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (+.f64 a b))) (*.f64 #s(literal 0 binary64) (sin.f64 (neg.f64 (+.f64 a b)))))
(+.f64 (*.f64 (sin.f64 (neg.f64 (+.f64 a b))) #s(literal 0 binary64)) (*.f64 (cos.f64 (+.f64 a b)) #s(literal 1 binary64)))
(+.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 (*.f64 (neg.f64 (+.f64 a b)) (neg.f64 (+.f64 a b))) (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (neg.f64 (+.f64 a b)) #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (neg.f64 (+.f64 a b)) (neg.f64 (+.f64 a b)) (-.f64 (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (neg.f64 (+.f64 a b)))
(+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 (+.f64 a b))
(fma.f64 #s(literal -1 binary64) a (neg.f64 b))
(fma.f64 a #s(literal -1 binary64) (neg.f64 b))
(+.f64 (neg.f64 a) (neg.f64 b))
(/.f64 (-.f64 (*.f64 a a) (*.f64 b b)) (-.f64 a b))
(/.f64 (+.f64 (pow.f64 a #s(literal 3 binary64)) (pow.f64 b #s(literal 3 binary64))) (fma.f64 a a (-.f64 (*.f64 b b) (*.f64 a b))))
(+.f64 a b)
(+.f64 b a)
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
(*.f64 r (/.f64 (sin.f64 b) (-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)) (sin.f64 b)))))
(/.f64 (neg.f64 (*.f64 (sin.f64 b) r)) (neg.f64 (-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)) (sin.f64 b)))))
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)) (sin.f64 b))))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b))) (*.f64 (*.f64 #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)) (sin.f64 b)) (*.f64 #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)) (sin.f64 b)))) (fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)) (sin.f64 b))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)) (sin.f64 b)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)) (fma.f64 (*.f64 #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)) (sin.f64 b)) (*.f64 #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)) (sin.f64 b)) (*.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)) (sin.f64 b))))))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (neg.f64 (sin.f64 b)) #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a))))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 b)) #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a))))
(-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)) (sin.f64 b)))
(+.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (neg.f64 (sin.f64 b)) #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a))))
(*.f64 (cos.f64 a) (cos.f64 b))
(*.f64 (cos.f64 b) (cos.f64 a))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 b))) (sin.f64 (+.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 b)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) b)) (sin.f64 (+.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) b))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 a))) (sin.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 a)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 (neg.f64 a) (neg.f64 b)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 a) b)) (cos.f64 (-.f64 (neg.f64 a) b))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 b) (neg.f64 a))) (cos.f64 (-.f64 (neg.f64 b) (neg.f64 a)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 b) a)) (cos.f64 (+.f64 a b))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 b (neg.f64 a))) (cos.f64 (-.f64 b (neg.f64 a)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 a b))) #s(literal 2 binary64))
(*.f64 #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)) (sin.f64 b))
(*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)))
#s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a))
(*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)
(*.f64 a (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) a (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a))
(fma.f64 a #s(literal 1 binary64) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)))
(+.f64 (*.f64 a #s(literal 1 binary64)) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)))
(+.f64 (*.f64 #s(literal 1 binary64) a) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) #s(literal 3 binary64)) #s(literal 1 binary64)) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)))))
(fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64))
(fma.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64))
(fma.f64 (*.f64 a a) (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) #s(literal 1 binary64))
(-.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (*.f64 a a)) (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64))))
(+.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a)) #s(literal 1/36 binary64)) (fma.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 a a) #s(literal 1/6 binary64)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 3 binary64)) #s(literal 1/216 binary64)) (fma.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) (+.f64 #s(literal 1/36 binary64) (*.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)))))
(-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64))
(*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a)
(*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 a a))
(*.f64 (*.f64 a a) (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)))
(fma.f64 (*.f64 a a) #s(literal 1/120 binary64) (*.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) (*.f64 a a)))
(fma.f64 (*.f64 a a) #s(literal 1/120 binary64) (*.f64 (*.f64 a a) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64))))
(fma.f64 #s(literal 1/120 binary64) (*.f64 a a) (*.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) (*.f64 a a)))
(fma.f64 #s(literal 1/120 binary64) (*.f64 a a) (*.f64 (*.f64 a a) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64))))
(+.f64 (*.f64 (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) (*.f64 a a)))
(+.f64 (*.f64 (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 (*.f64 a a) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64))) #s(literal 1/14400 binary64)) (-.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64)))
(/.f64 (-.f64 #s(literal 1/14400 binary64) (*.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)))) (-.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64))))
(/.f64 (fma.f64 (pow.f64 (*.f64 a a) #s(literal 3 binary64)) #s(literal -1/128024064000 binary64) #s(literal 1/1728000 binary64)) (fma.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) (-.f64 #s(literal 1/14400 binary64) (*.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64)))))
(/.f64 (+.f64 #s(literal 1/1728000 binary64) (pow.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/14400 binary64) (-.f64 (*.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64))) (*.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64))))))
(fma.f64 (*.f64 #s(literal -1/5040 binary64) a) a #s(literal 1/120 binary64))
(fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))
(fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64))
(-.f64 #s(literal 1/120 binary64) (*.f64 #s(literal 1/5040 binary64) (*.f64 a a)))
(+.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64))
(+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)))
#s(literal -1/5040 binary64)
(*.f64 (pow.f64 a #s(literal 1 binary64)) (pow.f64 a #s(literal 1 binary64)))
(*.f64 (fabs.f64 a) (fabs.f64 a))
(*.f64 (neg.f64 a) (neg.f64 a))
(*.f64 a a)
(pow.f64 a #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 a) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 a) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 a) #s(literal 2 binary64))))
#s(literal 1/120 binary64)
#s(literal 1/6 binary64)
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (* r (tan b)) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a) b))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (/.f64 r (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a) b)))))
#s(approx (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) r))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (fma.f64 (tan.f64 b) r (/.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) r) a) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (fma.f64 (-.f64 (*.f64 (neg.f64 a) (fma.f64 (*.f64 (tan.f64 b) r) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (pow.f64 (sin.f64 b) #s(literal 3 binary64)) r) (pow.f64 (cos.f64 b) #s(literal 3 binary64)))))) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))) a (*.f64 (tan.f64 b) r)))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (fma.f64 (-.f64 (*.f64 (-.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) #s(literal 1/6 binary64) (/.f64 (*.f64 (fma.f64 (*.f64 (tan.f64 b) r) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (pow.f64 (sin.f64 b) #s(literal 3 binary64)) r) (pow.f64 (cos.f64 b) #s(literal 3 binary64))))) (sin.f64 b)) (cos.f64 b)))) a)) (fma.f64 (*.f64 (tan.f64 b) r) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (pow.f64 (sin.f64 b) #s(literal 3 binary64)) r) (pow.f64 (cos.f64 b) #s(literal 3 binary64)))))) a) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))) a (*.f64 (tan.f64 b) r)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (cos.f64 b))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 a (fma.f64 (*.f64 #s(literal -1/2 binary64) a) (cos.f64 b) (neg.f64 (sin.f64 b))) (cos.f64 b)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 a (fma.f64 (fma.f64 (*.f64 (sin.f64 b) a) #s(literal 1/6 binary64) (*.f64 (cos.f64 b) #s(literal -1/2 binary64))) a (neg.f64 (sin.f64 b))) (cos.f64 b)))
#s(approx (cos a) #s(literal 1 binary64))
#s(approx (cos a) (fma.f64 (*.f64 a a) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos a) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))
#s(approx (cos a) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 a a) #s(literal 1/24 binary64)) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))
#s(approx (* (neg (sin b)) (sin a)) (*.f64 (neg.f64 a) (sin.f64 b)))
#s(approx (* (neg (sin b)) (sin a)) (*.f64 (fma.f64 (*.f64 #s(literal 1/6 binary64) (*.f64 a a)) (sin.f64 b) (neg.f64 (sin.f64 b))) a))
#s(approx (* (neg (sin b)) (sin a)) (*.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 a a) (sin.f64 b)) #s(literal -1/120 binary64) (*.f64 (sin.f64 b) #s(literal 1/6 binary64))) (*.f64 a a) (neg.f64 (sin.f64 b))) a))
#s(approx (* (neg (sin b)) (sin a)) (*.f64 (fma.f64 (fma.f64 #s(literal 1/6 binary64) (sin.f64 b) (*.f64 (fma.f64 #s(literal -1/120 binary64) (sin.f64 b) (*.f64 (*.f64 #s(literal 1/5040 binary64) (*.f64 a a)) (sin.f64 b))) (*.f64 a a))) (*.f64 a a) (neg.f64 (sin.f64 b))) a))
#s(approx (sin a) a)
#s(approx (sin a) (*.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 a a) #s(literal 1 binary64)) a))
#s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (*.f64 a a) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a))
#s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (fma.f64 (tan.f64 b) r (/.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) r) a) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (fma.f64 (-.f64 (*.f64 (neg.f64 a) (fma.f64 (*.f64 (tan.f64 b) r) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (pow.f64 (sin.f64 b) #s(literal 3 binary64)) r) (pow.f64 (cos.f64 b) #s(literal 3 binary64)))))) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))) a (*.f64 (tan.f64 b) r)))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (fma.f64 (-.f64 (*.f64 (-.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) #s(literal 1/6 binary64) (/.f64 (*.f64 (fma.f64 (*.f64 (tan.f64 b) r) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (pow.f64 (sin.f64 b) #s(literal 3 binary64)) r) (pow.f64 (cos.f64 b) #s(literal 3 binary64))))) (sin.f64 b)) (cos.f64 b)))) a)) (fma.f64 (*.f64 (tan.f64 b) r) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (pow.f64 (sin.f64 b) #s(literal 3 binary64)) r) (pow.f64 (cos.f64 b) #s(literal 3 binary64)))))) a) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))) a (*.f64 (tan.f64 b) r)))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (fma.f64 r (/.f64 (sin.f64 b) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) (/.f64 (*.f64 (*.f64 a r) (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) (sin.f64 b))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (fma.f64 (-.f64 (*.f64 (neg.f64 a) (fma.f64 (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) #s(literal -1/2 binary64) (neg.f64 (*.f64 r (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))))) (sin.f64 b)) (pow.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) #s(literal 3 binary64))))))) (neg.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) (sin.f64 b)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)))))))) a (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (fma.f64 (-.f64 (*.f64 (-.f64 (*.f64 (neg.f64 a) (fma.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) (sin.f64 b)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)))))) #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) (/.f64 (fma.f64 (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) #s(literal -1/2 binary64) (neg.f64 (*.f64 r (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))))) (sin.f64 b)) (pow.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) #s(literal 3 binary64)))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) (sin.f64 b)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)))))) #s(literal 1/6 binary64))))) (fma.f64 (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) #s(literal -1/2 binary64) (neg.f64 (*.f64 r (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))))) (sin.f64 b)) (pow.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) #s(literal 3 binary64))))))) a) (neg.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) (sin.f64 b)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)))))))) a (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 a) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (fma.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) a) #s(literal -1/2 binary64) (neg.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)))) a (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/6 binary64) a) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) #s(literal -1/2 binary64))) a (neg.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)))) a (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 a)) b))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (+.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) (/.f64 (*.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) r) a) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)))))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (fma.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (neg.f64 (*.f64 (*.f64 (fma.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))))) r) (pow.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) #s(literal 3 binary64))))) a) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))) a (*.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (fma.f64 (fma.f64 (+.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))))) r) (pow.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) #s(literal 3 binary64))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))) (neg.f64 (*.f64 (*.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)))))) #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) (/.f64 (fma.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))))) r) (pow.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) #s(literal 3 binary64))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) (/.f64 (*.f64 #s(literal 1/6 binary64) (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) r)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)))))))) a) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))) a (*.f64 (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b)))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))) a (*.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))))
#s(approx (neg (+ a b)) (neg.f64 b))
#s(approx (neg (+ a b)) (-.f64 (neg.f64 a) b))
#s(approx (+ a b) b)
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (fma.f64 (tan.f64 b) r (/.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) r) a) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (fma.f64 (-.f64 (*.f64 (neg.f64 a) (fma.f64 (*.f64 (tan.f64 b) r) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (pow.f64 (sin.f64 b) #s(literal 3 binary64)) r) (pow.f64 (cos.f64 b) #s(literal 3 binary64)))))) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))) a (*.f64 (tan.f64 b) r)))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (fma.f64 (-.f64 (*.f64 (-.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) #s(literal 1/6 binary64) (/.f64 (*.f64 (fma.f64 (*.f64 (tan.f64 b) r) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (pow.f64 (sin.f64 b) #s(literal 3 binary64)) r) (pow.f64 (cos.f64 b) #s(literal 3 binary64))))) (sin.f64 b)) (cos.f64 b)))) a)) (fma.f64 (*.f64 (tan.f64 b) r) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (pow.f64 (sin.f64 b) #s(literal 3 binary64)) r) (pow.f64 (cos.f64 b) #s(literal 3 binary64)))))) a) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))) a (*.f64 (tan.f64 b) r)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (cos.f64 b))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 a (-.f64 (*.f64 (*.f64 (cos.f64 b) a) #s(literal -1/2 binary64)) (sin.f64 b)) (cos.f64 b)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 a (-.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 b) a) #s(literal 1/6 binary64) (*.f64 (cos.f64 b) #s(literal -1/2 binary64))) a) (sin.f64 b)) (cos.f64 b)))
#s(approx (* (cos b) (cos a)) (cos.f64 b))
#s(approx (* (cos b) (cos a)) (fma.f64 (*.f64 (*.f64 a a) (cos.f64 b)) #s(literal -1/2 binary64) (cos.f64 b)))
#s(approx (* (cos b) (cos a)) (fma.f64 (fma.f64 (*.f64 (*.f64 a a) (cos.f64 b)) #s(literal 1/24 binary64) (*.f64 (cos.f64 b) #s(literal -1/2 binary64))) (*.f64 a a) (cos.f64 b)))
#s(approx (* (cos b) (cos a)) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 a a) (cos.f64 b)) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) (cos.f64 b))) (*.f64 a a) (*.f64 (cos.f64 b) #s(literal -1/2 binary64))) (*.f64 a a) (cos.f64 b)))
#s(approx (* (sin b) (sin a)) (*.f64 (sin.f64 b) a))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 a a)) (sin.f64 b) (sin.f64 b)) a))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 b) (*.f64 (*.f64 (*.f64 a a) #s(literal 1/120 binary64)) (sin.f64 b))) (*.f64 a a) (sin.f64 b)) a))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 b) (*.f64 (fma.f64 (*.f64 (*.f64 a a) (sin.f64 b)) #s(literal -1/5040 binary64) (*.f64 (sin.f64 b) #s(literal 1/120 binary64))) (*.f64 a a))) (*.f64 a a) (sin.f64 b)) a))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) a)
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) (*.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 a a) #s(literal 1 binary64)) a))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) (*.f64 (fma.f64 (-.f64 (*.f64 (*.f64 a a) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) (fma.f64 #s(literal -1/6 binary64) (*.f64 a a) #s(literal 1 binary64)))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) (fma.f64 (-.f64 (*.f64 (*.f64 a a) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(literal -1/6 binary64))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (-.f64 (*.f64 (*.f64 a a) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)))
#s(approx (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) (*.f64 (*.f64 a a) #s(literal 1/120 binary64)))
#s(approx (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a))
#s(approx (+ (* -1/5040 (* a a)) 1/120) #s(literal 1/120 binary64))
#s(approx (+ (* -1/5040 (* a a)) 1/120) (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)))
#s(approx (* a a) (*.f64 a a))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (cos.f64 (+.f64 a b)))
#s(approx (* (neg (sin b)) (sin a)) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a) b)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 a))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (*.f64 (-.f64 (-.f64 (*.f64 (/.f64 (PI.f64) a) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (/.f64 b a)) a))
#s(approx (neg (+ a b)) (neg.f64 a))
#s(approx (neg (+ a b)) (*.f64 (-.f64 (/.f64 (neg.f64 b) a) #s(literal 1 binary64)) a))
#s(approx (+ a b) a)
#s(approx (+ a b) (*.f64 (+.f64 (/.f64 b a) #s(literal 1 binary64)) a))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (cos.f64 (+.f64 a b)))
#s(approx (* (cos b) (cos a)) (*.f64 (cos.f64 a) (cos.f64 b)))
#s(approx (* (sin b) (sin a)) (*.f64 (sin.f64 a) (sin.f64 b)))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) (*.f64 (pow.f64 a #s(literal 7 binary64)) #s(literal -1/5040 binary64)))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) (*.f64 (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64)) (pow.f64 a #s(literal 7 binary64))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) (*.f64 (-.f64 (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64)) (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 a a) (*.f64 a a)))) (pow.f64 a #s(literal 7 binary64))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) (*.f64 (-.f64 (-.f64 (+.f64 (pow.f64 a #s(literal -6 binary64)) (/.f64 #s(literal 1/120 binary64) (*.f64 a a))) #s(literal 1/5040 binary64)) (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 a a) (*.f64 a a)))) (pow.f64 a #s(literal 7 binary64))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) (*.f64 (pow.f64 a #s(literal 6 binary64)) #s(literal -1/5040 binary64)))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) (*.f64 (pow.f64 a #s(literal 6 binary64)) (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) (*.f64 (pow.f64 a #s(literal 6 binary64)) (-.f64 (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64)) (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 a a) (*.f64 a a))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) (*.f64 (-.f64 (-.f64 (+.f64 (pow.f64 a #s(literal -6 binary64)) (/.f64 #s(literal 1/120 binary64) (*.f64 a a))) #s(literal 1/5040 binary64)) (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 a a) (*.f64 a a)))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (*.f64 (*.f64 (*.f64 a a) (*.f64 a a)) #s(literal -1/5040 binary64)))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (*.f64 (*.f64 (*.f64 a a) (*.f64 a a)) (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64))))
#s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (*.f64 (-.f64 (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64)) (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 a a) (*.f64 a a)))) (*.f64 (*.f64 a a) (*.f64 a a))))
#s(approx (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) (*.f64 (*.f64 (*.f64 a a) (*.f64 a a)) #s(literal -1/5040 binary64)))
#s(approx (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) (*.f64 (*.f64 (*.f64 a a) (*.f64 a a)) (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64))))
#s(approx (+ (* -1/5040 (* a a)) 1/120) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)))
#s(approx (+ (* -1/5040 (* a a)) 1/120) (*.f64 (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64)) (*.f64 a a)))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (-.f64 b (neg.f64 a)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 a)) b))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 a)) b)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (*.f64 (neg.f64 a) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b) a)) #s(literal 1 binary64))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (/.f64 r (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 a)) b))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))
#s(approx (neg (+ a b)) (*.f64 (neg.f64 a) (+.f64 (/.f64 b a) #s(literal 1 binary64))))
#s(approx (+ a b) (*.f64 (neg.f64 a) (-.f64 (/.f64 (neg.f64 b) a) #s(literal 1 binary64))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) (neg.f64 (*.f64 (-.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/120 binary64) (*.f64 a a))) (pow.f64 a #s(literal 7 binary64)))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) (neg.f64 (*.f64 (+.f64 #s(literal 1/5040 binary64) (-.f64 (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 a a) (*.f64 a a))) (/.f64 #s(literal 1/120 binary64) (*.f64 a a)))) (pow.f64 a #s(literal 7 binary64)))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) (neg.f64 (*.f64 (-.f64 (+.f64 #s(literal 1/5040 binary64) (-.f64 (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 a a) (*.f64 a a))) (/.f64 #s(literal 1/120 binary64) (*.f64 a a)))) (pow.f64 a #s(literal -6 binary64))) (pow.f64 a #s(literal 7 binary64)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (fma.f64 b (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (fma.f64 (-.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (neg.f64 b) (fma.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) #s(literal -1/3 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) (sin.f64 a)) (cos.f64 a)))) (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64))))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (* r (sin b)) (*.f64 b r))
#s(approx (* r (sin b)) (*.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/6 binary64) r) b))
#s(approx (* r (sin b)) (*.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal 1/120 binary64) (*.f64 #s(literal -1/6 binary64) r)) (*.f64 b b) r) b))
#s(approx (* r (sin b)) (*.f64 (fma.f64 (fma.f64 (*.f64 b b) (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/5040 binary64) (*.f64 #s(literal 1/120 binary64) r)) (*.f64 #s(literal -1/6 binary64) r)) (*.f64 b b) r) b))
#s(approx (sin b) b)
#s(approx (sin b) (*.f64 (fma.f64 (*.f64 b b) #s(literal -1/6 binary64) #s(literal 1 binary64)) b))
#s(approx (sin b) (*.f64 (fma.f64 (-.f64 (*.f64 (*.f64 b b) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (sin b) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 b b) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 b b)) #s(literal 1/6 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (cos.f64 a))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 b (fma.f64 (*.f64 #s(literal -1/2 binary64) b) (cos.f64 a) (neg.f64 (sin.f64 a))) (cos.f64 a)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 b (fma.f64 (fma.f64 (*.f64 (sin.f64 a) b) #s(literal 1/6 binary64) (*.f64 (cos.f64 a) #s(literal -1/2 binary64))) b (neg.f64 (sin.f64 a))) (cos.f64 a)))
#s(approx (cos b) #s(literal 1 binary64))
#s(approx (cos b) (fma.f64 (*.f64 b b) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos b) (fma.f64 (-.f64 (*.f64 (*.f64 b b) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 b b) #s(literal 1 binary64)))
#s(approx (cos b) (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 b b) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 b b)) #s(literal 1/2 binary64)) (*.f64 b b) #s(literal 1 binary64)))
#s(approx (* (neg (sin b)) (sin a)) (*.f64 (neg.f64 b) (sin.f64 a)))
#s(approx (* (neg (sin b)) (sin a)) (*.f64 (fma.f64 (*.f64 (*.f64 b b) #s(literal 1/6 binary64)) (sin.f64 a) (neg.f64 (sin.f64 a))) b))
#s(approx (* (neg (sin b)) (sin a)) (*.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 b b) (sin.f64 a)) #s(literal -1/120 binary64) (*.f64 (sin.f64 a) #s(literal 1/6 binary64))) (*.f64 b b) (neg.f64 (sin.f64 a))) b))
#s(approx (* (neg (sin b)) (sin a)) (*.f64 (fma.f64 (fma.f64 #s(literal 1/6 binary64) (sin.f64 a) (*.f64 (fma.f64 (*.f64 (*.f64 b b) (sin.f64 a)) #s(literal 1/5040 binary64) (*.f64 (sin.f64 a) #s(literal -1/120 binary64))) (*.f64 b b))) (*.f64 b b) (neg.f64 (sin.f64 a))) b))
#s(approx (neg (sin b)) (neg.f64 b))
#s(approx (neg (sin b)) (*.f64 (-.f64 (*.f64 (*.f64 b b) #s(literal 1/6 binary64)) #s(literal 1 binary64)) b))
#s(approx (neg (sin b)) (*.f64 (-.f64 (*.f64 (fma.f64 (*.f64 b b) #s(literal -1/120 binary64) #s(literal 1/6 binary64)) (*.f64 b b)) #s(literal 1 binary64)) b))
#s(approx (neg (sin b)) (*.f64 (-.f64 (*.f64 (fma.f64 (-.f64 (*.f64 (*.f64 b b) #s(literal 1/5040 binary64)) #s(literal 1/120 binary64)) (*.f64 b b) #s(literal 1/6 binary64)) (*.f64 b b)) #s(literal 1 binary64)) b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (fma.f64 b (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (fma.f64 (-.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (neg.f64 b) (fma.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) #s(literal -1/3 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) (sin.f64 a)) (cos.f64 a)))) (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64))))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (* r (tan b)) (*.f64 b r))
#s(approx (* r (tan b)) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 (*.f64 b b) r) r) b))
#s(approx (* r (tan b)) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 1/3 binary64) r)) (*.f64 b b) r) b))
#s(approx (* r (tan b)) (*.f64 (fma.f64 (fma.f64 (*.f64 b b) (fma.f64 #s(literal 17/315 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 2/15 binary64) r)) (*.f64 #s(literal 1/3 binary64) r)) (*.f64 b b) r) b))
#s(approx (tan b) b)
#s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (tan b) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (tan b) (*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 17/315 binary64) (*.f64 b b) #s(literal 2/15 binary64)) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (fma.f64 b (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)))))) (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)))) b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (fma.f64 (-.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))) r) (pow.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) #s(literal 3 binary64)))))) b) (neg.f64 (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)))))))) b (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)))) b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (neg.f64 b) (fma.f64 (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)))))) #s(literal -1/3 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) (/.f64 (-.f64 (*.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))) r) (pow.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) #s(literal 3 binary64)))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)))))) (-.f64 (*.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))) r) (pow.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) #s(literal 3 binary64))))))) b) (neg.f64 (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)))))))) b (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)))) b))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 b) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (fma.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) b) #s(literal -1/2 binary64) (neg.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)))) b (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/6 binary64) b) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) #s(literal -1/2 binary64))) b (neg.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)))) b (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 b)) a))
#s(approx (neg b) (neg.f64 b))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (fma.f64 b (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)))))) (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)))) b))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))) #s(literal -1/6 binary64) (neg.f64 (fma.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))) r) (pow.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) #s(literal 3 binary64))))))) b (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))))) b (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)))) b))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (fma.f64 (fma.f64 (+.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)))))) #s(literal -1/6 binary64) (neg.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)))))) #s(literal -1/3 binary64) (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) (/.f64 (fma.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))) r) (pow.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) #s(literal 3 binary64))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))))) b (*.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))) #s(literal -1/6 binary64))) (neg.f64 (fma.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))) r) (pow.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) #s(literal 3 binary64))))))) b (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)) r) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))))) b (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a)))) b))
#s(approx (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (*.f64 b r))
#s(approx (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (*.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/6 binary64) r) b))
#s(approx (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (*.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal 1/120 binary64) (*.f64 #s(literal -1/6 binary64) r)) (*.f64 b b) r) b))
#s(approx (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (*.f64 (fma.f64 (fma.f64 (*.f64 b b) (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/5040 binary64) (*.f64 #s(literal 1/120 binary64) r)) (*.f64 #s(literal -1/6 binary64) r)) (*.f64 b b) r) b))
#s(approx (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) b)
#s(approx (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) (*.f64 (fma.f64 (*.f64 b b) #s(literal -1/6 binary64) #s(literal 1 binary64)) b))
#s(approx (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) (*.f64 (fma.f64 (-.f64 (*.f64 (*.f64 b b) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 b b) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 b b)) #s(literal 1/6 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (/.f64 #s(literal 1 binary64) b))
#s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (/.f64 (fma.f64 (*.f64 b b) #s(literal 1/6 binary64) #s(literal 1 binary64)) b))
#s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (/.f64 (fma.f64 (fma.f64 #s(literal 7/360 binary64) (*.f64 b b) #s(literal 1/6 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (/.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 31/15120 binary64) (*.f64 b b) #s(literal 7/360 binary64)) (*.f64 b b) #s(literal 1/6 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (- 1/2 (* 1/2 (cos (* 2 b)))) (*.f64 b b))
#s(approx (- 1/2 (* 1/2 (cos (* 2 b)))) (*.f64 (fma.f64 #s(literal -1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) (*.f64 b b)))
#s(approx (- 1/2 (* 1/2 (cos (* 2 b)))) (*.f64 (fma.f64 (-.f64 (*.f64 #s(literal 2/45 binary64) (*.f64 b b)) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) (*.f64 b b)))
#s(approx (- 1/2 (* 1/2 (cos (* 2 b)))) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/315 binary64) (*.f64 b b) #s(literal 2/45 binary64)) (*.f64 b b)) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) (*.f64 b b)))
#s(approx (* 1/2 (cos (* 2 b))) #s(literal 1/2 binary64))
#s(approx (* 1/2 (cos (* 2 b))) (+.f64 (neg.f64 (*.f64 b b)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (cos (* 2 b))) (fma.f64 (-.f64 (*.f64 #s(literal 1/3 binary64) (*.f64 b b)) #s(literal 1 binary64)) (*.f64 b b) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (cos (* 2 b))) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -2/45 binary64) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b)) #s(literal 1 binary64)) (*.f64 b b) #s(literal 1/2 binary64)))
#s(approx (cos (* 2 b)) #s(literal 1 binary64))
#s(approx (cos (* 2 b)) (fma.f64 #s(literal -2 binary64) (*.f64 b b) #s(literal 1 binary64)))
#s(approx (cos (* 2 b)) (fma.f64 (-.f64 (*.f64 #s(literal 2/3 binary64) (*.f64 b b)) #s(literal 2 binary64)) (*.f64 b b) #s(literal 1 binary64)))
#s(approx (cos (* 2 b)) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -4/45 binary64) (*.f64 b b) #s(literal 2/3 binary64)) (*.f64 b b)) #s(literal 2 binary64)) (*.f64 b b) #s(literal 1 binary64)))
#s(approx (neg (+ a b)) (-.f64 (neg.f64 b) a))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (fma.f64 b (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (fma.f64 (-.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (neg.f64 b) (fma.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) #s(literal -1/3 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) (sin.f64 a)) (cos.f64 a)))) (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64))))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (cos.f64 a))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 b (-.f64 (*.f64 (*.f64 (cos.f64 a) b) #s(literal -1/2 binary64)) (sin.f64 a)) (cos.f64 a)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 b (-.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 a) b) #s(literal 1/6 binary64) (*.f64 (cos.f64 a) #s(literal -1/2 binary64))) b) (sin.f64 a)) (cos.f64 a)))
#s(approx (* (cos b) (cos a)) (cos.f64 a))
#s(approx (* (cos b) (cos a)) (fma.f64 (*.f64 (*.f64 b b) (cos.f64 a)) #s(literal -1/2 binary64) (cos.f64 a)))
#s(approx (* (cos b) (cos a)) (fma.f64 (fma.f64 (*.f64 (*.f64 b b) (cos.f64 a)) #s(literal 1/24 binary64) (*.f64 (cos.f64 a) #s(literal -1/2 binary64))) (*.f64 b b) (cos.f64 a)))
#s(approx (* (cos b) (cos a)) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 b b) (cos.f64 a)) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) (cos.f64 a))) (*.f64 b b) (*.f64 (cos.f64 a) #s(literal -1/2 binary64))) (*.f64 b b) (cos.f64 a)))
#s(approx (* (sin b) (sin a)) (*.f64 (sin.f64 a) b))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (*.f64 (*.f64 b b) (sin.f64 a)) #s(literal -1/6 binary64) (sin.f64 a)) b))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 b b) (sin.f64 a)) #s(literal 1/120 binary64) (*.f64 (sin.f64 a) #s(literal -1/6 binary64))) (*.f64 b b) (sin.f64 a)) b))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 a) (*.f64 (fma.f64 (*.f64 (*.f64 b b) (sin.f64 a)) #s(literal -1/5040 binary64) (*.f64 (sin.f64 a) #s(literal 1/120 binary64))) (*.f64 b b))) (*.f64 b b) (sin.f64 a)) b))
#s(approx (neg (sin b)) (neg.f64 (sin.f64 b)))
#s(approx (tan b) (tan.f64 b))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (*.f64 (-.f64 (-.f64 (*.f64 (/.f64 (PI.f64) b) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (/.f64 a b)) b))
#s(approx (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))
#s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))
#s(approx (neg (+ a b)) (*.f64 (-.f64 (/.f64 (neg.f64 a) b) #s(literal 1 binary64)) b))
#s(approx (+ a b) (*.f64 (+.f64 (/.f64 a b) #s(literal 1 binary64)) b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 b)) a))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 b)) a)))
#s(approx (+ (neg (+ a b)) (/ (PI) 2)) (*.f64 (neg.f64 b) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a) b)) #s(literal 1 binary64))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (/.f64 r (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 b)) a))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))
#s(approx (neg (+ a b)) (*.f64 (neg.f64 b) (+.f64 (/.f64 a b) #s(literal 1 binary64))))
#s(approx (+ a b) (*.f64 (neg.f64 b) (-.f64 (/.f64 (neg.f64 a) b) #s(literal 1 binary64))))

eval64.0ms (1.5%)

Memory
52.7MiB live, 134.2MiB allocated; 13ms collecting garbage
Compiler

Compiled 6 775 to 2 541 computations (62.5% saved)

prune240.0ms (5.5%)

Memory
5.7MiB live, 207.4MiB allocated; 170ms collecting garbage
Pruning

76 alts after pruning (73 fresh and 3 done)

PrunedKeptTotal
New43232464
Fresh124153
Picked235
Done000
Total44676522
Accuracy
99.9%
Counts
522 → 76
Alt Table
Click to see full alt table
StatusAccuracyProgram
21.2%
(/.f64 (/.f64 (*.f64 r #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
49.6%
(/.f64 (*.f64 (*.f64 r (sqrt.f64 (sin.f64 b))) (sqrt.f64 (sin.f64 b))) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
32.1%
(/.f64 (*.f64 (*.f64 r (sqrt.f64 (sin.f64 b))) (sqrt.f64 (sin.f64 b))) (cos.f64 #s(approx (+ a b) b)))
99.4%
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
61.0%
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)) (sin.f64 b))))
76.1%
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
62.9%
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 #s(approx (+ a b) b)))
32.2%
(/.f64 (*.f64 r (pow.f64 (sqrt.f64 (sin.f64 b)) #s(literal 2 binary64))) (cos.f64 #s(approx (+ a b) b)))
20.7%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal 2 binary64) b (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
20.9%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (+.f64 b b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
21.8%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 #s(approx (+ a b) a)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
16.4%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 #s(approx (neg (+ a b)) (*.f64 (-.f64 (/.f64 (neg.f64 a) b) #s(literal 1 binary64)) b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
6.3%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (cosh.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
99.3%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
76.0%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (cos.f64 (+.f64 a b)))
62.9%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (cos.f64 #s(approx (+ a b) b)))
21.2%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
33.9%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) #s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (/.f64 (fma.f64 (*.f64 b b) #s(literal 1/6 binary64) #s(literal 1 binary64)) b)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
41.2%
(/.f64 (*.f64 r (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
31.4%
(/.f64 (*.f64 r (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))) (cos.f64 #s(approx (+ a b) b)))
75.9%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 (+.f64 a b)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (+.f64 a b)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
▶99.4%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b))))
99.1%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (fma.f64 (sin.f64 b) (cos.f64 (PI.f64)) (*.f64 (cos.f64 b) (sin.f64 (PI.f64)))) (sin.f64 a))))
76.8%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (sin.f64 (+.f64 b (PI.f64))) (sin.f64 a))))
✓99.5%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))))
99.3%
(/.f64 (*.f64 r (sin.f64 b)) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)) (fma.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (sin.f64 a) (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 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64)) (*.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 (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) (sin.f64 b)))) (fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (sin.f64 a) (sin.f64 b)))))
73.9%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal 1/2 binary64)) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
72.3%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (exp.f64 (*.f64 (log.f64 (cos.f64 b)) #s(literal 1 binary64))) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
99.4%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (/.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 a) #s(literal -1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
87.7%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) (sin.f64 a))))
99.4%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 a) #s(literal -1 binary64))))))
44.2%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (*.f64 (pow.f64 (sin.f64 a) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 a) #s(literal 1/2 binary64))))))
▶61.0%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (fma.f64 a #s(literal 1 binary64) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)))))))
62.1%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 #s(approx (+ (* -1/5040 (* a a)) 1/120) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
62.7%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 #s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(literal -1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
67.3%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) #s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) a)))))
59.6%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 a a) #s(literal 1/24 binary64)) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
56.8%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 a a) #s(literal 1/24 binary64)) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
55.0%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
59.5%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (*.f64 a a) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
57.2%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (*.f64 a a) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
63.8%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 b)) (*.f64 (sin.f64 b) (sin.f64 a))))
59.5%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 b)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
51.5%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
39.5%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) a)))
39.2%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 #s(approx (+ a b) b) (/.f64 (PI.f64) #s(literal 2 binary64)))))
38.6%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 #s(approx (neg (+ a b)) (*.f64 (-.f64 (/.f64 (neg.f64 b) a) #s(literal 1 binary64)) a)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
38.9%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))))
✓19.3%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
19.5%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 a))))
64.4%
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) (*.f64 (+.f64 (/.f64 a b) #s(literal 1 binary64)) b))))
50.4%
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) a)))
▶47.7%
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
60.6%
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
41.3%
(/.f64 (*.f64 r (fabs.f64 (sin.f64 b))) (cos.f64 #s(approx (+ a b) b)))
16.0%
(/.f64 (*.f64 r #s(approx (sin b) b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
46.0%
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
32.7%
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 #s(approx (+ a b) b)))
31.3%
(*.f64 r (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 a b))))
7.7%
(*.f64 r (/.f64 (sin.f64 b) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b)))))
▶76.1%
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
63.0%
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 #s(approx (+ a b) b))))
33.4%
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))
21.1%
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))
21.2%
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (/.f64 r (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a) b)))))
39.9%
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a) b))))
63.0%
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (tan.f64 b) r))
46.0%
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 b (/.f64 r (cos.f64 a))))
35.0%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (/.f64 (+.f64 (tan.f64 b) (tan.f64 (PI.f64))) (-.f64 #s(literal 1 binary64) (*.f64 (tan.f64 b) (tan.f64 (PI.f64)))))))
32.2%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 17/315 binary64) (*.f64 b b) #s(literal 2/15 binary64)) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
32.2%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
▶32.3%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b))))
✓32.7%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) b)))
32.2%
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(approx (* r (tan b)) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 1/3 binary64) r)) (*.f64 b b) r) b)))
Compiler

Compiled 2 908 to 2 675 computations (8% saved)

series44.0ms (1%)

Memory
6.8MiB live, 59.8MiB allocated; 4ms collecting garbage
Counts
45 → 216
Calls
Call 1
Inputs
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b))))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
(fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)))
(sin.f64 a)
a
(neg.f64 (sin.f64 b))
(*.f64 (cos.f64 a) (cos.f64 b))
(cos.f64 a)
(cos.f64 b)
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b))))
(*.f64 r #s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b)))
#s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b))
(*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b)
(fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64))
#s(literal 1/3 binary64)
(*.f64 b b)
#s(literal 1 binary64)
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (sin.f64 b) (cos.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(+.f64 a b)
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
(fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))
(neg.f64 b)
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (fma.f64 a #s(literal 1 binary64) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)))))))
(-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (fma.f64 a #s(literal 1 binary64) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a))))))
(*.f64 (cos.f64 b) (cos.f64 a))
(*.f64 (sin.f64 b) #s(approx (sin a) (fma.f64 a #s(literal 1 binary64) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)))))
#s(approx (sin a) (fma.f64 a #s(literal 1 binary64) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a))))
(fma.f64 a #s(literal 1 binary64) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)))
(*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a))
(*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)
(*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a)
(-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64))
(*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a)
(*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a)
(fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))
(*.f64 a a)
#s(literal -1/5040 binary64)
#s(literal 1/120 binary64)
#s(literal 1/6 binary64)
Outputs
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) #s(hole binary64 (/ (* r (sin b)) (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b))))))
#s(approx (* r (tan b)) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (* r (/ (sin b) (cos (+ a b)))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #s(hole binary64 (/ (* r (sin b)) (- (* (cos a) (cos b)) (* (sin a) (sin b))))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos 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)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos 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 (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (cos b)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* -1/2 (* a (cos b))))))))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))))))))
#s(approx (sin a) #s(hole binary64 a))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* -1/6 (pow a 2))))))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* 1/120 (pow a 2)) 1/6))))))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6))))))
#s(approx (* (cos a) (cos b)) #s(hole binary64 (cos b)))
#s(approx (* (cos a) (cos b)) #s(hole binary64 (+ (cos b) (* -1/2 (* (pow a 2) (cos b))))))
#s(approx (* (cos a) (cos b)) #s(hole binary64 (+ (cos b) (* (pow a 2) (+ (* -1/2 (cos b)) (* 1/24 (* (pow a 2) (cos b))))))))
#s(approx (* (cos a) (cos b)) #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) #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 (+ 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 (/ (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 (/ (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 (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 (+ a b) #s(hole binary64 b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (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)) (* (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)) (* (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)) (* (sin b) (sin a))) #s(hole binary64 (cos b)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 1))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 (+ 1 (* -1 (* a b)))))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 (+ 1 (* a (+ (* -1 b) (* -1/2 a))))))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 (+ 1 (* a (+ (* -1 b) (* a (- (* 1/6 (* a b)) 1/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 (* (sin b) (sin a)) #s(hole binary64 (* a (sin b))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* a (+ (sin b) (* -1/6 (* (pow a 2) (sin b)))))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* a (+ (sin b) (* (pow a 2) (+ (* -1/6 (sin b)) (* 1/120 (* (pow a 2) (sin b)))))))))
#s(approx (* (sin b) (sin a)) #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 (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 a))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* a (+ 1 (* -1/6 (pow a 2))))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* 1/120 (pow a 2)) 1/6))))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6))))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) #s(hole binary64 (* -1/6 (pow a 3))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) #s(hole binary64 (* (pow a 3) (- (* 1/120 (pow a 2)) 1/6))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) #s(hole binary64 (* (pow a 3) (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6))))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) #s(hole binary64 (* -1/6 (pow a 2))))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) #s(hole binary64 (* (pow a 2) (- (* 1/120 (pow a 2)) 1/6))))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) #s(hole binary64 (* (pow a 2) (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) #s(hole binary64 (* -1/6 a)))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) #s(hole binary64 (* a (- (* 1/120 (pow a 2)) 1/6))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) #s(hole binary64 (* a (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6))))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) #s(hole binary64 (- (* 1/120 (pow a 2)) 1/6)))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) #s(hole binary64 (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6)))
#s(approx (* (* (+ (* (* a a) -1/5040) 1/120) a) a) #s(hole binary64 (* 1/120 (pow a 2))))
#s(approx (* (* (+ (* (* a a) -1/5040) 1/120) a) a) #s(hole binary64 (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2))))))
#s(approx (* (+ (* (* a a) -1/5040) 1/120) a) #s(hole binary64 (* 1/120 a)))
#s(approx (* (+ (* (* a a) -1/5040) 1/120) a) #s(hole binary64 (* a (+ 1/120 (* -1/5040 (pow a 2))))))
#s(approx (+ (* (* a a) -1/5040) 1/120) #s(hole binary64 1/120))
#s(approx (+ (* (* a a) -1/5040) 1/120) #s(hole binary64 (+ 1/120 (* -1/5040 (pow a 2)))))
#s(approx (* a a) #s(hole binary64 (pow a 2)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b)))))
#s(approx (+ a b) #s(hole binary64 a))
#s(approx (+ a b) #s(hole binary64 (* a (+ 1 (/ b a)))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (- (* (cos a) (cos b)) (* (sin a) (sin b)))))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (* (cos a) (cos b))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* (sin a) (sin b))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* -1/5040 (pow a 7))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* (pow a 7) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* (pow a 7) (- (* 1/120 (/ 1 (pow a 2))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* (pow a 7) (- (+ (* 1/120 (/ 1 (pow a 2))) (/ 1 (pow a 6))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) #s(hole binary64 (* -1/5040 (pow a 7))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) #s(hole binary64 (* (pow a 7) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) #s(hole binary64 (* (pow a 7) (- (* 1/120 (/ 1 (pow a 2))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) #s(hole binary64 (* -1/5040 (pow a 6))))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) #s(hole binary64 (* (pow a 6) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) #s(hole binary64 (* (pow a 6) (- (* 1/120 (/ 1 (pow a 2))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) #s(hole binary64 (* -1/5040 (pow a 5))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) #s(hole binary64 (* (pow a 5) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) #s(hole binary64 (* (pow a 5) (- (* 1/120 (/ 1 (pow a 2))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) #s(hole binary64 (* -1/5040 (pow a 4))))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) #s(hole binary64 (* (pow a 4) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) #s(hole binary64 (* (pow a 4) (- (* 1/120 (/ 1 (pow a 2))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (* (* (+ (* (* a a) -1/5040) 1/120) a) a) #s(hole binary64 (* -1/5040 (pow a 4))))
#s(approx (* (* (+ (* (* a a) -1/5040) 1/120) a) a) #s(hole binary64 (* (pow a 4) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (* (+ (* (* a a) -1/5040) 1/120) a) #s(hole binary64 (* -1/5040 (pow a 3))))
#s(approx (* (+ (* (* a a) -1/5040) 1/120) a) #s(hole binary64 (* (pow a 3) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (+ (* (* a a) -1/5040) 1/120) #s(hole binary64 (* -1/5040 (pow a 2))))
#s(approx (+ (* (* a a) -1/5040) 1/120) #s(hole binary64 (* (pow a 2) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#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)))) #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 (cos (+ a b)) #s(hole binary64 (cos (- b (* -1 a)))))
#s(approx (+ a b) #s(hole binary64 (* -1 (* a (- (* -1 (/ b a)) 1)))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* -1 (* (pow a 7) (- 1/5040 (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* -1 (* (pow a 7) (- (+ 1/5040 (/ 1/6 (pow a 4))) (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* -1 (* (pow a 7) (- (+ 1/5040 (/ 1/6 (pow a 4))) (+ (* 1/120 (/ 1 (pow a 2))) (/ 1 (pow a 6))))))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) #s(hole binary64 (* -1 (* (pow a 7) (- 1/5040 (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) #s(hole binary64 (* -1 (* (pow a 7) (- (+ 1/5040 (/ 1/6 (pow a 4))) (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) #s(hole binary64 (* -1 (* (pow a 5) (- 1/5040 (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) #s(hole binary64 (* -1 (* (pow a 5) (- (+ 1/5040 (/ 1/6 (pow a 4))) (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (* (+ (* (* a a) -1/5040) 1/120) a) #s(hole binary64 (* -1 (* (pow a 3) (- 1/5040 (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos 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)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos 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 (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (cos a)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* -1/2 (* b (cos a))))))))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))))))))
#s(approx (neg (sin b)) #s(hole binary64 (* -1 b)))
#s(approx (neg (sin b)) #s(hole binary64 (* b (- (* 1/6 (pow b 2)) 1))))
#s(approx (neg (sin b)) #s(hole binary64 (* b (- (* (pow b 2) (+ 1/6 (* -1/120 (pow b 2)))) 1))))
#s(approx (neg (sin b)) #s(hole binary64 (* b (- (* (pow b 2) (+ 1/6 (* (pow b 2) (- (* 1/5040 (pow b 2)) 1/120)))) 1))))
#s(approx (* (cos a) (cos b)) #s(hole binary64 (cos a)))
#s(approx (* (cos a) (cos b)) #s(hole binary64 (+ (cos a) (* -1/2 (* (pow b 2) (cos a))))))
#s(approx (* (cos a) (cos b)) #s(hole binary64 (+ (cos a) (* (pow b 2) (+ (* -1/2 (cos a)) (* 1/24 (* (pow b 2) (cos a))))))))
#s(approx (* (cos a) (cos b)) #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) #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 (/ (* 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 (tan b)) #s(hole binary64 (* b r)))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* 1/3 (* (pow b 2) r))))))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* 2/15 (* (pow b 2) r)) (* 1/3 r)))))))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* 1/3 r) (* (pow b 2) (+ (* 17/315 (* (pow b 2) r)) (* 2/15 r)))))))))
#s(approx (tan b) #s(hole binary64 b))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* 1/3 (pow b 2))))))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (+ 1/3 (* 2/15 (pow b 2))))))))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (+ 1/3 (* (pow b 2) (+ 2/15 (* 17/315 (pow b 2))))))))))
#s(approx (* (+ (* 1/3 (* b b)) 1) b) #s(hole binary64 b))
#s(approx (* (+ (* 1/3 (* b b)) 1) b) #s(hole binary64 (* b (+ 1 (* 1/3 (pow b 2))))))
#s(approx (+ (* 1/3 (* b b)) 1) #s(hole binary64 1))
#s(approx (+ (* 1/3 (* b b)) 1) #s(hole binary64 (+ 1 (* 1/3 (pow b 2)))))
#s(approx (* b b) #s(hole binary64 (pow b 2)))
#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 (/ (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 (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 (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (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)) (* (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)) (* (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 (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (cos a)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 (cos a)))
#s(approx (neg b) #s(hole binary64 (* -1 b)))
#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 (* (sin b) (sin a)) #s(hole binary64 (* b (sin a))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* b (+ (sin a) (* -1/6 (* (pow b 2) (sin a)))))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* b (+ (sin a) (* (pow b 2) (+ (* -1/6 (sin a)) (* 1/120 (* (pow b 2) (sin a)))))))))
#s(approx (* (sin b) (sin a)) #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 (neg (sin b)) #s(hole binary64 (* -1 (sin b))))
#s(approx (tan b) #s(hole binary64 (/ (sin b) (cos b))))
#s(approx (* (+ (* 1/3 (* b b)) 1) b) #s(hole binary64 (* 1/3 (pow b 3))))
#s(approx (* (+ (* 1/3 (* b b)) 1) b) #s(hole binary64 (* (pow b 3) (+ 1/3 (/ 1 (pow b 2))))))
#s(approx (+ (* 1/3 (* b b)) 1) #s(hole binary64 (* 1/3 (pow b 2))))
#s(approx (+ (* 1/3 (* b b)) 1) #s(hole binary64 (* (pow b 2) (+ 1/3 (/ 1 (pow b 2))))))
#s(approx (+ a b) #s(hole binary64 (* b (+ 1 (/ a b)))))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 (* -1 (* b (sin a)))))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 (* b (+ (* -1 (sin a)) (/ (cos a) 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)))) #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 (cos (+ a b)) #s(hole binary64 (cos (- a (* -1 b)))))
#s(approx (+ a b) #s(hole binary64 (* -1 (* b (- (* -1 (/ a b)) 1)))))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 (* -1 (* b (+ (sin a) (* -1 (/ (cos a) b)))))))
Calls

9 calls:

TimeVariablePointExpression
5.0ms
a
@-inf
((/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (* r (sin b)) r (sin b) b (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (sin a) a (neg (sin b)) (* (cos a) (cos b)) (cos a) (cos b) (/ (* r (sin b)) (cos (+ a b))) (* r (tan b)) (tan b) (* (+ (* 1/3 (* b b)) 1) b) (+ (* 1/3 (* b b)) 1) 1/3 (* b b) 1 (* r (/ (sin b) (cos (+ a b)))) (/ (sin b) (cos (+ a b))) (cos (+ a b)) (+ a b) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (- (* (cos b) (cos a)) (* (sin b) (sin a))) (+ (* (neg b) (sin a)) (cos a)) (neg b) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (- (* (cos b) (cos a)) (* (sin b) (sin a))) (* (cos b) (cos a)) (* (sin b) (sin a)) (sin a) (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) (* (* (+ (* (* a a) -1/5040) 1/120) a) a) (* (+ (* (* a a) -1/5040) 1/120) a) (+ (* (* a a) -1/5040) 1/120) (* a a) -1/5040 1/120 1/6)
5.0ms
a
@inf
((/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (* r (sin b)) r (sin b) b (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (sin a) a (neg (sin b)) (* (cos a) (cos b)) (cos a) (cos b) (/ (* r (sin b)) (cos (+ a b))) (* r (tan b)) (tan b) (* (+ (* 1/3 (* b b)) 1) b) (+ (* 1/3 (* b b)) 1) 1/3 (* b b) 1 (* r (/ (sin b) (cos (+ a b)))) (/ (sin b) (cos (+ a b))) (cos (+ a b)) (+ a b) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (- (* (cos b) (cos a)) (* (sin b) (sin a))) (+ (* (neg b) (sin a)) (cos a)) (neg b) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (- (* (cos b) (cos a)) (* (sin b) (sin a))) (* (cos b) (cos a)) (* (sin b) (sin a)) (sin a) (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) (* (* (+ (* (* a a) -1/5040) 1/120) a) a) (* (+ (* (* a a) -1/5040) 1/120) a) (+ (* (* a a) -1/5040) 1/120) (* a a) -1/5040 1/120 1/6)
5.0ms
b
@0
((/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (* r (sin b)) r (sin b) b (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (sin a) a (neg (sin b)) (* (cos a) (cos b)) (cos a) (cos b) (/ (* r (sin b)) (cos (+ a b))) (* r (tan b)) (tan b) (* (+ (* 1/3 (* b b)) 1) b) (+ (* 1/3 (* b b)) 1) 1/3 (* b b) 1 (* r (/ (sin b) (cos (+ a b)))) (/ (sin b) (cos (+ a b))) (cos (+ a b)) (+ a b) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (- (* (cos b) (cos a)) (* (sin b) (sin a))) (+ (* (neg b) (sin a)) (cos a)) (neg b) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (- (* (cos b) (cos a)) (* (sin b) (sin a))) (* (cos b) (cos a)) (* (sin b) (sin a)) (sin a) (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) (* (* (+ (* (* a a) -1/5040) 1/120) a) a) (* (+ (* (* a a) -1/5040) 1/120) a) (+ (* (* a a) -1/5040) 1/120) (* a a) -1/5040 1/120 1/6)
4.0ms
r
@-inf
((/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (* r (sin b)) r (sin b) b (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (sin a) a (neg (sin b)) (* (cos a) (cos b)) (cos a) (cos b) (/ (* r (sin b)) (cos (+ a b))) (* r (tan b)) (tan b) (* (+ (* 1/3 (* b b)) 1) b) (+ (* 1/3 (* b b)) 1) 1/3 (* b b) 1 (* r (/ (sin b) (cos (+ a b)))) (/ (sin b) (cos (+ a b))) (cos (+ a b)) (+ a b) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (- (* (cos b) (cos a)) (* (sin b) (sin a))) (+ (* (neg b) (sin a)) (cos a)) (neg b) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (- (* (cos b) (cos a)) (* (sin b) (sin a))) (* (cos b) (cos a)) (* (sin b) (sin a)) (sin a) (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) (* (* (+ (* (* a a) -1/5040) 1/120) a) a) (* (+ (* (* a a) -1/5040) 1/120) a) (+ (* (* a a) -1/5040) 1/120) (* a a) -1/5040 1/120 1/6)
4.0ms
b
@-inf
((/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (* r (sin b)) r (sin b) b (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (sin a) a (neg (sin b)) (* (cos a) (cos b)) (cos a) (cos b) (/ (* r (sin b)) (cos (+ a b))) (* r (tan b)) (tan b) (* (+ (* 1/3 (* b b)) 1) b) (+ (* 1/3 (* b b)) 1) 1/3 (* b b) 1 (* r (/ (sin b) (cos (+ a b)))) (/ (sin b) (cos (+ a b))) (cos (+ a b)) (+ a b) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (- (* (cos b) (cos a)) (* (sin b) (sin a))) (+ (* (neg b) (sin a)) (cos a)) (neg b) (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (- (* (cos b) (cos a)) (* (sin b) (sin a))) (* (cos b) (cos a)) (* (sin b) (sin a)) (sin a) (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) (* (* (+ (* (* a a) -1/5040) 1/120) a) a) (* (+ (* (* a a) -1/5040) 1/120) a) (+ (* (* a a) -1/5040) 1/120) (* a a) -1/5040 1/120 1/6)

rewrite191.0ms (4.4%)

Memory
-5.1MiB live, 180.7MiB allocated; 25ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
07916408
08555634
142335632
083895433
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
261 → 519
Calls
Call 1
Inputs
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b))))
(*.f64 r (sin.f64 b))
r
(sin.f64 b)
b
(fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)))
(sin.f64 a)
a
(neg.f64 (sin.f64 b))
(*.f64 (cos.f64 a) (cos.f64 b))
(cos.f64 a)
(cos.f64 b)
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b))))
(*.f64 r #s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b)))
#s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b))
(*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b)
(fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64))
#s(literal 1/3 binary64)
(*.f64 b b)
#s(literal 1 binary64)
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (sin.f64 b) (cos.f64 (+.f64 a b)))
(cos.f64 (+.f64 a b))
(+.f64 a b)
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
(fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))
(neg.f64 b)
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (fma.f64 a #s(literal 1 binary64) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)))))))
(-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (fma.f64 a #s(literal 1 binary64) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a))))))
(*.f64 (cos.f64 b) (cos.f64 a))
(*.f64 (sin.f64 b) #s(approx (sin a) (fma.f64 a #s(literal 1 binary64) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)))))
#s(approx (sin a) (fma.f64 a #s(literal 1 binary64) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a))))
(fma.f64 a #s(literal 1 binary64) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)))
(*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a))
(*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)
(*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a)
(-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64))
(*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a)
(*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a)
(fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))
(*.f64 a a)
#s(literal -1/5040 binary64)
#s(literal 1/120 binary64)
#s(literal 1/6 binary64)
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) #s(hole binary64 (/ (* r (sin b)) (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b))))))
#s(approx (* r (tan b)) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (* r (/ (sin b) (cos (+ a b)))) #s(hole binary64 (/ (* r (sin b)) (cos (+ a b)))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #s(hole binary64 (/ (* r (sin b)) (- (* (cos a) (cos b)) (* (sin a) (sin b))))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) #s(hole binary64 (+ (/ (* a (* r (pow (sin b) 2))) (pow (cos b) 2)) (/ (* r (sin b)) (cos b)))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos 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)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos 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 (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (cos b)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* -1/2 (* a (cos b))))))))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (+ (cos b) (* a (+ (* -1 (sin b)) (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))))))))
#s(approx (sin a) #s(hole binary64 a))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* -1/6 (pow a 2))))))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* 1/120 (pow a 2)) 1/6))))))
#s(approx (sin a) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6))))))
#s(approx (* (cos a) (cos b)) #s(hole binary64 (cos b)))
#s(approx (* (cos a) (cos b)) #s(hole binary64 (+ (cos b) (* -1/2 (* (pow a 2) (cos b))))))
#s(approx (* (cos a) (cos b)) #s(hole binary64 (+ (cos b) (* (pow a 2) (+ (* -1/2 (cos b)) (* 1/24 (* (pow a 2) (cos b))))))))
#s(approx (* (cos a) (cos b)) #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) #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 (+ 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 (/ (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 (/ (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 (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 (+ a b) #s(hole binary64 b))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #s(hole binary64 (/ (* r (sin b)) (cos b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (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)) (* (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)) (* (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)) (* (sin b) (sin a))) #s(hole binary64 (cos b)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* -1 (* a (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* a (- (* -1/2 (* a (cos b))) (sin b))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos b) (* a (- (* a (+ (* -1/2 (cos b)) (* 1/6 (* a (sin b))))) (sin b))))))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 1))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 (+ 1 (* -1 (* a b)))))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 (+ 1 (* a (+ (* -1 b) (* -1/2 a))))))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 (+ 1 (* a (+ (* -1 b) (* a (- (* 1/6 (* a b)) 1/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 (* (sin b) (sin a)) #s(hole binary64 (* a (sin b))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* a (+ (sin b) (* -1/6 (* (pow a 2) (sin b)))))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* a (+ (sin b) (* (pow a 2) (+ (* -1/6 (sin b)) (* 1/120 (* (pow a 2) (sin b)))))))))
#s(approx (* (sin b) (sin a)) #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 (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 a))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* a (+ 1 (* -1/6 (pow a 2))))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* 1/120 (pow a 2)) 1/6))))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* a (+ 1 (* (pow a 2) (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6))))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) #s(hole binary64 (* -1/6 (pow a 3))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) #s(hole binary64 (* (pow a 3) (- (* 1/120 (pow a 2)) 1/6))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) #s(hole binary64 (* (pow a 3) (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6))))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) #s(hole binary64 (* -1/6 (pow a 2))))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) #s(hole binary64 (* (pow a 2) (- (* 1/120 (pow a 2)) 1/6))))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) #s(hole binary64 (* (pow a 2) (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) #s(hole binary64 (* -1/6 a)))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) #s(hole binary64 (* a (- (* 1/120 (pow a 2)) 1/6))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) #s(hole binary64 (* a (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6))))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) #s(hole binary64 (- (* 1/120 (pow a 2)) 1/6)))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) #s(hole binary64 (- (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2)))) 1/6)))
#s(approx (* (* (+ (* (* a a) -1/5040) 1/120) a) a) #s(hole binary64 (* 1/120 (pow a 2))))
#s(approx (* (* (+ (* (* a a) -1/5040) 1/120) a) a) #s(hole binary64 (* (pow a 2) (+ 1/120 (* -1/5040 (pow a 2))))))
#s(approx (* (+ (* (* a a) -1/5040) 1/120) a) #s(hole binary64 (* 1/120 a)))
#s(approx (* (+ (* (* a a) -1/5040) 1/120) a) #s(hole binary64 (* a (+ 1/120 (* -1/5040 (pow a 2))))))
#s(approx (+ (* (* a a) -1/5040) 1/120) #s(hole binary64 1/120))
#s(approx (+ (* (* a a) -1/5040) 1/120) #s(hole binary64 (+ 1/120 (* -1/5040 (pow a 2)))))
#s(approx (* a a) #s(hole binary64 (pow a 2)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (+ (* -1 (* (sin a) (sin b))) (* (cos a) (cos b)))))
#s(approx (+ a b) #s(hole binary64 a))
#s(approx (+ a b) #s(hole binary64 (* a (+ 1 (/ b a)))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (- (* (cos a) (cos b)) (* (sin a) (sin b)))))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (* (cos b) (cos a)) #s(hole binary64 (* (cos a) (cos b))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* (sin a) (sin b))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* -1/5040 (pow a 7))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* (pow a 7) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* (pow a 7) (- (* 1/120 (/ 1 (pow a 2))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* (pow a 7) (- (+ (* 1/120 (/ 1 (pow a 2))) (/ 1 (pow a 6))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) #s(hole binary64 (* -1/5040 (pow a 7))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) #s(hole binary64 (* (pow a 7) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) #s(hole binary64 (* (pow a 7) (- (* 1/120 (/ 1 (pow a 2))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) #s(hole binary64 (* -1/5040 (pow a 6))))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) #s(hole binary64 (* (pow a 6) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) #s(hole binary64 (* (pow a 6) (- (* 1/120 (/ 1 (pow a 2))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) #s(hole binary64 (* -1/5040 (pow a 5))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) #s(hole binary64 (* (pow a 5) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) #s(hole binary64 (* (pow a 5) (- (* 1/120 (/ 1 (pow a 2))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) #s(hole binary64 (* -1/5040 (pow a 4))))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) #s(hole binary64 (* (pow a 4) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) #s(hole binary64 (* (pow a 4) (- (* 1/120 (/ 1 (pow a 2))) (+ 1/5040 (/ 1/6 (pow a 4)))))))
#s(approx (* (* (+ (* (* a a) -1/5040) 1/120) a) a) #s(hole binary64 (* -1/5040 (pow a 4))))
#s(approx (* (* (+ (* (* a a) -1/5040) 1/120) a) a) #s(hole binary64 (* (pow a 4) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (* (+ (* (* a a) -1/5040) 1/120) a) #s(hole binary64 (* -1/5040 (pow a 3))))
#s(approx (* (+ (* (* a a) -1/5040) 1/120) a) #s(hole binary64 (* (pow a 3) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#s(approx (+ (* (* a a) -1/5040) 1/120) #s(hole binary64 (* -1/5040 (pow a 2))))
#s(approx (+ (* (* a a) -1/5040) 1/120) #s(hole binary64 (* (pow a 2) (- (* 1/120 (/ 1 (pow a 2))) 1/5040))))
#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)))) #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 (cos (+ a b)) #s(hole binary64 (cos (- b (* -1 a)))))
#s(approx (+ a b) #s(hole binary64 (* -1 (* a (- (* -1 (/ b a)) 1)))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* -1 (* (pow a 7) (- 1/5040 (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* -1 (* (pow a 7) (- (+ 1/5040 (/ 1/6 (pow a 4))) (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) #s(hole binary64 (* -1 (* (pow a 7) (- (+ 1/5040 (/ 1/6 (pow a 4))) (+ (* 1/120 (/ 1 (pow a 2))) (/ 1 (pow a 6))))))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) #s(hole binary64 (* -1 (* (pow a 7) (- 1/5040 (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) #s(hole binary64 (* -1 (* (pow a 7) (- (+ 1/5040 (/ 1/6 (pow a 4))) (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) #s(hole binary64 (* -1 (* (pow a 5) (- 1/5040 (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) #s(hole binary64 (* -1 (* (pow a 5) (- (+ 1/5040 (/ 1/6 (pow a 4))) (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (* (+ (* (* a a) -1/5040) 1/120) a) #s(hole binary64 (* -1 (* (pow a 3) (- 1/5040 (* 1/120 (/ 1 (pow a 2))))))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) #s(hole binary64 (* b (+ (/ r (cos a)) (/ (* b (* r (sin a))) (pow (cos a) 2))))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos 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)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos 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 (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (cos a)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* -1/2 (* b (cos a))))))))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) #s(hole binary64 (+ (cos a) (* b (+ (* -1 (sin a)) (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))))))))
#s(approx (neg (sin b)) #s(hole binary64 (* -1 b)))
#s(approx (neg (sin b)) #s(hole binary64 (* b (- (* 1/6 (pow b 2)) 1))))
#s(approx (neg (sin b)) #s(hole binary64 (* b (- (* (pow b 2) (+ 1/6 (* -1/120 (pow b 2)))) 1))))
#s(approx (neg (sin b)) #s(hole binary64 (* b (- (* (pow b 2) (+ 1/6 (* (pow b 2) (- (* 1/5040 (pow b 2)) 1/120)))) 1))))
#s(approx (* (cos a) (cos b)) #s(hole binary64 (cos a)))
#s(approx (* (cos a) (cos b)) #s(hole binary64 (+ (cos a) (* -1/2 (* (pow b 2) (cos a))))))
#s(approx (* (cos a) (cos b)) #s(hole binary64 (+ (cos a) (* (pow b 2) (+ (* -1/2 (cos a)) (* 1/24 (* (pow b 2) (cos a))))))))
#s(approx (* (cos a) (cos b)) #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) #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 (/ (* 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 (tan b)) #s(hole binary64 (* b r)))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* 1/3 (* (pow b 2) r))))))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* 2/15 (* (pow b 2) r)) (* 1/3 r)))))))
#s(approx (* r (tan b)) #s(hole binary64 (* b (+ r (* (pow b 2) (+ (* 1/3 r) (* (pow b 2) (+ (* 17/315 (* (pow b 2) r)) (* 2/15 r)))))))))
#s(approx (tan b) #s(hole binary64 b))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* 1/3 (pow b 2))))))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (+ 1/3 (* 2/15 (pow b 2))))))))
#s(approx (tan b) #s(hole binary64 (* b (+ 1 (* (pow b 2) (+ 1/3 (* (pow b 2) (+ 2/15 (* 17/315 (pow b 2))))))))))
#s(approx (* (+ (* 1/3 (* b b)) 1) b) #s(hole binary64 b))
#s(approx (* (+ (* 1/3 (* b b)) 1) b) #s(hole binary64 (* b (+ 1 (* 1/3 (pow b 2))))))
#s(approx (+ (* 1/3 (* b b)) 1) #s(hole binary64 1))
#s(approx (+ (* 1/3 (* b b)) 1) #s(hole binary64 (+ 1 (* 1/3 (pow b 2)))))
#s(approx (* b b) #s(hole binary64 (pow b 2)))
#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 (/ (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 (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 (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) #s(hole binary64 (/ (* b r) (cos a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (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)) (* (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)) (* (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 (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (cos a)))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* -1 (* b (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* b (- (* -1/2 (* b (cos a))) (sin a))))))
#s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(hole binary64 (+ (cos a) (* b (- (* b (+ (* -1/2 (cos a)) (* 1/6 (* b (sin a))))) (sin a))))))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 (cos a)))
#s(approx (neg b) #s(hole binary64 (* -1 b)))
#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 (* (sin b) (sin a)) #s(hole binary64 (* b (sin a))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* b (+ (sin a) (* -1/6 (* (pow b 2) (sin a)))))))
#s(approx (* (sin b) (sin a)) #s(hole binary64 (* b (+ (sin a) (* (pow b 2) (+ (* -1/6 (sin a)) (* 1/120 (* (pow b 2) (sin a)))))))))
#s(approx (* (sin b) (sin a)) #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 (neg (sin b)) #s(hole binary64 (* -1 (sin b))))
#s(approx (tan b) #s(hole binary64 (/ (sin b) (cos b))))
#s(approx (* (+ (* 1/3 (* b b)) 1) b) #s(hole binary64 (* 1/3 (pow b 3))))
#s(approx (* (+ (* 1/3 (* b b)) 1) b) #s(hole binary64 (* (pow b 3) (+ 1/3 (/ 1 (pow b 2))))))
#s(approx (+ (* 1/3 (* b b)) 1) #s(hole binary64 (* 1/3 (pow b 2))))
#s(approx (+ (* 1/3 (* b b)) 1) #s(hole binary64 (* (pow b 2) (+ 1/3 (/ 1 (pow b 2))))))
#s(approx (+ a b) #s(hole binary64 (* b (+ 1 (/ a b)))))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 (* -1 (* b (sin a)))))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 (* b (+ (* -1 (sin a)) (/ (cos a) 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)))) #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 (cos (+ a b)) #s(hole binary64 (cos (- a (* -1 b)))))
#s(approx (+ a b) #s(hole binary64 (* -1 (* b (- (* -1 (/ a b)) 1)))))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(hole binary64 (* -1 (* b (+ (sin a) (* -1 (/ (cos a) b)))))))
Outputs
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (neg.f64 (*.f64 (sin.f64 b) r)) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
(*.f64 (sin.f64 b) r)
(*.f64 r (sin.f64 b))
r
(pow.f64 (sin.f64 b) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))
(sin.f64 b)
(exp.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 1 binary64)))
b
(/.f64 (-.f64 (+.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 b a))) (-.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64))) (cos.f64 (-.f64 b a)))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64))) (sin.f64 (-.f64 a (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (*.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b))))))
(sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (neg.f64 (-.f64 a (neg.f64 b))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 a (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) a))
(sin.f64 (+.f64 (+.f64 a b) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (-.f64 a (neg.f64 b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 (+.f64 a b)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (+.f64 a b)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (-.f64 a (neg.f64 b))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (+.f64 a b)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal -1 binary64) (*.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 (cos.f64 a) (cos.f64 b) (*.f64 (sin.f64 b) (neg.f64 (sin.f64 a))))
(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 (sin.f64 b) (neg.f64 (sin.f64 a))))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(-.f64 (*.f64 (cos.f64 a) (cos.f64 (*.f64 #s(literal 1 binary64) b))) (*.f64 (sin.f64 a) (sin.f64 (*.f64 #s(literal 1 binary64) b))))
(-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b)))
(-.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))
(cos.f64 (neg.f64 (neg.f64 (+.f64 a b))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 a (neg.f64 b)))))
(cos.f64 (-.f64 (neg.f64 b) a))
(cos.f64 (neg.f64 (+.f64 a b)))
(cos.f64 (neg.f64 (-.f64 a (neg.f64 b))))
(cos.f64 (-.f64 a (neg.f64 b)))
(cos.f64 (+.f64 a b))
(+.f64 (*.f64 (sin.f64 (+.f64 a b)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (+.f64 a b)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (*.f64 (sin.f64 (-.f64 a (neg.f64 b))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (+.f64 a b)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 b) (neg.f64 (sin.f64 a))))
(+.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(+.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)))
(pow.f64 (sin.f64 a) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 a) #s(literal -1 binary64)))
(sin.f64 a)
(exp.f64 (*.f64 (log.f64 (sin.f64 a)) #s(literal 1 binary64)))
a
(*.f64 #s(literal -1 binary64) (sin.f64 b))
(*.f64 (sin.f64 b) #s(literal -1 binary64))
(neg.f64 (sin.f64 b))
(sin.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 b (PI.f64)))
(sin.f64 (neg.f64 b))
(fma.f64 (sin.f64 b) (cos.f64 (PI.f64)) (*.f64 (cos.f64 b) (sin.f64 (PI.f64))))
(-.f64 (*.f64 (cos.f64 b) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 b) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (*.f64 (sin.f64 b) (cos.f64 (PI.f64))) (*.f64 (cos.f64 b) (sin.f64 (PI.f64))))
(*.f64 (cos.f64 a) (cos.f64 b))
(*.f64 (cos.f64 b) (cos.f64 a))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 b))) (sin.f64 (+.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 b)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) b)) (sin.f64 (+.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) b))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 a))) (sin.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 a)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) a)) (cos.f64 (+.f64 a b))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 a) (neg.f64 b))) (cos.f64 (-.f64 (neg.f64 a) (neg.f64 b)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 a) b)) (cos.f64 (-.f64 (neg.f64 a) b))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 a (neg.f64 b))) (cos.f64 (+.f64 a b))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 b) (neg.f64 a))) (cos.f64 (-.f64 (neg.f64 b) (neg.f64 a)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 b) a)) (cos.f64 (+.f64 a b))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 b (neg.f64 a))) (cos.f64 (+.f64 a b))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 b a))) #s(literal 2 binary64))
(pow.f64 (cos.f64 a) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 a)))
(sin.f64 (+.f64 (neg.f64 a) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 a) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 a) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 a)))
(cos.f64 (neg.f64 a))
(cos.f64 a)
(exp.f64 (*.f64 (log.f64 (cos.f64 a)) #s(literal 1 binary64)))
(+.f64 (*.f64 (sin.f64 a) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 a) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(pow.f64 (cos.f64 b) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 b) #s(literal -1 binary64)))
(sin.f64 (+.f64 (neg.f64 b) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 b) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 b) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 b)))
(cos.f64 (neg.f64 b))
(cos.f64 b)
(exp.f64 (*.f64 (log.f64 (cos.f64 b)) #s(literal 1 binary64)))
(+.f64 (*.f64 (sin.f64 b) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 b) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 #s(approx (tan b) (*.f64 (fma.f64 (*.f64 b b) #s(literal 1/3 binary64) #s(literal 1 binary64)) b)) r))
(*.f64 #s(approx (tan b) (*.f64 (fma.f64 (*.f64 b b) #s(literal 1/3 binary64) #s(literal 1 binary64)) b)) r)
(*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (*.f64 b b) #s(literal 1/3 binary64) #s(literal 1 binary64)) b)))
#s(approx (tan b) (*.f64 (fma.f64 (*.f64 b b) #s(literal 1/3 binary64) #s(literal 1 binary64)) b))
(*.f64 (fma.f64 (*.f64 b b) #s(literal 1/3 binary64) #s(literal 1 binary64)) b)
(*.f64 b (fma.f64 (*.f64 b b) #s(literal 1/3 binary64) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) b (*.f64 (*.f64 (*.f64 b b) #s(literal 1/3 binary64)) b))
(fma.f64 b #s(literal 1 binary64) (*.f64 b (*.f64 (*.f64 b b) #s(literal 1/3 binary64))))
(+.f64 (*.f64 b #s(literal 1 binary64)) (*.f64 b (*.f64 (*.f64 b b) #s(literal 1/3 binary64))))
(+.f64 (*.f64 #s(literal 1 binary64) b) (*.f64 (*.f64 (*.f64 b b) #s(literal 1/3 binary64)) b))
(*.f64 (+.f64 (/.f64 #s(literal 1 binary64) (*.f64 b b)) #s(literal 1/3 binary64)) (*.f64 b b))
(*.f64 (*.f64 b b) (+.f64 (/.f64 #s(literal 1 binary64) (*.f64 b b)) #s(literal 1/3 binary64)))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 (*.f64 b b) #s(literal 1/3 binary64))) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 b b) #s(literal 1/3 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 (*.f64 b b) #s(literal 1/3 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 b b) #s(literal 1/3 binary64))))
(/.f64 (fma.f64 (pow.f64 (*.f64 b b) #s(literal 3 binary64)) #s(literal 1/27 binary64) #s(literal 1 binary64)) (fma.f64 (*.f64 (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 (*.f64 b b) #s(literal 1/3 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 b b) #s(literal 1/3 binary64)) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (*.f64 b b) #s(literal 1/3 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 (*.f64 b b) #s(literal 1/3 binary64))) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 b b) #s(literal 1/3 binary64))))))
(fma.f64 (*.f64 #s(literal 1/3 binary64) b) b #s(literal 1 binary64))
(fma.f64 (*.f64 b b) #s(literal 1/3 binary64) #s(literal 1 binary64))
(fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64))
(-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/3 binary64) (*.f64 b b)))
(+.f64 (*.f64 (*.f64 b b) #s(literal 1/3 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 b b) #s(literal 1/3 binary64)))
#s(literal 1/3 binary64)
(*.f64 (neg.f64 (fabs.f64 b)) (neg.f64 (fabs.f64 b)))
(*.f64 (fabs.f64 (fabs.f64 b)) (fabs.f64 (fabs.f64 b)))
(*.f64 (exp.f64 (log.f64 b)) (exp.f64 (log.f64 b)))
(*.f64 (neg.f64 (neg.f64 b)) (neg.f64 (neg.f64 b)))
(*.f64 (fabs.f64 b) (fabs.f64 b))
(*.f64 (neg.f64 b) (neg.f64 b))
(*.f64 b b)
(pow.f64 (exp.f64 (log.f64 b)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 b) #s(literal 2 binary64))
(pow.f64 (*.f64 b b) #s(literal 1 binary64))
(pow.f64 (neg.f64 b) #s(literal 2 binary64))
(pow.f64 b #s(literal 2 binary64))
(fabs.f64 (*.f64 b b))
(exp.f64 (*.f64 (log.f64 b) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 b) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 b) #s(literal 2 binary64))))
#s(literal 1 binary64)
(*.f64 (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))) r)
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (neg.f64 (*.f64 (sin.f64 b) r)) (neg.f64 (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 (sin.f64 b) r) (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)))
(/.f64 (-.f64 (+.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 b a))) (-.f64 (cos.f64 (-.f64 b a)) (cos.f64 (+.f64 a b)))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64))) (cos.f64 (-.f64 b a)))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64))) (sin.f64 (-.f64 a (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (*.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b))))))
(sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (neg.f64 (-.f64 a (neg.f64 b))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 a (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) a))
(sin.f64 (+.f64 (+.f64 a b) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (-.f64 a (neg.f64 b)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 (+.f64 a b)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (+.f64 a b)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (-.f64 a (neg.f64 b))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (+.f64 a b)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (neg.f64 (sin.f64 a)) (sin.f64 b) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (neg.f64 (sin.f64 b)) (sin.f64 a) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)))
(fma.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal -1 binary64) (*.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 (cos.f64 a) (cos.f64 b) (*.f64 (sin.f64 b) (neg.f64 (sin.f64 a))))
(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 (sin.f64 b) (neg.f64 (sin.f64 a))))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(-.f64 (*.f64 (cos.f64 a) (cos.f64 (*.f64 #s(literal 1 binary64) b))) (*.f64 (sin.f64 a) (sin.f64 (*.f64 #s(literal 1 binary64) b))))
(-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b)))
(-.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (neg.f64 (cos.f64 a)) (cos.f64 b)))
(cos.f64 (neg.f64 (neg.f64 (+.f64 a b))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 a (neg.f64 b)))))
(cos.f64 (-.f64 (neg.f64 b) a))
(cos.f64 (neg.f64 (+.f64 a b)))
(cos.f64 (neg.f64 (-.f64 a (neg.f64 b))))
(cos.f64 (-.f64 a (neg.f64 b)))
(cos.f64 (+.f64 a b))
(+.f64 (*.f64 (sin.f64 (+.f64 a b)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (+.f64 a b)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (*.f64 (sin.f64 (-.f64 a (neg.f64 b))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (+.f64 a b)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 b) (neg.f64 (sin.f64 a))))
(+.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)))
(+.f64 (*.f64 (neg.f64 (sin.f64 a)) (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)))
(/.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (+.f64 b (neg.f64 a)))
(/.f64 (-.f64 (*.f64 a a) (*.f64 b b)) (-.f64 a b))
(/.f64 (-.f64 (*.f64 (*.f64 b b) b) (*.f64 (neg.f64 a) (*.f64 a a))) (fma.f64 b b (fma.f64 a a (*.f64 b (neg.f64 a)))))
(/.f64 (fma.f64 (*.f64 a a) a (*.f64 (*.f64 b b) b)) (fma.f64 a a (-.f64 (*.f64 b b) (*.f64 a b))))
(-.f64 b (neg.f64 a))
(+.f64 a b)
(+.f64 b a)
(*.f64 r (/.f64 (sin.f64 b) #s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))))
(/.f64 (neg.f64 (*.f64 (sin.f64 b) r)) (neg.f64 #s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))))
(/.f64 (*.f64 (sin.f64 b) r) #s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
(/.f64 (-.f64 (pow.f64 (*.f64 (neg.f64 b) (sin.f64 a)) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) (-.f64 (*.f64 (neg.f64 b) (sin.f64 a)) (cos.f64 a)))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) (pow.f64 (*.f64 (neg.f64 b) (sin.f64 a)) #s(literal 2 binary64))) (-.f64 (cos.f64 a) (*.f64 (neg.f64 b) (sin.f64 a))))
(/.f64 (+.f64 (pow.f64 (*.f64 (neg.f64 b) (sin.f64 a)) #s(literal 3 binary64)) (pow.f64 (cos.f64 a) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (neg.f64 b) (sin.f64 a)) #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) (*.f64 (*.f64 (neg.f64 b) (sin.f64 a)) (cos.f64 a)))))
(/.f64 (+.f64 (pow.f64 (cos.f64 a) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 b) (sin.f64 a)) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) (-.f64 (pow.f64 (*.f64 (neg.f64 b) (sin.f64 a)) #s(literal 2 binary64)) (*.f64 (cos.f64 a) (*.f64 (neg.f64 b) (sin.f64 a))))))
(fma.f64 (*.f64 (sin.f64 a) b) #s(literal -1 binary64) (cos.f64 a))
(fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 a) b) (cos.f64 a))
(fma.f64 (sin.f64 a) (neg.f64 b) (cos.f64 a))
(-.f64 (cos.f64 a) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 a) b)))
(+.f64 (*.f64 (neg.f64 b) (sin.f64 a)) (cos.f64 a))
(+.f64 (cos.f64 a) (*.f64 (neg.f64 b) (sin.f64 a)))
(*.f64 #s(literal -1 binary64) b)
(*.f64 b #s(literal -1 binary64))
(neg.f64 b)
(*.f64 r (/.f64 (sin.f64 b) (-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a)) (sin.f64 b)))))
(/.f64 (neg.f64 (*.f64 (sin.f64 b) r)) (neg.f64 (-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a)) (sin.f64 b)))))
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a)) (sin.f64 b))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (pow.f64 (*.f64 #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a)) (sin.f64 b)) #s(literal 2 binary64))) (fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a)) (sin.f64 b))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a)) (sin.f64 b)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a)) (sin.f64 b)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a)) (sin.f64 b))))))
(fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (neg.f64 (sin.f64 b)) #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a))))
(fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 b)) #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a))))
(-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a)) (sin.f64 b)))
(+.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (neg.f64 (sin.f64 b)) #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a))))
(*.f64 (cos.f64 a) (cos.f64 b))
(*.f64 (cos.f64 b) (cos.f64 a))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 b))) (sin.f64 (+.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 b)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) b)) (sin.f64 (+.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) b))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 a))) (sin.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 a)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) a)) (cos.f64 (+.f64 a b))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 a (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 a) (neg.f64 b))) (cos.f64 (-.f64 (neg.f64 a) (neg.f64 b)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 a) b)) (cos.f64 (-.f64 (neg.f64 a) b))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 a (neg.f64 b))) (cos.f64 (+.f64 a b))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 b) (neg.f64 a))) (cos.f64 (-.f64 (neg.f64 b) (neg.f64 a)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 b) a)) (cos.f64 (+.f64 a b))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 b (neg.f64 a))) (cos.f64 (+.f64 a b))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 a b)) (cos.f64 (-.f64 b a))) #s(literal 2 binary64))
(*.f64 #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a)) (sin.f64 b))
(*.f64 (sin.f64 b) #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a)))
#s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a))
(*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)
(*.f64 a (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)))
(/.f64 (-.f64 (*.f64 a a) (pow.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a) #s(literal 2 binary64))) (-.f64 a (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a)))
(/.f64 (fma.f64 (*.f64 a a) a (pow.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a) #s(literal 3 binary64))) (fma.f64 a a (-.f64 (pow.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a) #s(literal 2 binary64)) (*.f64 a (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a)))))
(fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a)
(fma.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a)
(fma.f64 a #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a))
(-.f64 a (*.f64 (neg.f64 a) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)))
(+.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a) a)
(+.f64 a (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a))
(*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a)
(*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a))
(*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)
(*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) (*.f64 a a))
(*.f64 (*.f64 a a) (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)))
(*.f64 a (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a))
(*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a)
(*.f64 a (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 2 binary64)) #s(literal 1/36 binary64)) (fma.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a #s(literal 1/6 binary64)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 3 binary64)) #s(literal 1/216 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 2 binary64)) (+.f64 #s(literal 1/36 binary64) (*.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)))))
(-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64))
(*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a)
(*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 a a))
(*.f64 (*.f64 a a) (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)))
(*.f64 a (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a))
(fma.f64 (*.f64 a a) #s(literal 1/120 binary64) (*.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) (*.f64 a a)))
(fma.f64 (*.f64 a a) #s(literal 1/120 binary64) (*.f64 (*.f64 a a) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64))))
(fma.f64 #s(literal 1/120 binary64) (*.f64 a a) (*.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) (*.f64 a a)))
(fma.f64 #s(literal 1/120 binary64) (*.f64 a a) (*.f64 (*.f64 a a) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64))))
(+.f64 (*.f64 (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) (*.f64 a a)))
(+.f64 (*.f64 (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 (*.f64 a a) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64))))
(*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a)
(*.f64 a (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)))
(fma.f64 #s(literal 1/120 binary64) a (*.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) a))
(fma.f64 #s(literal 1/120 binary64) a (*.f64 a (*.f64 (*.f64 a a) #s(literal -1/5040 binary64))))
(fma.f64 a #s(literal 1/120 binary64) (*.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) a))
(fma.f64 a #s(literal 1/120 binary64) (*.f64 a (*.f64 (*.f64 a a) #s(literal -1/5040 binary64))))
(+.f64 (*.f64 #s(literal 1/120 binary64) a) (*.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) a))
(+.f64 (*.f64 #s(literal 1/120 binary64) a) (*.f64 a (*.f64 (*.f64 a a) #s(literal -1/5040 binary64))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64))) #s(literal 1/14400 binary64)) (-.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64)))
(/.f64 (-.f64 #s(literal 1/14400 binary64) (*.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)))) (-.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64))))
(/.f64 (fma.f64 #s(literal -1/128024064000 binary64) (*.f64 (*.f64 (*.f64 a a) a) (*.f64 (*.f64 a a) a)) #s(literal 1/1728000 binary64)) (fma.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) (-.f64 #s(literal 1/14400 binary64) (*.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64)))))
(/.f64 (+.f64 #s(literal 1/1728000 binary64) (*.f64 #s(literal -1/128024064000 binary64) (*.f64 (*.f64 (*.f64 a a) a) (*.f64 (*.f64 a a) a)))) (+.f64 #s(literal 1/14400 binary64) (-.f64 (*.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64))) (*.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64))))))
(fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))
(fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64))
(fma.f64 a (*.f64 a #s(literal -1/5040 binary64)) #s(literal 1/120 binary64))
(-.f64 #s(literal 1/120 binary64) (*.f64 #s(literal 1/5040 binary64) (*.f64 a a)))
(+.f64 (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64))
(+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)))
(*.f64 (neg.f64 (fabs.f64 a)) (neg.f64 (fabs.f64 a)))
(*.f64 (fabs.f64 (fabs.f64 a)) (fabs.f64 (fabs.f64 a)))
(*.f64 (exp.f64 (log.f64 a)) (exp.f64 (log.f64 a)))
(*.f64 (neg.f64 (neg.f64 a)) (neg.f64 (neg.f64 a)))
(*.f64 (fabs.f64 a) (fabs.f64 a))
(*.f64 (neg.f64 a) (neg.f64 a))
(*.f64 (*.f64 a a) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 a a))
(*.f64 a a)
(pow.f64 (exp.f64 (log.f64 a)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a) #s(literal 2 binary64))
(pow.f64 (neg.f64 a) #s(literal 2 binary64))
(pow.f64 (*.f64 a a) #s(literal 1 binary64))
(pow.f64 a #s(literal 2 binary64))
(fabs.f64 (*.f64 a a))
(exp.f64 (*.f64 (log.f64 a) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 a) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 a) #s(literal 2 binary64))))
#s(literal -1/5040 binary64)
#s(literal 1/120 binary64)
#s(literal 1/6 binary64)
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (* r (tan b)) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (fma.f64 (tan.f64 b) r (/.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) a) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (fma.f64 (-.f64 (*.f64 (neg.f64 a) (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64)))))) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))))) a (*.f64 (tan.f64 b) r)))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (fma.f64 (-.f64 (*.f64 (-.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) #s(literal 1/6 binary64) (*.f64 (sin.f64 b) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64))))) (cos.f64 b))))) a)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64)))))) a) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))))) a (*.f64 (tan.f64 b) r)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (cos.f64 b))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 a (fma.f64 (*.f64 #s(literal -1/2 binary64) a) (cos.f64 b) (neg.f64 (sin.f64 b))) (cos.f64 b)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 a (fma.f64 (fma.f64 (*.f64 (sin.f64 b) a) #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 b))) a (neg.f64 (sin.f64 b))) (cos.f64 b)))
#s(approx (sin a) a)
#s(approx (sin a) (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/6 binary64) #s(literal 1 binary64)) a))
#s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (*.f64 a a) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a))
#s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a))
#s(approx (* (cos a) (cos b)) (cos.f64 b))
#s(approx (* (cos a) (cos b)) (fma.f64 (*.f64 (*.f64 a a) #s(literal -1/2 binary64)) (cos.f64 b) (cos.f64 b)))
#s(approx (* (cos a) (cos b)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a a)) (cos.f64 b) (*.f64 #s(literal -1/2 binary64) (cos.f64 b))) (*.f64 a a) (cos.f64 b)))
#s(approx (* (cos a) (cos b)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 a a)) (cos.f64 b) (*.f64 #s(literal 1/24 binary64) (cos.f64 b))) (*.f64 a a) (*.f64 #s(literal -1/2 binary64) (cos.f64 b))) (*.f64 a a) (cos.f64 b)))
#s(approx (cos a) #s(literal 1 binary64))
#s(approx (cos a) (fma.f64 (*.f64 a a) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos a) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))
#s(approx (cos a) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 a a) #s(literal 1/24 binary64)) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (fma.f64 (tan.f64 b) r (/.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) a) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (fma.f64 (-.f64 (*.f64 (neg.f64 a) (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64)))))) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))))) a (*.f64 (tan.f64 b) r)))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (fma.f64 (-.f64 (*.f64 (-.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) #s(literal 1/6 binary64) (*.f64 (sin.f64 b) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64))))) (cos.f64 b))))) a)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64)))))) a) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))))) a (*.f64 (tan.f64 b) r)))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (fma.f64 (tan.f64 b) r (/.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) a) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (fma.f64 (-.f64 (*.f64 (neg.f64 a) (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64)))))) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))))) a (*.f64 (tan.f64 b) r)))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (fma.f64 (-.f64 (*.f64 (-.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) #s(literal 1/6 binary64) (*.f64 (sin.f64 b) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64))))) (cos.f64 b))))) a)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64)))))) a) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))))) a (*.f64 (tan.f64 b) r)))
#s(approx (/ (sin b) (cos (+ a b))) (tan.f64 b))
#s(approx (/ (sin b) (cos (+ a b))) (fma.f64 a (/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) (tan.f64 b)))
#s(approx (/ (sin b) (cos (+ a b))) (fma.f64 (-.f64 (*.f64 (neg.f64 a) (fma.f64 #s(literal -1/2 binary64) (tan.f64 b) (neg.f64 (pow.f64 (tan.f64 b) #s(literal 3 binary64))))) (neg.f64 (/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))))) a (tan.f64 b)))
#s(approx (/ (sin b) (cos (+ a b))) (fma.f64 (-.f64 (*.f64 (-.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) #s(literal 1/6 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (tan.f64 b) (neg.f64 (pow.f64 (tan.f64 b) #s(literal 3 binary64)))) (sin.f64 b)) (cos.f64 b)))) a)) (fma.f64 #s(literal -1/2 binary64) (tan.f64 b) (neg.f64 (pow.f64 (tan.f64 b) #s(literal 3 binary64))))) a) (neg.f64 (/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))))) a (tan.f64 b)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (cos.f64 b))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 a (-.f64 (*.f64 (*.f64 (cos.f64 b) a) #s(literal -1/2 binary64)) (sin.f64 b)) (cos.f64 b)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 a (-.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 b) a) #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 b))) a) (sin.f64 b)) (cos.f64 b)))
#s(approx (+ a b) b)
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (fma.f64 (tan.f64 b) r (/.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) a) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (fma.f64 (-.f64 (*.f64 (neg.f64 a) (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64)))))) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))))) a (*.f64 (tan.f64 b) r)))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (fma.f64 (-.f64 (*.f64 (-.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) #s(literal 1/6 binary64) (*.f64 (sin.f64 b) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64))))) (cos.f64 b))))) a)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (tan.f64 b) r) (neg.f64 (*.f64 r (pow.f64 (tan.f64 b) #s(literal 3 binary64)))))) a) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))))) a (*.f64 (tan.f64 b) r)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (cos.f64 b))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 a (-.f64 (*.f64 (*.f64 (cos.f64 b) a) #s(literal -1/2 binary64)) (sin.f64 b)) (cos.f64 b)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 a (-.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 b) a) #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 b))) a) (sin.f64 b)) (cos.f64 b)))
#s(approx (+ (* (neg b) (sin a)) (cos a)) #s(literal 1 binary64))
#s(approx (+ (* (neg b) (sin a)) (cos a)) (fma.f64 (neg.f64 a) b #s(literal 1 binary64)))
#s(approx (+ (* (neg b) (sin a)) (cos a)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) a (neg.f64 b)) a #s(literal 1 binary64)))
#s(approx (+ (* (neg b) (sin a)) (cos a)) (fma.f64 (fma.f64 (-.f64 (*.f64 (*.f64 a b) #s(literal 1/6 binary64)) #s(literal 1/2 binary64)) a (neg.f64 b)) a #s(literal 1 binary64)))
#s(approx (* (cos a) (cos b)) (cos.f64 b))
#s(approx (* (cos a) (cos b)) (fma.f64 (*.f64 (*.f64 a a) #s(literal -1/2 binary64)) (cos.f64 b) (cos.f64 b)))
#s(approx (* (cos a) (cos b)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a a)) (cos.f64 b) (*.f64 #s(literal -1/2 binary64) (cos.f64 b))) (*.f64 a a) (cos.f64 b)))
#s(approx (* (cos a) (cos b)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 a a)) (cos.f64 b) (*.f64 #s(literal 1/24 binary64) (cos.f64 b))) (*.f64 a a) (*.f64 #s(literal -1/2 binary64) (cos.f64 b))) (*.f64 a a) (cos.f64 b)))
#s(approx (* (sin b) (sin a)) (*.f64 (sin.f64 b) a))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (*.f64 (*.f64 a a) (sin.f64 b)) #s(literal -1/6 binary64) (sin.f64 b)) a))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 a a) (sin.f64 b)) #s(literal 1/120 binary64) (*.f64 (sin.f64 b) #s(literal -1/6 binary64))) (*.f64 a a) (sin.f64 b)) a))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 b) (*.f64 (fma.f64 (*.f64 (*.f64 a a) (sin.f64 b)) #s(literal -1/5040 binary64) (*.f64 (sin.f64 b) #s(literal 1/120 binary64))) (*.f64 a a))) (*.f64 a a) (sin.f64 b)) a))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) a)
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/6 binary64) #s(literal 1 binary64)) a))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) (*.f64 (fma.f64 (-.f64 (*.f64 (*.f64 a a) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) (*.f64 (*.f64 (*.f64 a a) a) #s(literal -1/6 binary64)))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) (*.f64 (*.f64 (*.f64 a a) a) (-.f64 (*.f64 (*.f64 a a) #s(literal 1/120 binary64)) #s(literal 1/6 binary64))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) (*.f64 (*.f64 a a) a)))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) (*.f64 (*.f64 a a) #s(literal -1/6 binary64)))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) (*.f64 (-.f64 (*.f64 (*.f64 a a) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 a a)))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) (*.f64 #s(literal -1/6 binary64) a))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) (*.f64 (-.f64 (*.f64 (*.f64 a a) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) a))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) #s(literal -1/6 binary64))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) (-.f64 (*.f64 (*.f64 a a) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)))
#s(approx (* (* (+ (* (* a a) -1/5040) 1/120) a) a) (*.f64 (*.f64 a a) #s(literal 1/120 binary64)))
#s(approx (* (* (+ (* (* a a) -1/5040) 1/120) a) a) (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a))
#s(approx (* (+ (* (* a a) -1/5040) 1/120) a) (*.f64 #s(literal 1/120 binary64) a))
#s(approx (* (+ (* (* a a) -1/5040) 1/120) a) (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a))
#s(approx (+ (* (* a a) -1/5040) 1/120) #s(literal 1/120 binary64))
#s(approx (+ (* (* a a) -1/5040) 1/120) (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)))
#s(approx (* a a) (*.f64 a a))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (cos.f64 (+.f64 a b)))
#s(approx (+ a b) a)
#s(approx (+ a b) (*.f64 (+.f64 (/.f64 b a) #s(literal 1 binary64)) a))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (cos.f64 (+.f64 a b)))
#s(approx (+ (* (neg b) (sin a)) (cos a)) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
#s(approx (* (cos a) (cos b)) (*.f64 (cos.f64 a) (cos.f64 b)))
#s(approx (* (sin b) (sin a)) (*.f64 (sin.f64 a) (sin.f64 b)))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) (*.f64 (pow.f64 a #s(literal 7 binary64)) #s(literal -1/5040 binary64)))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) (*.f64 (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64)) (pow.f64 a #s(literal 7 binary64))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) (*.f64 (-.f64 (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64)) (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 a a) (*.f64 a a)))) (pow.f64 a #s(literal 7 binary64))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) (*.f64 (-.f64 (-.f64 (+.f64 (pow.f64 a #s(literal -6 binary64)) (/.f64 #s(literal 1/120 binary64) (*.f64 a a))) #s(literal 1/5040 binary64)) (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 a a) (*.f64 a a)))) (pow.f64 a #s(literal 7 binary64))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) (*.f64 (pow.f64 a #s(literal 7 binary64)) #s(literal -1/5040 binary64)))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) (*.f64 (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64)) (pow.f64 a #s(literal 7 binary64))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) (*.f64 (-.f64 (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64)) (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 a a) (*.f64 a a)))) (pow.f64 a #s(literal 7 binary64))))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) (*.f64 (*.f64 (*.f64 (*.f64 a a) a) (*.f64 (*.f64 a a) a)) #s(literal -1/5040 binary64)))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) (*.f64 (*.f64 (*.f64 (*.f64 a a) a) (*.f64 (*.f64 a a) a)) (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64))))
#s(approx (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a) (*.f64 (*.f64 (*.f64 (*.f64 a a) a) (*.f64 (*.f64 a a) a)) (-.f64 (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64)) (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 a a) (*.f64 a a))))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) (*.f64 (pow.f64 a #s(literal 5 binary64)) #s(literal -1/5040 binary64)))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) (*.f64 (pow.f64 a #s(literal 5 binary64)) (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) (*.f64 (pow.f64 a #s(literal 5 binary64)) (-.f64 (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64)) (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 a a) (*.f64 a a))))))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) (*.f64 (*.f64 (*.f64 a a) (*.f64 a a)) #s(literal -1/5040 binary64)))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) (*.f64 (*.f64 (*.f64 a a) (*.f64 a a)) (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64))))
#s(approx (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) (*.f64 (-.f64 (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64)) (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 a a) (*.f64 a a)))) (*.f64 (*.f64 a a) (*.f64 a a))))
#s(approx (* (* (+ (* (* a a) -1/5040) 1/120) a) a) (*.f64 (*.f64 (*.f64 a a) (*.f64 a a)) #s(literal -1/5040 binary64)))
#s(approx (* (* (+ (* (* a a) -1/5040) 1/120) a) a) (*.f64 (*.f64 (*.f64 a a) (*.f64 a a)) (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64))))
#s(approx (* (+ (* (* a a) -1/5040) 1/120) a) (*.f64 (*.f64 (*.f64 a a) a) #s(literal -1/5040 binary64)))
#s(approx (* (+ (* (* a a) -1/5040) 1/120) a) (*.f64 (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64)) (*.f64 (*.f64 a a) a)))
#s(approx (+ (* (* a a) -1/5040) 1/120) (*.f64 (*.f64 a a) #s(literal -1/5040 binary64)))
#s(approx (+ (* (* a a) -1/5040) 1/120) (*.f64 (-.f64 (/.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/5040 binary64)) (*.f64 a a)))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (cos.f64 (+.f64 a b)))
#s(approx (+ a b) (*.f64 (neg.f64 a) (-.f64 (/.f64 (neg.f64 b) a) #s(literal 1 binary64))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) (neg.f64 (*.f64 (-.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/120 binary64) (*.f64 a a))) (pow.f64 a #s(literal 7 binary64)))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) (neg.f64 (*.f64 (+.f64 #s(literal 1/5040 binary64) (-.f64 (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 a a) (*.f64 a a))) (/.f64 #s(literal 1/120 binary64) (*.f64 a a)))) (pow.f64 a #s(literal 7 binary64)))))
#s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) (neg.f64 (*.f64 (-.f64 (+.f64 #s(literal 1/5040 binary64) (-.f64 (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 a a) (*.f64 a a))) (/.f64 #s(literal 1/120 binary64) (*.f64 a a)))) (pow.f64 a #s(literal -6 binary64))) (pow.f64 a #s(literal 7 binary64)))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) (neg.f64 (*.f64 (-.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/120 binary64) (*.f64 a a))) (pow.f64 a #s(literal 7 binary64)))))
#s(approx (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a)) (neg.f64 (*.f64 (+.f64 #s(literal 1/5040 binary64) (-.f64 (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 a a) (*.f64 a a))) (/.f64 #s(literal 1/120 binary64) (*.f64 a a)))) (pow.f64 a #s(literal 7 binary64)))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) (neg.f64 (*.f64 (-.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/120 binary64) (*.f64 a a))) (pow.f64 a #s(literal 5 binary64)))))
#s(approx (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) (neg.f64 (*.f64 (+.f64 #s(literal 1/5040 binary64) (-.f64 (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 a a) (*.f64 a a))) (/.f64 #s(literal 1/120 binary64) (*.f64 a a)))) (pow.f64 a #s(literal 5 binary64)))))
#s(approx (* (+ (* (* a a) -1/5040) 1/120) a) (*.f64 (*.f64 (neg.f64 a) (*.f64 a a)) (-.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/120 binary64) (*.f64 a a)))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 (fma.f64 b (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 (fma.f64 (-.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (neg.f64 b) (fma.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) #s(literal -1/3 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) (sin.f64 a)) (cos.f64 a)))) (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64))))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (* r (sin b)) (*.f64 b r))
#s(approx (* r (sin b)) (*.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/6 binary64) r) b))
#s(approx (* r (sin b)) (*.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal 1/120 binary64) (*.f64 #s(literal -1/6 binary64) r)) (*.f64 b b) r) b))
#s(approx (* r (sin b)) (*.f64 (fma.f64 (fma.f64 (*.f64 b b) (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/5040 binary64) (*.f64 #s(literal 1/120 binary64) r)) (*.f64 #s(literal -1/6 binary64) r)) (*.f64 b b) r) b))
#s(approx (sin b) b)
#s(approx (sin b) (*.f64 (fma.f64 (*.f64 b b) #s(literal -1/6 binary64) #s(literal 1 binary64)) b))
#s(approx (sin b) (*.f64 (fma.f64 (-.f64 (*.f64 (*.f64 b b) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (sin b) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 b b) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 b b)) #s(literal 1/6 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (cos.f64 a))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 b (fma.f64 (*.f64 #s(literal -1/2 binary64) b) (cos.f64 a) (neg.f64 (sin.f64 a))) (cos.f64 a)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 b (fma.f64 (fma.f64 (*.f64 (sin.f64 a) b) #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 a))) b (neg.f64 (sin.f64 a))) (cos.f64 a)))
#s(approx (neg (sin b)) (neg.f64 b))
#s(approx (neg (sin b)) (*.f64 (-.f64 (*.f64 (*.f64 b b) #s(literal 1/6 binary64)) #s(literal 1 binary64)) b))
#s(approx (neg (sin b)) (*.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/120 binary64) (*.f64 b b) #s(literal 1/6 binary64)) (*.f64 b b)) #s(literal 1 binary64)) b))
#s(approx (neg (sin b)) (*.f64 (-.f64 (*.f64 (fma.f64 (-.f64 (*.f64 (*.f64 b b) #s(literal 1/5040 binary64)) #s(literal 1/120 binary64)) (*.f64 b b) #s(literal 1/6 binary64)) (*.f64 b b)) #s(literal 1 binary64)) b))
#s(approx (* (cos a) (cos b)) (cos.f64 a))
#s(approx (* (cos a) (cos b)) (fma.f64 (*.f64 (*.f64 b b) #s(literal -1/2 binary64)) (cos.f64 a) (cos.f64 a)))
#s(approx (* (cos a) (cos b)) (fma.f64 (fma.f64 (*.f64 (*.f64 b b) #s(literal 1/24 binary64)) (cos.f64 a) (*.f64 #s(literal -1/2 binary64) (cos.f64 a))) (*.f64 b b) (cos.f64 a)))
#s(approx (* (cos a) (cos b)) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 b b) #s(literal -1/720 binary64)) (cos.f64 a) (*.f64 #s(literal 1/24 binary64) (cos.f64 a))) (*.f64 b b) (*.f64 #s(literal -1/2 binary64) (cos.f64 a))) (*.f64 b b) (cos.f64 a)))
#s(approx (cos b) #s(literal 1 binary64))
#s(approx (cos b) (fma.f64 (*.f64 b b) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos b) (fma.f64 (-.f64 (*.f64 (*.f64 b b) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 b b) #s(literal 1 binary64)))
#s(approx (cos b) (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 b b) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 b b)) #s(literal 1/2 binary64)) (*.f64 b b) #s(literal 1 binary64)))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 (fma.f64 b (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 (fma.f64 (-.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (neg.f64 b) (fma.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) #s(literal -1/3 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) (sin.f64 a)) (cos.f64 a)))) (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64))))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (* r (tan b)) (*.f64 b r))
#s(approx (* r (tan b)) (*.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal 1/3 binary64) r) b))
#s(approx (* r (tan b)) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 1/3 binary64) r)) (*.f64 b b) r) b))
#s(approx (* r (tan b)) (*.f64 (fma.f64 (fma.f64 (*.f64 b b) (fma.f64 #s(literal 17/315 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 2/15 binary64) r)) (*.f64 #s(literal 1/3 binary64) r)) (*.f64 b b) r) b))
#s(approx (tan b) b)
#s(approx (tan b) (*.f64 (fma.f64 (*.f64 b b) #s(literal 1/3 binary64) #s(literal 1 binary64)) b))
#s(approx (tan b) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (tan b) (*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 17/315 binary64) (*.f64 b b) #s(literal 2/15 binary64)) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))
#s(approx (* (+ (* 1/3 (* b b)) 1) b) b)
#s(approx (* (+ (* 1/3 (* b b)) 1) b) (*.f64 (fma.f64 (*.f64 b b) #s(literal 1/3 binary64) #s(literal 1 binary64)) b))
#s(approx (+ (* 1/3 (* b b)) 1) #s(literal 1 binary64))
#s(approx (+ (* 1/3 (* b b)) 1) (fma.f64 (*.f64 b b) #s(literal 1/3 binary64) #s(literal 1 binary64)))
#s(approx (* b b) (*.f64 b b))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 (fma.f64 b (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 (fma.f64 (-.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (neg.f64 b) (fma.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) #s(literal -1/3 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) (sin.f64 a)) (cos.f64 a)))) (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64))))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a)))
#s(approx (/ (sin b) (cos (+ a b))) (*.f64 (fma.f64 b (/.f64 (sin.f64 a) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) (/.f64 #s(literal 1 binary64) (cos.f64 a))) b))
#s(approx (/ (sin b) (cos (+ a b))) (*.f64 (fma.f64 (-.f64 (*.f64 (-.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (cos.f64 a)) (neg.f64 (/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) (pow.f64 (cos.f64 a) #s(literal 3 binary64))))) (/.f64 #s(literal 1/6 binary64) (cos.f64 a))) b) (neg.f64 (/.f64 (sin.f64 a) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 #s(literal 1 binary64) (cos.f64 a))) b))
#s(approx (/ (sin b) (cos (+ a b))) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (neg.f64 b) (fma.f64 (/.f64 (sin.f64 a) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) #s(literal -1/3 binary64) (neg.f64 (*.f64 (sin.f64 a) (/.f64 (-.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (cos.f64 a)) (neg.f64 (/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) (pow.f64 (cos.f64 a) #s(literal 3 binary64))))) (/.f64 #s(literal 1/6 binary64) (cos.f64 a))) (cos.f64 a))))) (-.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (cos.f64 a)) (neg.f64 (/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) (pow.f64 (cos.f64 a) #s(literal 3 binary64))))) (/.f64 #s(literal 1/6 binary64) (cos.f64 a)))) b) (neg.f64 (/.f64 (sin.f64 a) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 #s(literal 1 binary64) (cos.f64 a))) b))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (cos.f64 a))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 b (-.f64 (*.f64 (*.f64 (cos.f64 a) b) #s(literal -1/2 binary64)) (sin.f64 a)) (cos.f64 a)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 b (-.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 a) b) #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 a))) b) (sin.f64 a)) (cos.f64 a)))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 (fma.f64 b (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 (fma.f64 (-.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (neg.f64 b) (fma.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))) #s(literal -1/3 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64)))))) (sin.f64 a)) (cos.f64 a)))) (-.f64 (*.f64 (/.f64 r (cos.f64 a)) #s(literal -1/6 binary64)) (fma.f64 (/.f64 r (cos.f64 a)) #s(literal -1/2 binary64) (neg.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a)))) r) (pow.f64 (cos.f64 a) #s(literal 3 binary64))))))) b) (neg.f64 (/.f64 (*.f64 (sin.f64 a) r) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) a))))))) b (/.f64 r (cos.f64 a))) b))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (cos.f64 a))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 b (-.f64 (*.f64 (*.f64 (cos.f64 a) b) #s(literal -1/2 binary64)) (sin.f64 a)) (cos.f64 a)))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (fma.f64 b (-.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 a) b) #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 a))) b) (sin.f64 a)) (cos.f64 a)))
#s(approx (+ (* (neg b) (sin a)) (cos a)) (cos.f64 a))
#s(approx (neg b) (neg.f64 b))
#s(approx (* (cos a) (cos b)) (cos.f64 a))
#s(approx (* (cos a) (cos b)) (fma.f64 (*.f64 (*.f64 b b) #s(literal -1/2 binary64)) (cos.f64 a) (cos.f64 a)))
#s(approx (* (cos a) (cos b)) (fma.f64 (fma.f64 (*.f64 (*.f64 b b) #s(literal 1/24 binary64)) (cos.f64 a) (*.f64 #s(literal -1/2 binary64) (cos.f64 a))) (*.f64 b b) (cos.f64 a)))
#s(approx (* (cos a) (cos b)) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 b b) #s(literal -1/720 binary64)) (cos.f64 a) (*.f64 #s(literal 1/24 binary64) (cos.f64 a))) (*.f64 b b) (*.f64 #s(literal -1/2 binary64) (cos.f64 a))) (*.f64 b b) (cos.f64 a)))
#s(approx (* (sin b) (sin a)) (*.f64 (sin.f64 a) b))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (*.f64 (*.f64 b b) (sin.f64 a)) #s(literal -1/6 binary64) (sin.f64 a)) b))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 b b) (sin.f64 a)) #s(literal 1/120 binary64) (*.f64 (sin.f64 a) #s(literal -1/6 binary64))) (*.f64 b b) (sin.f64 a)) b))
#s(approx (* (sin b) (sin a)) (*.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 a) (*.f64 (fma.f64 (*.f64 (*.f64 b b) (sin.f64 a)) #s(literal -1/5040 binary64) (*.f64 (sin.f64 a) #s(literal 1/120 binary64))) (*.f64 b b))) (*.f64 b b) (sin.f64 a)) b))
#s(approx (neg (sin b)) (neg.f64 (sin.f64 b)))
#s(approx (tan b) (tan.f64 b))
#s(approx (* (+ (* 1/3 (* b b)) 1) b) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 1/3 binary64)))
#s(approx (* (+ (* 1/3 (* b b)) 1) b) (fma.f64 (*.f64 (*.f64 b b) b) #s(literal 1/3 binary64) b))
#s(approx (+ (* 1/3 (* b b)) 1) (*.f64 (*.f64 b b) #s(literal 1/3 binary64)))
#s(approx (+ (* 1/3 (* b b)) 1) (fma.f64 (*.f64 b b) #s(literal 1/3 binary64) #s(literal 1 binary64)))
#s(approx (+ a b) (*.f64 (+.f64 (/.f64 a b) #s(literal 1 binary64)) b))
#s(approx (+ (* (neg b) (sin a)) (cos a)) (*.f64 (neg.f64 b) (sin.f64 a)))
#s(approx (+ (* (neg b) (sin a)) (cos a)) (*.f64 (+.f64 (/.f64 (cos.f64 a) b) (neg.f64 (sin.f64 a))) b))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (/ (* r (sin b)) (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b)))) (/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b))))
#s(approx (/ (sin b) (cos (+ a b))) (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
#s(approx (+ (* (sin a) (neg (sin b))) (* (cos a) (cos b))) (cos.f64 (+.f64 a b)))
#s(approx (+ a b) (*.f64 (neg.f64 b) (-.f64 (/.f64 (neg.f64 a) b) #s(literal 1 binary64))))
#s(approx (+ (* (neg b) (sin a)) (cos a)) (*.f64 (neg.f64 b) (+.f64 (neg.f64 (/.f64 (cos.f64 a) b)) (sin.f64 a))))

eval62.0ms (1.4%)

Memory
11.9MiB live, 102.0MiB allocated; 12ms collecting garbage
Compiler

Compiled 5 801 to 2 658 computations (54.2% saved)

prune85.0ms (1.9%)

Memory
32.9MiB live, 173.2MiB allocated; 23ms collecting garbage
Pruning

80 alts after pruning (75 fresh and 5 done)

PrunedKeptTotal
New44015455
Fresh86068
Picked325
Done033
Total45180531
Accuracy
99.9%
Counts
531 → 80
Alt Table
Click to see full alt table
StatusAccuracyProgram
21.2%
(/.f64 (/.f64 (*.f64 r #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
49.6%
(/.f64 (*.f64 (*.f64 r (sqrt.f64 (sin.f64 b))) (sqrt.f64 (sin.f64 b))) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
32.1%
(/.f64 (*.f64 (*.f64 r (sqrt.f64 (sin.f64 b))) (sqrt.f64 (sin.f64 b))) (cos.f64 #s(approx (+ a b) b)))
99.4%
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
61.0%
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a)) (sin.f64 b))))
76.1%
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
62.9%
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 #s(approx (+ a b) b)))
20.7%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal 2 binary64) b (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
20.9%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (+.f64 b b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
21.8%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 #s(approx (+ a b) a)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
16.4%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 #s(approx (neg (+ a b)) (*.f64 (-.f64 (/.f64 (neg.f64 a) b) #s(literal 1 binary64)) b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
6.3%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (cosh.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
99.3%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
76.0%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (cos.f64 (+.f64 a b)))
62.9%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (cos.f64 #s(approx (+ a b) b)))
21.2%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
33.9%
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) #s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (/.f64 (fma.f64 (*.f64 b b) #s(literal 1/6 binary64) #s(literal 1 binary64)) b)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
41.2%
(/.f64 (*.f64 r (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
31.4%
(/.f64 (*.f64 r (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))) (cos.f64 #s(approx (+ a b) b)))
99.5%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 a) #s(literal -1 binary64))) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b))))
75.9%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 (+.f64 a b)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (+.f64 a b)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
99.1%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (fma.f64 (sin.f64 b) (cos.f64 (PI.f64)) (*.f64 (cos.f64 b) (sin.f64 (PI.f64)))) (*.f64 (cos.f64 a) (cos.f64 b))))
76.8%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (sin.f64 (+.f64 b (PI.f64))) (*.f64 (cos.f64 a) (cos.f64 b))))
99.4%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 a))) (cos.f64 b))))
99.4%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (/.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 b) #s(literal -1 binary64))))))
✓99.4%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b))))
63.8%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) #s(approx (* (cos a) (cos b)) (cos.f64 b))))
51.5%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) #s(approx (* (cos a) (cos b)) (cos.f64 a))))
✓99.5%
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))))
99.3%
(/.f64 (*.f64 r (sin.f64 b)) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)) (fma.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (sin.f64 a) (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 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64)) (*.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 (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) (sin.f64 b)))) (fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (sin.f64 a) (sin.f64 b)))))
73.9%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal 1/2 binary64)) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
87.7%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) (sin.f64 a))))
99.4%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 a) #s(literal -1 binary64))))))
44.2%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (*.f64 (pow.f64 (sin.f64 a) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 a) #s(literal 1/2 binary64))))))
62.1%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 #s(approx (+ (* -1/5040 (* a a)) 1/120) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
62.7%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 #s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(literal -1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
67.3%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) #s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) a)))))
59.6%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 a a) #s(literal 1/24 binary64)) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
56.8%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 a a) #s(literal 1/24 binary64)) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
55.0%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
59.5%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (*.f64 a a) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
57.2%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (*.f64 a a) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
63.8%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 b)) (*.f64 (sin.f64 b) (sin.f64 a))))
59.5%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 b)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
51.5%
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
39.5%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) a)))
39.2%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 #s(approx (+ a b) b) (/.f64 (PI.f64) #s(literal 2 binary64)))))
38.6%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 #s(approx (neg (+ a b)) (*.f64 (-.f64 (/.f64 (neg.f64 b) a) #s(literal 1 binary64)) a)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
38.9%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))))
✓19.3%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
19.5%
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 a))))
64.4%
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) (*.f64 (+.f64 (/.f64 a b) #s(literal 1 binary64)) b))))
50.4%
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) a)))
60.6%
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
33.3%
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(approx (+ (* (neg b) (sin a)) (cos a)) (fma.f64 (neg.f64 a) b #s(literal 1 binary64)))))
37.5%
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(approx (+ (* (neg b) (sin a)) (cos a)) #s(literal 1 binary64))))
41.3%
(/.f64 (*.f64 r (fabs.f64 (sin.f64 b))) (cos.f64 #s(approx (+ a b) b)))
16.0%
(/.f64 (*.f64 r #s(approx (sin b) b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
46.0%
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
48.1%
(/.f64 (*.f64 r #s(approx (sin b) b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
31.3%
(*.f64 r (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 a b))))
7.7%
(*.f64 r (/.f64 (sin.f64 b) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b)))))
63.0%
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 #s(approx (+ a b) b))))
50.4%
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 #s(approx (+ a b) a))))
46.0%
(*.f64 r #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))))
33.4%
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))
21.1%
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))
21.2%
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (/.f64 r (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a) b)))))
39.9%
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a) b))))
63.0%
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (tan.f64 b) r))
46.0%
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 b (/.f64 r (cos.f64 a))))
35.0%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (/.f64 (+.f64 (tan.f64 b) (tan.f64 (PI.f64))) (-.f64 #s(literal 1 binary64) (*.f64 (tan.f64 b) (tan.f64 (PI.f64)))))))
32.2%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 17/315 binary64) (*.f64 b b) #s(literal 2/15 binary64)) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
32.2%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
✓32.3%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b))))
16.8%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) #s(approx (* (+ (* 1/3 (* b b)) 1) b) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 1/3 binary64))))))
✓32.7%
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) b)))
32.2%
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(approx (* r (tan b)) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 1/3 binary64) r)) (*.f64 b b) r) b)))
Compiler

Compiled 2 725 to 2 007 computations (26.3% saved)

regimes246.0ms (5.6%)

Memory
-31.9MiB live, 335.5MiB allocated; 167ms collecting garbage
Counts
117 → 1
Calls
Call 1
Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) #s(approx (* (+ (* 1/3 (* b b)) 1) b) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 1/3 binary64))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(approx (* r (tan b)) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 1/3 binary64) r)) (*.f64 b b) r) b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 17/315 binary64) (*.f64 b b) #s(literal 2/15 binary64)) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (tan.f64 b)))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(approx (+ (* (neg b) (sin a)) (cos a)) #s(literal 1 binary64))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 b (/.f64 r (cos.f64 a))))
(*.f64 r #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))))
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 r #s(approx (sin b) b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(approx (+ (* (neg b) (sin a)) (cos a)) (fma.f64 (neg.f64 a) b #s(literal 1 binary64)))))
(/.f64 #s(approx (* r (sin b)) (*.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/6 binary64) r) b)) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) #s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (/.f64 (fma.f64 (*.f64 b b) #s(literal 1/6 binary64) #s(literal 1 binary64)) b)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 #s(approx (+ a b) b)))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 #s(approx (+ a b) a))))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 #s(approx (+ a b) b))))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) a)))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) b)))
(*.f64 r (/.f64 (sin.f64 b) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b)))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
(/.f64 (*.f64 r (fabs.f64 (sin.f64 b))) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))))
(/.f64 (*.f64 r #s(approx (sin b) b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 #s(approx (+ a b) b) (/.f64 (PI.f64) #s(literal 2 binary64)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a) b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a) b))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (+.f64 a b) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) a)))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) (*.f64 (+.f64 (/.f64 a b) #s(literal 1 binary64)) b))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))) (cos.f64 #s(approx (+ a b) b)))
(*.f64 r (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 a b))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 #s(approx (neg (+ a b)) (*.f64 (-.f64 (/.f64 (neg.f64 b) a) #s(literal 1 binary64)) a)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (pow.f64 (sqrt.f64 (sin.f64 b)) #s(literal 2 binary64))) (cos.f64 #s(approx (+ a b) b)))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (/.f64 r (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a) b)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 r (exp.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 1 binary64)))) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (/.f64 (*.f64 r #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 #s(approx (+ a b) a)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.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 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(/.f64 (*.f64 (*.f64 r (sqrt.f64 (sin.f64 b))) (sqrt.f64 (sin.f64 b))) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal 2 binary64) b (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 #s(approx (neg (+ a b)) (*.f64 (-.f64 (/.f64 (neg.f64 a) b) #s(literal 1 binary64)) b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (+.f64 b b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 b)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 b)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (*.f64 (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) #s(approx (* (cos a) (cos b)) (cos.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) #s(approx (* (cos a) (cos b)) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) #s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) #s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (*.f64 a a) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (fma.f64 a (-.f64 (*.f64 (*.f64 (cos.f64 b) a) #s(literal -1/2 binary64)) (sin.f64 b)) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 a (-.f64 (*.f64 (*.f64 (cos.f64 b) a) #s(literal -1/2 binary64)) (sin.f64 b)) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (*.f64 a a) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 #s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(literal -1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (/.f64 (+.f64 (tan.f64 b) (tan.f64 (PI.f64))) (-.f64 #s(literal 1 binary64) (*.f64 (tan.f64 b) (tan.f64 (PI.f64)))))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 #s(approx (+ (* -1/5040 (* a a)) 1/120) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 a a) #s(literal 1/24 binary64)) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 a a) #s(literal 1/24 binary64)) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)) (sin.f64 b))))
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a)) (sin.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (fma.f64 a #s(literal 1 binary64) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)))))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (cosh.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.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 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (sin.f64 (+.f64 b (PI.f64))) (*.f64 (cos.f64 a) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (sin.f64 (+.f64 b (PI.f64))) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 a))) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) (sin.f64 a))))
(/.f64 (*.f64 r (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 (+.f64 a b)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (+.f64 a b)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (exp.f64 (*.f64 (log.f64 (cos.f64 b)) #s(literal 1 binary64))) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 a) #s(literal -1 binary64))))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (/.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 a) #s(literal -1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (/.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 b) #s(literal -1 binary64))))))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 a) #s(literal -1 binary64))) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal 1/2 binary64)) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 (*.f64 r (sqrt.f64 (sin.f64 b))) (sqrt.f64 (sin.f64 b))) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (*.f64 (pow.f64 (sin.f64 a) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 a) #s(literal 1/2 binary64))))))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (fma.f64 (sin.f64 b) (cos.f64 (PI.f64)) (*.f64 (cos.f64 b) (sin.f64 (PI.f64)))) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (fma.f64 (sin.f64 b) (cos.f64 (PI.f64)) (*.f64 (cos.f64 b) (sin.f64 (PI.f64)))) (*.f64 (cos.f64 a) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (/.f64 (-.f64 (*.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) (sin.f64 b)))) (fma.f64 (cos.f64 a) (cos.f64 b) (*.f64 (sin.f64 a) (sin.f64 b)))))
(/.f64 (*.f64 r (sin.f64 b)) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b)))))))
(/.f64 (*.f64 r (sin.f64 b)) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 a) (cos.f64 b)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 a) (sin.f64 b)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b)) (fma.f64 (*.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b)) (*.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 (sin.f64 a) (sin.f64 b)))))))
Outputs
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 a) #s(literal -1 binary64))) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b))))
Calls

4 calls:

128.0ms
b
47.0ms
a
33.0ms
r
30.0ms
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
Results
AccuracySegmentsBranch
99.5%1(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
99.5%1r
99.5%1a
99.5%1b
Compiler

Compiled 11 to 17 computations (-54.5% saved)

regimes117.0ms (2.7%)

Memory
11.8MiB live, 247.0MiB allocated; 14ms collecting garbage
Counts
108 → 1
Calls
Call 1
Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) #s(approx (* (+ (* 1/3 (* b b)) 1) b) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 1/3 binary64))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(approx (* r (tan b)) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 1/3 binary64) r)) (*.f64 b b) r) b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 17/315 binary64) (*.f64 b b) #s(literal 2/15 binary64)) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (tan.f64 b)))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(approx (+ (* (neg b) (sin a)) (cos a)) #s(literal 1 binary64))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 b (/.f64 r (cos.f64 a))))
(*.f64 r #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))))
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 r #s(approx (sin b) b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(approx (+ (* (neg b) (sin a)) (cos a)) (fma.f64 (neg.f64 a) b #s(literal 1 binary64)))))
(/.f64 #s(approx (* r (sin b)) (*.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/6 binary64) r) b)) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) #s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (/.f64 (fma.f64 (*.f64 b b) #s(literal 1/6 binary64) #s(literal 1 binary64)) b)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 #s(approx (+ a b) b)))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 #s(approx (+ a b) a))))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 #s(approx (+ a b) b))))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) a)))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) b)))
(*.f64 r (/.f64 (sin.f64 b) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b)))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
(/.f64 (*.f64 r (fabs.f64 (sin.f64 b))) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))))
(/.f64 (*.f64 r #s(approx (sin b) b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 #s(approx (+ a b) b) (/.f64 (PI.f64) #s(literal 2 binary64)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a) b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a) b))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (+.f64 a b) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) a)))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) (*.f64 (+.f64 (/.f64 a b) #s(literal 1 binary64)) b))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))) (cos.f64 #s(approx (+ a b) b)))
(*.f64 r (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 a b))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 #s(approx (neg (+ a b)) (*.f64 (-.f64 (/.f64 (neg.f64 b) a) #s(literal 1 binary64)) a)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (pow.f64 (sqrt.f64 (sin.f64 b)) #s(literal 2 binary64))) (cos.f64 #s(approx (+ a b) b)))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (/.f64 r (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a) b)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 r (exp.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 1 binary64)))) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (/.f64 (*.f64 r #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 #s(approx (+ a b) a)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.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 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(/.f64 (*.f64 (*.f64 r (sqrt.f64 (sin.f64 b))) (sqrt.f64 (sin.f64 b))) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal 2 binary64) b (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 #s(approx (neg (+ a b)) (*.f64 (-.f64 (/.f64 (neg.f64 a) b) #s(literal 1 binary64)) b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (+.f64 b b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 b)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 b)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (*.f64 (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) #s(approx (* (cos a) (cos b)) (cos.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) #s(approx (* (cos a) (cos b)) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) #s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) #s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (*.f64 a a) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (fma.f64 a (-.f64 (*.f64 (*.f64 (cos.f64 b) a) #s(literal -1/2 binary64)) (sin.f64 b)) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 a (-.f64 (*.f64 (*.f64 (cos.f64 b) a) #s(literal -1/2 binary64)) (sin.f64 b)) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (*.f64 a a) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 #s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(literal -1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (/.f64 (+.f64 (tan.f64 b) (tan.f64 (PI.f64))) (-.f64 #s(literal 1 binary64) (*.f64 (tan.f64 b) (tan.f64 (PI.f64)))))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 #s(approx (+ (* -1/5040 (* a a)) 1/120) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 a a) #s(literal 1/24 binary64)) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 a a) #s(literal 1/24 binary64)) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)) (sin.f64 b))))
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a)) (sin.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (fma.f64 a #s(literal 1 binary64) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)))))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (cosh.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.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 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (sin.f64 (+.f64 b (PI.f64))) (*.f64 (cos.f64 a) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (sin.f64 (+.f64 b (PI.f64))) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 a))) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b))))) (sin.f64 a))))
(/.f64 (*.f64 r (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 (+.f64 a b)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (+.f64 a b)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (exp.f64 (*.f64 (log.f64 (cos.f64 b)) #s(literal 1 binary64))) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 a) #s(literal -1 binary64))))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (/.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 a) #s(literal -1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) (*.f64 (cos.f64 a) (/.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 b) #s(literal -1 binary64))))))
Outputs
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (cos.f64 b) (cos.f64 a) (*.f64 (neg.f64 (sin.f64 b)) (sin.f64 a))))
Calls

4 calls:

30.0ms
r
29.0ms
b
27.0ms
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
26.0ms
a
Results
AccuracySegmentsBranch
99.5%1a
99.5%1(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
99.5%1r
99.5%1b
Compiler

Compiled 11 to 17 computations (-54.5% saved)

regimes98.0ms (2.2%)

Memory
-5.4MiB live, 94.0MiB allocated; 7ms collecting garbage
Counts
95 → 1
Calls
Call 1
Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) #s(approx (* (+ (* 1/3 (* b b)) 1) b) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 1/3 binary64))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(approx (* r (tan b)) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 1/3 binary64) r)) (*.f64 b b) r) b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 17/315 binary64) (*.f64 b b) #s(literal 2/15 binary64)) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (tan.f64 b)))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(approx (+ (* (neg b) (sin a)) (cos a)) #s(literal 1 binary64))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 b (/.f64 r (cos.f64 a))))
(*.f64 r #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))))
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 r #s(approx (sin b) b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(approx (+ (* (neg b) (sin a)) (cos a)) (fma.f64 (neg.f64 a) b #s(literal 1 binary64)))))
(/.f64 #s(approx (* r (sin b)) (*.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/6 binary64) r) b)) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) #s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (/.f64 (fma.f64 (*.f64 b b) #s(literal 1/6 binary64) #s(literal 1 binary64)) b)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 #s(approx (+ a b) b)))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 #s(approx (+ a b) a))))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 #s(approx (+ a b) b))))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) a)))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) b)))
(*.f64 r (/.f64 (sin.f64 b) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b)))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
(/.f64 (*.f64 r (fabs.f64 (sin.f64 b))) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))))
(/.f64 (*.f64 r #s(approx (sin b) b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 #s(approx (+ a b) b) (/.f64 (PI.f64) #s(literal 2 binary64)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a) b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a) b))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (+.f64 a b) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) a)))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) (*.f64 (+.f64 (/.f64 a b) #s(literal 1 binary64)) b))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))) (cos.f64 #s(approx (+ a b) b)))
(*.f64 r (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 a b))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 #s(approx (neg (+ a b)) (*.f64 (-.f64 (/.f64 (neg.f64 b) a) #s(literal 1 binary64)) a)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (pow.f64 (sqrt.f64 (sin.f64 b)) #s(literal 2 binary64))) (cos.f64 #s(approx (+ a b) b)))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (/.f64 r (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a) b)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 r (exp.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 1 binary64)))) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (/.f64 (*.f64 r #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 #s(approx (+ a b) a)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.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 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(/.f64 (*.f64 (*.f64 r (sqrt.f64 (sin.f64 b))) (sqrt.f64 (sin.f64 b))) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal 2 binary64) b (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 #s(approx (neg (+ a b)) (*.f64 (-.f64 (/.f64 (neg.f64 a) b) #s(literal 1 binary64)) b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (+.f64 b b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 b)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 b)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (*.f64 (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) #s(approx (* (cos a) (cos b)) (cos.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) #s(approx (* (cos a) (cos b)) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) #s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) #s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (*.f64 a a) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (fma.f64 a (-.f64 (*.f64 (*.f64 (cos.f64 b) a) #s(literal -1/2 binary64)) (sin.f64 b)) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 a (-.f64 (*.f64 (*.f64 (cos.f64 b) a) #s(literal -1/2 binary64)) (sin.f64 b)) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (*.f64 a a) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 #s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(literal -1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (/.f64 (+.f64 (tan.f64 b) (tan.f64 (PI.f64))) (-.f64 #s(literal 1 binary64) (*.f64 (tan.f64 b) (tan.f64 (PI.f64)))))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 #s(approx (+ (* -1/5040 (* a a)) 1/120) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 a a) #s(literal 1/24 binary64)) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 a a) #s(literal 1/24 binary64)) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)) (sin.f64 b))))
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a)) (sin.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (fma.f64 a #s(literal 1 binary64) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)))))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (cosh.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
Outputs
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
Calls

4 calls:

25.0ms
r
23.0ms
b
23.0ms
a
22.0ms
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
Results
AccuracySegmentsBranch
99.4%1(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
99.4%1r
99.4%1a
99.4%1b
Compiler

Compiled 11 to 17 computations (-54.5% saved)

regimes96.0ms (2.2%)

Memory
0.1MiB live, 91.7MiB allocated; 5ms collecting garbage
Counts
93 → 1
Calls
Call 1
Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) #s(approx (* (+ (* 1/3 (* b b)) 1) b) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 1/3 binary64))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(approx (* r (tan b)) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 1/3 binary64) r)) (*.f64 b b) r) b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 17/315 binary64) (*.f64 b b) #s(literal 2/15 binary64)) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (tan.f64 b)))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(approx (+ (* (neg b) (sin a)) (cos a)) #s(literal 1 binary64))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 b (/.f64 r (cos.f64 a))))
(*.f64 r #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))))
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 r #s(approx (sin b) b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(approx (+ (* (neg b) (sin a)) (cos a)) (fma.f64 (neg.f64 a) b #s(literal 1 binary64)))))
(/.f64 #s(approx (* r (sin b)) (*.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/6 binary64) r) b)) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) #s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (/.f64 (fma.f64 (*.f64 b b) #s(literal 1/6 binary64) #s(literal 1 binary64)) b)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 #s(approx (+ a b) b)))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 #s(approx (+ a b) a))))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 #s(approx (+ a b) b))))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) a)))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) b)))
(*.f64 r (/.f64 (sin.f64 b) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b)))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
(/.f64 (*.f64 r (fabs.f64 (sin.f64 b))) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) b))))
(/.f64 (*.f64 r #s(approx (sin b) b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 #s(approx (+ a b) b) (/.f64 (PI.f64) #s(literal 2 binary64)))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a) b))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (/.f64 (*.f64 (sin.f64 b) r) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a) b))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (+.f64 a b) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (+.f64 b (/.f64 (PI.f64) #s(literal 2 binary64))) a)))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) (*.f64 (+.f64 (/.f64 a b) #s(literal 1 binary64)) b))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))))) (cos.f64 #s(approx (+ a b) b)))
(*.f64 r (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 a b))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (/.f64 r (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) b))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 (+.f64 #s(approx (neg (+ a b)) (*.f64 (-.f64 (/.f64 (neg.f64 b) a) #s(literal 1 binary64)) a)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (pow.f64 (sqrt.f64 (sin.f64 b)) #s(literal 2 binary64))) (cos.f64 #s(approx (+ a b) b)))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))) (/.f64 r (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a) b)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 r (exp.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 1 binary64)))) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 b) #s(literal -1 binary64)))) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64))))))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (/.f64 (*.f64 r #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 b b)) #s(literal 1/2 binary64)))))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 #s(approx (+ a b) a)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.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 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 a) (sin.f64 b) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) (fma.f64 (neg.f64 b) (sin.f64 a) (cos.f64 a))))
(/.f64 (*.f64 (*.f64 r (sqrt.f64 (sin.f64 b))) (sqrt.f64 (sin.f64 b))) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal 2 binary64) b (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) b)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 #s(approx (neg (+ a b)) (*.f64 (-.f64 (/.f64 (neg.f64 a) b) #s(literal 1 binary64)) b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (+.f64 b b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 b)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 a)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 #s(approx (* (cos b) (cos a)) (cos.f64 b)) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (*.f64 (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 b) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) #s(approx (* (cos a) (cos b)) (cos.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (fma.f64 (sin.f64 a) (neg.f64 (sin.f64 b)) #s(approx (* (cos a) (cos b)) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) #s(approx (* (+ (* (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) (* a a)) 1) a) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) #s(approx (+ (* a 1) (* a (* (* (- (* (* (+ (* (* a a) -1/5040) 1/120) a) a) 1/6) a) a))) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (*.f64 a a) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (cos (+ a b)) (fma.f64 a (-.f64 (*.f64 (*.f64 (cos.f64 b) a) #s(literal -1/2 binary64)) (sin.f64 b)) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (sin (+ (neg (+ a b)) (/ (PI) 2))) (fma.f64 a (-.f64 (*.f64 (*.f64 (cos.f64 b) a) #s(literal -1/2 binary64)) (sin.f64 b)) (cos.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (*.f64 a a) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 #s(approx (- (* (+ (* -1/5040 (* a a)) 1/120) (* a a)) 1/6) #s(literal -1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (/.f64 (+.f64 (tan.f64 b) (tan.f64 (PI.f64))) (-.f64 #s(literal 1 binary64) (*.f64 (tan.f64 b) (tan.f64 (PI.f64)))))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 #s(approx (+ (* -1/5040 (* a a)) 1/120) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 a a) #s(literal 1/24 binary64)) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) #s(approx (cos a) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 a a) #s(literal 1/24 binary64)) (*.f64 a a)) #s(literal 1/2 binary64)) (*.f64 a a) #s(literal 1 binary64)))) (*.f64 (sin.f64 b) (sin.f64 a))))
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (*.f64 (fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a #s(literal 1 binary64)) a)) (sin.f64 b))))
(/.f64 (*.f64 (sin.f64 b) r) (-.f64 (*.f64 (cos.f64 a) (cos.f64 b)) (*.f64 #s(approx (sin a) (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a) a a)) (sin.f64 b))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/5040 binary64) (*.f64 a a) #s(literal 1/120 binary64)) (*.f64 a a)) #s(literal 1/6 binary64)) (*.f64 a a) #s(literal 1 binary64)) a)))))
(/.f64 (*.f64 r (sin.f64 b)) (-.f64 (*.f64 (cos.f64 b) (cos.f64 a)) (*.f64 (sin.f64 b) #s(approx (sin a) (fma.f64 a #s(literal 1 binary64) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (fma.f64 (*.f64 a a) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) a) a) #s(literal 1/6 binary64)) a) a)))))))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (cosh.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (sin.f64 b)) #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
Outputs
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 (+.f64 a b))))
Calls

4 calls:

24.0ms
r
24.0ms
b
22.0ms
a
22.0ms
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
Results
AccuracySegmentsBranch
76.1%1(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
76.1%1r
76.1%1a
76.1%1b
Compiler

Compiled 11 to 17 computations (-54.5% saved)

regimes36.0ms (0.8%)

Memory
-10.0MiB live, 36.5MiB allocated; 2ms collecting garbage
Counts
32 → 1
Calls
Call 1
Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) #s(approx (* (+ (* 1/3 (* b b)) 1) b) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 1/3 binary64))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(approx (* r (tan b)) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 1/3 binary64) r)) (*.f64 b b) r) b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 17/315 binary64) (*.f64 b b) #s(literal 2/15 binary64)) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (tan.f64 b)))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(approx (+ (* (neg b) (sin a)) (cos a)) #s(literal 1 binary64))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 b (/.f64 r (cos.f64 a))))
(*.f64 r #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))))
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 r #s(approx (sin b) b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(approx (+ (* (neg b) (sin a)) (cos a)) (fma.f64 (neg.f64 a) b #s(literal 1 binary64)))))
(/.f64 #s(approx (* r (sin b)) (*.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/6 binary64) r) b)) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) #s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (/.f64 (fma.f64 (*.f64 b b) #s(literal 1/6 binary64) #s(literal 1 binary64)) b)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 #s(approx (+ a b) b)))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 #s(approx (+ a b) a))))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 #s(approx (+ a b) b))))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) a)))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) b)))
(*.f64 r (/.f64 (sin.f64 b) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b)))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
(/.f64 (*.f64 r (fabs.f64 (sin.f64 b))) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
Outputs
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 (+.f64 a b)))
Calls

4 calls:

9.0ms
r
8.0ms
a
8.0ms
b
8.0ms
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
Results
AccuracySegmentsBranch
76.1%1(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
76.1%1a
76.1%1b
76.1%1r
Compiler

Compiled 11 to 17 computations (-54.5% saved)

regimes43.0ms (1%)

Memory
-18.4MiB live, 34.7MiB allocated; 19ms collecting garbage
Counts
31 → 3
Calls
Call 1
Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) #s(approx (* (+ (* 1/3 (* b b)) 1) b) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 1/3 binary64))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(approx (* r (tan b)) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 1/3 binary64) r)) (*.f64 b b) r) b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 17/315 binary64) (*.f64 b b) #s(literal 2/15 binary64)) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (tan.f64 b)))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(approx (+ (* (neg b) (sin a)) (cos a)) #s(literal 1 binary64))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 b (/.f64 r (cos.f64 a))))
(*.f64 r #s(approx (/ (sin b) (cos (+ a b))) (/.f64 b (cos.f64 a))))
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 #s(approx (+ a b) b)))
(/.f64 (*.f64 r #s(approx (sin b) b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
(/.f64 (*.f64 r #s(approx (sin b) b)) (cos.f64 (+.f64 a b)))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) a))))
#s(approx (/ (* r (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2))) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (/.f64 (*.f64 b r) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) a))))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(approx (+ (* (neg b) (sin a)) (cos a)) (fma.f64 (neg.f64 a) b #s(literal 1 binary64)))))
(/.f64 #s(approx (* r (sin b)) (*.f64 (fma.f64 (*.f64 (*.f64 b b) r) #s(literal -1/6 binary64) r) b)) (cos.f64 (+.f64 a b)))
(/.f64 (*.f64 r (/.f64 #s(literal 1 binary64) #s(approx (pow (- 1/2 (* 1/2 (cos (* 2 b)))) -1/2) (/.f64 (fma.f64 (*.f64 b b) #s(literal 1/6 binary64) #s(literal 1 binary64)) b)))) (sin.f64 (+.f64 (neg.f64 (+.f64 a b)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (*.f64 (sin.f64 b) r) (cos.f64 #s(approx (+ a b) b)))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 #s(approx (+ a b) a))))
(*.f64 r (/.f64 (sin.f64 b) (cos.f64 #s(approx (+ a b) b))))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) a)))
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 #s(approx (+ a b) b)))
(*.f64 r (/.f64 (sin.f64 b) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b)))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 a))))
(/.f64 (*.f64 r (sin.f64 b)) (sin.f64 #s(approx (+ (neg (+ a b)) (/ (PI) 2)) (neg.f64 b))))
(/.f64 (*.f64 r (fabs.f64 (sin.f64 b))) (cos.f64 #s(approx (+ a b) b)))
Outputs
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 b (/.f64 r (cos.f64 a))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (tan.f64 b) r))
Calls

4 calls:

18.0ms
a
8.0ms
r
8.0ms
b
8.0ms
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
Results
AccuracySegmentsBranch
63.0%1(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
75.9%3a
76.3%3b
63.0%1r
Compiler

Compiled 11 to 17 computations (-54.5% saved)

regimes10.0ms (0.2%)

Memory
12.7MiB live, 12.7MiB allocated; 0ms collecting garbage
Counts
10 → 1
Calls
Call 1
Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) #s(approx (* (+ (* 1/3 (* b b)) 1) b) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 1/3 binary64))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(approx (* r (tan b)) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 1/3 binary64) r)) (*.f64 b b) r) b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 17/315 binary64) (*.f64 b b) #s(literal 2/15 binary64)) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (- (* (cos b) (cos a)) (* (sin b) (sin a)))) (*.f64 (tan.f64 b) r))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r (tan.f64 b)))
(/.f64 (*.f64 r (sin.f64 b)) #s(approx (- (* (cos b) (cos a)) (* (sin b) (sin a))) #s(approx (+ (* (neg b) (sin a)) (cos a)) #s(literal 1 binary64))))
Outputs
#s(approx (/ (* r (sin b)) (sin (+ (neg (+ a b)) (/ (PI) 2)))) (*.f64 (tan.f64 b) r))
Calls

3 calls:

3.0ms
b
3.0ms
a
3.0ms
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
Results
AccuracySegmentsBranch
63.0%1(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
63.0%1a
63.0%1b
Compiler

Compiled 10 to 14 computations (-40% saved)

regimes9.0ms (0.2%)

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

Total -10.3b remaining (-24%)

Threshold costs -10.3b (-24%)

Counts
6 → 1
Calls
Call 1
Inputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) #s(approx (* (+ (* 1/3 (* b b)) 1) b) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 1/3 binary64))))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
#s(approx (/ (* r (sin b)) (cos (+ a b))) #s(approx (* r (tan b)) (*.f64 (fma.f64 (fma.f64 #s(literal 2/15 binary64) (*.f64 (*.f64 b b) r) (*.f64 #s(literal 1/3 binary64) r)) (*.f64 b b) r) b)))
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) (*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 17/315 binary64) (*.f64 b b) #s(literal 2/15 binary64)) (*.f64 b b) #s(literal 1/3 binary64)) (*.f64 b b) #s(literal 1 binary64)) b))))
Outputs
#s(approx (/ (* r (sin b)) (cos (+ a b))) (*.f64 r #s(approx (tan b) b)))
Calls

4 calls:

2.0ms
b
2.0ms
(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
2.0ms
r
2.0ms
a
Results
AccuracySegmentsBranch
32.7%1r
32.7%1(/.f64 (*.f64 r (sin.f64 b)) (cos.f64 (+.f64 a b)))
32.7%1a
32.7%1b
Compiler

Compiled 11 to 17 computations (-54.5% saved)

bsearch36.0ms (0.8%)

Memory
-20.2MiB live, 27.2MiB allocated; 3ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
13.0ms
9.187720430412123e-18
9.471008132223864e-17
21.0ms
-0.32243650981732347
-8.556888909452698e-10
Samples
17.0ms114×1valid
8.0ms126×0valid
Compiler

Compiled 432 to 464 computations (-7.4% saved)

Precisions
Click to see histograms. Total time spent on operations: 18.0ms
ival-cos: 6.0ms (33.8% of total)
ival-sin: 3.0ms (16.9% of total)
ival-div!: 3.0ms (16.9% of total)
adjust: 2.0ms (11.3% of total)
ival-add!: 1.0ms (5.6% of total)
ival-mult!: 1.0ms (5.6% of total)

derivations250.0ms (5.7%)

Memory
4.9MiB live, 146.2MiB allocated; 23ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 82 to 57 computations (30.5% saved)

preprocess91.0ms (2.1%)

Memory
29.3MiB live, 119.0MiB allocated; 11ms collecting garbage
Remove

(negabs r)

Compiler

Compiled 326 to 289 computations (11.3% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...