Max 5 API Reference

jit.distance.euclidean.c

/*
 *  jit.distance.euclidean.c
 *
 *  Copyright 2001-2005 - Cycling '74
 *  Derek Gerstmann - derek@cycling74.com
 *
 *  functor for calculating euclidean distance
 *
 */

#include "jit.common.h"
#include "jit.functor.h"

// --------------------------------------------------------------------------

typedef struct _jit_functor_distance_euclidean
{
    t_jit_object    ob;

} t_jit_functor_distance_euclidean;

// --------------------------------------------------------------------------

t_jit_object *jit_functor_distance_euclidean_new(void);
t_jit_err jit_functor_distance_euclidean_free(t_jit_functor_distance_euclidean *x);
t_jit_err jit_functor_distance_euclidean_recalc(t_jit_functor_distance_euclidean *x);

long jit_functor_distance_euclidean_eval_fixed(t_jit_functor_distance_euclidean *x, long dimcount, long *vals);
float jit_functor_distance_euclidean_eval_float32(t_jit_functor_distance_euclidean *x, long dimcount, float *vals);
double jit_functor_distance_euclidean_eval_float64(t_jit_functor_distance_euclidean *x, long dimcount, double *vals);

t_class *_jit_functor_distance_euclidean_class;

// --------------------------------------------------------------------------

t_jit_err jit_functor_distance_euclidean_init(void)
{
    t_jit_object *attr;

    // create class
    _jit_functor_distance_euclidean_class = jit_class_new("jit_functor_distance_euclidean",
        (method)jit_functor_distance_euclidean_new,(method)jit_functor_distance_euclidean_free,
        sizeof(t_jit_functor_distance_euclidean),0L);

    // add evaluation methods
    jit_class_addmethod(_jit_functor_distance_euclidean_class, 
        (method)jit_functor_distance_euclidean_eval_fixed, "evalfixed", A_CANT, 0L);
    jit_class_addmethod(_jit_functor_distance_euclidean_class, 
        (method)jit_functor_distance_euclidean_eval_float32, "evalfloat32", A_CANT, 0L);
    jit_class_addmethod(_jit_functor_distance_euclidean_class, 
        (method)jit_functor_distance_euclidean_eval_float64, "evalfloat64", A_CANT, 0L);

    // add to functor registry
    jit_functor_setup_class(_jit_functor_distance_euclidean_class,"distance","euclidean");
    jit_class_register(_jit_functor_distance_euclidean_class);

    return JIT_ERR_NONE;
}

// --------------------------------------------------------------------------

t_jit_object *jit_functor_distance_euclidean_new(void)
{
    t_jit_functor_distance_euclidean *x;

    if (x = (t_jit_functor_distance_euclidean *)jit_object_alloc(_jit_functor_distance_euclidean_class)) {
        // initialization
        jit_functor_distance_euclidean_recalc(x);
    }

    return (t_jit_object *)x;
}

t_jit_err jit_functor_distance_euclidean_free(t_jit_functor_distance_euclidean *x)
{
    return JIT_ERR_NONE;
}

// --------------------------------------------------------------------------

t_jit_err jit_functor_distance_euclidean_recalc(
    t_jit_functor_distance_euclidean *x)
{
    // calculate intermediary values for efficiency
    return JIT_ERR_NONE;
}

long jit_functor_distance_euclidean_eval_fixed(
    t_jit_functor_distance_euclidean *x, long dimcount, long *vals)
{
    return jit_functor_eval_fixed_with_float32((t_jit_object *)x,dimcount,vals,
            (t_jit_functor_float32_sig)jit_functor_distance_euclidean_eval_float32);
}

float jit_functor_distance_euclidean_eval_float32(
    t_jit_functor_distance_euclidean *x, long dimcount, float *vals)
{
    long i;
    float rval = vals[0] * vals[0];

    for (i = 1; i < dimcount; i++) {
        rval += vals[i] * vals[i];
    }

    return jit_math_sqrt(rval);
}

double jit_functor_distance_euclidean_eval_float64(
    t_jit_functor_distance_euclidean *x, long dimcount, double *vals)
{
    long i;
    double rval= vals[0] * vals[0];

    for (i = 1; i < dimcount; i++) {
        rval += vals[i] * vals[i];
    }
    
    return jit_math_sqrt(rval);
}

// --------------------------------------------------------------------------

Copyright © 2008, Cycling '74