From b7443dee6b050b304505009eef365cf5a6e38b62 Mon Sep 17 00:00:00 2001 From: GUNJ JOSHI Date: Sun, 11 Aug 2024 09:37:56 +0530 Subject: [PATCH 1/5] feat: add C implementation for math/base/special/besselj0 --- .../math/base/special/besselj0/README.md | 88 +++++ .../besselj0/benchmark/benchmark.native.js | 60 +++ .../besselj0/benchmark/c/native/Makefile | 146 ++++++++ .../besselj0/benchmark/c/native/benchmark.c | 133 +++++++ .../math/base/special/besselj0/binding.gyp | 170 +++++++++ .../base/special/besselj0/examples/c/Makefile | 146 ++++++++ .../special/besselj0/examples/c/example.c | 31 ++ .../math/base/special/besselj0/include.gypi | 53 +++ .../include/stdlib/math/base/special/j0.h | 38 ++ .../math/base/special/besselj0/lib/native.js | 58 +++ .../special/besselj0/lib/rational_p1q1.js | 4 +- .../special/besselj0/lib/rational_p2q2.js | 4 +- .../special/besselj0/lib/rational_pcqc.js | 4 +- .../special/besselj0/lib/rational_psqs.js | 4 +- .../math/base/special/besselj0/manifest.json | 78 ++++ .../special/besselj0/scripts/evalrational.js | 60 +++ .../math/base/special/besselj0/src/Makefile | 70 ++++ .../math/base/special/besselj0/src/addon.c | 22 ++ .../math/base/special/besselj0/src/main.c | 274 ++++++++++++++ .../math/base/special/besselj0/test/test.js | 4 +- .../base/special/besselj0/test/test.native.js | 345 ++++++++++++++++++ 21 files changed, 1782 insertions(+), 10 deletions(-) create mode 100644 lib/node_modules/@stdlib/math/base/special/besselj0/benchmark/benchmark.native.js create mode 100644 lib/node_modules/@stdlib/math/base/special/besselj0/benchmark/c/native/Makefile create mode 100644 lib/node_modules/@stdlib/math/base/special/besselj0/benchmark/c/native/benchmark.c create mode 100644 lib/node_modules/@stdlib/math/base/special/besselj0/binding.gyp create mode 100644 lib/node_modules/@stdlib/math/base/special/besselj0/examples/c/Makefile create mode 100644 lib/node_modules/@stdlib/math/base/special/besselj0/examples/c/example.c create mode 100644 lib/node_modules/@stdlib/math/base/special/besselj0/include.gypi create mode 100644 lib/node_modules/@stdlib/math/base/special/besselj0/include/stdlib/math/base/special/j0.h create mode 100644 lib/node_modules/@stdlib/math/base/special/besselj0/lib/native.js create mode 100644 lib/node_modules/@stdlib/math/base/special/besselj0/manifest.json create mode 100644 lib/node_modules/@stdlib/math/base/special/besselj0/src/Makefile create mode 100644 lib/node_modules/@stdlib/math/base/special/besselj0/src/addon.c create mode 100644 lib/node_modules/@stdlib/math/base/special/besselj0/src/main.c create mode 100644 lib/node_modules/@stdlib/math/base/special/besselj0/test/test.native.js diff --git a/lib/node_modules/@stdlib/math/base/special/besselj0/README.md b/lib/node_modules/@stdlib/math/base/special/besselj0/README.md index 0442cd886482..0ce521175f3f 100644 --- a/lib/node_modules/@stdlib/math/base/special/besselj0/README.md +++ b/lib/node_modules/@stdlib/math/base/special/besselj0/README.md @@ -99,6 +99,94 @@ for ( i = 0; i < 100; i++ ) { + + +* * * + +
+ +## C APIs + + + +
+ +
+ + + + + +
+ +### Usage + +```c +#include "stdlib/math/base/special/j0.h" +``` + +#### stdlib_base_j0( x ) + +Computes the [Bessel function of the first kind][bessel-first-kind] of order zero at `x`. + +```c +double out = stdlib_base_j0( 0.0 ); +// returns 1.0 + +out = stdlib_base_j0( 1.0 ); +// returns ~0.765 +``` + +The function accepts the following arguments: + +- **x**: `[in] double` input value. + +```c +double stdlib_base_j0( const double x ); +``` + +
+ + + + + +
+ +
+ + + + + +
+ +### Examples + +```c +#include "stdlib/math/base/special/j0.h" +#include + +int main( void ) { + const double x[] = { 0.0, 1.0, 2.0, 3.0, 4.0 }; + + double y; + int i; + for ( i = 0; i < 5; i++ ) { + y = stdlib_base_j0( x[ i ] ); + printf( "besselj0(%lf) = %lf\n", x[ i ], y ); + } +} +``` + +
+ + + +
+ + + @@ -164,7 +164,7 @@ double stdlib_base_j0( const double x ); ### Examples ```c -#include "stdlib/math/base/special/j0.h" +#include "stdlib/math/base/special/besselj0.h" #include int main( void ) { @@ -173,7 +173,7 @@ int main( void ) { double y; int i; for ( i = 0; i < 5; i++ ) { - y = stdlib_base_j0( x[ i ] ); + y = stdlib_base_besselj0( x[ i ] ); printf( "besselj0(%lf) = %lf\n", x[ i ], y ); } } diff --git a/lib/node_modules/@stdlib/math/base/special/besselj0/benchmark/c/native/benchmark.c b/lib/node_modules/@stdlib/math/base/special/besselj0/benchmark/c/native/benchmark.c index 5d72cc10fa21..fb6e255fb836 100644 --- a/lib/node_modules/@stdlib/math/base/special/besselj0/benchmark/c/native/benchmark.c +++ b/lib/node_modules/@stdlib/math/base/special/besselj0/benchmark/c/native/benchmark.c @@ -16,7 +16,7 @@ * limitations under the License. */ -#include "stdlib/math/base/special/j0.h" +#include "stdlib/math/base/special/besselj0.h" #include #include #include @@ -99,7 +99,7 @@ static double benchmark( void ) { t = tic(); for ( i = 0; i < ITERATIONS; i++ ) { x = ( 100000.0 * rand_double() ) - 0.0; - y = stdlib_base_j0( x ); + y = stdlib_base_besselj0( x ); if ( y != y ) { printf( "should not return NaN\n" ); break; diff --git a/lib/node_modules/@stdlib/math/base/special/besselj0/examples/c/example.c b/lib/node_modules/@stdlib/math/base/special/besselj0/examples/c/example.c index 1a6b51ede913..988b822009e8 100644 --- a/lib/node_modules/@stdlib/math/base/special/besselj0/examples/c/example.c +++ b/lib/node_modules/@stdlib/math/base/special/besselj0/examples/c/example.c @@ -16,7 +16,7 @@ * limitations under the License. */ -#include "stdlib/math/base/special/j0.h" +#include "stdlib/math/base/special/besselj0.h" #include int main( void ) { @@ -25,7 +25,7 @@ int main( void ) { double y; int i; for ( i = 0; i < 5; i++ ) { - y = stdlib_base_j0( x[ i ] ); + y = stdlib_base_besselj0( x[ i ] ); printf( "besselj0(%lf) = %lf\n", x[ i ], y ); } } diff --git a/lib/node_modules/@stdlib/math/base/special/besselj0/include/stdlib/math/base/special/j0.h b/lib/node_modules/@stdlib/math/base/special/besselj0/include/stdlib/math/base/special/besselj0.h similarity index 83% rename from lib/node_modules/@stdlib/math/base/special/besselj0/include/stdlib/math/base/special/j0.h rename to lib/node_modules/@stdlib/math/base/special/besselj0/include/stdlib/math/base/special/besselj0.h index cb3d10c2ae4a..5ef7121b6f8c 100644 --- a/lib/node_modules/@stdlib/math/base/special/besselj0/include/stdlib/math/base/special/j0.h +++ b/lib/node_modules/@stdlib/math/base/special/besselj0/include/stdlib/math/base/special/besselj0.h @@ -16,8 +16,8 @@ * limitations under the License. */ -#ifndef STDLIB_MATH_BASE_SPECIAL_J0_H -#define STDLIB_MATH_BASE_SPECIAL_J0_H +#ifndef STDLIB_MATH_BASE_SPECIAL_BESSELJ0_H +#define STDLIB_MATH_BASE_SPECIAL_BESSELJ0_H /* * If C++, prevent name mangling so that the compiler emits a binary file having undecorated names, thus mirroring the behavior of a C compiler. @@ -29,10 +29,10 @@ extern "C" { /** * Computes the Bessel function of the first kind of order zero. */ -double stdlib_base_j0( const double x ); +double stdlib_base_besselj0( const double x ); #ifdef __cplusplus } #endif -#endif // !STDLIB_MATH_BASE_SPECIAL_J0_H +#endif // !STDLIB_MATH_BASE_SPECIAL_BESSELJ0_H diff --git a/lib/node_modules/@stdlib/math/base/special/besselj0/src/addon.c b/lib/node_modules/@stdlib/math/base/special/besselj0/src/addon.c index f0a212c2b444..d3dbba1c2074 100644 --- a/lib/node_modules/@stdlib/math/base/special/besselj0/src/addon.c +++ b/lib/node_modules/@stdlib/math/base/special/besselj0/src/addon.c @@ -16,7 +16,7 @@ * limitations under the License. */ -#include "stdlib/math/base/special/j0.h" +#include "stdlib/math/base/special/besselj0.h" #include "stdlib/math/base/napi/unary.h" -STDLIB_MATH_BASE_NAPI_MODULE_D_D( stdlib_base_j0 ) +STDLIB_MATH_BASE_NAPI_MODULE_D_D( stdlib_base_besselj0 ) diff --git a/lib/node_modules/@stdlib/math/base/special/besselj0/src/main.c b/lib/node_modules/@stdlib/math/base/special/besselj0/src/main.c index cccd9ad1c705..cda3e152cb78 100644 --- a/lib/node_modules/@stdlib/math/base/special/besselj0/src/main.c +++ b/lib/node_modules/@stdlib/math/base/special/besselj0/src/main.c @@ -29,7 +29,7 @@ * ``` */ -#include "stdlib/math/base/special/j0.h" +#include "stdlib/math/base/special/besselj0.h" #include "stdlib/math/base/special/sqrt.h" #include "stdlib/math/base/special/sincos.h" #include "stdlib/constants/float64/pinf.h" @@ -217,10 +217,10 @@ static double rational_psqs( const double x ) { * @return evaluated Bessel function * * @example -* double y = stdlib_base_j0( 0.0 ); +* double y = stdlib_base_besselj0( 0.0 ); * // returns 1.0 */ -double stdlib_base_j0( const double x ) { +double stdlib_base_besselj0( const double x ) { double rc; double rs; double y2; From c6ddc03400d4f267c0b0df66d643c5fd69d7f45a Mon Sep 17 00:00:00 2001 From: Gunj Joshi Date: Sun, 11 Aug 2024 21:14:46 +0530 Subject: [PATCH 5/5] Update lib/node_modules/@stdlib/math/base/special/besselj0/src/main.c Co-authored-by: Philipp Burckhardt Signed-off-by: Gunj Joshi --- lib/node_modules/@stdlib/math/base/special/besselj0/src/main.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/node_modules/@stdlib/math/base/special/besselj0/src/main.c b/lib/node_modules/@stdlib/math/base/special/besselj0/src/main.c index cda3e152cb78..47ddf5b87227 100644 --- a/lib/node_modules/@stdlib/math/base/special/besselj0/src/main.c +++ b/lib/node_modules/@stdlib/math/base/special/besselj0/src/main.c @@ -18,7 +18,7 @@ * * ## Notice * -* The original C++ code and copyright notice are from the [Boost library]{@link https://github.com/boostorg/math/blob/develop/include/boost/math/special_functions/detail/bessel_j0.hpp}. The implementation has been modified for JavaScript. +* The original C++ code and copyright notice are from the [Boost library]{@link https://www.boost.org/doc/libs/1_85_0/boost/math/special_functions/detail/bessel_j0.hpp}. The implementation has been modified for use in stdlib. * * ```text * Copyright Xiaogang Zhang, 2006.