diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/README.md b/lib/node_modules/@stdlib/blas/ext/base/drrss/README.md new file mode 100644 index 000000000000..16561a6f74a3 --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/README.md @@ -0,0 +1,339 @@ + + +# drrss + +> Calculate the square root of the [residual sum of squares][wikipedia-residual-sum-of-squares] of two double-precision floating-point strided arrays. + +
+ +The square root of the [residual sum of squares][wikipedia-residual-sum-of-squares] is defined as + + + +```math +d = \sqrt{\sum_{i=0}^{N-1} (y_i - x_i)^2} +``` + + + + + +
+ + + +
+ +## Usage + +```javascript +var drrss = require( '@stdlib/blas/ext/base/drrss' ); +``` + +#### drrss( N, x, strideX, y, strideY ) + +Computes the square root of the [residual sum of squares][wikipedia-residual-sum-of-squares] of two double-precision floating-point strided arrays. + +```javascript +var Float64Array = require( '@stdlib/array/float64' ); + +var x = new Float64Array( [ 1.0, -2.0, 2.0 ] ); +var y = new Float64Array( [ 1.0, 1.0, -4.0 ] ); + +var z = drrss( x.length, x, 1, y, 1 ); +// returns ~6.7 +``` + +The function has the following parameters: + +- **N**: number of indexed elements. +- **x**: first input [`Float64Array`][@stdlib/array/float64]. +- **strideX**: stride length for `x`. +- **y**: second input [`Float64Array`][@stdlib/array/float64]. +- **strideY**: stride length for `y`. + +The `N` and stride parameters determine which elements in strided arrays are accessed at runtime. For example, to compute the [residual sum of squares][wikipedia-residual-sum-of-squares] of every other element in `x` and `y` + +```javascript +var Float64Array = require( '@stdlib/array/float64' ); + +var x = new Float64Array( [ 1.0, 2.0, 2.0, -7.0, -2.0, 3.0, 4.0, 2.0 ] ); +var y = new Float64Array( [ 2.0, 1.0, 2.0, 1.0, -2.0, 2.0, 3.0, 4.0 ] ); + +var z = drrss( x.length, x, 1, y, 1 ); +// returns ~8.485 +``` + +Note that indexing is relative to the first index. To introduce an offset, use [`typed array`][mdn-typed-array] views. + + + +```javascript +var Float64Array = require( '@stdlib/array/float64' ); + +var x0 = new Float64Array( [ 2.0, 1.0, 2.0, -2.0, -2.0, 2.0, 3.0, 4.0 ] ); +var y0 = new Float64Array( [ 8.0, -2.0, 3.0, -2.0, 7.0, -2.0, 0.0, -1.0 ] ); + +var x1 = new Float64Array( x0.buffer, x0.BYTES_PER_ELEMENT*1 ); // start at 2nd element +var y1 = new Float64Array( y0.buffer, y0.BYTES_PER_ELEMENT*1 ); // start at 2nd element + +var z = drrss( 4, x1, 2, y1, 2 ); +// returns ~7.071 +``` + +If `N` is less than or equal to `0`, the function returns `0`. + +#### drrss.ndarray( N, x, strideX, offsetX, y, strideY, offsetY ) + +Computes the square root of the [residual sum of squares][wikipedia-residual-sum-of-squares] of two double-precision floating-point strided arrays using alternative indexing semantics. + +```javascript +var Float64Array = require( '@stdlib/array/float64' ); + +var x = new Float64Array( [ 1.0, -2.0, 2.0 ] ); +var y = new Float64Array( [ 1.0, 1.0, -4.0 ] ); + +var z = drrss.ndarray( x.length, x, 1, 0, y, 1, 0 ); +// returns ~6.7 +``` + +The function has the following additional parameters: + +- **offsetX**: starting index for `x`. +- **offsetY**: starting index for `y`. + +While [`typed array`][mdn-typed-array] views mandate a view offset based on the underlying buffer, the offset parameters support indexing semantics based on starting indices. For example, to calculate the square root of the [residual sum of squares][wikipedia-residual-sum-of-squares] for every other element in `x` and `y` starting from the second element + +```javascript +var Float64Array = require( '@stdlib/array/float64' ); + +var x = new Float64Array( [ 2.0, 1.0, 2.0, -2.0, -2.0, 2.0, 3.0, 4.0, 6.0 ] ); +var y = new Float64Array( [ 8.0, -2.0, 3.0, -2.0, 7.0, -2.0, 0.0, -1.0, 4.0 ] ); + +var z = drrss.ndarray( 4, x, 2, 1, y, 2, 1 ); +// returns ~7.071 +``` + +
+ + + +
+ +## Notes + +- If `N <= 0`, both functions return `0.0`. + +
+ + + +
+ +## Examples + + + +```javascript +var discreteUniform = require( '@stdlib/random/array/discrete-uniform' ); +var drrss = require( '@stdlib/blas/ext/base/drrss' ); + +var opts = { + 'dtype': 'float64' +}; +var x = discreteUniform( 10, -50, 50, opts ); +console.log( x ); + +var y = discreteUniform( 10, -50, 50, opts ); +console.log( y ); + +var d = drrss( x.length, x, 1, y, 1 ); +console.log( d ); +``` + +
+ + + + + +* * * + +
+ +## C APIs + + + +
+ +
+ + + + + +
+ +### Usage + +```c +#include "stdlib/blas/ext/base/drrss.h" +``` + +#### stdlib_strided_drrss( N, \*X, strideX, \*Y, strideY ) + +Computes the square root of the [residual sum of squares][wikipedia-residual-sum-of-squares] of two double-precision floating-point strided arrays. + +```c +const double x[] = { 1.0, -2.0, 2.0 }; +const double y[] = { 1.0, 1.0, -4.0 }; + +double z = stdlib_strided_drrss( 3, x, 1, y, 1 ); +// returns ~6.7 +``` + +The function accepts the following arguments: + +- **N**: `[in] CBLAS_INT` number of indexed elements. +- **X**: `[in] double*` first input array. +- **strideX**: `[in] CBLAS_INT` stride length for `X`. +- **Y**: `[in] double*` second input array. +- **strideY**: `[in] CBLAS_INT` stride length for `Y`. + +```c +double stdlib_strided_drrss( const CBLAS_INT N, const double *X, const CBLAS_INT strideX, const double *Y, const CBLAS_INT strideY ); +``` + + + +#### stdlib_strided_drrss_ndarray( N, \*X, strideX, offsetX, \*Y, strideY, offsetY ) + + + +Computes the square root of the [residual sum of squares][wikipedia-residual-sum-of-squares] of two double-precision floating-point strided arrays using alternative indexing semantics. + +```c +const double x[] = { 1.0, -2.0, 2.0 }; +const double y[] = { 1.0, 1.0, -4.0 }; + +double v = stdlib_strided_drrss_ndarray( 3, x, 1, 0, 1, 0 ); +// returns ~6.7 +``` + +The function accepts the following arguments: + +- **N**: `[in] CBLAS_INT` number of indexed elements. +- **X**: `[in] double*` first input array. +- **strideX**: `[in] CBLAS_INT` stride length for `X`. +- **offsetX**: `[in] CBLAS_INT` starting index for `X`. +- **Y**: `[in] double*` second input array. +- **strideY**: `[in] CBLAS_INT` stride length for `Y`. +- **offsetY**: `[in] CBLAS_INT` starting index for `Y`. + +```c +double stdlib_strided_drrss_ndarray( const CBLAS_INT N, const double *X, const CBLAS_INT strideX, const CBLAS_INT offsetX, const double *Y, const CBLAS_INT strideY, const CBLAS_INT offsetY ); +``` + +
+ + + + + +
+ +
+ + + + + +
+ +### Examples + +```c +#include "stdlib/blas/ext/base/drrss.h" +#include + +int main( void ) { + // Create two strided arrays: + const double x[] = { 1.0, -2.0, -4.0, 5.0, 0.0, 3.0 }; + const double y[] = { 5.0, 12.0, -8.0, 15.0, 9.0, 0.0 }; + + // Specify the number of elements: + const int N = 5; + + // Specify the stride lengths: + const int strideX = 1; + const int strideY = 1; + + // Compute the square root of the residual sum of squares of `x` and `y`: + double d = stdlib_strided_drrss( N, x, strideX, y, strideY ); + + // Print the result: + printf( "drrss: %lf\n", d ); + + // Specify index offsets: + const int offsetX = 1; + const int offsetY = 1; + + // Compute the square root of the residual sum of squares of `x` and `y` with offsets: + d = stdlib_strided_drrss_ndarray( N, x, strideX, offsetX, y, strideY, offsetY ); + + // Print the result: + printf( "drrss: %lf\n", d ); +} +``` + +
+ + + +
+ + + + + + + + + + + + + + diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/benchmark.js b/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/benchmark.js new file mode 100644 index 000000000000..fe696128e3b0 --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/benchmark.js @@ -0,0 +1,97 @@ +/** +* @license Apache-2.0 +* +* Copyright (c) 2025 The Stdlib Authors. +* +* Licensed under the Apache License, Version 2.0 (the "License"); +* you may not use this file except in compliance with the License. +* You may obtain a copy of the License at +* +* http://www.apache.org/licenses/LICENSE-2.0 +* +* Unless required by applicable law or agreed to in writing, software +* distributed under the License is distributed on an "AS IS" BASIS, +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +* See the License for the specific language governing permissions and +* limitations under the License. +*/ + +'use strict'; + +// MODULES // + +var bench = require( '@stdlib/bench' ); +var uniform = require( '@stdlib/random/array/uniform' ); +var isnan = require( '@stdlib/math/base/assert/is-nan' ); +var pow = require( '@stdlib/math/base/special/pow' ); +var pkg = require( './../package.json' ).name; +var drrss = require( './../lib/drrss.js' ); + + +// VARIABLES // + +var options = { + 'dtype': 'float64' +}; + + +// FUNCTIONS // + +/** +* Creates a benchmark function. +* +* @private +* @param {PositiveInteger} len - array length +* @returns {Function} benchmark function +*/ +function createBenchmark( len ) { + var x = uniform( len, -100.0, 100.0, options ); + var y = uniform( len, -100.0, 100.0, options ); + return benchmark; + + function benchmark( b ) { + var d; + var i; + + b.tic(); + for ( i = 0; i < b.iterations; i++ ) { + d = drrss( x.length, x, 1, y, 1 ); + if ( isnan( d ) ) { + b.fail( 'should not return NaN' ); + } + } + b.toc(); + if ( isnan( d ) ) { + b.fail( 'should not return NaN' ); + } + b.pass( 'benchmark finished' ); + b.end(); + } +} + + +// MAIN // + +/** +* Main execution sequence. +* +* @private +*/ +function main() { + var len; + var min; + var max; + var f; + var i; + + min = 1; // 10^min + max = 6; // 10^max + + for ( i = min; i <= max; i++ ) { + len = pow( 10, i ); + f = createBenchmark( len ); + bench( pkg+':len='+len, f ); + } +} + +main(); diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/benchmark.native.js b/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/benchmark.native.js new file mode 100644 index 000000000000..14573e81bcb7 --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/benchmark.native.js @@ -0,0 +1,102 @@ +/** +* @license Apache-2.0 +* +* Copyright (c) 2025 The Stdlib Authors. +* +* Licensed under the Apache License, Version 2.0 (the "License"); +* you may not use this file except in compliance with the License. +* You may obtain a copy of the License at +* +* http://www.apache.org/licenses/LICENSE-2.0 +* +* Unless required by applicable law or agreed to in writing, software +* distributed under the License is distributed on an "AS IS" BASIS, +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +* See the License for the specific language governing permissions and +* limitations under the License. +*/ + +'use strict'; + +// MODULES // + +var resolve = require( 'path' ).resolve; +var bench = require( '@stdlib/bench' ); +var uniform = require( '@stdlib/random/array/uniform' ); +var isnan = require( '@stdlib/math/base/assert/is-nan' ); +var pow = require( '@stdlib/math/base/special/pow' ); +var tryRequire = require( '@stdlib/utils/try-require' ); +var pkg = require( './../package.json' ).name; + + +// VARIABLES // + +var drrss = tryRequire( resolve( __dirname, './../lib/drrss.native.js' ) ); +var opts = { + 'skip': ( drrss instanceof Error ) +}; +var options = { + 'dtype': 'float64' +}; + + +// FUNCTIONS // + +/** +* Creates a benchmark function. +* +* @private +* @param {PositiveInteger} len - array length +* @returns {Function} benchmark function +*/ +function createBenchmark( len ) { + var x = uniform( len, -100.0, 100.0, options ); + var y = uniform( len, -100.0, 100.0, options ); + return benchmark; + + function benchmark( b ) { + var d; + var i; + + b.tic(); + for ( i = 0; i < b.iterations; i++ ) { + d = drrss( x.length, x, 1, y, 1 ); + if ( isnan( d ) ) { + b.fail( 'should not return NaN' ); + } + } + b.toc(); + if ( isnan( d ) ) { + b.fail( 'should not return NaN' ); + } + b.pass( 'benchmark finished' ); + b.end(); + } +} + + +// MAIN // + +/** +* Main execution sequence. +* +* @private +*/ +function main() { + var len; + var min; + var max; + var f; + var i; + + min = 1; // 10^min + max = 6; // 10^max + + for ( i = min; i <= max; i++ ) { + len = pow( 10, i ); + f = createBenchmark( len ); + bench( pkg+'::native:len='+len, opts, f ); + } +} + +main(); diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/benchmark.ndarray.js b/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/benchmark.ndarray.js new file mode 100644 index 000000000000..77a6f66b5e1e --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/benchmark.ndarray.js @@ -0,0 +1,97 @@ +/** +* @license Apache-2.0 +* +* Copyright (c) 2025 The Stdlib Authors. +* +* Licensed under the Apache License, Version 2.0 (the "License"); +* you may not use this file except in compliance with the License. +* You may obtain a copy of the License at +* +* http://www.apache.org/licenses/LICENSE-2.0 +* +* Unless required by applicable law or agreed to in writing, software +* distributed under the License is distributed on an "AS IS" BASIS, +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +* See the License for the specific language governing permissions and +* limitations under the License. +*/ + +'use strict'; + +// MODULES // + +var bench = require( '@stdlib/bench' ); +var uniform = require( '@stdlib/random/array/uniform' ); +var isnan = require( '@stdlib/math/base/assert/is-nan' ); +var pow = require( '@stdlib/math/base/special/pow' ); +var pkg = require( './../package.json' ).name; +var drrss = require( './../lib/ndarray.js' ); + + +// VARIABLES // + +var options = { + 'dtype': 'float64' +}; + + +// FUNCTIONS // + +/** +* Creates a benchmark function. +* +* @private +* @param {PositiveInteger} len - array length +* @returns {Function} benchmark function +*/ +function createBenchmark( len ) { + var x = uniform( len, -100.0, 100.0, options ); + var y = uniform( len, -100.0, 100.0, options ); + return benchmark; + + function benchmark( b ) { + var d; + var i; + + b.tic(); + for ( i = 0; i < b.iterations; i++ ) { + d = drrss( x.length, x, 1, 0, y, 1, 0 ); + if ( isnan( d ) ) { + b.fail( 'should not return NaN' ); + } + } + b.toc(); + if ( isnan( d ) ) { + b.fail( 'should not return NaN' ); + } + b.pass( 'benchmark finished' ); + b.end(); + } +} + + +// MAIN // + +/** +* Main execution sequence. +* +* @private +*/ +function main() { + var len; + var min; + var max; + var f; + var i; + + min = 1; // 10^min + max = 6; // 10^max + + for ( i = min; i <= max; i++ ) { + len = pow( 10, i ); + f = createBenchmark( len ); + bench( pkg+':ndarray:len='+len, f ); + } +} + +main(); diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/benchmark.ndarray.native.js b/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/benchmark.ndarray.native.js new file mode 100644 index 000000000000..ccba9b89952d --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/benchmark.ndarray.native.js @@ -0,0 +1,102 @@ +/** +* @license Apache-2.0 +* +* Copyright (c) 2025 The Stdlib Authors. +* +* Licensed under the Apache License, Version 2.0 (the "License"); +* you may not use this file except in compliance with the License. +* You may obtain a copy of the License at +* +* http://www.apache.org/licenses/LICENSE-2.0 +* +* Unless required by applicable law or agreed to in writing, software +* distributed under the License is distributed on an "AS IS" BASIS, +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +* See the License for the specific language governing permissions and +* limitations under the License. +*/ + +'use strict'; + +// MODULES // + +var resolve = require( 'path' ).resolve; +var bench = require( '@stdlib/bench' ); +var uniform = require( '@stdlib/random/array/uniform' ); +var isnan = require( '@stdlib/math/base/assert/is-nan' ); +var pow = require( '@stdlib/math/base/special/pow' ); +var tryRequire = require( '@stdlib/utils/try-require' ); +var pkg = require( './../package.json' ).name; + + +// VARIABLES // + +var drrss = tryRequire( resolve( __dirname, './../lib/ndarray.native.js' ) ); +var opts = { + 'skip': ( drrss instanceof Error ) +}; +var options = { + 'dtype': 'float64' +}; + + +// FUNCTIONS // + +/** +* Creates a benchmark function. +* +* @private +* @param {PositiveInteger} len - array length +* @returns {Function} benchmark function +*/ +function createBenchmark( len ) { + var x = uniform( len, -100.0, 100.0, options ); + var y = uniform( len, -100.0, 100.0, options ); + return benchmark; + + function benchmark( b ) { + var d; + var i; + + b.tic(); + for ( i = 0; i < b.iterations; i++ ) { + d = drrss( x.length, x, 1, 0, y, 1, 0 ); + if ( isnan( d ) ) { + b.fail( 'should not return NaN' ); + } + } + b.toc(); + if ( isnan( d ) ) { + b.fail( 'should not return NaN' ); + } + b.pass( 'benchmark finished' ); + b.end(); + } +} + + +// MAIN // + +/** +* Main execution sequence. +* +* @private +*/ +function main() { + var len; + var min; + var max; + var f; + var i; + + min = 1; // 10^min + max = 6; // 10^max + + for ( i = min; i <= max; i++ ) { + len = pow( 10, i ); + f = createBenchmark( len ); + bench( pkg+'::native:ndarray:len='+len, opts, f ); + } +} + +main(); diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/c/Makefile b/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/c/Makefile new file mode 100644 index 000000000000..cce2c865d7ad --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/c/Makefile @@ -0,0 +1,146 @@ +#/ +# @license Apache-2.0 +# +# Copyright (c) 2025 The Stdlib Authors. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +#/ + +# VARIABLES # + +ifndef VERBOSE + QUIET := @ +else + QUIET := +endif + +# Determine the OS ([1][1], [2][2]). +# +# [1]: https://en.wikipedia.org/wiki/Uname#Examples +# [2]: http://stackoverflow.com/a/27776822/2225624 +OS ?= $(shell uname) +ifneq (, $(findstring MINGW,$(OS))) + OS := WINNT +else +ifneq (, $(findstring MSYS,$(OS))) + OS := WINNT +else +ifneq (, $(findstring CYGWIN,$(OS))) + OS := WINNT +else +ifneq (, $(findstring Windows_NT,$(OS))) + OS := WINNT +endif +endif +endif +endif + +# Define the program used for compiling C source files: +ifdef C_COMPILER + CC := $(C_COMPILER) +else + CC := gcc +endif + +# Define the command-line options when compiling C files: +CFLAGS ?= \ + -std=c99 \ + -O3 \ + -Wall \ + -pedantic + +# Determine whether to generate position independent code ([1][1], [2][2]). +# +# [1]: https://gcc.gnu.org/onlinedocs/gcc/Code-Gen-Options.html#Code-Gen-Options +# [2]: http://stackoverflow.com/questions/5311515/gcc-fpic-option +ifeq ($(OS), WINNT) + fPIC ?= +else + fPIC ?= -fPIC +endif + +# List of includes (e.g., `-I /foo/bar -I /beep/boop/include`): +INCLUDE ?= + +# List of source files: +SOURCE_FILES ?= + +# List of libraries (e.g., `-lopenblas -lpthread`): +LIBRARIES ?= + +# List of library paths (e.g., `-L /foo/bar -L /beep/boop`): +LIBPATH ?= + +# List of C targets: +c_targets := benchmark.length.out + + +# RULES # + +#/ +# Compiles source files. +# +# @param {string} [C_COMPILER] - C compiler (e.g., `gcc`) +# @param {string} [CFLAGS] - C compiler options +# @param {(string|void)} [fPIC] - compiler flag determining whether to generate position independent code (e.g., `-fPIC`) +# @param {string} [INCLUDE] - list of includes (e.g., `-I /foo/bar -I /beep/boop/include`) +# @param {string} [SOURCE_FILES] - list of source files +# @param {string} [LIBPATH] - list of library paths (e.g., `-L /foo/bar -L /beep/boop`) +# @param {string} [LIBRARIES] - list of libraries (e.g., `-lopenblas -lpthread`) +# +# @example +# make +# +# @example +# make all +#/ +all: $(c_targets) + +.PHONY: all + +#/ +# Compiles C source files. +# +# @private +# @param {string} CC - C compiler (e.g., `gcc`) +# @param {string} CFLAGS - C compiler options +# @param {(string|void)} fPIC - compiler flag determining whether to generate position independent code (e.g., `-fPIC`) +# @param {string} INCLUDE - list of includes (e.g., `-I /foo/bar`) +# @param {string} SOURCE_FILES - list of source files +# @param {string} LIBPATH - list of library paths (e.g., `-L /foo/bar`) +# @param {string} LIBRARIES - list of libraries (e.g., `-lopenblas`) +#/ +$(c_targets): %.out: %.c + $(QUIET) $(CC) $(CFLAGS) $(fPIC) $(INCLUDE) -o $@ $(SOURCE_FILES) $< $(LIBPATH) -lm $(LIBRARIES) + +#/ +# Runs compiled benchmarks. +# +# @example +# make run +#/ +run: $(c_targets) + $(QUIET) ./$< + +.PHONY: run + +#/ +# Removes generated files. +# +# @example +# make clean +#/ +clean: + $(QUIET) -rm -f *.o *.out + +.PHONY: clean diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/c/benchmark.length.c b/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/c/benchmark.length.c new file mode 100644 index 000000000000..3ee7ff290b56 --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/benchmark/c/benchmark.length.c @@ -0,0 +1,201 @@ +/** +* @license Apache-2.0 +* +* Copyright (c) 2025 The Stdlib Authors. +* +* Licensed under the Apache License, Version 2.0 (the "License"); +* you may not use this file except in compliance with the License. +* You may obtain a copy of the License at +* +* http://www.apache.org/licenses/LICENSE-2.0 +* +* Unless required by applicable law or agreed to in writing, software +* distributed under the License is distributed on an "AS IS" BASIS, +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +* See the License for the specific language governing permissions and +* limitations under the License. +*/ + +#include "stdlib/blas/ext/base/drrss.h" +#include +#include +#include +#include +#include + +#define NAME "drrss" +#define ITERATIONS 1000000 +#define REPEATS 3 +#define MIN 1 +#define MAX 6 + +/** +* Prints the TAP version. +*/ +static void print_version( void ) { + printf( "TAP version 13\n" ); +} + +/** +* Prints the TAP summary. +* +* @param total total number of tests +* @param passing total number of passing tests +*/ +static void print_summary( int total, int passing ) { + printf( "#\n" ); + printf( "1..%d\n", total ); // TAP plan + printf( "# total %d\n", total ); + printf( "# pass %d\n", passing ); + printf( "#\n" ); + printf( "# ok\n" ); +} + +/** +* Prints benchmarks results. +* +* @param iterations number of iterations +* @param elapsed elapsed time in seconds +*/ +static void print_results( int iterations, double elapsed ) { + double rate = (double)iterations / elapsed; + printf( " ---\n" ); + printf( " iterations: %d\n", iterations ); + printf( " elapsed: %0.9f\n", elapsed ); + printf( " rate: %0.9f\n", rate ); + printf( " ...\n" ); +} + +/** +* Returns a clock time. +* +* @return clock time +*/ +static double tic( void ) { + struct timeval now; + gettimeofday( &now, NULL ); + return (double)now.tv_sec + (double)now.tv_usec/1.0e6; +} + +/** +* Generates a random number on the interval [0,1). +* +* @return random number +*/ +static double rand_double( void ) { + int r = rand(); + return (double)r / ( (double)RAND_MAX + 1.0 ); +} + +/** +* Runs a benchmark. +* +* @param iterations number of iterations +* @param len array length +* @return elapsed time in seconds +*/ +static double benchmark1( int iterations, int len ) { + double elapsed; + double x[ len ]; + double y[ len ]; + double v; + double t; + int i; + + for ( i = 0; i < len; i++ ) { + x[ i ] = ( rand_double() * 20000.0 ) - 10000.0; + y[ i ] = ( rand_double() * 20000.0 ) - 10000.0; + } + v = 0.0; + t = tic(); + for ( i = 0; i < iterations; i++ ) { + // cppcheck-suppress uninitvar + v = stdlib_strided_drrss( len, x, 1, y, 1 ); + if ( v != v ) { + printf( "should not return NaN\n" ); + break; + } + } + elapsed = tic() - t; + if ( v != v ) { + printf( "should not return NaN\n" ); + } + return elapsed; +} + +/** +* Runs a benchmark. +* +* @param iterations number of iterations +* @param len array length +* @return elapsed time in seconds +*/ +static double benchmark2( int iterations, int len ) { + double elapsed; + double x[ len ]; + double y[ len ]; + double v; + double t; + int i; + + for ( i = 0; i < len; i++ ) { + x[ i ] = ( rand_double() * 20000.0 ) - 10000.0; + y[ i ] = ( rand_double() * 20000.0 ) - 10000.0; + } + v = 0.0; + t = tic(); + for ( i = 0; i < iterations; i++ ) { + // cppcheck-suppress uninitvar + v = stdlib_strided_drrss_ndarray( len, x, 1, 0, y, 1, 0 ); + if ( v != v ) { + printf( "should not return NaN\n" ); + break; + } + } + elapsed = tic() - t; + if ( v != v ) { + printf( "should not return NaN\n" ); + } + return elapsed; +} + +/** +* Main execution sequence. +*/ +int main( void ) { + double elapsed; + int count; + int iter; + int len; + int i; + int j; + + // Use the current time to seed the random number generator: + srand( time( NULL ) ); + + print_version(); + count = 0; + for ( i = MIN; i <= MAX; i++ ) { + len = pow( 10, i ); + iter = ITERATIONS / pow( 10, i-1 ); + for ( j = 0; j < REPEATS; j++ ) { + count += 1; + printf( "# c::%s:len=%d\n", NAME, len ); + elapsed = benchmark1( iter, len ); + print_results( iter, elapsed ); + printf( "ok %d benchmark finished\n", count ); + } + } + for ( i = MIN; i <= MAX; i++ ) { + len = pow( 10, i ); + iter = ITERATIONS / pow( 10, i-1 ); + for ( j = 0; j < REPEATS; j++ ) { + count += 1; + printf( "# c::%s:ndarray:len=%d\n", NAME, len ); + elapsed = benchmark2( iter, len ); + print_results( iter, elapsed ); + printf( "ok %d benchmark finished\n", count ); + } + } + print_summary( count, count ); +} diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/binding.gyp b/lib/node_modules/@stdlib/blas/ext/base/drrss/binding.gyp new file mode 100644 index 000000000000..68a1ca11d160 --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/binding.gyp @@ -0,0 +1,170 @@ +# @license Apache-2.0 +# +# Copyright (c) 2025 The Stdlib Authors. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. + +# A `.gyp` file for building a Node.js native add-on. +# +# [1]: https://gyp.gsrc.io/docs/InputFormatReference.md +# [2]: https://gyp.gsrc.io/docs/UserDocumentation.md +{ + # List of files to include in this file: + 'includes': [ + './include.gypi', + ], + + # Define variables to be used throughout the configuration for all targets: + 'variables': { + # Target name should match the add-on export name: + 'addon_target_name%': 'addon', + + # Set variables based on the host OS: + 'conditions': [ + [ + 'OS=="win"', + { + # Define the object file suffix: + 'obj': 'obj', + }, + { + # Define the object file suffix: + 'obj': 'o', + } + ], # end condition (OS=="win") + ], # end conditions + }, # end variables + + # Define compile targets: + 'targets': [ + + # Target to generate an add-on: + { + # The target name should match the add-on export name: + 'target_name': '<(addon_target_name)', + + # Define dependencies: + 'dependencies': [], + + # Define directories which contain relevant include headers: + 'include_dirs': [ + # Local include directory: + '<@(include_dirs)', + ], + + # List of source files: + 'sources': [ + '<@(src_files)', + ], + + # Settings which should be applied when a target's object files are used as linker input: + 'link_settings': { + # Define libraries: + 'libraries': [ + '<@(libraries)', + ], + + # Define library directories: + 'library_dirs': [ + '<@(library_dirs)', + ], + }, + + # C/C++ compiler flags: + 'cflags': [ + # Enable commonly used warning options: + '-Wall', + + # Aggressive optimization: + '-O3', + ], + + # C specific compiler flags: + 'cflags_c': [ + # Specify the C standard to which a program is expected to conform: + '-std=c99', + ], + + # C++ specific compiler flags: + 'cflags_cpp': [ + # Specify the C++ standard to which a program is expected to conform: + '-std=c++11', + ], + + # Linker flags: + 'ldflags': [], + + # Apply conditions based on the host OS: + 'conditions': [ + [ + 'OS=="mac"', + { + # Linker flags: + 'ldflags': [ + '-undefined dynamic_lookup', + '-Wl,-no-pie', + '-Wl,-search_paths_first', + ], + }, + ], # end condition (OS=="mac") + [ + 'OS!="win"', + { + # C/C++ flags: + 'cflags': [ + # Generate platform-independent code: + '-fPIC', + ], + }, + ], # end condition (OS!="win") + ], # end conditions + }, # end target <(addon_target_name) + + # Target to copy a generated add-on to a standard location: + { + 'target_name': 'copy_addon', + + # Declare that the output of this target is not linked: + 'type': 'none', + + # Define dependencies: + 'dependencies': [ + # Require that the add-on be generated before building this target: + '<(addon_target_name)', + ], + + # Define a list of actions: + 'actions': [ + { + 'action_name': 'copy_addon', + 'message': 'Copying addon...', + + # Explicitly list the inputs in the command-line invocation below: + 'inputs': [], + + # Declare the expected outputs: + 'outputs': [ + '<(addon_output_dir)/<(addon_target_name).node', + ], + + # Define the command-line invocation: + 'action': [ + 'cp', + '<(PRODUCT_DIR)/<(addon_target_name).node', + '<(addon_output_dir)/<(addon_target_name).node', + ], + }, + ], # end actions + }, # end target copy_addon + ], # end targets +} diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/docs/repl.txt b/lib/node_modules/@stdlib/blas/ext/base/drrss/docs/repl.txt new file mode 100644 index 000000000000..5c50b5768108 --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/docs/repl.txt @@ -0,0 +1,112 @@ + +{{alias}}( N, x, strideX, y, strideY ) + Computes the square root of the residual sum of squares of two double- + precision floating-point strided arrays. + + The `N` and stride parameters determine which elements in the strided arrays + are accessed at runtime. + + Indexing is relative to the first index. To introduce an offset, use a typed + array view. + + If `N <= 0`, the function returns `0`. + + Parameters + ---------- + N: integer + Number of indexed elements. + + x: Float64Array + First input array. + + strideX: integer + Stride length of `x`. + + y: Float64Array + Second input array. + + strideY: integer + Stride length of `y`. + + Returns + ------- + out: number + Square root of the residual sum of squares. + + Examples + -------- + // Standard Usage: + > var x = new {{alias:@stdlib/array/float64}}( [ 1.0, -2.0, 2.0 ] ); + > var y = new {{alias:@stdlib/array/float64}}( [ 1.0, 1.0, -4.0 ] ); + > {{alias}}( x.length, x, 1, y, 1 ) + ~6.7 + + // Using `N` and `stride` parameters: + > x = new {{alias:@stdlib/array/float64}}( [ 1.0, 2.0, 2.0, -7.0, -2.0 ] ); + > y = new {{alias:@stdlib/array/float64}}( [ 2.0, 1.0, 2.0, 1.0, -2.0 ] ); + > {{alias}}( 3, x, 2, y, 2 ) + 1.0 + + // Using view offsets: + > var x0 = new {{alias:@stdlib/array/float64}}( [ 2.0, 1.0, 2.0, -2.0 ] ); + > var y0 = new {{alias:@stdlib/array/float64}}( [ 8.0, -2.0, 3.0, -2.0 ] ); + > var x1 = new {{alias:@stdlib/array/float64}}( x0.buffer, x0.BYTES_PER_ELEMENT*1 ); + > var y1 = new {{alias:@stdlib/array/float64}}( y0.buffer, y0.BYTES_PER_ELEMENT*1 ); + > {{alias}}( 2, x1, 2, y1, 2 ) + 3 + + +{{alias}}.ndarray( N, x, strideX, offsetX, y, strideY, offsetY ) + Computes the square root of the residual sum of squares of two double- + precision floating-point strided arrays using alternative indexing + semantics. + + While typed array views mandate a view offset based on the underlying + buffer, the offset parameters support indexing semantics based on starting + indices. + + Parameters + ---------- + N: integer + Number of indexed elements. + + x: Float64Array + First input array. + + strideX: integer + Stride length of `x`. + + offsetX: integer + Starting index of `x`. + + y: Float64Array + Second input array. + + strideY: integer + Stride length of `y`. + + offsetY: integer + Starting index of `y`. + + Returns + ------- + out: number + Square root of the residual sum of squares. + + Examples + -------- + // Standard Usage: + > var x = new {{alias:@stdlib/array/float64}}( [ 1.0, -2.0, -4.0, 5.0 ] ); + > var y = new {{alias:@stdlib/array/float64}}( [ 5.0, 12.0, -8.0, 15.0 ] ); + > {{alias}}.ndarray( x.length, x, 1, 0, y, 1, 0 ) + ~18.11 + + // Using offset parameters: + > x = new {{alias:@stdlib/array/float64}}([ 2.0, 1.0, 2.0, -2.0 ]); + > y = new {{alias:@stdlib/array/float64}}([ 8.0, -2.0, 3.0, -2.0 ]); + > {{alias}}.ndarray( 2, x, 2, 1, y, 2, 1 ) + 3 + + See Also + -------- + diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/docs/types/index.d.ts b/lib/node_modules/@stdlib/blas/ext/base/drrss/docs/types/index.d.ts new file mode 100644 index 000000000000..fbef70b0053f --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/docs/types/index.d.ts @@ -0,0 +1,105 @@ +/* +* @license Apache-2.0 +* +* Copyright (c) 2025 The Stdlib Authors. +* +* Licensed under the Apache License, Version 2.0 (the "License"); +* you may not use this file except in compliance with the License. +* You may obtain a copy of the License at +* +* http://www.apache.org/licenses/LICENSE-2.0 +* +* Unless required by applicable law or agreed to in writing, software +* distributed under the License is distributed on an "AS IS" BASIS, +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +* See the License for the specific language governing permissions and +* limitations under the License. +*/ + +// TypeScript Version: 4.1 + +/** +* Interface describing `drrss`. +*/ +interface Routine { + /** + * Computes the square root of the residual sum of squares of two double-precision floating-point strided arrays. + * + * @param N - number of indexed elements + * @param x - first input array + * @param strideX - stride length of `x` + * @param y - second input array + * @param strideY - stride length of `y` + * @returns square root of the residual sum of squares + * + * @example + * var Float64Array = require( '@stdlib/array/float64' ); + * + * var x = new Float64Array( [ 1.0, 2.0, 2.0, -7.0, -2.0, 3.0, 4.0, 2.0 ] ); + * var y = new Float64Array( [ 2.0, 1.0, 2.0, 1.0, -2.0, 2.0, 3.0, 4.0 ] ); + * + * var z = drrss( x.length, x, 1, y, 1 ); + * // returns ~8.485 + */ + ( N: number, x: Float64Array, strideX: number, y: Float64Array, strideY: number ): number; + + /** + * Computes the square root of the residual sum of squares of two double-precision floating-point strided arrays using alternative indexing semantics. + * + * @param N - number of indexed elements + * @param x - first input array + * @param strideX - stride length of `x` + * @param offsetX - starting index of `x` + * @param y - second input array + * @param strideY - stride length of `y` + * @param offsetY - starting index of `y` + * @returns square root of the residual sum of squares + * + * @example + * var Float64Array = require( '@stdlib/array/float64' ); + * + * var x = new Float64Array( [ 1.0, 2.0, 2.0, -7.0, -2.0, 3.0, 4.0, 2.0 ] ); + * var y = new Float64Array( [ 2.0, 1.0, 2.0, 1.0, -2.0, 2.0, 3.0, 4.0 ] ); + * + * var z = drrss.ndarray( x.length, x, 1, 0, y, 1, 0 ); + * // returns ~8.485 + */ + ndarray( N: number, x: Float64Array, strideX: number, offsetX: number, y: Float64Array, strideY: number, offsetY: number ): number; +} + +/** +* Compute the square root of the residual sum of squares of two double-precision floating-point strided arrays. +* +* @param N - number of indexed elements +* @param x - first input array +* @param strideX - stride length of `x` +* @param y - second input array +* @param strideY - stride length of `y` +* @returns square root of the residual sum of squares +* +* @example +* var Float64Array = require( '@stdlib/array/float64' ); +* var drrss = require( '@stdlib/blas/ext/base/drrss' ); +* +* var x = new Float64Array( [ 1.0, -2.0, 2.0 ] ); +* var y = new Float64Array( [ 1.0, 1.0, -4.0 ] ); +* +* var out = drrss( x.length, x, 1, y, 1 ); +* // returns ~6.7 +* +* @example +* var Float64Array = require( '@stdlib/array/float64' ); +* var drrss = require( '@stdlib/blas/ext/base/drrss' ); +* +* var x = new Float64Array( [ 1.0, 2.0, 2.0, -7.0, -2.0, 3.0, 4.0, 2.0 ] ); +* var y = new Float64Array( [ 2.0, 1.0, 2.0, 1.0, -2.0, 2.0, 3.0, 4.0 ] ); +* +* var z = drrss.ndarray( x.length, x, 1, 0, y, 1, 0 ); +* // returns ~8.485 +*/ +declare var drrss: Routine; + + +// EXPORTS // + +export = drrss; diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/docs/types/test.ts b/lib/node_modules/@stdlib/blas/ext/base/drrss/docs/types/test.ts new file mode 100644 index 000000000000..1704c8c84d9a --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/docs/types/test.ts @@ -0,0 +1,245 @@ +/* +* @license Apache-2.0 +* +* Copyright (c) 2025 The Stdlib Authors. +* +* Licensed under the Apache License, Version 2.0 (the "License"); +* you may not use this file except in compliance with the License. +* You may obtain a copy of the License at +* +* http://www.apache.org/licenses/LICENSE-2.0 +* +* Unless required by applicable law or agreed to in writing, software +* distributed under the License is distributed on an "AS IS" BASIS, +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +* See the License for the specific language governing permissions and +* limitations under the License. +*/ + +import drrss = require( './index' ); + + +// TESTS // + +// The function returns a number... +{ + const x = new Float64Array( 10 ); + const y = new Float64Array( 20 ); + + drrss( x.length, x, 1, y, 1 ); // $ExpectType number +} + +// The compiler throws an error if the function is provided a first argument which is not a number... +{ + const x = new Float64Array( 10 ); + const y = new Float64Array( 20 ); + + drrss( '10', x, 1, y, 1 ); // $ExpectError + drrss( true, x, 1, y, 1 ); // $ExpectError + drrss( false, x, 1, y, 1 ); // $ExpectError + drrss( null, x, 1, y, 1 ); // $ExpectError + drrss( undefined, x, 1, y, 1 ); // $ExpectError + drrss( [], x, 1, y, 1 ); // $ExpectError + drrss( {}, x, 1, y, 1 ); // $ExpectError + drrss( ( x: number ): number => x, x, 1, y, 1 ); // $ExpectError +} + +// The compiler throws an error if the function is provided a second argument which is not a Float64Array... +{ + const x = new Float64Array( 10 ); + const y = new Float64Array( 20 ); + + drrss( x.length, 10, 1, y, 1 ); // $ExpectError + drrss( x.length, '10', 1, y, 1 ); // $ExpectError + drrss( x.length, true, 1, y, 1 ); // $ExpectError + drrss( x.length, false, 1, y, 1 ); // $ExpectError + drrss( x.length, null, 1, y, 1 ); // $ExpectError + drrss( x.length, undefined, 1, y, 1 ); // $ExpectError + drrss( x.length, [], 1, y, 1 ); // $ExpectError + drrss( x.length, {}, 1, y, 1 ); // $ExpectError + drrss( x.length, ( x: number ): number => x, 1, y, 1 ); // $ExpectError +} + +// The compiler throws an error if the function is provided a third argument which is not a number... +{ + const x = new Float64Array( 10 ); + const y = new Float64Array( 20 ); + + drrss( x.length, x, '10', y, 1 ); // $ExpectError + drrss( x.length, x, true, y, 1 ); // $ExpectError + drrss( x.length, x, false, y, 1 ); // $ExpectError + drrss( x.length, x, null, y, 1 ); // $ExpectError + drrss( x.length, x, undefined, y, 1 ); // $ExpectError + drrss( x.length, x, [], y, 1 ); // $ExpectError + drrss( x.length, x, {}, y, 1 ); // $ExpectError + drrss( x.length, x, ( x: number ): number => x, y, 1 ); // $ExpectError +} + +// The compiler throws an error if the function is provided a fourth argument which is not a Float64Array... +{ + const x = new Float64Array( 10 ); + + drrss( x.length, x, 1, '10', 1 ); // $ExpectError + drrss( x.length, x, 1, true, 1 ); // $ExpectError + drrss( x.length, x, 1, false, 1 ); // $ExpectError + drrss( x.length, x, 1, null, 1 ); // $ExpectError + drrss( x.length, x, 1, undefined, 1 ); // $ExpectError + drrss( x.length, x, 1, [], 1 ); // $ExpectError + drrss( x.length, x, 1, {}, 1 ); // $ExpectError + drrss( x.length, x, 1, ( y: number ): number => y, 1 ); // $ExpectError +} + +// The compiler throws an error if the function is provided a fifth argument which is not a number... +{ + const x = new Float64Array( 10 ); + const y = new Float64Array( 20 ); + + drrss( x.length, x, 1, y, '10' ); // $ExpectError + drrss( x.length, x, 1, y, true ); // $ExpectError + drrss( x.length, x, 1, y, false ); // $ExpectError + drrss( x.length, x, 1, y, null ); // $ExpectError + drrss( x.length, x, 1, y, undefined ); // $ExpectError + drrss( x.length, x, 1, y, [] ); // $ExpectError + drrss( x.length, x, 1, y, {} ); // $ExpectError + drrss( x.length, x, 1, y, ( y: number ): number => y ); // $ExpectError +} + +// The compiler throws an error if the function is provided an unsupported number of arguments... +{ + const x = new Float64Array( 10 ); + const y = new Float64Array( 20 ); + + drrss(); // $ExpectError + drrss( x.length ); // $ExpectError + drrss( x.length, x ); // $ExpectError + drrss( x.length, x, 1, y ); // $ExpectError + drrss( x.length, x, 1, y, 1, 10 ); // $ExpectError +} + +// Attached to main export is an `ndarray` method which returns a number... +{ + const x = new Float64Array( 10 ); + const y = new Float64Array( 20 ); + + drrss.ndarray( x.length, x, 1, 0, y, 1, 0 ); // $ExpectType number +} + +// The compiler throws an error if the `ndarray` method is provided a first argument which is not a number... +{ + const x = new Float64Array( 10 ); + const y = new Float64Array( 20 ); + + drrss.ndarray( '10', x, 1, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( true, x, 1, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( false, x, 1, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( null, x, 1, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( undefined, x, 1, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( [], x, 1, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( {}, x, 1, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( ( x: number ): number => x, x, 1, 0, y, 1, 0 ); // $ExpectError +} + +// The compiler throws an error if the `ndarray` method is provided a second argument which is not a Float64Array... +{ + const x = new Float64Array( 10 ); + const y = new Float64Array( 20 ); + + drrss.ndarray( x.length, 10, 1, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, '10', 1, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, true, 1, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, false, 1, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, null, 1, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, undefined, 1, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, [], 1, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, {}, 1, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, ( x: number ): number => x, 1, 0, y, 1, 0 ); // $ExpectError +} + +// The compiler throws an error if the `ndarray` method is provided a third argument which is not a number... +{ + const x = new Float64Array( 10 ); + const y = new Float64Array( 20 ); + + drrss.ndarray( x.length, x, '10', 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, true, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, false, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, null, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, undefined, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, [], 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, {}, 0, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, ( x: number ): number => x, 0, y, 1, 0 ); // $ExpectError +} + +// The compiler throws an error if the `ndarray` method is provided a fourth argument which is not a number... +{ + const x = new Float64Array( 10 ); + const y = new Float64Array( 20 ); + + drrss.ndarray( x.length, x, 1, '10', y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, true, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, false, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, null, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, undefined, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, [], y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, {}, y, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, ( x: number ): number => x, y, 1, 0 ); // $ExpectError +} + +// The compiler throws an error if the `ndarray` method is provided a fifth argument which is not a Float64Array... +{ + const x = new Float64Array( 10 ); + + drrss.ndarray( x.length, x, 1, 0, 10, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, '10', 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, true, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, false, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, null, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, undefined, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, [], 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, {}, 1, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, ( x: number ): number => x, 1, 0 ); // $ExpectError +} + +// The compiler throws an error if the `ndarray` method is provided a sixth argument which is not a number... +{ + const x = new Float64Array( 10 ); + const y = new Float64Array( 20 ); + + drrss.ndarray( x.length, x, 1, 0, y, '10', 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, y, true, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, y, false, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, y, null, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, y, undefined, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, y, [], 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, y, {}, 0 ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, y, ( x: number ): number => x, 0 ); // $ExpectError +} + +// The compiler throws an error if the `ndarray` method is provided a seventh argument which is not a number... +{ + const x = new Float64Array( 10 ); + const y = new Float64Array( 20 ); + + drrss.ndarray( x.length, x, 1, 0, y, 1, '10' ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, y, 1, true ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, y, 1, false ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, y, 1, null ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, y, 1, undefined ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, y, 1, [] ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, y, 1, {} ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, y, 1, ( x: number ): number => x ); // $ExpectError +} + +// The compiler throws an error if the `ndarray` method is provided an unsupported number of arguments... +{ + const x = new Float64Array( 10 ); + const y = new Float64Array( 20 ); + + drrss.ndarray(); // $ExpectError + drrss.ndarray( x.length ); // $ExpectError + drrss.ndarray( x.length, x ); // $ExpectError + drrss.ndarray( x.length, x, 1 ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, y ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, y, 1 ); // $ExpectError + drrss.ndarray( x.length, x, 1, 0, y, 1, 0, 10 ); // $ExpectError +} diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/examples/c/Makefile b/lib/node_modules/@stdlib/blas/ext/base/drrss/examples/c/Makefile new file mode 100644 index 000000000000..25ced822f96a --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/examples/c/Makefile @@ -0,0 +1,146 @@ +#/ +# @license Apache-2.0 +# +# Copyright (c) 2025 The Stdlib Authors. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +#/ + +# VARIABLES # + +ifndef VERBOSE + QUIET := @ +else + QUIET := +endif + +# Determine the OS ([1][1], [2][2]). +# +# [1]: https://en.wikipedia.org/wiki/Uname#Examples +# [2]: http://stackoverflow.com/a/27776822/2225624 +OS ?= $(shell uname) +ifneq (, $(findstring MINGW,$(OS))) + OS := WINNT +else +ifneq (, $(findstring MSYS,$(OS))) + OS := WINNT +else +ifneq (, $(findstring CYGWIN,$(OS))) + OS := WINNT +else +ifneq (, $(findstring Windows_NT,$(OS))) + OS := WINNT +endif +endif +endif +endif + +# Define the program used for compiling C source files: +ifdef C_COMPILER + CC := $(C_COMPILER) +else + CC := gcc +endif + +# Define the command-line options when compiling C files: +CFLAGS ?= \ + -std=c99 \ + -O3 \ + -Wall \ + -pedantic + +# Determine whether to generate position independent code ([1][1], [2][2]). +# +# [1]: https://gcc.gnu.org/onlinedocs/gcc/Code-Gen-Options.html#Code-Gen-Options +# [2]: http://stackoverflow.com/questions/5311515/gcc-fpic-option +ifeq ($(OS), WINNT) + fPIC ?= +else + fPIC ?= -fPIC +endif + +# List of includes (e.g., `-I /foo/bar -I /beep/boop/include`): +INCLUDE ?= + +# List of source files: +SOURCE_FILES ?= + +# List of libraries (e.g., `-lopenblas -lpthread`): +LIBRARIES ?= + +# List of library paths (e.g., `-L /foo/bar -L /beep/boop`): +LIBPATH ?= + +# List of C targets: +c_targets := example.out + + +# RULES # + +#/ +# Compiles source files. +# +# @param {string} [C_COMPILER] - C compiler (e.g., `gcc`) +# @param {string} [CFLAGS] - C compiler options +# @param {(string|void)} [fPIC] - compiler flag determining whether to generate position independent code (e.g., `-fPIC`) +# @param {string} [INCLUDE] - list of includes (e.g., `-I /foo/bar -I /beep/boop/include`) +# @param {string} [SOURCE_FILES] - list of source files +# @param {string} [LIBPATH] - list of library paths (e.g., `-L /foo/bar -L /beep/boop`) +# @param {string} [LIBRARIES] - list of libraries (e.g., `-lopenblas -lpthread`) +# +# @example +# make +# +# @example +# make all +#/ +all: $(c_targets) + +.PHONY: all + +#/ +# Compiles C source files. +# +# @private +# @param {string} CC - C compiler (e.g., `gcc`) +# @param {string} CFLAGS - C compiler options +# @param {(string|void)} fPIC - compiler flag determining whether to generate position independent code (e.g., `-fPIC`) +# @param {string} INCLUDE - list of includes (e.g., `-I /foo/bar`) +# @param {string} SOURCE_FILES - list of source files +# @param {string} LIBPATH - list of library paths (e.g., `-L /foo/bar`) +# @param {string} LIBRARIES - list of libraries (e.g., `-lopenblas`) +#/ +$(c_targets): %.out: %.c + $(QUIET) $(CC) $(CFLAGS) $(fPIC) $(INCLUDE) -o $@ $(SOURCE_FILES) $< $(LIBPATH) -lm $(LIBRARIES) + +#/ +# Runs compiled examples. +# +# @example +# make run +#/ +run: $(c_targets) + $(QUIET) ./$< + +.PHONY: run + +#/ +# Removes generated files. +# +# @example +# make clean +#/ +clean: + $(QUIET) -rm -f *.o *.out + +.PHONY: clean diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/examples/c/example.c b/lib/node_modules/@stdlib/blas/ext/base/drrss/examples/c/example.c new file mode 100644 index 000000000000..5b75a2e3649f --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/examples/c/example.c @@ -0,0 +1,49 @@ +/** +* @license Apache-2.0 +* +* Copyright (c) 2025 The Stdlib Authors. +* +* Licensed under the Apache License, Version 2.0 (the "License"); +* you may not use this file except in compliance with the License. +* You may obtain a copy of the License at +* +* http://www.apache.org/licenses/LICENSE-2.0 +* +* Unless required by applicable law or agreed to in writing, software +* distributed under the License is distributed on an "AS IS" BASIS, +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +* See the License for the specific language governing permissions and +* limitations under the License. +*/ + +#include "stdlib/blas/ext/base/drrss.h" +#include + +int main( void ) { + // Create two strided arrays: + const double x[] = { 1.0, -2.0, -4.0, 5.0, 0.0, 3.0 }; + const double y[] = { 5.0, 12.0, -8.0, 15.0, 9.0, 0.0 }; + + // Specify the number of elements: + const int N = 5; + + // Specify the stride lengths: + const int strideX = 1; + const int strideY = 1; + + // Compute the square root of the residual sum of squares of `x` and `y`: + double d = stdlib_strided_drrss( N, x, strideX, y, strideY ); + + // Print the result: + printf( "drrss: %lf\n", d ); + + // Specify index offsets: + const int offsetX = 1; + const int offsetY = 1; + + // Compute the square root of the residual sum of squares of `x` and `y` with offsets: + d = stdlib_strided_drrss_ndarray( N, x, strideX, offsetX, y, strideY, offsetY ); + + // Print the result: + printf( "drrss: %lf\n", d ); +} diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/examples/index.js b/lib/node_modules/@stdlib/blas/ext/base/drrss/examples/index.js new file mode 100644 index 000000000000..c60697e0b78a --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/examples/index.js @@ -0,0 +1,34 @@ +/** +* @license Apache-2.0 +* +* Copyright (c) 2025 The Stdlib Authors. +* +* Licensed under the Apache License, Version 2.0 (the "License"); +* you may not use this file except in compliance with the License. +* You may obtain a copy of the License at +* +* http://www.apache.org/licenses/LICENSE-2.0 +* +* Unless required by applicable law or agreed to in writing, software +* distributed under the License is distributed on an "AS IS" BASIS, +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +* See the License for the specific language governing permissions and +* limitations under the License. +*/ + +'use strict'; + +var discreteUniform = require( '@stdlib/random/array/discrete-uniform' ); +var drrss = require( './../lib' ); + +var opts = { + 'dtype': 'float64' +}; +var x = discreteUniform( 10, -50, 50, opts ); +console.log( x ); + +var y = discreteUniform( 10, -50, 50, opts ); +console.log( y ); + +var d = drrss( x.length, x, 1, y, 1 ); +console.log( d ); diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/include.gypi b/lib/node_modules/@stdlib/blas/ext/base/drrss/include.gypi new file mode 100644 index 000000000000..ecfaf82a3279 --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/include.gypi @@ -0,0 +1,53 @@ +# @license Apache-2.0 +# +# Copyright (c) 2025 The Stdlib Authors. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. + +# A GYP include file for building a Node.js native add-on. +# +# Main documentation: +# +# [1]: https://gyp.gsrc.io/docs/InputFormatReference.md +# [2]: https://gyp.gsrc.io/docs/UserDocumentation.md +{ + # Define variables to be used throughout the configuration for all targets: + 'variables': { + # Source directory: + 'src_dir': './src', + + # Include directories: + 'include_dirs': [ + ' tbig ) { + abig += abs2( az * sbig ); + notbig = false; + } else if ( az < tsml ) { + if ( notbig ) { + asml += abs2( az * ssml ); + } + } else { + amed += ( az * az ); + } + ix += strideX; + iy += strideY; + } + // Combine `abig` and `amed` or `amed` and `asml` if more than one accumulator was used... + if ( abig > 0.0 ) { + // Combine `abig` and `amed` if `abig` > 0... + if ( amed > 0.0 || ( amed > FLOAT64_MAX ) || ( amed !== amed ) ) { + abig += ( ( amed * sbig ) * sbig ); + } + scl = 1.0 / sbig; + sumsq = abig; + } else if ( asml > 0.0 ) { + // Combine `amed` and `asml` if `asml` > 0... + if ( amed > 0.0 || amed > FLOAT64_MAX || ( amed !== amed ) ) { + amed = sqrt( amed ); + asml = sqrt( asml ) / ssml; + if ( asml > amed ) { + ymin = amed; + ymax = asml; + } else { + ymin = asml; + ymax = amed; + } + scl = 1.0; + sumsq = ( ymax * ymax ) * ( 1.0 + abs2( ymin / ymax ) ); + } else { + scl = 1.0 / ssml; + sumsq = asml; + } + } else { + // All values are mid-range... + scl = 1.0; + sumsq = amed; + } + return sqrt( sumsq ) * scl; +} + + +// EXPORTS // + +module.exports = drrss; diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/lib/ndarray.native.js b/lib/node_modules/@stdlib/blas/ext/base/drrss/lib/ndarray.native.js new file mode 100644 index 000000000000..dad44f2b3b42 --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/lib/ndarray.native.js @@ -0,0 +1,56 @@ +/** +* @license Apache-2.0 +* +* Copyright (c) 2025 The Stdlib Authors. +* +* Licensed under the Apache License, Version 2.0 (the "License"); +* you may not use this file except in compliance with the License. +* You may obtain a copy of the License at +* +* http://www.apache.org/licenses/LICENSE-2.0 +* +* Unless required by applicable law or agreed to in writing, software +* distributed under the License is distributed on an "AS IS" BASIS, +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +* See the License for the specific language governing permissions and +* limitations under the License. +*/ + +'use strict'; + +// MODULES // + +var addon = require( './../src/addon.node' ); + + +// MAIN // + +/** +* Computes the square root of the residual sum of squares of two double-precision floating-point strided arrays. +* +* @param {PositiveInteger} N - number of indexed elements +* @param {Float64Array} x - first input array +* @param {integer} strideX - stride length of `x` +* @param {NonNegativeInteger} offsetX - starting index of `x` +* @param {Float64Array} y - second input array +* @param {integer} strideY - stride length of `y` +* @param {NonNegativeInteger} offsetY - starting index of `y` +* @returns {number} square root of the residual sum of squares +* +* @example +* var Float64Array = require( '@stdlib/array/float64' ); +* +* var x = new Float64Array( [ 1.0, 2.0, 2.0, -7.0, -2.0, 3.0, 4.0, 2.0 ] ); +* var y = new Float64Array( [ 2.0, 1.0, 2.0, 1.0, -2.0, 2.0, 3.0, 4.0 ] ); +* +* var z = drrss( x.length, x, 1, 0, y, 1, 0 ); +* // returns ~8.485 +*/ +function drrss( N, x, strideX, offsetX, y, strideY, offsetY ) { + return addon.ndarray( N, x, strideX, offsetX, y, strideY, offsetY ); +} + + +// EXPORTS // + +module.exports = drrss; diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/manifest.json b/lib/node_modules/@stdlib/blas/ext/base/drrss/manifest.json new file mode 100644 index 000000000000..a4a42d366f2d --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/manifest.json @@ -0,0 +1,115 @@ +{ + "options": { + "task": "build", + "wasm": false + }, + "fields": [ + { + "field": "src", + "resolve": true, + "relative": true + }, + { + "field": "include", + "resolve": true, + "relative": true + }, + { + "field": "libraries", + "resolve": false, + "relative": false + }, + { + "field": "libpath", + "resolve": true, + "relative": false + } + ], + "confs": [ + { + "task": "build", + "wasm": false, + "src": [ + "./src/main.c" + ], + "include": [ + "./include" + ], + "libraries": [], + "libpath": [], + "dependencies": [ + "@stdlib/blas/base/shared", + "@stdlib/strided/base/stride2offset", + "@stdlib/math/base/special/abs2", + "@stdlib/math/base/special/abs", + "@stdlib/math/base/special/sqrt", + "@stdlib/constants/float64/max", + "@stdlib/napi/export", + "@stdlib/napi/argv", + "@stdlib/napi/argv-int64", + "@stdlib/napi/argv-strided-float64array", + "@stdlib/napi/create-double" + ] + }, + { + "task": "benchmark", + "wasm": false, + "src": [ + "./src/main.c" + ], + "include": [ + "./include" + ], + "libraries": [], + "libpath": [], + "dependencies": [ + "@stdlib/blas/base/shared", + "@stdlib/strided/base/stride2offset", + "@stdlib/math/base/special/abs2", + "@stdlib/math/base/special/abs", + "@stdlib/math/base/special/sqrt", + "@stdlib/constants/float64/max" + ] + }, + { + "task": "examples", + "wasm": false, + "src": [ + "./src/main.c" + ], + "include": [ + "./include" + ], + "libraries": [], + "libpath": [], + "dependencies": [ + "@stdlib/blas/base/shared", + "@stdlib/strided/base/stride2offset", + "@stdlib/math/base/special/abs2", + "@stdlib/math/base/special/abs", + "@stdlib/math/base/special/sqrt", + "@stdlib/constants/float64/max" + ] + }, + { + "task": "", + "wasm": true, + "src": [ + "./src/main.c" + ], + "include": [ + "./include" + ], + "libraries": [], + "libpath": [], + "dependencies": [ + "@stdlib/blas/base/shared", + "@stdlib/strided/base/stride2offset", + "@stdlib/math/base/special/abs2", + "@stdlib/math/base/special/abs", + "@stdlib/math/base/special/sqrt", + "@stdlib/constants/float64/max" + ] + } + ] +} diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/package.json b/lib/node_modules/@stdlib/blas/ext/base/drrss/package.json new file mode 100644 index 000000000000..d9735ac13d9c --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/package.json @@ -0,0 +1,81 @@ +{ + "name": "@stdlib/blas/ext/base/drrss", + "version": "0.0.0", + "description": "Compute the square root of the residual sum of squares of two double-precision floating-point strided arrays.", + "license": "Apache-2.0", + "author": { + "name": "The Stdlib Authors", + "url": "https://github.com/stdlib-js/stdlib/graphs/contributors" + }, + "contributors": [ + { + "name": "The Stdlib Authors", + "url": "https://github.com/stdlib-js/stdlib/graphs/contributors" + } + ], + "main": "./lib", + "browser": "./lib/main.js", + "gypfile": true, + "directories": { + "benchmark": "./benchmark", + "doc": "./docs", + "example": "./examples", + "include": "./include", + "lib": "./lib", + "src": "./src", + "test": "./test" + }, + "types": "./docs/types", + "scripts": {}, + "homepage": "https://github.com/stdlib-js/stdlib", + "repository": { + "type": "git", + "url": "git://github.com/stdlib-js/stdlib.git" + }, + "bugs": { + "url": "https://github.com/stdlib-js/stdlib/issues" + }, + "dependencies": {}, + "devDependencies": {}, + "engines": { + "node": ">=0.10.0", + "npm": ">2.7.0" + }, + "os": [ + "aix", + "darwin", + "freebsd", + "linux", + "macos", + "openbsd", + "sunos", + "win32", + "windows" + ], + "keywords": [ + "stdlib", + "stdmath", + "mathematics", + "math", + "blas", + "extended", + "square root", + "sqrt", + "residual", + "residuals", + "sum", + "squares", + "drrss", + "rrss", + "rss", + "strided", + "array", + "ndarray", + "float64", + "double", + "float64array" + ], + "__stdlib__": { + "wasm": false + } +} diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/src/Makefile b/lib/node_modules/@stdlib/blas/ext/base/drrss/src/Makefile new file mode 100644 index 000000000000..7733b6180cb4 --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/src/Makefile @@ -0,0 +1,70 @@ +#/ +# @license Apache-2.0 +# +# Copyright (c) 2025 The Stdlib Authors. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +#/ + +# VARIABLES # + +ifndef VERBOSE + QUIET := @ +else + QUIET := +endif + +# Determine the OS ([1][1], [2][2]). +# +# [1]: https://en.wikipedia.org/wiki/Uname#Examples +# [2]: http://stackoverflow.com/a/27776822/2225624 +OS ?= $(shell uname) +ifneq (, $(findstring MINGW,$(OS))) + OS := WINNT +else +ifneq (, $(findstring MSYS,$(OS))) + OS := WINNT +else +ifneq (, $(findstring CYGWIN,$(OS))) + OS := WINNT +else +ifneq (, $(findstring Windows_NT,$(OS))) + OS := WINNT +endif +endif +endif +endif + + +# RULES # + +#/ +# Removes generated files for building an add-on. +# +# @example +# make clean-addon +#/ +clean-addon: + $(QUIET) -rm -f *.o *.node + +.PHONY: clean-addon + +#/ +# Removes generated files. +# +# @example +# make clean +#/ +clean: clean-addon + +.PHONY: clean diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/src/addon.c b/lib/node_modules/@stdlib/blas/ext/base/drrss/src/addon.c new file mode 100644 index 000000000000..a9203a15084c --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/src/addon.c @@ -0,0 +1,66 @@ +/** +* @license Apache-2.0 +* +* Copyright (c) 2025 The Stdlib Authors. +* +* Licensed under the Apache License, Version 2.0 (the "License"); +* you may not use this file except in compliance with the License. +* You may obtain a copy of the License at +* +* http://www.apache.org/licenses/LICENSE-2.0 +* +* Unless required by applicable law or agreed to in writing, software +* distributed under the License is distributed on an "AS IS" BASIS, +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +* See the License for the specific language governing permissions and +* limitations under the License. +*/ + +#include "stdlib/blas/ext/base/drrss.h" +#include "stdlib/blas/base/shared.h" +#include "stdlib/napi/export.h" +#include "stdlib/napi/argv.h" +#include "stdlib/napi/argv_int64.h" +#include "stdlib/napi/argv_strided_float64array.h" +#include "stdlib/napi/create_double.h" +#include + +/** +* Receives JavaScript callback invocation data. +* +* @param env environment under which the function is invoked +* @param info callback data_ +* @return Node-API value +*/ +static napi_value addon( napi_env env, napi_callback_info info ) { + STDLIB_NAPI_ARGV( env, info, argv, argc, 5 ); + STDLIB_NAPI_ARGV_INT64( env, N, argv, 0 ); + STDLIB_NAPI_ARGV_INT64( env, strideX, argv, 2 ); + STDLIB_NAPI_ARGV_INT64( env, strideY, argv, 4 ); + STDLIB_NAPI_ARGV_STRIDED_FLOAT64ARRAY( env, X, N, strideX, argv, 1 ); + STDLIB_NAPI_ARGV_STRIDED_FLOAT64ARRAY( env, Y, N, strideY, argv, 3 ); + STDLIB_NAPI_CREATE_DOUBLE( env, API_SUFFIX(stdlib_strided_drrss)( N, X, strideX, Y, strideY ), v ); + return v; +} + +/** +* Receives JavaScript callback invocation data. +* +* @param env environment under which the function is invoked +* @param info callback data +* @return Node-API value +*/ +static napi_value addon_method( napi_env env, napi_callback_info info ) { + STDLIB_NAPI_ARGV( env, info, argv, argc, 7 ); + STDLIB_NAPI_ARGV_INT64( env, N, argv, 0 ); + STDLIB_NAPI_ARGV_INT64( env, strideX, argv, 2 ); + STDLIB_NAPI_ARGV_INT64( env, strideY, argv, 5 ); + STDLIB_NAPI_ARGV_INT64( env, offsetX, argv, 3 ); + STDLIB_NAPI_ARGV_INT64( env, offsetY, argv, 6 ); + STDLIB_NAPI_ARGV_STRIDED_FLOAT64ARRAY( env, X, N, strideX, argv, 1 ); + STDLIB_NAPI_ARGV_STRIDED_FLOAT64ARRAY( env, Y, N, strideY, argv, 4 ); + STDLIB_NAPI_CREATE_DOUBLE( env, API_SUFFIX(stdlib_strided_drrss_ndarray)( N, X, strideX, offsetX, Y, strideY, offsetY ), v ); + return v; +} + +STDLIB_NAPI_MODULE_EXPORT_FCN_WITH_METHOD( addon, "ndarray", addon_method ); diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/src/main.c b/lib/node_modules/@stdlib/blas/ext/base/drrss/src/main.c new file mode 100644 index 000000000000..45b19650492c --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/src/main.c @@ -0,0 +1,136 @@ +/** +* @license Apache-2.0 +* +* Copyright (c) 2025 The Stdlib Authors. +* +* Licensed under the Apache License, Version 2.0 (the "License"); +* you may not use this file except in compliance with the License. +* You may obtain a copy of the License at +* +* http://www.apache.org/licenses/LICENSE-2.0 +* +* Unless required by applicable law or agreed to in writing, software +* distributed under the License is distributed on an "AS IS" BASIS, +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +* See the License for the specific language governing permissions and +* limitations under the License. +*/ + +#include "stdlib/blas/ext/base/drrss.h" +#include "stdlib/blas/base/shared.h" +#include "stdlib/math/base/special/abs2.h" +#include "stdlib/math/base/special/abs.h" +#include "stdlib/math/base/special/sqrt.h" +#include "stdlib/constants/float64/max.h" +#include "stdlib/strided/base/stride2offset.h" +#include + +// Blue's scaling constants... +static const double tsml = 1.4916681462400413E-154; +static const double tbig = 1.9979190722022350E+146; +static const double ssml = 4.4989137945431964E+161; +static const double sbig = 1.1113793747425387E-162; + + +/** +* Computes the square root of the residual sum of squares of two double-precision floating-point strided arrays. +* +* @param N number of indexed elements +* @param X first input array +* @param strideX stride length of `X` +* @param Y second input array +* @param strideY stride length of `Y` +* @return output value +*/ +double API_SUFFIX(stdlib_strided_drrss)( const CBLAS_INT N, const double *X, const CBLAS_INT strideX, const double *Y, const CBLAS_INT strideY ) { + const CBLAS_INT ox = stdlib_strided_stride2offset( N, strideX ); + const CBLAS_INT oy = stdlib_strided_stride2offset( N, strideY ); + return API_SUFFIX(stdlib_strided_drrss_ndarray)( N, X, strideX, ox, Y, strideY, oy ); +} + +/** +* Computes the square root of the residual sum of squares of two double-precision floating-point strided arrays using alternative indexing semantics. +* +* @param N number of indexed elements +* @param X first input array +* @param strideX stride length of `X` +* @param offsetX starting index for X +* @param Y second input array +* @param strideY stride length of `Y` +* @param offsetY starting index for Y +* @return output value +*/ +double API_SUFFIX(stdlib_strided_drrss_ndarray)( const CBLAS_INT N, const double *X, const CBLAS_INT strideX, const CBLAS_INT offsetX, const double *Y, const CBLAS_INT strideY, const CBLAS_INT offsetY ) { + CBLAS_INT ix; + CBLAS_INT iy; + double sumsq; + bool notbig; + CBLAS_INT i; + double abig; + double amed; + double asml; + double ymax; + double ymin; + double scl; + double az; + + if ( N <= 0 ) { + return 0.0; + } + ix = offsetX; + iy = offsetY; + + // Compute the sum of squares using 3 accumulators--`abig` (sum of squares scaled down to avoid overflow), `asml` (sum of squares scaled up to avoid underflow), `amed` (sum of squares that do not require scaling)--and thresholds and multipliers--`tbig` (values bigger than this are scaled down by `sbig`) and `tsml` (values smaller than this are scaled up by `ssml`)... + notbig = true; + sumsq = 0.0; + abig = 0.0; + amed = 0.0; + asml = 0.0; + for ( i = 0; i < N; i++ ) { + az = stdlib_base_abs( X[ ix ] - Y[ iy ] ); + if ( az > tbig ) { + abig += stdlib_base_abs2( az * sbig ); + notbig = false; + } else if ( az < tsml ) { + if ( notbig ) { + asml += stdlib_base_abs2( az * ssml ); + } + } else { + amed += stdlib_base_abs2( az ); + } + ix += strideX; + iy += strideY; + } + // Combine `abig` and `amed` or `amed` and `asml` if more than one accumulator was used... + if ( abig > 0.0 ) { + // Combine `abig` and `amed` if `abig` > 0... + if ( amed > 0.0 || ( amed > STDLIB_CONSTANT_FLOAT64_MAX ) || ( amed != amed ) ) { + abig += ( amed * sbig ) * sbig; + } + scl = 1.0 / sbig; + sumsq = abig; + } else if ( asml > 0.0 ) { + // Combine `amed` and `asml` if `asml` > 0... + if ( amed > 0.0 || amed > STDLIB_CONSTANT_FLOAT64_MAX || ( amed != amed ) ) { + amed = stdlib_base_sqrt( amed ); + asml = stdlib_base_sqrt( asml ) / ssml; + if ( asml > amed ) { + ymin = amed; + ymax = asml; + } else { + ymin = asml; + ymax = amed; + } + scl = 1.0; + sumsq = stdlib_base_abs2( ymax ) * ( 1.0 + stdlib_base_abs2( ymin / ymax ) ); + } else { + scl = 1.0 / ssml; + sumsq = asml; + } + } else { + // All values are mid-range... + scl = 1.0; + sumsq = amed; + } + return stdlib_base_sqrt( sumsq ) * scl; +} diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/test/test.drrss.js b/lib/node_modules/@stdlib/blas/ext/base/drrss/test/test.drrss.js new file mode 100644 index 000000000000..d0d48f309977 --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/test/test.drrss.js @@ -0,0 +1,243 @@ +/** +* @license Apache-2.0 +* +* Copyright (c) 2025 The Stdlib Authors. +* +* Licensed under the Apache License, Version 2.0 (the "License"); +* you may not use this file except in compliance with the License. +* You may obtain a copy of the License at +* +* http://www.apache.org/licenses/LICENSE-2.0 +* +* Unless required by applicable law or agreed to in writing, software +* distributed under the License is distributed on an "AS IS" BASIS, +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +* See the License for the specific language governing permissions and +* limitations under the License. +*/ + +'use strict'; + +// MODULES // + +var tape = require( 'tape' ); +var sqrt = require( '@stdlib/math/base/special/sqrt' ); +var Float64Array = require( '@stdlib/array/float64' ); +var EPS = require( '@stdlib/constants/float64/eps' ); +var abs = require( '@stdlib/math/base/special/abs' ); +var drrss = require( './../lib/drrss.js' ); + + +// FUNCTIONS // + +/** +* Tests for element-wise approximate equality. +* +* @private +* @param {Object} t - test object +* @param {Collection} actual - actual values +* @param {Collection} expected - expected values +* @param {number} rtol - relative tolerance +*/ +function isApprox( t, actual, expected, rtol ) { + var delta; + var tol; + var i; + + t.strictEqual( actual.length, expected.length, 'returns expected value' ); + for ( i = 0; i < expected.length; i++ ) { + if ( actual[ i ] === expected[ i ] ) { + t.strictEqual( actual[ i ], expected[ i ], 'returns expected value' ); + } else { + delta = abs( actual[ i ] - expected[ i ] ); + tol = rtol * EPS * abs( expected[ i ] ); + t.ok( delta <= tol, 'within tolerance. actual: '+actual[ i ]+'. expected: '+expected[ i ]+'. delta: '+delta+'. tol: '+tol+'.' ); + } + } +} + + +// TESTS // + +tape( 'main export is a function', function test( t ) { + t.ok( true, __filename ); + t.strictEqual( typeof drrss, 'function', 'main export is a function' ); + t.end(); +}); + +tape( 'the function has an arity of 5', function test( t ) { + t.strictEqual( drrss.length, 5, 'returns expected value' ); + t.end(); +}); + +tape( 'the function calculates the square root of the residual sum of squares', function test( t ) { + var x; + var y; + var z; + + x = new Float64Array( [ 1.0, -2.0, -4.0, 5.0, 0.0, 3.0 ] ); + y = new Float64Array( [ 5.0, 12.0, -8.0, 15.0, 9.0, 0.0 ] ); + + z = drrss( x.length, x, 1, y, 1 ); + t.strictEqual( z, sqrt( 418.0 ), 'returns expected value' ); + + x = new Float64Array( [ -4.0 ] ); + y = new Float64Array( [ 10.0 ] ); + + z = drrss( x.length, x, 1, y, 1 ); + t.strictEqual( z, 14.0, 'returns expected value' ); + + x = new Float64Array( [ 1.0e150, 1.0e150, 1.0e150, 1.0e150 ] ); + y = new Float64Array( [ -1.0e150, 1.0e150, -1.0e150, -1.0e150 ] ); + + z = drrss( x.length, x, 1, y, 1 ); + t.strictEqual( z, 3.464101615137754e+150, 'returns expected value' ); + + x = new Float64Array( [ 1.0e-155, 1.0e-155, 1.0e-155, 1.0e-155 ] ); + y = new Float64Array( [ -1.0e-155, -1.0e-155, -1.0e-155, -1.0e-155 ] ); + + z = drrss( x.length, x, 1, y, 1 ); + t.strictEqual( z, 4.0e-155, 'returns expected value' ); + + x = new Float64Array( [ 1.0e150, 1.0e50, 1.0e150, 1.0e50 ] ); + y = new Float64Array( [ -1.0e150, -1.0e50, -1.0e150, -1.0e50 ] ); + + z = drrss( x.length, x, 1, y, 1 ); + isApprox( t, z, 2.82842712474619e+150, 1.0 ); + + x = new Float64Array( [ 1.0e-155, 1.0e50, 1.0e-155, 1.0e50 ] ); + y = new Float64Array( [ -1.0e-155, -1.0e50, -1.0e-155, -1.0e50 ] ); + + z = drrss( x.length, x, 1, y, 1 ); + isApprox( t, z, 2.8284271247461905e+50, 1.0 ); + + x = new Float64Array( [ 1.4e-154, 1.5e-154, 1.4e-154, 0.0 ] ); + y = new Float64Array( [ -1.4e-154, -1.5e-154, -1.4e-154, 0.0 ] ); + + z = drrss( x.length, x, 1, y, 1 ); + isApprox( t, z, 4.967896939349689e-154, 1.0 ); + + t.end(); +}); + +tape( 'if provided an `N` parameter less than or equal to `0`, the function returns `0`', function test( t ) { + var x; + var y; + var z; + + x = new Float64Array( [ 1.0, -2.0, -4.0, 5.0, 3.0 ] ); + y = new Float64Array( [ 3.0, -2.0, 1.0, -15.0, 3.0 ] ); + + z = drrss( 0, x, 1, y, 1 ); + t.strictEqual( z, 0.0, 'returns expected value' ); + + z = drrss( -1, x, 1, y, 1 ); + t.strictEqual( z, 0.0, 'returns expected value' ); + + t.end(); +}); + +tape( 'the function supports stride parameters', function test( t ) { + var x; + var y; + var z; + + x = new Float64Array([ + 1.0, // 0 + 2.0, + 2.0, // 1 + -7.0, + -2.0, // 2 + 3.0, + 4.0, // 3 + 2.0 + ]); + y = new Float64Array([ + 8.0, // 0 + -2.0, + 3.0, // 1 + -2.0, + 7.0, // 2 + -2.0, + 0.0, // 3 + -1.0 + ]); + + z = drrss( 4, x, 2, y, 2 ); + + // sqrt( 49+1+81+16 ) = sqrt( 147 ) + t.strictEqual( z, 12.12435565298214, 'returns expected value' ); + t.end(); +}); + +tape( 'the function supports a negative stride parameters', function test( t ) { + var x; + var y; + var z; + + x = new Float64Array([ + 1.0, // 3 + 2.0, + 2.0, // 2 + -7.0, + -2.0, // 1 + 3.0, + 4.0, // 0 + 2.0 + ]); + y = new Float64Array([ + 8.0, // 3 + -2.0, + 3.0, // 2 + -2.0, + 7.0, // 1 + -2.0, + 0.0, // 0 + -1.0 + ]); + + z = drrss( 4, x, -2, y, -2 ); + + // sqrt( 49+1+81+16 ) = sqrt( 147 ) + t.strictEqual( z, 12.12435565298214, 'returns expected value' ); + t.end(); +}); + +tape( 'the function supports view offsets', function test( t ) { + var x0; + var x1; + var y0; + var y1; + var z; + + x0 = new Float64Array([ + 2.0, + 1.0, // 0 + 2.0, + -2.0, // 1 + -2.0, + 2.0, // 2 + 3.0, + 4.0, // 3 + 6.0 + ]); + y0 = new Float64Array([ + 8.0, + -2.0, // 0 + 3.0, + -2.0, // 1 + 7.0, + -2.0, // 2 + 0.0, + -1.0, // 3 + 4.0 + ]); + x1 = new Float64Array( x0.buffer, x0.BYTES_PER_ELEMENT*1 ); // start at 2nd element + y1 = new Float64Array( y0.buffer, y0.BYTES_PER_ELEMENT*1 ); // start at 2nd element + + z = drrss( 4, x1, 2, y1, 2 ); + + // sqrt( 9+0+16+25 ) = sqrt( 50 ) + t.strictEqual( z, 7.0710678118654755, 'returns expected value' ); + t.end(); +}); diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/test/test.drrss.native.js b/lib/node_modules/@stdlib/blas/ext/base/drrss/test/test.drrss.native.js new file mode 100644 index 000000000000..6912301fd9ee --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/test/test.drrss.native.js @@ -0,0 +1,252 @@ +/** +* @license Apache-2.0 +* +* Copyright (c) 2025 The Stdlib Authors. +* +* Licensed under the Apache License, Version 2.0 (the "License"); +* you may not use this file except in compliance with the License. +* You may obtain a copy of the License at +* +* http://www.apache.org/licenses/LICENSE-2.0 +* +* Unless required by applicable law or agreed to in writing, software +* distributed under the License is distributed on an "AS IS" BASIS, +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +* See the License for the specific language governing permissions and +* limitations under the License. +*/ + +'use strict'; + +// MODULES // + +var resolve = require( 'path' ).resolve; +var tape = require( 'tape' ); +var sqrt = require( '@stdlib/math/base/special/sqrt' ); +var Float64Array = require( '@stdlib/array/float64' ); +var EPS = require( '@stdlib/constants/float64/eps' ); +var abs = require( '@stdlib/math/base/special/abs' ); +var tryRequire = require( '@stdlib/utils/try-require' ); + + +// VARIABLES // + +var drrss = tryRequire( resolve( __dirname, './../lib/drrss.native.js' ) ); +var opts = { + 'skip': ( drrss instanceof Error ) +}; + + +// FUNCTIONS // + +/** +* Tests for element-wise approximate equality. +* +* @private +* @param {Object} t - test object +* @param {Collection} actual - actual values +* @param {Collection} expected - expected values +* @param {number} rtol - relative tolerance +*/ +function isApprox( t, actual, expected, rtol ) { + var delta; + var tol; + var i; + + t.strictEqual( actual.length, expected.length, 'returns expected value' ); + for ( i = 0; i < expected.length; i++ ) { + if ( actual[ i ] === expected[ i ] ) { + t.strictEqual( actual[ i ], expected[ i ], 'returns expected value' ); + } else { + delta = abs( actual[ i ] - expected[ i ] ); + tol = rtol * EPS * abs( expected[ i ] ); + t.ok( delta <= tol, 'within tolerance. actual: '+actual[ i ]+'. expected: '+expected[ i ]+'. delta: '+delta+'. tol: '+tol+'.' ); + } + } +} + + +// TESTS // + +tape( 'main export is a function', opts, function test( t ) { + t.ok( true, __filename ); + t.strictEqual( typeof drrss, 'function', 'main export is a function' ); + t.end(); +}); + +tape( 'the function has an arity of 5', opts, function test( t ) { + t.strictEqual( drrss.length, 5, 'returns expected value' ); + t.end(); +}); + +tape( 'the function calculates the square root of the residual sum of squares', opts, function test( t ) { + var x; + var y; + var z; + + x = new Float64Array( [ 1.0, -2.0, -4.0, 5.0, 0.0, 3.0 ] ); + y = new Float64Array( [ 5.0, 12.0, -8.0, 15.0, 9.0, 0.0 ] ); + + z = drrss( x.length, x, 1, y, 1 ); + t.strictEqual( z, sqrt( 418.0 ), 'returns expected value' ); + + x = new Float64Array( [ -4.0 ] ); + y = new Float64Array( [ 10.0 ] ); + + z = drrss( x.length, x, 1, y, 1 ); + t.strictEqual( z, 14.0, 'returns expected value' ); + + x = new Float64Array( [ 1.0e150, 1.0e150, 1.0e150, 1.0e150 ] ); + y = new Float64Array( [ -1.0e150, 1.0e150, -1.0e150, -1.0e150 ] ); + + z = drrss( x.length, x, 1, y, 1 ); + t.strictEqual( z, 3.464101615137754e+150, 'returns expected value' ); + + x = new Float64Array( [ 1.0e-155, 1.0e-155, 1.0e-155, 1.0e-155 ] ); + y = new Float64Array( [ -1.0e-155, -1.0e-155, -1.0e-155, -1.0e-155 ] ); + + z = drrss( x.length, x, 1, y, 1 ); + t.strictEqual( z, 4.0e-155, 'returns expected value' ); + + x = new Float64Array( [ 1.0e150, 1.0e50, 1.0e150, 1.0e50 ] ); + y = new Float64Array( [ -1.0e150, -1.0e50, -1.0e150, -1.0e50 ] ); + + z = drrss( x.length, x, 1, y, 1 ); + isApprox( t, z, 2.82842712474619e+150, 1.0 ); + + x = new Float64Array( [ 1.0e-155, 1.0e50, 1.0e-155, 1.0e50 ] ); + y = new Float64Array( [ -1.0e-155, -1.0e50, -1.0e-155, -1.0e50 ] ); + + z = drrss( x.length, x, 1, y, 1 ); + isApprox( t, z, 2.8284271247461905e+50, 1.0 ); + + x = new Float64Array( [ 1.4e-154, 1.5e-154, 1.4e-154, 0.0 ] ); + y = new Float64Array( [ -1.4e-154, -1.5e-154, -1.4e-154, 0.0 ] ); + + z = drrss( x.length, x, 1, y, 1 ); + isApprox( t, z, 4.967896939349689e-154, 1.0 ); + + t.end(); +}); + +tape( 'if provided an `N` parameter less than or equal to `0`, the function returns `0`', opts, function test( t ) { + var x; + var y; + var z; + + x = new Float64Array( [ 1.0, -2.0, -4.0, 5.0, 3.0 ] ); + y = new Float64Array( [ 3.0, -2.0, 1.0, -15.0, 3.0 ] ); + + z = drrss( 0, x, 1, y, 1 ); + t.strictEqual( z, 0.0, 'returns expected value' ); + + z = drrss( -1, x, 1, y, 1 ); + t.strictEqual( z, 0.0, 'returns expected value' ); + + t.end(); +}); + +tape( 'the function supports stride parameters', opts, function test( t ) { + var x; + var y; + var z; + + x = new Float64Array([ + 1.0, // 0 + 2.0, + 2.0, // 1 + -7.0, + -2.0, // 2 + 3.0, + 4.0, // 3 + 2.0 + ]); + y = new Float64Array([ + 8.0, // 0 + -2.0, + 3.0, // 1 + -2.0, + 7.0, // 2 + -2.0, + 0.0, // 3 + -1.0 + ]); + + z = drrss( 4, x, 2, y, 2 ); + + // sqrt( 49+1+81+16 ) = sqrt( 147 ) + t.strictEqual( z, 12.12435565298214, 'returns expected value' ); + t.end(); +}); + +tape( 'the function supports a negative stride parameters', opts, function test( t ) { + var x; + var y; + var z; + + x = new Float64Array([ + 1.0, // 3 + 2.0, + 2.0, // 2 + -7.0, + -2.0, // 1 + 3.0, + 4.0, // 0 + 2.0 + ]); + y = new Float64Array([ + 8.0, // 3 + -2.0, + 3.0, // 2 + -2.0, + 7.0, // 1 + -2.0, + 0.0, // 0 + -1.0 + ]); + + z = drrss( 4, x, -2, y, -2 ); + + // sqrt( 49+1+81+16 ) = sqrt( 147 ) + t.strictEqual( z, 12.12435565298214, 'returns expected value' ); + t.end(); +}); + +tape( 'the function supports view offsets', opts, function test( t ) { + var x0; + var x1; + var y0; + var y1; + var z; + + x0 = new Float64Array([ + 2.0, + 1.0, // 0 + 2.0, + -2.0, // 1 + -2.0, + 2.0, // 2 + 3.0, + 4.0, // 3 + 6.0 + ]); + y0 = new Float64Array([ + 8.0, + -2.0, // 0 + 3.0, + -2.0, // 1 + 7.0, + -2.0, // 2 + 0.0, + -1.0, // 3 + 4.0 + ]); + x1 = new Float64Array( x0.buffer, x0.BYTES_PER_ELEMENT*1 ); // start at 2nd element + y1 = new Float64Array( y0.buffer, y0.BYTES_PER_ELEMENT*1 ); // start at 2nd element + + z = drrss( 4, x1, 2, y1, 2 ); + + // sqrt( 9+0+16+25 ) = sqrt( 50 ) + t.strictEqual( z, 7.0710678118654755, 'returns expected value' ); + t.end(); +}); diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/test/test.js b/lib/node_modules/@stdlib/blas/ext/base/drrss/test/test.js new file mode 100644 index 000000000000..43444a1a1295 --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/test/test.js @@ -0,0 +1,82 @@ +/** +* @license Apache-2.0 +* +* Copyright (c) 2025 The Stdlib Authors. +* +* Licensed under the Apache License, Version 2.0 (the "License"); +* you may not use this file except in compliance with the License. +* You may obtain a copy of the License at +* +* http://www.apache.org/licenses/LICENSE-2.0 +* +* Unless required by applicable law or agreed to in writing, software +* distributed under the License is distributed on an "AS IS" BASIS, +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +* See the License for the specific language governing permissions and +* limitations under the License. +*/ + +'use strict'; + +// MODULES // + +var tape = require( 'tape' ); +var proxyquire = require( 'proxyquire' ); +var IS_BROWSER = require( '@stdlib/assert/is-browser' ); +var drrss = require( './../lib' ); + + +// VARIABLES // + +var opts = { + 'skip': IS_BROWSER +}; + + +// TESTS // + +tape( 'main export is a function', function test( t ) { + t.ok( true, __filename ); + t.strictEqual( typeof drrss, 'function', 'main export is a function' ); + t.end(); +}); + +tape( 'attached to the main export is a method providing an ndarray interface', function test( t ) { + t.strictEqual( typeof drrss.ndarray, 'function', 'method is a function' ); + t.end(); +}); + +tape( 'if a native implementation is available, the main export is the native implementation', opts, function test( t ) { + var drrss = proxyquire( './../lib', { + '@stdlib/utils/try-require': tryRequire + }); + + t.strictEqual( drrss, mock, 'returns expected value' ); + t.end(); + + function tryRequire() { + return mock; + } + + function mock() { + // Mock... + } +}); + +tape( 'if a native implementation is not available, the main export is a JavaScript implementation', opts, function test( t ) { + var drrss; + var main; + + main = require( './../lib/drrss.js' ); + + drrss = proxyquire( './../lib', { + '@stdlib/utils/try-require': tryRequire + }); + + t.strictEqual( drrss, main, 'returns expected value' ); + t.end(); + + function tryRequire() { + return new Error( 'Cannot find module' ); + } +}); diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/test/test.ndarray.js b/lib/node_modules/@stdlib/blas/ext/base/drrss/test/test.ndarray.js new file mode 100644 index 000000000000..fa44d082680a --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/test/test.ndarray.js @@ -0,0 +1,239 @@ +/** +* @license Apache-2.0 +* +* Copyright (c) 2025 The Stdlib Authors. +* +* Licensed under the Apache License, Version 2.0 (the "License"); +* you may not use this file except in compliance with the License. +* You may obtain a copy of the License at +* +* http://www.apache.org/licenses/LICENSE-2.0 +* +* Unless required by applicable law or agreed to in writing, software +* distributed under the License is distributed on an "AS IS" BASIS, +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +* See the License for the specific language governing permissions and +* limitations under the License. +*/ + +'use strict'; + +// MODULES // + +var tape = require( 'tape' ); +var sqrt = require( '@stdlib/math/base/special/sqrt' ); +var Float64Array = require( '@stdlib/array/float64' ); +var EPS = require( '@stdlib/constants/float64/eps' ); +var abs = require( '@stdlib/math/base/special/abs' ); +var drrss = require( './../lib/ndarray.js' ); + + +// FUNCTIONS // + +/** +* Tests for element-wise approximate equality. +* +* @private +* @param {Object} t - test object +* @param {Collection} actual - actual values +* @param {Collection} expected - expected values +* @param {number} rtol - relative tolerance +*/ +function isApprox( t, actual, expected, rtol ) { + var delta; + var tol; + var i; + + t.strictEqual( actual.length, expected.length, 'returns expected value' ); + for ( i = 0; i < expected.length; i++ ) { + if ( actual[ i ] === expected[ i ] ) { + t.strictEqual( actual[ i ], expected[ i ], 'returns expected value' ); + } else { + delta = abs( actual[ i ] - expected[ i ] ); + tol = rtol * EPS * abs( expected[ i ] ); + t.ok( delta <= tol, 'within tolerance. actual: '+actual[ i ]+'. expected: '+expected[ i ]+'. delta: '+delta+'. tol: '+tol+'.' ); + } + } +} + + +// TESTS // + +tape( 'main export is a function', function test( t ) { + t.ok( true, __filename ); + t.strictEqual( typeof drrss, 'function', 'main export is a function' ); + t.end(); +}); + +tape( 'the function has an arity of 7', function test( t ) { + t.strictEqual( drrss.length, 7, 'returns expected value' ); + t.end(); +}); + +tape( 'the function calculates the square root of the residual sum of squares of two vectors', function test( t ) { + var x; + var y; + var z; + + x = new Float64Array( [ 1.0, -2.0, -4.0, 5.0, 0.0, 3.0 ] ); + y = new Float64Array( [ 5.0, 12.0, -8.0, 15.0, 9.0, 0.0 ] ); + + z = drrss( x.length, x, 1, 0, y, 1, 0 ); + t.strictEqual( z, sqrt( 418.0 ), 'returns expected value' ); + + x = new Float64Array( [ -4.0 ] ); + y = new Float64Array( [ 10.0 ] ); + + z = drrss( x.length, x, 1, 0, y, 1, 0 ); + t.strictEqual( z, 14.0, 'returns expected value' ); + + x = new Float64Array( [ 1.0e150, 1.0e150, 1.0e150, 1.0e150 ] ); + y = new Float64Array( [ -1.0e150, 1.0e150, -1.0e150, -1.0e150 ] ); + + z = drrss( x.length, x, 1, 0, y, 1, 0 ); + t.strictEqual( z, 3.464101615137754e+150, 'returns expected value' ); + + x = new Float64Array( [ 1.0e-155, 1.0e-155, 1.0e-155, 1.0e-155 ] ); + y = new Float64Array( [ -1.0e-155, -1.0e-155, -1.0e-155, -1.0e-155 ] ); + + z = drrss( x.length, x, 1, 0, y, 1, 0 ); + t.strictEqual( z, 4.0e-155, 'returns expected value' ); + + x = new Float64Array( [ 1.0e150, 1.0e50, 1.0e150, 1.0e50 ] ); + y = new Float64Array( [ -1.0e150, -1.0e50, -1.0e150, -1.0e50 ] ); + + z = drrss( x.length, x, 1, 0, y, 1, 0 ); + isApprox( t, z, 2.82842712474619e+150, 1.0 ); + + x = new Float64Array( [ 1.0e-155, 1.0e50, 1.0e-155, 1.0e50 ] ); + y = new Float64Array( [ -1.0e-155, -1.0e50, -1.0e-155, -1.0e50 ] ); + + z = drrss( x.length, x, 1, 0, y, 1, 0 ); + isApprox( t, z, 2.8284271247461905e+50, 1.0 ); + + x = new Float64Array( [ 1.4e-154, 1.5e-154, 1.4e-154, 0.0 ] ); + y = new Float64Array( [ -1.4e-154, -1.5e-154, -1.4e-154, 0.0 ] ); + + z = drrss( x.length, x, 1, 0, y, 1, 0 ); + isApprox( t, z, 4.967896939349689e-154, 1.0 ); + + t.end(); +}); + +tape( 'if provided an `N` parameter less than or equal to `0`, the function returns `0`', function test( t ) { + var x; + var y; + var z; + + x = new Float64Array( [ 1.0, -2.0, -4.0, 5.0, 3.0 ] ); + y = new Float64Array( [ 3.0, -2.0, 1.0, -15.0, 3.0 ] ); + + z = drrss( 0, x, 1, 0, y, 1, 0 ); + t.strictEqual( z, 0.0, 'returns expected value' ); + + z = drrss( -1, x, 1, 0, y, 1, 0 ); + t.strictEqual( z, 0.0, 'returns expected value' ); + + t.end(); +}); + +tape( 'the function supports stride parameters', function test( t ) { + var x; + var y; + var z; + + x = new Float64Array([ + 1.0, // 0 + 2.0, + 2.0, // 1 + -7.0, + -2.0, // 2 + 3.0, + 4.0, // 3 + 2.0 + ]); + y = new Float64Array([ + 8.0, // 0 + -2.0, + 3.0, // 1 + -2.0, + 7.0, // 2 + -2.0, + 0.0, // 3 + -1.0 + ]); + + z = drrss( 4, x, 2, 0, y, 2, 0 ); + + // sqrt( 49+1+81+16 ) = sqrt( 147 ) + t.strictEqual( z, 12.12435565298214, 'returns expected value' ); + t.end(); +}); + +tape( 'the function supports negative stride parameters', function test( t ) { + var x; + var y; + var z; + + x = new Float64Array([ + 1.0, // 3 + 2.0, + 2.0, // 2 + -7.0, + -2.0, // 1 + 3.0, + 4.0, // 0 + 2.0 + ]); + y = new Float64Array([ + 8.0, // 3 + -2.0, + 3.0, // 2 + -2.0, + 7.0, // 1 + -2.0, + 0.0, // 0 + -1.0 + ]); + + z = drrss( 4, x, -2, x.length-2, y, -2, y.length-2 ); + + // sqrt( 49+1+81+16 ) = sqrt( 147 ) + t.strictEqual( z, 12.12435565298214, 'returns expected value' ); + t.end(); +}); + +tape( 'the function supports offset parameters', function test( t ) { + var x; + var y; + var z; + + x = new Float64Array([ + 2.0, + 1.0, // 0 + 2.0, + -2.0, // 1 + -2.0, + 2.0, // 2 + 3.0, + 4.0, // 3 + 6.0 + ]); + y = new Float64Array([ + 8.0, + -2.0, // 0 + 3.0, + -2.0, // 1 + 7.0, + -2.0, // 2 + 0.0, + -1.0, // 3 + 4.0 + ]); + + z = drrss( 4, x, 2, 1, y, 2, 1 ); + + // sqrt( 9+0+16+25 ) = sqrt( 50 ) + t.strictEqual( z, 7.0710678118654755, 'returns expected value' ); + t.end(); +}); diff --git a/lib/node_modules/@stdlib/blas/ext/base/drrss/test/test.ndarray.native.js b/lib/node_modules/@stdlib/blas/ext/base/drrss/test/test.ndarray.native.js new file mode 100644 index 000000000000..0cd8a47e44dd --- /dev/null +++ b/lib/node_modules/@stdlib/blas/ext/base/drrss/test/test.ndarray.native.js @@ -0,0 +1,248 @@ +/** +* @license Apache-2.0 +* +* Copyright (c) 2025 The Stdlib Authors. +* +* Licensed under the Apache License, Version 2.0 (the "License"); +* you may not use this file except in compliance with the License. +* You may obtain a copy of the License at +* +* http://www.apache.org/licenses/LICENSE-2.0 +* +* Unless required by applicable law or agreed to in writing, software +* distributed under the License is distributed on an "AS IS" BASIS, +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +* See the License for the specific language governing permissions and +* limitations under the License. +*/ + +'use strict'; + +// MODULES // + +var resolve = require( 'path' ).resolve; +var tape = require( 'tape' ); +var sqrt = require( '@stdlib/math/base/special/sqrt' ); +var Float64Array = require( '@stdlib/array/float64' ); +var EPS = require( '@stdlib/constants/float64/eps' ); +var abs = require( '@stdlib/math/base/special/abs' ); +var tryRequire = require( '@stdlib/utils/try-require' ); + + +// VARIABLES // + +var drrss = tryRequire( resolve( __dirname, './../lib/ndarray.native.js' ) ); +var opts = { + 'skip': ( drrss instanceof Error ) +}; + + +// FUNCTIONS // + +/** +* Tests for element-wise approximate equality. +* +* @private +* @param {Object} t - test object +* @param {Collection} actual - actual values +* @param {Collection} expected - expected values +* @param {number} rtol - relative tolerance +*/ +function isApprox( t, actual, expected, rtol ) { + var delta; + var tol; + var i; + + t.strictEqual( actual.length, expected.length, 'returns expected value' ); + for ( i = 0; i < expected.length; i++ ) { + if ( actual[ i ] === expected[ i ] ) { + t.strictEqual( actual[ i ], expected[ i ], 'returns expected value' ); + } else { + delta = abs( actual[ i ] - expected[ i ] ); + tol = rtol * EPS * abs( expected[ i ] ); + t.ok( delta <= tol, 'within tolerance. actual: '+actual[ i ]+'. expected: '+expected[ i ]+'. delta: '+delta+'. tol: '+tol+'.' ); + } + } +} + + +// TESTS // + +tape( 'main export is a function', opts, function test( t ) { + t.ok( true, __filename ); + t.strictEqual( typeof drrss, 'function', 'main export is a function' ); + t.end(); +}); + +tape( 'the function has an arity of 7', opts, function test( t ) { + t.strictEqual( drrss.length, 7, 'returns expected value' ); + t.end(); +}); + +tape( 'the function calculates the square root of the residual sum of squares of two vectors', opts, function test( t ) { + var x; + var y; + var z; + + x = new Float64Array( [ 1.0, -2.0, -4.0, 5.0, 0.0, 3.0 ] ); + y = new Float64Array( [ 5.0, 12.0, -8.0, 15.0, 9.0, 0.0 ] ); + + z = drrss( x.length, x, 1, 0, y, 1, 0 ); + t.strictEqual( z, sqrt( 418.0 ), 'returns expected value' ); + + x = new Float64Array( [ -4.0 ] ); + y = new Float64Array( [ 10.0 ] ); + + z = drrss( x.length, x, 1, 0, y, 1, 0 ); + t.strictEqual( z, 14.0, 'returns expected value' ); + + x = new Float64Array( [ 1.0e150, 1.0e150, 1.0e150, 1.0e150 ] ); + y = new Float64Array( [ -1.0e150, 1.0e150, -1.0e150, -1.0e150 ] ); + + z = drrss( x.length, x, 1, 0, y, 1, 0 ); + t.strictEqual( z, 3.464101615137754e+150, 'returns expected value' ); + + x = new Float64Array( [ 1.0e-155, 1.0e-155, 1.0e-155, 1.0e-155 ] ); + y = new Float64Array( [ -1.0e-155, -1.0e-155, -1.0e-155, -1.0e-155 ] ); + + z = drrss( x.length, x, 1, 0, y, 1, 0 ); + t.strictEqual( z, 4.0e-155, 'returns expected value' ); + + x = new Float64Array( [ 1.0e150, 1.0e50, 1.0e150, 1.0e50 ] ); + y = new Float64Array( [ -1.0e150, -1.0e50, -1.0e150, -1.0e50 ] ); + + z = drrss( x.length, x, 1, 0, y, 1, 0 ); + isApprox( t, z, 2.82842712474619e+150, 1.0 ); + + x = new Float64Array( [ 1.0e-155, 1.0e50, 1.0e-155, 1.0e50 ] ); + y = new Float64Array( [ -1.0e-155, -1.0e50, -1.0e-155, -1.0e50 ] ); + + z = drrss( x.length, x, 1, 0, y, 1, 0 ); + isApprox( t, z, 2.8284271247461905e+50, 1.0 ); + + x = new Float64Array( [ 1.4e-154, 1.5e-154, 1.4e-154, 0.0 ] ); + y = new Float64Array( [ -1.4e-154, -1.5e-154, -1.4e-154, 0.0 ] ); + + z = drrss( x.length, x, 1, 0, y, 1, 0 ); + isApprox( t, z, 4.967896939349689e-154, 1.0 ); + + t.end(); +}); + +tape( 'if provided an `N` parameter less than or equal to `0`, the function returns `0`', opts, function test( t ) { + var x; + var y; + var z; + + x = new Float64Array( [ 1.0, -2.0, -4.0, 5.0, 3.0 ] ); + y = new Float64Array( [ 3.0, -2.0, 1.0, -15.0, 3.0 ] ); + + z = drrss( 0, x, 1, 0, y, 1, 0 ); + t.strictEqual( z, 0.0, 'returns expected value' ); + + z = drrss( -1, x, 1, 0, y, 1, 0 ); + t.strictEqual( z, 0.0, 'returns expected value' ); + + t.end(); +}); + +tape( 'the function supports stride parameters', opts, function test( t ) { + var x; + var y; + var z; + + x = new Float64Array([ + 1.0, // 0 + 2.0, + 2.0, // 1 + -7.0, + -2.0, // 2 + 3.0, + 4.0, // 3 + 2.0 + ]); + y = new Float64Array([ + 8.0, // 0 + -2.0, + 3.0, // 1 + -2.0, + 7.0, // 2 + -2.0, + 0.0, // 3 + -1.0 + ]); + + z = drrss( 4, x, 2, 0, y, 2, 0 ); + + // sqrt( 49+1+81+16 ) = sqrt( 147 ) + t.strictEqual( z, 12.12435565298214, 'returns expected value' ); + t.end(); +}); + +tape( 'the function supports negative stride parameters', opts, function test( t ) { + var x; + var y; + var z; + + x = new Float64Array([ + 1.0, // 3 + 2.0, + 2.0, // 2 + -7.0, + -2.0, // 1 + 3.0, + 4.0, // 0 + 2.0 + ]); + y = new Float64Array([ + 8.0, // 3 + -2.0, + 3.0, // 2 + -2.0, + 7.0, // 1 + -2.0, + 0.0, // 0 + -1.0 + ]); + + z = drrss( 4, x, -2, x.length-2, y, -2, y.length-2 ); + + // sqrt( 49+1+81+16 ) = sqrt( 147 ) + t.strictEqual( z, 12.12435565298214, 'returns expected value' ); + t.end(); +}); + +tape( 'the function supports offset parameters', opts, function test( t ) { + var x; + var y; + var z; + + x = new Float64Array([ + 2.0, + 1.0, // 0 + 2.0, + -2.0, // 1 + -2.0, + 2.0, // 2 + 3.0, + 4.0, // 3 + 6.0 + ]); + y = new Float64Array([ + 8.0, + -2.0, // 0 + 3.0, + -2.0, // 1 + 7.0, + -2.0, // 2 + 0.0, + -1.0, // 3 + 4.0 + ]); + + z = drrss( 4, x, 2, 1, y, 2, 1 ); + + // sqrt( 9+0+16+25 ) = sqrt( 50 ) + t.strictEqual( z, 7.0710678118654755, 'returns expected value' ); + t.end(); +});