Mlp.auto.h

Go to the documentation of this file.

#undef  __ae2f_MACRO_GENERATED
#define __ae2f_MACRO_GENERATED  1
#ifndef Mlp_h
#define Mlp_h
 
#include "./Slp.auto.h"
#undef __ae2f_MACRO_GENERATED
#define __ae2f_MACRO_GENERATED 1
 
typedef void clMlpGetHD1_t(
        ae2f_float_t* const     r_delta,
 
        const ae2f_float_t* const   i_weight,
        const ae2f_float_t* const   i_delta,
 
        const size_t            i_iidx,
        const size_t            i_isz,
        const size_t            i_oidx,
        const size_t            i_osz
        );
 
/** 
 * @brief 
 * delta to delta 
 * Propagate
 *
 * @inp aka out_then
 * @deltaseed 
 * */
#define _clMlpRvrse(
    /** tparam */
 
 
    /** param */
        /*    ,   ae2f_float_t */ v_tmp,
        /*     ae2f_float_t*   const */ r_delta_then,
        /*      const   size_t */ i_oidx,
        /*     const   size_t */ i_iidx,
        /*     const   size_t */ i_isz,
        /*        ae2f_AnnAct_t */ i_actderiv_then,
        /*      constae2f_float_t*  const */ i_inp,
        /*     constae2f_float_t*  const    */ i_deltaseed \
)\
{
    if((i_iidx) < (i_isz) && !(i_oidx)) {
        i_actderiv_then(&(v_tmp), (i_inp)[i_iidx]);
        (r_delta_then)[i_iidx] = (v_tmp) * (i_deltaseed)[i_iidx];
    } \
}
 
#define _clMlpGetHD1_Q(
    /** tparam */
 
 
    /** param */
        /*    ,ae2f_float_t*   const */ r_delta_then,
        /*      constae2f_float_t*  const */ i_weight,
        /*     constae2f_float_t*  const */ i_delta,
        /*      const   size_t */ i_iidx,
        /*     const   size_t */ i_isz,
        /*     const   size_t */ i_oidx,
        /*     const   size_t    */ i_osz \
)\
{
    if((i_oidx) < (i_osz) && (i_iidx) < (i_isz)) {
        (r_delta_then)[(i_iidx)]
            = work_group_reduce_add(
                    (i_weight)[(i_isz) * (i_oidx) + (i_iidx)] * (i_delta)[i_oidx]
                    );
    } \
}
 
#define _clMlpGetHD1(
    /** tparam */
 
 
    /** param */
        /*    ,ae2f_float_t*   const */ r_delta_then,
        /*      constae2f_float_t*  const */ i_weight,
        /*     constae2f_float_t*  const */ i_delta,
        /*      const   size_t */ i_iidx,
        /*     const   size_t */ i_isz,
        /*     const   size_t */ i_oidx,
        /*     const   size_t    */ i_osz \
)\
{
    if((i_oidx) == 0 && (i_iidx) < (i_isz)) {
        size_t v_oidx = (i_osz);
        ae2f_float_t    v_ret = 0;
 
        while((v_oidx)--) {
            (v_ret) += (i_weight)[(i_isz) * (v_oidx) + (i_iidx)] * (i_delta)[(v_oidx)];
        }
 
        (r_delta_then)[(i_iidx)] = (v_ret);
    } \
}
 
#define _clMlpGetHD(
    /** tparam */
 
 
    /** param */
        /*    ,  clMlpGetHD1_t */ ONE,
        /*    ae2f_float_t*   const */ r_delta_then,
        /*      constae2f_float_t*  const */ i_weight,
        /*     constae2f_float_t*  const */ i_delta,
        /*      const   size_t */ i_iidx,
        /*     const   size_t */ i_isz,
        /*     const   size_t */ i_oidx,
        /*     const   size_t    */ i_osz \
)\
{
    if((i_iidx) < (i_isz) && (i_oidx) < (i_osz)) {
        ONE(r_delta_then, i_weight, i_delta, i_iidx, i_isz, i_oidx, i_osz);
    } \
}
 
/** @brief GetHidDelta Need no structure. */
#define clMlpGetHD(...) _clMlpGetHD(CL_Q_CVRT(_clMlpGetHD1), __VA_ARGS__)
 
 
#endif
 
#undef  __ae2f_MACRO_GENERATED
 
#define __ae2f_MACRO_GENERATED  0