| Alternative 1 | |
|---|---|
| Error | 11.9 |
| Cost | 20164 |
(FPCore (A B C) :precision binary64 (* 180.0 (/ (atan (* (/ 1.0 B) (- (- C A) (sqrt (+ (pow (- A C) 2.0) (pow B 2.0)))))) PI)))
(FPCore (A B C) :precision binary64 (if (<= A -1.15e+79) (/ (* 180.0 (atan (* 0.5 (* (/ B A) (+ (/ C A) 1.0))))) PI) (/ (atan (/ (- (- C A) (hypot B (- A C))) B)) (* PI 0.005555555555555556))))
double code(double A, double B, double C) {
return 180.0 * (atan(((1.0 / B) * ((C - A) - sqrt((pow((A - C), 2.0) + pow(B, 2.0)))))) / ((double) M_PI));
}
double code(double A, double B, double C) {
double tmp;
if (A <= -1.15e+79) {
tmp = (180.0 * atan((0.5 * ((B / A) * ((C / A) + 1.0))))) / ((double) M_PI);
} else {
tmp = atan((((C - A) - hypot(B, (A - C))) / B)) / (((double) M_PI) * 0.005555555555555556);
}
return tmp;
}
public static double code(double A, double B, double C) {
return 180.0 * (Math.atan(((1.0 / B) * ((C - A) - Math.sqrt((Math.pow((A - C), 2.0) + Math.pow(B, 2.0)))))) / Math.PI);
}
public static double code(double A, double B, double C) {
double tmp;
if (A <= -1.15e+79) {
tmp = (180.0 * Math.atan((0.5 * ((B / A) * ((C / A) + 1.0))))) / Math.PI;
} else {
tmp = Math.atan((((C - A) - Math.hypot(B, (A - C))) / B)) / (Math.PI * 0.005555555555555556);
}
return tmp;
}
def code(A, B, C): return 180.0 * (math.atan(((1.0 / B) * ((C - A) - math.sqrt((math.pow((A - C), 2.0) + math.pow(B, 2.0)))))) / math.pi)
def code(A, B, C): tmp = 0 if A <= -1.15e+79: tmp = (180.0 * math.atan((0.5 * ((B / A) * ((C / A) + 1.0))))) / math.pi else: tmp = math.atan((((C - A) - math.hypot(B, (A - C))) / B)) / (math.pi * 0.005555555555555556) return tmp
function code(A, B, C) return Float64(180.0 * Float64(atan(Float64(Float64(1.0 / B) * Float64(Float64(C - A) - sqrt(Float64((Float64(A - C) ^ 2.0) + (B ^ 2.0)))))) / pi)) end
function code(A, B, C) tmp = 0.0 if (A <= -1.15e+79) tmp = Float64(Float64(180.0 * atan(Float64(0.5 * Float64(Float64(B / A) * Float64(Float64(C / A) + 1.0))))) / pi); else tmp = Float64(atan(Float64(Float64(Float64(C - A) - hypot(B, Float64(A - C))) / B)) / Float64(pi * 0.005555555555555556)); end return tmp end
function tmp = code(A, B, C) tmp = 180.0 * (atan(((1.0 / B) * ((C - A) - sqrt((((A - C) ^ 2.0) + (B ^ 2.0)))))) / pi); end
function tmp_2 = code(A, B, C) tmp = 0.0; if (A <= -1.15e+79) tmp = (180.0 * atan((0.5 * ((B / A) * ((C / A) + 1.0))))) / pi; else tmp = atan((((C - A) - hypot(B, (A - C))) / B)) / (pi * 0.005555555555555556); end tmp_2 = tmp; end
code[A_, B_, C_] := N[(180.0 * N[(N[ArcTan[N[(N[(1.0 / B), $MachinePrecision] * N[(N[(C - A), $MachinePrecision] - N[Sqrt[N[(N[Power[N[(A - C), $MachinePrecision], 2.0], $MachinePrecision] + N[Power[B, 2.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]
code[A_, B_, C_] := If[LessEqual[A, -1.15e+79], N[(N[(180.0 * N[ArcTan[N[(0.5 * N[(N[(B / A), $MachinePrecision] * N[(N[(C / A), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / Pi), $MachinePrecision], N[(N[ArcTan[N[(N[(N[(C - A), $MachinePrecision] - N[Sqrt[B ^ 2 + N[(A - C), $MachinePrecision] ^ 2], $MachinePrecision]), $MachinePrecision] / B), $MachinePrecision]], $MachinePrecision] / N[(Pi * 0.005555555555555556), $MachinePrecision]), $MachinePrecision]]
180 \cdot \frac{\tan^{-1} \left(\frac{1}{B} \cdot \left(\left(C - A\right) - \sqrt{{\left(A - C\right)}^{2} + {B}^{2}}\right)\right)}{\pi}
\begin{array}{l}
\mathbf{if}\;A \leq -1.15 \cdot 10^{+79}:\\
\;\;\;\;\frac{180 \cdot \tan^{-1} \left(0.5 \cdot \left(\frac{B}{A} \cdot \left(\frac{C}{A} + 1\right)\right)\right)}{\pi}\\
\mathbf{else}:\\
\;\;\;\;\frac{\tan^{-1} \left(\frac{\left(C - A\right) - \mathsf{hypot}\left(B, A - C\right)}{B}\right)}{\pi \cdot 0.005555555555555556}\\
\end{array}
Results
if A < -1.15e79Initial program 51.4
Simplified51.4
[Start]51.4 | \[ 180 \cdot \frac{\tan^{-1} \left(\frac{1}{B} \cdot \left(\left(C - A\right) - \sqrt{{\left(A - C\right)}^{2} + {B}^{2}}\right)\right)}{\pi}
\] |
|---|---|
associate-*r/ [=>]51.4 | \[ \color{blue}{\frac{180 \cdot \tan^{-1} \left(\frac{1}{B} \cdot \left(\left(C - A\right) - \sqrt{{\left(A - C\right)}^{2} + {B}^{2}}\right)\right)}{\pi}}
\] |
sub-neg [=>]51.4 | \[ \frac{180 \cdot \tan^{-1} \left(\frac{1}{B} \cdot \color{blue}{\left(\left(C - A\right) + \left(-\sqrt{{\left(A - C\right)}^{2} + {B}^{2}}\right)\right)}\right)}{\pi}
\] |
sub-neg [<=]51.4 | \[ \frac{180 \cdot \tan^{-1} \left(\frac{1}{B} \cdot \color{blue}{\left(\left(C - A\right) - \sqrt{{\left(A - C\right)}^{2} + {B}^{2}}\right)}\right)}{\pi}
\] |
unpow2 [=>]51.4 | \[ \frac{180 \cdot \tan^{-1} \left(\frac{1}{B} \cdot \left(\left(C - A\right) - \sqrt{{\left(A - C\right)}^{2} + \color{blue}{B \cdot B}}\right)\right)}{\pi}
\] |
Taylor expanded in A around -inf 18.5
Simplified16.6
[Start]18.5 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \frac{C \cdot B}{{A}^{2}} + 0.5 \cdot \frac{B}{A}\right)}{\pi}
\] |
|---|---|
distribute-lft-out [=>]18.5 | \[ \frac{180 \cdot \tan^{-1} \color{blue}{\left(0.5 \cdot \left(\frac{C \cdot B}{{A}^{2}} + \frac{B}{A}\right)\right)}}{\pi}
\] |
+-commutative [=>]18.5 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \color{blue}{\left(\frac{B}{A} + \frac{C \cdot B}{{A}^{2}}\right)}\right)}{\pi}
\] |
*-commutative [=>]18.5 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \left(\frac{B}{A} + \frac{\color{blue}{B \cdot C}}{{A}^{2}}\right)\right)}{\pi}
\] |
associate-/l* [=>]16.8 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \left(\frac{B}{A} + \color{blue}{\frac{B}{\frac{{A}^{2}}{C}}}\right)\right)}{\pi}
\] |
unpow2 [=>]16.8 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \left(\frac{B}{A} + \frac{B}{\frac{\color{blue}{A \cdot A}}{C}}\right)\right)}{\pi}
\] |
associate-/l* [=>]16.6 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \left(\frac{B}{A} + \frac{B}{\color{blue}{\frac{A}{\frac{C}{A}}}}\right)\right)}{\pi}
\] |
Taylor expanded in B around 0 16.9
Simplified16.2
[Start]16.9 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \left(\left(\frac{C}{{A}^{2}} + \frac{1}{A}\right) \cdot B\right)\right)}{\pi}
\] |
|---|---|
*-commutative [=>]16.9 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \color{blue}{\left(B \cdot \left(\frac{C}{{A}^{2}} + \frac{1}{A}\right)\right)}\right)}{\pi}
\] |
+-commutative [=>]16.9 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \left(B \cdot \color{blue}{\left(\frac{1}{A} + \frac{C}{{A}^{2}}\right)}\right)\right)}{\pi}
\] |
unpow2 [=>]16.9 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \left(B \cdot \left(\frac{1}{A} + \frac{C}{\color{blue}{A \cdot A}}\right)\right)\right)}{\pi}
\] |
distribute-lft-in [=>]16.9 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \color{blue}{\left(B \cdot \frac{1}{A} + B \cdot \frac{C}{A \cdot A}\right)}\right)}{\pi}
\] |
associate-*r/ [=>]18.6 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \left(B \cdot \frac{1}{A} + \color{blue}{\frac{B \cdot C}{A \cdot A}}\right)\right)}{\pi}
\] |
+-commutative [=>]18.6 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \color{blue}{\left(\frac{B \cdot C}{A \cdot A} + B \cdot \frac{1}{A}\right)}\right)}{\pi}
\] |
*-commutative [<=]18.6 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \left(\frac{B \cdot C}{A \cdot A} + \color{blue}{\frac{1}{A} \cdot B}\right)\right)}{\pi}
\] |
associate-*l/ [=>]18.5 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \left(\frac{B \cdot C}{A \cdot A} + \color{blue}{\frac{1 \cdot B}{A}}\right)\right)}{\pi}
\] |
associate-*r/ [<=]18.5 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \left(\frac{B \cdot C}{A \cdot A} + \color{blue}{1 \cdot \frac{B}{A}}\right)\right)}{\pi}
\] |
metadata-eval [<=]18.5 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \left(\frac{B \cdot C}{A \cdot A} + \color{blue}{\left(--1\right)} \cdot \frac{B}{A}\right)\right)}{\pi}
\] |
cancel-sign-sub-inv [<=]18.5 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \color{blue}{\left(\frac{B \cdot C}{A \cdot A} - -1 \cdot \frac{B}{A}\right)}\right)}{\pi}
\] |
times-frac [=>]16.2 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \left(\color{blue}{\frac{B}{A} \cdot \frac{C}{A}} - -1 \cdot \frac{B}{A}\right)\right)}{\pi}
\] |
*-commutative [<=]16.2 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \left(\color{blue}{\frac{C}{A} \cdot \frac{B}{A}} - -1 \cdot \frac{B}{A}\right)\right)}{\pi}
\] |
distribute-rgt-out-- [=>]16.2 | \[ \frac{180 \cdot \tan^{-1} \left(0.5 \cdot \color{blue}{\left(\frac{B}{A} \cdot \left(\frac{C}{A} - -1\right)\right)}\right)}{\pi}
\] |
if -1.15e79 < A Initial program 24.0
Simplified10.8
[Start]24.0 | \[ 180 \cdot \frac{\tan^{-1} \left(\frac{1}{B} \cdot \left(\left(C - A\right) - \sqrt{{\left(A - C\right)}^{2} + {B}^{2}}\right)\right)}{\pi}
\] |
|---|---|
associate-*r/ [=>]24.0 | \[ \color{blue}{\frac{180 \cdot \tan^{-1} \left(\frac{1}{B} \cdot \left(\left(C - A\right) - \sqrt{{\left(A - C\right)}^{2} + {B}^{2}}\right)\right)}{\pi}}
\] |
associate-*l/ [<=]24.0 | \[ \color{blue}{\frac{180}{\pi} \cdot \tan^{-1} \left(\frac{1}{B} \cdot \left(\left(C - A\right) - \sqrt{{\left(A - C\right)}^{2} + {B}^{2}}\right)\right)}
\] |
*-commutative [=>]24.0 | \[ \color{blue}{\tan^{-1} \left(\frac{1}{B} \cdot \left(\left(C - A\right) - \sqrt{{\left(A - C\right)}^{2} + {B}^{2}}\right)\right) \cdot \frac{180}{\pi}}
\] |
associate-*l/ [=>]24.0 | \[ \tan^{-1} \color{blue}{\left(\frac{1 \cdot \left(\left(C - A\right) - \sqrt{{\left(A - C\right)}^{2} + {B}^{2}}\right)}{B}\right)} \cdot \frac{180}{\pi}
\] |
*-lft-identity [=>]24.0 | \[ \tan^{-1} \left(\frac{\color{blue}{\left(C - A\right) - \sqrt{{\left(A - C\right)}^{2} + {B}^{2}}}}{B}\right) \cdot \frac{180}{\pi}
\] |
+-commutative [=>]24.0 | \[ \tan^{-1} \left(\frac{\left(C - A\right) - \sqrt{\color{blue}{{B}^{2} + {\left(A - C\right)}^{2}}}}{B}\right) \cdot \frac{180}{\pi}
\] |
unpow2 [=>]24.0 | \[ \tan^{-1} \left(\frac{\left(C - A\right) - \sqrt{\color{blue}{B \cdot B} + {\left(A - C\right)}^{2}}}{B}\right) \cdot \frac{180}{\pi}
\] |
unpow2 [=>]24.0 | \[ \tan^{-1} \left(\frac{\left(C - A\right) - \sqrt{B \cdot B + \color{blue}{\left(A - C\right) \cdot \left(A - C\right)}}}{B}\right) \cdot \frac{180}{\pi}
\] |
hypot-def [=>]10.8 | \[ \tan^{-1} \left(\frac{\left(C - A\right) - \color{blue}{\mathsf{hypot}\left(B, A - C\right)}}{B}\right) \cdot \frac{180}{\pi}
\] |
Applied egg-rr11.0
Simplified10.8
[Start]11.0 | \[ \frac{\tan^{-1} \left(\frac{C - \left(A + \mathsf{hypot}\left(B, A - C\right)\right)}{B}\right)}{\pi \cdot 0.005555555555555556}
\] |
|---|---|
associate--r+ [=>]10.8 | \[ \frac{\tan^{-1} \left(\frac{\color{blue}{\left(C - A\right) - \mathsf{hypot}\left(B, A - C\right)}}{B}\right)}{\pi \cdot 0.005555555555555556}
\] |
Final simplification11.8
| Alternative 1 | |
|---|---|
| Error | 11.9 |
| Cost | 20164 |
| Alternative 2 | |
|---|---|
| Error | 25.2 |
| Cost | 14616 |
| Alternative 3 | |
|---|---|
| Error | 35.2 |
| Cost | 14500 |
| Alternative 4 | |
|---|---|
| Error | 25.0 |
| Cost | 14488 |
| Alternative 5 | |
|---|---|
| Error | 35.0 |
| Cost | 14236 |
| Alternative 6 | |
|---|---|
| Error | 35.0 |
| Cost | 14236 |
| Alternative 7 | |
|---|---|
| Error | 26.5 |
| Cost | 14228 |
| Alternative 8 | |
|---|---|
| Error | 26.5 |
| Cost | 14228 |
| Alternative 9 | |
|---|---|
| Error | 28.3 |
| Cost | 14104 |
| Alternative 10 | |
|---|---|
| Error | 28.3 |
| Cost | 14104 |
| Alternative 11 | |
|---|---|
| Error | 28.4 |
| Cost | 14104 |
| Alternative 12 | |
|---|---|
| Error | 26.5 |
| Cost | 14100 |
| Alternative 13 | |
|---|---|
| Error | 26.5 |
| Cost | 14100 |
| Alternative 14 | |
|---|---|
| Error | 26.5 |
| Cost | 14100 |
| Alternative 15 | |
|---|---|
| Error | 27.0 |
| Cost | 13972 |
| Alternative 16 | |
|---|---|
| Error | 35.4 |
| Cost | 13320 |
| Alternative 17 | |
|---|---|
| Error | 38.5 |
| Cost | 13188 |
| Alternative 18 | |
|---|---|
| Error | 50.6 |
| Cost | 13056 |
herbie shell --seed 2023034
(FPCore (A B C)
:name "ABCF->ab-angle angle"
:precision binary64
(* 180.0 (/ (atan (* (/ 1.0 B) (- (- C A) (sqrt (+ (pow (- A C) 2.0) (pow B 2.0)))))) PI)))