inputs: length(12),
        averageType(2);
vars: swing (0);

switch (AverageType) begin
case 1: // SMA
    value1 = Average(high, length);
    value2 = Average(low, length);
case 2: // EMA
    value1 = XAverage(high,length);
    value2 = XAverage(low,length);
case 3: // DEMA
    value1 = _DEMA(high,length);
    value2 = _DEMA(low,length);
//case 4: // HULL
    //value1 = _HMA(high,length);
    //value2 = _HMA(low,length);
case 5: // WMA
    value1 = WAverage(high, length);
    value2 = WAverage(low, length);
default: // default to EMA
    value1 = XAverage(high,length);
    value2 = XAverage(low,length);
end;

if CurrentBar > length then begin

    if close < value2[1] and close[1] >= value2[2] then 
        swing = -1
    else if close > value1[1] and close[1] <= value1[2] then 
        swing = 1 
    else swing = swing[1];
end;

if swing = -1 then value3 = value1 else if swing = 1 then value3 = value2 else if swing[1] = -1 then value3 = value1 else if swing[1] = 1 then value3 = value2;

Plot1( value1, "Rising" );
Plot2( value1, "Falling" );

value4 = iff(swing=-1, GetPlotColor(1), GetPlotColor(2));

Plot3( value3, "EMA", value4);

NoPlot(1);
NoPlot(2);

inputs:
    Price(NumericSeries),
    Length(NumericSimple);

variables: 
    float emaPrice(0),
    float emaEmaPrice(0);                    

emaPrice = _xAverage(price, length);
emaEmaPrice = _xAverage(emaPrice, length);

_DEMA = 2 * emaPrice - emaEmaPrice;