https://github.com/cran/soobench
Tip revision: 81acd25d0a6c5bebba5e330b793ab525b3afd415 authored by Eric Kalosa-Kenyon on 09 February 2020, 15:30:02 UTC
version 1.9.18
version 1.9.18
Tip revision: 81acd25
f_generalized_maxq.c
#include "soobench.h"
const double f_generalized_maxq(const double *x, const size_t n) {
double max = x[0] * x[0];
size_t i;
for (i = 1; i < n; ++i) {
const double tmp = x[i] * x[i];
if (tmp > max)
max = tmp;
}
return max;
}