Initial program 31.4
\[\left(\left(2 \cdot \left({b}^{2} - {a}^{2}\right)\right) \cdot \sin \left(\pi \cdot \frac{angle}{180}\right)\right) \cdot \cos \left(\pi \cdot \frac{angle}{180}\right)
\]
Simplified31.4
\[\leadsto \color{blue}{\left(\left(\left(a \cdot a - b \cdot b\right) \cdot -2\right) \cdot \sin \left(\pi \cdot \frac{angle}{180}\right)\right) \cdot \cos \left(\pi \cdot \frac{angle}{180}\right)}
\]
Proof
(*.f64 (*.f64 (*.f64 (-.f64 (*.f64 a a) (*.f64 b b)) -2) (sin.f64 (*.f64 (PI.f64) (/.f64 angle 180)))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 0 points increase in error, 0 points decrease in error
(*.f64 (*.f64 (*.f64 (-.f64 (Rewrite<= unpow2_binary64 (pow.f64 a 2)) (*.f64 b b)) -2) (sin.f64 (*.f64 (PI.f64) (/.f64 angle 180)))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 0 points increase in error, 12 points decrease in error
(*.f64 (*.f64 (*.f64 (-.f64 (pow.f64 a 2) (Rewrite<= unpow2_binary64 (pow.f64 b 2))) -2) (sin.f64 (*.f64 (PI.f64) (/.f64 angle 180)))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 12 points increase in error, 0 points decrease in error
(*.f64 (*.f64 (*.f64 (-.f64 (pow.f64 a 2) (pow.f64 b 2)) (Rewrite<= metadata-eval (neg.f64 2))) (sin.f64 (*.f64 (PI.f64) (/.f64 angle 180)))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 12 points increase in error, 0 points decrease in error
(*.f64 (*.f64 (Rewrite<= distribute-rgt-neg-in_binary64 (neg.f64 (*.f64 (-.f64 (pow.f64 a 2) (pow.f64 b 2)) 2))) (sin.f64 (*.f64 (PI.f64) (/.f64 angle 180)))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 12 points increase in error, 0 points decrease in error
(*.f64 (*.f64 (Rewrite<= distribute-lft-neg-out_binary64 (*.f64 (neg.f64 (-.f64 (pow.f64 a 2) (pow.f64 b 2))) 2)) (sin.f64 (*.f64 (PI.f64) (/.f64 angle 180)))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 0 points increase in error, 12 points decrease in error
(*.f64 (*.f64 (*.f64 (Rewrite<= sub0-neg_binary64 (-.f64 0 (-.f64 (pow.f64 a 2) (pow.f64 b 2)))) 2) (sin.f64 (*.f64 (PI.f64) (/.f64 angle 180)))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 12 points increase in error, 0 points decrease in error
(*.f64 (*.f64 (*.f64 (Rewrite<= associate-+l-_binary64 (+.f64 (-.f64 0 (pow.f64 a 2)) (pow.f64 b 2))) 2) (sin.f64 (*.f64 (PI.f64) (/.f64 angle 180)))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 0 points increase in error, 12 points decrease in error
(*.f64 (*.f64 (*.f64 (+.f64 (Rewrite<= neg-sub0_binary64 (neg.f64 (pow.f64 a 2))) (pow.f64 b 2)) 2) (sin.f64 (*.f64 (PI.f64) (/.f64 angle 180)))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 12 points increase in error, 0 points decrease in error
(*.f64 (*.f64 (*.f64 (Rewrite<= +-commutative_binary64 (+.f64 (pow.f64 b 2) (neg.f64 (pow.f64 a 2)))) 2) (sin.f64 (*.f64 (PI.f64) (/.f64 angle 180)))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 0 points increase in error, 12 points decrease in error
(*.f64 (*.f64 (*.f64 (Rewrite<= sub-neg_binary64 (-.f64 (pow.f64 b 2) (pow.f64 a 2))) 2) (sin.f64 (*.f64 (PI.f64) (/.f64 angle 180)))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 0 points increase in error, 12 points decrease in error
(*.f64 (*.f64 (Rewrite<= *-commutative_binary64 (*.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 a 2)))) (sin.f64 (*.f64 (PI.f64) (/.f64 angle 180)))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 12 points increase in error, 0 points decrease in error
Taylor expanded in angle around inf 31.4
\[\leadsto \color{blue}{\left(-2 \cdot \left(\left({a}^{2} - {b}^{2}\right) \cdot \sin \left(0.005555555555555556 \cdot \left(angle \cdot \pi\right)\right)\right)\right)} \cdot \cos \left(\pi \cdot \frac{angle}{180}\right)
\]
Simplified21.6
\[\leadsto \color{blue}{\left(\left(-2 \cdot \left(b + a\right)\right) \cdot \left(\left(a - b\right) \cdot \sin \left(0.005555555555555556 \cdot \left(angle \cdot \pi\right)\right)\right)\right)} \cdot \cos \left(\pi \cdot \frac{angle}{180}\right)
\]
Proof
(*.f64 (*.f64 (*.f64 -2 (+.f64 b a)) (*.f64 (-.f64 a b) (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 0 points increase in error, 0 points decrease in error
(*.f64 (*.f64 (*.f64 -2 (Rewrite<= +-commutative_binary64 (+.f64 a b))) (*.f64 (-.f64 a b) (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 0 points increase in error, 13 points decrease in error
(*.f64 (*.f64 (*.f64 -2 (+.f64 a b)) (*.f64 (-.f64 a b) (sin.f64 (Rewrite=> associate-*r*_binary64 (*.f64 (*.f64 1/180 angle) (PI.f64)))))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 13 points increase in error, 0 points decrease in error
(*.f64 (*.f64 (*.f64 -2 (+.f64 a b)) (*.f64 (-.f64 a b) (sin.f64 (*.f64 (Rewrite<= *-commutative_binary64 (*.f64 angle 1/180)) (PI.f64))))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 13 points increase in error, 0 points decrease in error
(*.f64 (*.f64 (*.f64 -2 (+.f64 a b)) (*.f64 (-.f64 a b) (sin.f64 (Rewrite<= *-commutative_binary64 (*.f64 (PI.f64) (*.f64 angle 1/180)))))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 13 points increase in error, 0 points decrease in error
(*.f64 (Rewrite=> associate-*l*_binary64 (*.f64 -2 (*.f64 (+.f64 a b) (*.f64 (-.f64 a b) (sin.f64 (*.f64 (PI.f64) (*.f64 angle 1/180))))))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 0 points increase in error, 13 points decrease in error
(*.f64 (*.f64 -2 (Rewrite<= associate-*l*_binary64 (*.f64 (*.f64 (+.f64 a b) (-.f64 a b)) (sin.f64 (*.f64 (PI.f64) (*.f64 angle 1/180)))))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 10 points increase in error, 3 points decrease in error
(*.f64 (*.f64 -2 (*.f64 (Rewrite<= difference-of-squares_binary64 (-.f64 (*.f64 a a) (*.f64 b b))) (sin.f64 (*.f64 (PI.f64) (*.f64 angle 1/180))))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 0 points increase in error, 13 points decrease in error
(*.f64 (*.f64 -2 (*.f64 (-.f64 (Rewrite<= unpow2_binary64 (pow.f64 a 2)) (*.f64 b b)) (sin.f64 (*.f64 (PI.f64) (*.f64 angle 1/180))))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 13 points increase in error, 0 points decrease in error
(*.f64 (*.f64 -2 (*.f64 (-.f64 (pow.f64 a 2) (Rewrite<= unpow2_binary64 (pow.f64 b 2))) (sin.f64 (*.f64 (PI.f64) (*.f64 angle 1/180))))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 0 points increase in error, 13 points decrease in error
(*.f64 (*.f64 -2 (*.f64 (-.f64 (pow.f64 a 2) (pow.f64 b 2)) (sin.f64 (Rewrite=> *-commutative_binary64 (*.f64 (*.f64 angle 1/180) (PI.f64)))))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 0 points increase in error, 13 points decrease in error
(*.f64 (*.f64 -2 (*.f64 (-.f64 (pow.f64 a 2) (pow.f64 b 2)) (sin.f64 (*.f64 (Rewrite=> *-commutative_binary64 (*.f64 1/180 angle)) (PI.f64))))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 13 points increase in error, 0 points decrease in error
(*.f64 (*.f64 -2 (*.f64 (-.f64 (pow.f64 a 2) (pow.f64 b 2)) (sin.f64 (Rewrite<= associate-*r*_binary64 (*.f64 1/180 (*.f64 angle (PI.f64))))))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 0 points increase in error, 13 points decrease in error
Applied egg-rr49.7
\[\leadsto \left(\left(-2 \cdot \left(b + a\right)\right) \cdot \left(\left(a - b\right) \cdot \color{blue}{\left(e^{\mathsf{log1p}\left(\sin \left(angle \cdot \left(0.005555555555555556 \cdot \pi\right)\right)\right)} - 1\right)}\right)\right) \cdot \cos \left(\pi \cdot \frac{angle}{180}\right)
\]
Simplified21.5
\[\leadsto \left(\left(-2 \cdot \left(b + a\right)\right) \cdot \left(\left(a - b\right) \cdot \color{blue}{\sin \left(angle \cdot \left(0.005555555555555556 \cdot \pi\right)\right)}\right)\right) \cdot \cos \left(\pi \cdot \frac{angle}{180}\right)
\]
Proof
(*.f64 (*.f64 (*.f64 -2 (+.f64 b a)) (*.f64 (-.f64 a b) (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 0 points increase in error, 0 points decrease in error
(*.f64 (*.f64 (*.f64 -2 (+.f64 b a)) (*.f64 (-.f64 a b) (Rewrite<= expm1-log1p_binary64 (expm1.f64 (log1p.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64))))))))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 1 points increase in error, 2 points decrease in error
(*.f64 (*.f64 (*.f64 -2 (+.f64 b a)) (*.f64 (-.f64 a b) (Rewrite<= expm1-def_binary64 (-.f64 (exp.f64 (log1p.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))))) 1)))) (cos.f64 (*.f64 (PI.f64) (/.f64 angle 180)))): 2 points increase in error, 1 points decrease in error
Final simplification21.5
\[\leadsto \left(\left(-2 \cdot \left(b + a\right)\right) \cdot \left(\left(a - b\right) \cdot \sin \left(angle \cdot \left(0.005555555555555556 \cdot \pi\right)\right)\right)\right) \cdot \cos \left(\pi \cdot \frac{angle}{180}\right)
\]