// Downloaded From https://www.WiseStockTrader.com
P = Param("EMA PERIOD",20,2,90,1);
q = Param("WINDOW SIZE FOR CALCULATING SLOPE", 1,1,20,1);
r = Param("SLOPE CHANGE SMOOTHING FACTOR",5,1,50,1);
e = EMA(C, P);
Slope = atan((e - Ref(e,-q)) / (q * 3.14159265)) * 180;
m = MA(Slope,r);
Plot(Slope,"Slope", IIf(Slope>0,colorBlue,colorRed),styleHistogram|styleThick);
Plot(m,"Direction",IIf(m>Ref(m,-1),colorBlue,colorRed),styleThick);