safe_max (Core Functions)


Import

#include <archr/core/safe_max.h>
#include <archr/core/safe_max.hpp>
import archr.core
atomsLoads('archr')

Synopsis

 float archr_core_safe_max_1f32(const float i1);
(1)
 double archr_core_safe_max_1f64(const double i1);
(2)
 void archr_core_safe_max_f32(float *o0, const float *i1, size_t sz);
(3)
 void archr_core_safe_max_f64(double *o0, const double *i1, size_t sz);
(4)
 float safe_max(const float i1);
(1)
 double safe_max(const double i1);
(2)
 void safe_max(const float *i1, size_t sz, float *o0);
(3)
 void safe_max(const double *i1, size_t sz, double *o0);
(4)
template <typename Range> void safe_max(const Range& i1, Range& o0);
(5)
subroutine archr_core_safe_max_1f32(real(4) :: r, real(4), parameter :: i1)
(1)
subroutine archr_core_safe_max_1f64(real(8) :: r, real(8), parameter :: i1)
(2)
subroutine archr_core_safe_max_f32(real(4), dimension(*), parameter :: i1, integer(4) :: sz, real(4), dimension(*) :: o0)
(3)
subroutine archr_core_safe_max_f64(real(8), dimension(*), parameter :: i1, integer(4) :: sz, real(8), dimension(*) :: o0)
(4)
def safe_max(i1):
    return o0
(1)
function o0 = archr_core_safe_max(i1)
(1)

Description

Computes the safe_max:

Parameters

i1_first, i1_last

The range of input elements

o0

The beginning of the destination range, may be equal to i1

i1

The scalar/contiguous data input element

Example


#include <time.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>
#include <stddef.h>
#include <archr/core/safe_max.h>

double rand_in(double min, double max) {
  return min + ((double)(max - min) * ((double)rand() / RAND_MAX));
}

int main() {
  time_t t;
  size_t i;
  size_t sz = 10;
  float* i1 = (float*)malloc(sz * sizeof(float));
  float* o1 = (float*)malloc(sz * sizeof(float));

  srand((unsigned int)time(&t));
  for (i = 0; i < sz; ++i) {
    i1[i] = (float)rand_in((float)-10, (float)10);
  }
  archr_core_safe_max_f32(o1, i1, sz);
  for (i = 0; i < sz; ++i) {
    printf("%4lu: safe_max(%f) = %f\n", i, (double)i1[i], (double)o1[i]);
  }
}

Possible Output

   0: safe_max(-3.466457) = 5321497739970740224.000000
   1: safe_max(0.007624) = 2419657416046647705600.000000
   2: safe_max(2.723485) = 6773212079181529088.000000
   3: safe_max(8.514454) = 2166520867201220608.000000
   4: safe_max(-6.434300) = 2866938361396854784.000000
   5: safe_max(-3.718313) = 4961051989862514688.000000
   6: safe_max(-7.909604) = 2332195279274508288.000000
   7: safe_max(-4.880131) = 3779968419055534080.000000
   8: safe_max(-8.887694) = 2075537379514384384.000000
   9: safe_max(-2.049582) = 9000247042718564352.000000

#include <ctime>
#include <cstdio>
#include <cstdlib>
#include <cstdint>
#include <cstddef>
#include <vector>
#include <algorithm>
#include <iomanip>
#include <iostream>
#include <archr/core/safe_max.hpp>

double rand_in(double min, double max) {
  return min + (double(max - min) * (double(std::rand()) / RAND_MAX));
}

int main() {
  std::size_t i;
  std::size_t sz = 10;
  std::vector<float> i1(sz);
  std::vector<float> o1(sz);

  std::srand(std::time(0));
  std::generate(i1.begin(), i1.end(), []() { return rand_in(float(-10), float(10)); });
  archr::core::safe_max(i1.data(), sz, o1.data());
  for (i = 0; i < sz; ++i) {
    std::cout << std::setw(4) << i << ": " << "safe_max" << "(" << i1[i] << ")" << " = " << o1[i] << std::endl;
  }
}

Possible Output

   0: safe_max(-3.46646) = 5.3215e+18
   1: safe_max(0.0076237) = 2.41966e+21
   2: safe_max(2.72348) = 6.77321e+18
   3: safe_max(8.51445) = 2.16652e+18
   4: safe_max(-6.4343) = 2.86694e+18
   5: safe_max(-3.71831) = 4.96105e+18
   6: safe_max(-7.9096) = 2.3322e+18
   7: safe_max(-4.88013) = 3.77997e+18
   8: safe_max(-8.88769) = 2.07554e+18
   9: safe_max(-2.04958) = 9.00025e+18

program main
  integer(4), parameter  :: sz = 10
  real(4), dimension(sz) :: o0
  real(4), dimension(sz) :: i0
  real(8)                :: r0, r1
  real(8)                :: min0, max0
  real(8)                :: min1, max1
  real(8)                :: min2, max2
  ! Init:
    min0 = -10
    max0 = 10
  do i=1,sz
    r0 = random_in(min0, max0)
    i0(i) = r0
  end do
  ! Example:
  call archr_core_safe_max_f32(o0, i0, size(i0))
  ! Output:
  do i=1,sz
    print *, i, ": ", o0(i)
  end do
contains
  ! Generate a random number within a range
  function random_in(mn, mx) result(r)
    real(8) :: r
    real(8), intent(in) :: mn, mx
    r = mn + (rand() * (mx - mn))
  end function random_in
end program

Possible Output

           1 :    1.84470233E+18
           2 :    2.50320590E+18
           3 :    3.60844378E+18
           4 :    2.23056736E+19
           5 :    2.81483047E+19
           6 :    3.28186051E+18
           7 :    2.03626434E+18
           8 :    5.15662542E+18
           9 :    5.14420699E+18
          10 :    2.12181335E+18