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)))): 0 points increase in error, 12 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)))): 12 points increase in error, 0 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)))): 0 points increase in error, 12 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)))): 12 points increase in error, 0 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)))): 0 points increase in error, 12 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)))): 12 points increase in error, 0 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.3
\[\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)))): 7 points increase in error, 6 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)))): 6 points increase in error, 7 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)))): 13 points increase in error, 0 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)))): 0 points increase in error, 13 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)))): 7 points increase in error, 6 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)))): 0 points increase in error, 7 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, 0 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)))): 7 points increase in error, 0 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)))): 7 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)))): 6 points increase in error, 0 points decrease in error
Applied egg-rr21.4
\[\leadsto \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 \color{blue}{\left(\frac{\left(\pi \cdot {\left(\sqrt[3]{0.005555555555555556 \cdot angle}\right)}^{2}\right) \cdot 1}{\sqrt[3]{\frac{180}{angle}}}\right)}
\]
Simplified21.3
\[\leadsto \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 \color{blue}{\left(\frac{\pi}{\frac{\sqrt[3]{\frac{180}{angle}}}{{\left(\sqrt[3]{0.005555555555555556 \cdot angle}\right)}^{2}}}\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 (cbrt.f64 (/.f64 180 angle)) (pow.f64 (cbrt.f64 (*.f64 1/180 angle)) 2))))): 0 points increase in error, 0 points decrease in error
(*.f64 (*.f64 (*.f64 -2 (+.f64 b a)) (*.f64 (-.f64 a b) (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))))) (cos.f64 (Rewrite<= associate-/l*_binary64 (/.f64 (*.f64 (PI.f64) (pow.f64 (cbrt.f64 (*.f64 1/180 angle)) 2)) (cbrt.f64 (/.f64 180 angle)))))): 0 points increase in error, 3 points decrease in error
(*.f64 (*.f64 (*.f64 -2 (+.f64 b a)) (*.f64 (-.f64 a b) (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))))) (cos.f64 (/.f64 (Rewrite<= *-rgt-identity_binary64 (*.f64 (*.f64 (PI.f64) (pow.f64 (cbrt.f64 (*.f64 1/180 angle)) 2)) 1)) (cbrt.f64 (/.f64 180 angle))))): 3 points increase in error, 0 points decrease in error
Applied egg-rr21.5
\[\leadsto \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(\frac{\pi}{\frac{\sqrt[3]{\frac{180}{angle}}}{{\color{blue}{\left({\left(\sqrt[3]{\sqrt[3]{angle \cdot 0.005555555555555556}}\right)}^{3}\right)}}^{2}}}\right)
\]
Final simplification21.5
\[\leadsto \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(\frac{\pi}{\frac{\sqrt[3]{\frac{180}{angle}}}{{\left({\left(\sqrt[3]{\sqrt[3]{0.005555555555555556 \cdot angle}}\right)}^{3}\right)}^{2}}}\right)
\]