// Downloaded From https://www.WiseStockTrader.com
DMISTOPer = Param("DMISTOPer", 10,2,100,1);
STOPer23= Param("STOPer23", 3,2,10,1);
SMAPer= Param("SMAPer", 27,3,100,1);
BuyLevel= Param("BuyLevel", 9,2,20,1);
ShortLevel= Param("ShortLevel", 85,80,98,1);
DD= PDI(DMISTOPer )-MDI(DMISTOPer);
HV=HHV(DD,DMISTOPer);
LV=LLV(DD,DMISTOPer);
KFast = 100*(DD-LV)/(HV-LV);
KSlow= MA(KFAST,StoPer23);
pctD= MA(KSlow,StoPer23);

Buysig=Cross(KSLOW,PCTD) AND (C>MA(C,SMAPER)) AND (PCTD<BuyLEVEL);
SHORTSIG=Cross(PCTD,KSLOW) AND (C<MA(C,SMAPER)) AND (PCTD>BuyLEVEL);

Plot(KSlOW,"%KSlow", colorBlue, styleLine | styleThick);
Plot(pctd,"%DSlow", colorViolet, styleLine | styleThick);
Plot(Buylevel,"Buylevel", colorGreen, styleLine | styleThick);
Plot(Shortlevel,"Shortlevel", colorRed, styleLine | styleThick);

IIf (Buysig==1, PlotShapes(shapeUpTriangle*Buysig,colorBrightGreen), 0);
IIf (shortsig==1, PlotShapes(shapeDownTriangle*Shortsig,colorRed), 0);