13 #define SIZE_THRESHOLD 32
15 static int dcmp(
const void *aa,
const void *bb)
27 static double mode(
double *value,
int argc)
38 qsort(value, argc,
sizeof(
double), dcmp);
40 for (i = 0; i < argc;) {
44 for (i++; i < argc; i++) {
60 int f_mode(
int argc,
const int *argt,
void **args)
63 double *value = stack_value;
64 bool use_heap =
false;
65 int size = argc *
sizeof(double);
71 for (i = 1; i <= argc; i++)
72 if (argt[i] != argt[0])
88 for (j = 0; j < argc && !nv; j++) {
92 value[j] = (double)argv[j][i];
98 res[i] = (
CELL)mode(value, argc);
106 FCELL *res = args[0];
109 for (i = 0; i <
columns; i++) {
112 for (j = 0; j < argc && !nv; j++) {
116 value[j] = (double)argv[j][i];
122 res[i] = (
FCELL)mode(value, argc);
130 DCELL *res = args[0];
133 for (i = 0; i <
columns; i++) {
136 for (j = 0; j < argc && !nv; j++) {
140 value[j] = (double)argv[j][i];
146 res[i] = (
DCELL)mode(value, argc);
void G_free(void *)
Free allocated memory.
int f_mode(int argc, const int *argt, void **args)