c_thresh.c

Go to the documentation of this file.

#include <grass/gis.h>
#include <math.h>

void c_thresh(DCELL * result, DCELL * values, int n, const void *closure)
{
    DCELL thresh, threshx;
    double tval = *(const double *)closure;
    double epsilon = GRASS_EPSILON;
    int i;

    G_set_d_null_value(&thresh, 1);
    G_set_d_null_value(&threshx, 1);

    for (i = 0; i < n; i++) {
        /* already found */
        if (! G_is_d_null_value(&threshx))
            continue;

        if (G_is_d_null_value(&values[i]))
            continue;

        G_debug(2, "values[%d] %f, tval %f", i, values[i], tval);
        /* for GDD */
        epsilon = 10.;
        if (fabs(tval - values[i]) < epsilon ) {
            thresh = values[i];
            threshx = i + 1;
            G_debug(2, "values[%d] %f, thresh %f, threshx %f, diff %f", i, values[i], thresh, threshx, tval - values[i]);
        }
    }

    if (G_is_d_null_value(&threshx))
        G_set_d_null_value(result, 1);
    else
        *result = threshx;
}