https://github.com/cran/soobench
Raw File
Tip revision: 81acd25d0a6c5bebba5e330b793ab525b3afd415 authored by Eric Kalosa-Kenyon on 09 February 2020, 15:30:02 UTC
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;
}
back to top