feat: add array/base/broadcasted-quaternary4d

lib/node_modules/@stdlib/array/base/broadcasted-quaternary4d/README.md

@@ -0,0 +1,147 @@
+<!--
+
+@license Apache-2.0
+
+Copyright (c) 2024 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.
+
+-->
+
+# bquaternary4d
+
+> Apply a quaternary callback to elements in four [broadcasted][@stdlib/array/base/broadcast-array] nested input arrays and assign results to elements in a four-dimensional nested output array.
+
+<section class="intro">
+
+</section>
+
+<!-- /.intro -->
+
+<section class="usage">
+
+## Usage
+
+```javascript
+var bquaternary4d = require( '@stdlib/array/base/broadcasted-quaternary4d' );
+```
+
+#### bquaternary4d( arrays, shapes, fcn )
+
+Applies a quaternary callback to elements in four [broadcasted][@stdlib/array/base/broadcast-array] nested input arrays and assigns results to elements in a four-dimensional nested output array.
+
+```javascript
+var add = require( '@stdlib/math/base/ops/add4' );
+var zeros4d = require( '@stdlib/array/base/zeros4d' );
+
+var x = [ [ 1.0, 2.0 ] ];
+var y = [ [ 3.0 ], [ 4.0 ] ];
+var z = [ [ 5.0 ] ];
+var w = [ [ 2.0 ] ];
+var out = zeros4d( [ 2, 2, 2, 2 ] );
+
+var shapes = [
+    [ 1, 2 ],
+    [ 2, 1 ],
+    [ 1, 1 ],
+    [ 1, 1 ],
+    [ 1, 2, 2, 2 ]
+];
+
+bquaternary4d( [ x, y, z, w, out ], shapes, add );
+// out => [ [ [ [ 11.0, 12.0 ], [ 12.0, 13.0 ] ], [ [ 11.0, 12.0 ], [ 12.0, 13.0 ] ] ] ]
+```
+
+The function accepts the following arguments:
+
+-   **arrays**: array-like object containing two input nested arrays and one output nested array.
+-   **shapes**: array shapes.
+-   **fcn**: quaternary function to apply.
+
+</section>
+
+<!-- /.usage -->
+
+<section class="notes">
+
+## Notes
+
+-   The input and output array shapes must be broadcast [compatible][@stdlib/ndarray/base/broadcast-shapes].
+
+</section>
+
+<!-- /.notes -->
+
+<section class="examples">
+
+## Examples
+
+<!-- eslint no-undef: "error" -->
+
+```javascript
+var discreteUniform = require( '@stdlib/random/base/discrete-uniform' ).factory;
+var filled4dBy = require( '@stdlib/array/base/filled4d-by' );
+var zeros4d = require( '@stdlib/array/base/zeros4d' );
+var add = require( '@stdlib/math/base/ops/add4' );
+var bquaternary4d = require( '@stdlib/array/base/broadcasted-quaternary4d' );
+
+var shapes = [
+    [ 1, 1, 3, 1 ],
+    [ 3, 1, 1, 1 ],
+    [ 1, 1, 1, 3 ],
+    [ 1, 3, 1, 1 ],
+    [ 3, 3, 3, 3 ]
+];
+
+var x = filled4dBy( shapes[ 0 ], discreteUniform( -100, 100 ) );
+console.log( x );
+
+var y = filled4dBy( shapes[ 1 ], discreteUniform( -100, 100 ) );
+console.log( y );
+
+var z = filled4dBy( shapes[ 2 ], discreteUniform( -100, 100 ) );
+console.log( z );
+
+var w = filled4dBy( shapes[ 3 ], discreteUniform( -100, 100 ) );
+console.log( w );
+
+var out = zeros4d( shapes[ 4 ] );
+console.log( z );
+
+bquaternary4d( [ x, y, z, w, out ], shapes, add );
+console.log( out );
+```
+
+</section>
+
+<!-- /.examples -->
+
+<!-- Section for related `stdlib` packages. Do not manually edit this section, as it is automatically populated. -->
+
+<section class="related">
+
+</section>
+
+<!-- /.related -->
+
+<!-- Section for all links. Make sure to keep an empty line after the `section` element and another before the `/section` close. -->
+
+<section class="links">
+
+[@stdlib/array/base/broadcast-array]: https://github.com/stdlib-js/stdlib/tree/develop/lib/node_modules/%40stdlib/array/base/broadcast-array
+
+[@stdlib/ndarray/base/broadcast-shapes]: https://github.com/stdlib-js/stdlib/tree/develop/lib/node_modules/%40stdlib/ndarray/base/broadcast-shapes
+
+</section>
+
+<!-- /.links -->

lib/node_modules/@stdlib/array/base/broadcasted-quaternary4d/benchmark/benchmark.js

@@ -0,0 +1,136 @@
+/**
+* @license Apache-2.0
+*
+* Copyright (c) 2024 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/base/uniform' ).factory;
+var isnan = require( '@stdlib/math/base/assert/is-nan' );
+var pow = require( '@stdlib/math/base/special/pow' );
+var floor = require( '@stdlib/math/base/special/floor' );
+var add = require( '@stdlib/math/base/ops/add4' );
+var filled4dBy = require( '@stdlib/array/base/filled4d-by' );
+var zeros4d = require( '@stdlib/array/base/zeros4d' );
+var numel = require( '@stdlib/ndarray/base/numel' );
+var pkg = require( './../package.json' ).name;
+var bquaternary4d = require( './../lib' );
+
+
+// FUNCTIONS //
+
+/**
+* Creates a benchmark function.
+*
+* @private
+* @param {PositiveIntegerArray} shape - output array shape
+* @returns {Function} benchmark function
+*/
+function createBenchmark( shape ) {
+	var arrays;
+	var shapes;
+	var out;
+	var x;
+	var y;
+	var z;
+	var w;
+
+	shapes = [
+		[ 1, 1, shape[ 2 ] ],
+		[ 1, shape[ 1 ], 1 ],
+		[ shape[ 0 ], 1, 1 ],
+		[ shape[ 0 ], shape[ 1 ], shape[ 2 ] ],
+		shape
+	];
+	x = filled4dBy( shapes[ 0 ], uniform( -100.0, 100.0 ) );
+	y = filled4dBy( shapes[ 1 ], uniform( -100.0, 100.0 ) );
+	z = filled4dBy( shapes[ 2 ], uniform( -100.0, 100.0 ) );
+	w = filled4dBy( shapes[ 3 ], uniform( -100.0, 100.0 ) );
+	out = zeros4d( shapes[ 4 ] );
+
+	arrays = [ x, y, z, w, out ];
+
+	return benchmark;
+
+	/**
+	* Benchmark function.
+	*
+	* @private
+	* @param {Benchmark} b - benchmark instance
+	*/
+	function benchmark( b ) {
+		var i0;
+		var i1;
+		var i2;
+		var i3;
+		var i;
+
+		b.tic();
+		for ( i = 0; i < b.iterations; i++ ) {
+			bquaternary4d( arrays, shapes, add );
+			i3 = i % shapes[ 1 ][ 0 ];
+			i2 = i % shapes[ 1 ][ 1 ];
+			i1 = i % shapes[ 1 ][ 2 ];
+			i0 = i % shapes[ 1 ][ 3 ];
+			if ( isnan( arrays[ 4 ][ i3 ][ i2 ][ i1 ][ i0 ] ) ) {
+				b.fail( 'should not return NaN' );
+			}
+		}
+		b.toc();
+
+		i3 = i % shapes[ 1 ][ 0 ];
+		i2 = i % shapes[ 1 ][ 1 ];
+		i1 = i % shapes[ 1 ][ 2 ];
+		i0 = i % shapes[ 1 ][ 3 ];
+		if ( isnan( arrays[ 4 ][ i3 ][ i2 ][ i1 ][ i0 ] ) ) {
+			b.fail( 'should not return NaN' );
+		}
+		b.pass( 'benchmark finished' );
+		b.end();
+	}
+}
+
+
+// MAIN //
+
+/**
+* Main execution sequence.
+*
+* @private
+*/
+function main() {
+	var min;
+	var max;
+	var sh;
+	var N;
+	var f;
+	var i;
+
+	min = 1; // 10^min
+	max = 6; // 10^max
+
+	for ( i = min; i <= max; i++ ) {
+		N = floor( pow( pow( 10, i ), 1.0/4.0 ) );
+		sh = [ N, N, N, N ];
+		f = createBenchmark( sh );
+		bench( pkg+'::equidimensional:size='+numel( sh ), f );
+	}
+}
+
+main();

lib/node_modules/@stdlib/array/base/broadcasted-quaternary4d/docs/repl.txt

@@ -0,0 +1,33 @@
+
+{{alias}}( arrays, shapes, fcn )
+    Applies a quaternary callback to elements in four broadcasted nested
+    input arrays and assigns results to elements in a four-dimensional
+    nested output array.
+
+    Parameters
+    ----------
+    arrays: ArrayLikeObject
+        Array-like object containing two input nested arrays and one output
+        nested array.
+
+    shapes: Array<Array<integer>>
+        Array shapes.
+
+    fcn: Function
+        Binary callback.
+
+    Examples
+    --------
+    > function fcn( x, y, z, w ) { return x + y + z + w; };
+    > var x = [ 1.0, 2.0 ];
+    > var y = [ [ 3.0 ], [ 4.0 ] ];
+    > var z = [ [ 5.0 ] ];
+    > var w = [ 1.0 ];
+    > var out = [ [ [ [ 0.0, 0.0 ], [ 0.0, 0.0 ] ] ] ];
+    > var shapes = [ [ 2 ], [ 2, 1 ], [ 1, 1 ], [ 1 ], [ 1, 1, 2, 2 ] ];
+    > {{alias}}( [ x, y, z, w, out ], shapes, fcn );
+    > out
+    [ [ [ [ 10.0, 11.0 ], [ 11.0, 12.0 ] ] ] ]
+
+    See Also
+    --------