_SECTION_BEGIN("Kill The Operator MACD");
SetChartBkColor(ParamColor("Panel color ",colorBlack));
r1 = Param( "Fast avg", 12, 2, 200, 1 );
r2 = Param( "Slow avg", 26, 2, 200, 1 );
r3 = Param( "Signal avg", 9, 2, 200, 1 );
Plot( ml = MACD(r1, r2), StrFormat(_SECTION_NAME()+"(%g,%g)", r1, r2), ParamColor("MACD color", colorRed ), ParamStyle("MACD style") );
Plot( sl = Signal(r1,r2,r3), "Signal" + _PARAM_VALUES(), ParamColor("Signal color", colorBlue ), ParamStyle("Signal style") );
Histogram_color = IIf( ml-sl > 0, colorBlue, colorRed);
Plot( ml-sl, "MACD Histogram", Histogram_color, styleNoTitle | ParamStyle("Histogram style", styleHistogram | styleThick | styleNoLabel, maskHistogram ) );
Title = EncodeColor(colorWhite)+ "Kill The Operator MACD";
x = ml;
y = sl;
Buy=Cross(x,y);
PlotShapes(shapeUpArrow*Buy,colorBlue);
Sell=Cross(y,x);
PlotShapes(shapeDownArrow*Sell,colorYellow);
AlertIf( Buy, "SOUND C:\\Windows\\Media\\notify.wav", "Audio alert", 2 );
AlertIf( Sell, "SOUND C:\\Windows\\Media\\chord.wav", "Audio alert", 2 );
_SECTION_END();
_SECTION_BEGIN("Trend Filters");
//--modified by Kelvinhand
procedure PlotRMORibbon(tf, Level, ColorUP, ColorDN, ColorNT)
{
TimeFrameSet(tf);
SwTrd1 =100 * (Close - ((MA(C,2)+
MA(MA(C,2),2)+
MA(MA(MA(C,2),2),2) +
MA(MA(MA(MA(C,2),2),2),2) +
MA(MA(MA(MA(MA(C,2),2),2),2),2) +
MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2) +
MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2),2)+
MA(MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2),2),2)+
MA(MA(MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2),2), 2),2)+
MA(MA(MA(MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2), 2),2),2),2))
/10))/(HHV(C,10)-LLV(C,10));
//SwTrd2=EMA(SwTrd1,13);
//SwTrd3=EMA(SwTrd2,13);
RMO= EMA(SwTrd1,34);
Bull_Trend=RMO>0;
Bear_Trend=RMO<0;
TimeFrameRestore();
RibbonColor=IIf(TimeFrameExpand(Bull_Trend,tf),colorUp, IIf(TimeFrameExpand(Bear_Trend,tf),ColorDn, ColorNT));
Plot(Level, "ribbon"+tf, RibbonColor, styleOwnScale|styleArea|styleNoLabel, -0.5,100,0, -1);
}
PlotRMORibbon(in15Minute, 2,colorBlue, colorRed,colorBlack);
PlotRMORibbon(10*in1Minute,4,colorBlue, colorRed,colorBlack);
PlotRMORibbon(Interval(), 6,colorBlue, colorRed,colorBlack);
_SECTION_END();