Mirrors_Framework/nuttx
1
0
Fork 0
mirror of https://github.com/apache/nuttx.git synced 2026-05-31 23:40:19 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Correct atan2 implementations from Denis Arnst

Browse Source
This commit is contained in:
Gregory Nutt
2014-09-08 07:55:09 -06:00
parent 8f895baa9e
commit 9d03879c8b
3 changed files with 51 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files
libc/math/lib_atan2.c
+17 -31
View File
@@ -41,46 +41,32 @@
#ifdef CONFIG_HAVE_DOUBLE #ifdef CONFIG_HAVE_DOUBLE
double atan2(double y, double x) double atan2(double y, double x)
{ {
if (y == 0.0) if (x > 0)
{ {
if (x >= 0.0) return atan(y / x);
}
else if (y >= 0 && x < 0)
{
return atan(y / x) + M_PI;
}
else if (y < 0)
{
if (x == 0)
{ {
return 0.0; return -M_PI_2;
} }
else else /* Can only be x < 0 */
{ {
return M_PI; return atan(y / x) - M_PI;
} }
} }
else if (y > 0.0) else if (y > 0 && x == 0)
{ {
if (x == 0.0) return M_PI_2;
{
return M_PI_2;
}
else if (x > 0.0)
{
return atan(y / x);
}
else
{
return M_PI - atan(y / x);
}
} }
else else if (y == 0 && x == 0) /* Undefined but returns normally 0 */
{ {
if (x == 0.0) return 0;
{
return M_PI + M_PI_2;
}
else if (x > 0.0)
{
return 2 * M_PI - atan(y / x);
}
else
{
return M_PI + atan(y / x);
}
} }
} }
#endif #endif
libc/math/lib_atan2f.c
+17 -31
View File
@@ -37,45 +37,31 @@
float atan2f(float y, float x) float atan2f(float y, float x)
{ {
if (y == 0.0) if (x > 0)
{ {
if (x >= 0.0) return atanf(y / x);
}
else if (y >= 0 && x < 0)
{
return atanf(y / x) + M_PI;
}
else if (y < 0)
{
if (x == 0)
{ {
return 0.0; return -M_PI_2;
} }
else else /* Can only be x < 0 */
{ {
return M_PI; return atanf(y / x) - M_PI;
} }
} }
else if (y > 0.0) else if (y > 0 && x == 0)
{ {
if (x == 0.0) return M_PI_2;
{
return M_PI_2;
}
else if (x > 0.0)
{
return atanf(y / x);
}
else
{
return M_PI - atanf(y / x);
}
} }
else else if (y == 0 && x == 0) /* Undefined but returns normally 0 */
{ {
if (x == 0.0) return 0;
{
return M_PI + M_PI_2;
}
else if (x > 0.0)
{
return 2 * M_PI - atanf(y / x);
}
else
{
return M_PI + atanf(y / x);
}
} }
} }
libc/math/lib_atan2l.c
+17 -32
View File
@@ -41,47 +41,32 @@
#ifdef CONFIG_HAVE_LONG_DOUBLE #ifdef CONFIG_HAVE_LONG_DOUBLE
long double atan2l(long double y, long double x) long double atan2l(long double y, long double x)
{ {
if (x > 0)
if (y == 0.0)
{ {
if (x >= 0.0) return atanl(y / x);
}
else if (y >= 0 && x < 0)
{
return atanl(y / x) + M_PI;
}
else if (y < 0)
{
if (x == 0)
{ {
return 0.0; return -M_PI_2;
} }
else else /* Can only be x < 0 */
{ {
return M_PI; return atanl(y / x) - M_PI;
} }
} }
else if (y > 0.0) else if (y > 0 && x == 0)
{ {
if (x == 0.0) return M_PI_2;
{
return M_PI_2;
}
else if (x > 0.0)
{
return atanl(y / x);
}
else
{
return M_PI - atanl(y / x);
}
} }
else else if (y == 0 && x == 0) /* Undefined but returns normally 0 */
{ {
if (x == 0.0) return 0;
{
return M_PI + M_PI_2;
}
else if (x > 0.0)
{
return 2 * M_PI - atanl(y / x);
}
else
{
return M_PI + atanl(y / x);
}
} }
} }
#endif #endif