Skip to content

Commit 741edb9

Browse files
committed
feat: add the C src files
1 parent aaf7299 commit 741edb9

File tree

4 files changed

+197
-0
lines changed

4 files changed

+197
-0
lines changed
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,43 @@
1+
/**
2+
* @license Apache-2.0
3+
*
4+
* Copyright (c) 2025 The Stdlib Authors.
5+
*
6+
* Licensed under the Apache License, Version 2.0 (the "License");
7+
* you may not use this file except in compliance with the License.
8+
* You may obtain a copy of the License at
9+
*
10+
* http://www.apache.org/licenses/LICENSE-2.0
11+
*
12+
* Unless required by applicable law or agreed to in writing, software
13+
* distributed under the License is distributed on an "AS IS" BASIS,
14+
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
15+
* See the License for the specific language governing permissions and
16+
* limitations under the License.
17+
*/
18+
19+
#ifndef STDLIB_STATS_BASE_DISTS_HYPERGEOMETRIC_KURTOSIS_H
20+
#define STDLIB_STATS_BASE_DISTS_HYPERGEOMETRIC_KURTOSIS_H
21+
22+
/*
23+
* If C++, prevent name mangling so that the compiler emits a binary file having undecorated names, thus mirroring the behavior of a C compiler.
24+
*/
25+
#ifdef __cplusplus
26+
extern "C" {
27+
#endif
28+
29+
/**
30+
* Returns the excess kurtosis of a hypergeometric distribution with population size `N`, subpopulation size `K`, and number of draws `n`.
31+
*
32+
* @param N population size
33+
* @param K subpopulation size
34+
* @param n number of draws
35+
* @return kurtosis of the distribution
36+
*/
37+
double stdlib_base_dists_hypergeometric_kurtosis( const double N, const double K, const double n );
38+
39+
#ifdef __cplusplus
40+
}
41+
#endif
42+
43+
#endif // !STDLIB_STATS_BASE_DISTS_HYPERGEOMETRIC_KURTOSIS_H
Lines changed: 70 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,70 @@
1+
#/
2+
# @license Apache-2.0
3+
#
4+
# Copyright (c) 2025 The Stdlib Authors.
5+
#
6+
# Licensed under the Apache License, Version 2.0 (the "License");
7+
# you may not use this file except in compliance with the License.
8+
# You may obtain a copy of the License at
9+
#
10+
# http://www.apache.org/licenses/LICENSE-2.0
11+
#
12+
# Unless required by applicable law or agreed to in writing, software
13+
# distributed under the License is distributed on an "AS IS" BASIS,
14+
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
15+
# See the License for the specific language governing permissions and
16+
# limitations under the License.
17+
#/
18+
19+
# VARIABLES #
20+
21+
ifndef VERBOSE
22+
QUIET := @
23+
else
24+
QUIET :=
25+
endif
26+
27+
# Determine the OS ([1][1], [2][2]).
28+
#
29+
# [1]: https://en.wikipedia.org/wiki/Uname#Examples
30+
# [2]: http://stackoverflow.com/a/27776822/2225624
31+
OS ?= $(shell uname)
32+
ifneq (, $(findstring MINGW,$(OS)))
33+
OS := WINNT
34+
else
35+
ifneq (, $(findstring MSYS,$(OS)))
36+
OS := WINNT
37+
else
38+
ifneq (, $(findstring CYGWIN,$(OS)))
39+
OS := WINNT
40+
else
41+
ifneq (, $(findstring Windows_NT,$(OS)))
42+
OS := WINNT
43+
endif
44+
endif
45+
endif
46+
endif
47+
48+
49+
# RULES #
50+
51+
#/
52+
# Removes generated files for building an add-on.
53+
#
54+
# @example
55+
# make clean-addon
56+
#/
57+
clean-addon:
58+
$(QUIET) -rm -f *.o *.node
59+
60+
.PHONY: clean-addon
61+
62+
#/
63+
# Removes generated files.
64+
#
65+
# @example
66+
# make clean
67+
#/
68+
clean: clean-addon
69+
70+
.PHONY: clean
Lines changed: 23 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,23 @@
1+
/**
2+
* @license Apache-2.0
3+
*
4+
* Copyright (c) 2025 The Stdlib Authors.
5+
*
6+
* Licensed under the Apache License, Version 2.0 (the "License");
7+
* you may not use this file except in compliance with the License.
8+
* You may obtain a copy of the License at
9+
*
10+
* http://www.apache.org/licenses/LICENSE-2.0
11+
*
12+
* Unless required by applicable law or agreed to in writing, software
13+
* distributed under the License is distributed on an "AS IS" BASIS,
14+
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
15+
* See the License for the specific language governing permissions and
16+
* limitations under the License.
17+
*/
18+
19+
#include "stdlib/math/base/napi/ternary.h"
20+
#include "stdlib/stats/base/dists/hypergeometric/kurtosis.h"
21+
22+
// cppcheck-suppress shadowFunction
23+
STDLIB_MATH_BASE_NAPI_MODULE_DDD_D( stdlib_base_dists_hypergeometric_kurtosis )
Lines changed: 61 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,61 @@
1+
/**
2+
* @license Apache-2.0
3+
*
4+
* Copyright (c) 2025 The Stdlib Authors.
5+
*
6+
* Licensed under the Apache License, Version 2.0 (the "License");
7+
* you may not use this file except in compliance with the License.
8+
* You may obtain a copy of the License at
9+
*
10+
* http://www.apache.org/licenses/LICENSE-2.0
11+
*
12+
* Unless required by applicable law or agreed to in writing, software
13+
* distributed under the License is distributed on an "AS IS" BASIS,
14+
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
15+
* See the License for the specific language governing permissions and
16+
* limitations under the License.
17+
*/
18+
19+
#include "stdlib/math/base/assert/is_nonnegative_integer.h"
20+
#include "stdlib/constants/float64/pinf.h"
21+
22+
/**
23+
* Returns the excess kurtosis of a hypergeometric distribution.
24+
*
25+
* @param N population size
26+
* @param K subpopulation size
27+
* @param n number of draws
28+
* @return kurtosis of the distribution, or NaN if inputs are invalid
29+
*
30+
* @example
31+
* double k = stdlib_base_dists_hypergeometric_kurtosis( 16, 11, 4 );
32+
* // returns ~-0.326
33+
*
34+
* @example
35+
* double k = stdlib_base_dists_hypergeometric_kurtosis( 4, 2, 2 );
36+
* // returns 0.0
37+
*
38+
* @example
39+
* double k = stdlib_base_dists_hypergeometric_kurtosis( 10, 5, 12 );
40+
* // returns NaN
41+
*/
42+
double stdlib_base_dists_hypergeometric_kurtosis( const double N, const double K, const double n ) {
43+
if (
44+
!stdlib_base_is_nonnegative_integer( N ) ||
45+
!stdlib_base_is_nonnegative_integer( K ) ||
46+
!stdlib_base_is_nonnegative_integer( n ) ||
47+
N == STDLIB_CONSTANT_FLOAT64_PINF ||
48+
K == STDLIB_CONSTANT_FLOAT64_PINF ||
49+
K > N ||
50+
n > N
51+
) {
52+
return NAN;
53+
}
54+
55+
double p = (N - 1) * (N * N) * ((N * (N + 1)) - (6 * K * (N - K)) - (6 * n * (N - n)));
56+
p += 6.0 * n * K * (N - K) * (N - n) * ((5.0 * N) - 6.0);
57+
58+
double q = n * K * (N - K) * (N - n) * (N - 2) * (N - 3);
59+
60+
return p / q;
61+
}

0 commit comments

Comments
 (0)