********************* P heating regulator sample code ***********************/
// Input temperature in degree - t_measure variable -127..127
// Setup temperature in degree - t_setup variable   -127..127
// output value = 0 - cold, 100 - full hot 100%
// one input variable

#define IN_COLD     -10
#define IN_HOT      0

#define OUT_COLD    0
#define OUT_HOT     100

#define NULL_PARAM      (0)


// Input fuzzification rules
//          name,     ffunc,    [n],  a,        b,      c,              next       
MAKE_FFUNC (d_cold,   low,      0,    IN_COLD,  IN_HOT, NULL_PARAM,     d_hot);   // холодно     
MAKE_FFUNC (d_hot,    high,     0,    IN_COLD,  IN_HOT, NULL_PARAM,     d_cold);  // тепло

// Output fuzzy rules
//        name,     A,      OPER,   B,        fin,       output,    next rule
MAKE_RULE (rule_01, d_cold, F_A,    d_cold,   true,      OUT_HOT,   rule_02);   // греем
MAKE_RULE (rule_02, d_hot,  F_A,    d_hot,    true,      OUT_COLD,  rule_01);   // не греем

int8_t in_scaling (int16_t in)
{
    return (lim_s8 (in));   // no need input scaling
}

int16_t out_scaling (int8_t out)
{
    return (int16_t)out;    // no need output scaling
}


int16_t heat_control (int16_t t_measure, int16_t t_setup)
{
    static int8_t delta_in;
    static int8_t out_control;
    int16_t delta16;
    fuzzy_param fuzzy =
    {
        .in_array    = &delta_in,   // входная переменная
        .start_ffunc = &d_cold,     // первое правило фуззификации
        .start_rule  = &rule_01,    // первое правило управления
    };

    delta16 = t_setup - t_measure;
    delta_in = in_scaling (delta16);
    out_control = process_fuzzy_logic (&fuzzy);
    return (out_scaling (out_control));
}

/****************** end ******************************************************/