// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Trend Check");

p= Param("shortperiods",15,2,300,1);

e1= EMA(C,p);

p2= Param("medperiods",25,2,300,1);

e2= EMA(C,p2);

p3= Param("longperiods",35,2,300,1);

e3= EMA(C,p3);

d1= e1-e2;

d2= e2-e3;

df= d1-d2;

Plot(d1,"Minor",IIf(d1>Ref(d1,-1) AND d1>d2,colorGreen,IIf(d1>Ref(d1,-1) AND d1<d2,colorYellow,IIf(d1<Ref(d1,-1) AND d1<d2,colorRed,IIf(d1<Ref(d1,-1) AND d1>d2,colorYellow,colorBlue)))),styleLine);
Plot(d2,"Major",IIf(d2>Ref(d2,-1) AND d1>d2,colorGreen,IIf(d2>Ref(d2,-1) AND d1<d2,colorYellow,IIf(d2<Ref(d2,-1) AND d1<d2,colorRed,IIf(d2<Ref(d2,-1) AND d1>d2,colorYellow,colorBlue)))),styleLine);
Plot(df,"Trend",IIf(df>Ref(df,-1) AND df>0,colorGreen,IIf(df>Ref(df,-1) AND df<0,colorYellow,IIf(df<Ref(df,-1) AND df<0,colorRed,colorYellow))),styleHistogram);

_SECTION_END();