// Downloaded From https://www.WiseStockTrader.com Title =" "; ///Coded By Joby Kumar /// Jobyk518@gmail.com _SECTION_BEGIN("Trend Cacther"); VAR1 = Param("Var1", 10, 1, 50, 1); VAR2 = Param("Var2", 4, 0.5, 10, 0.5); AVAR1=(High + Low)/2 - VAR2 * ATR(VAR1); AVAR2=(High + Low)/2 + VAR2 * ATR(VAR1); FLAG1 = False; FLAG2 = False; VAR3= Null; VAR4 = Null; AVAR3 = Null; AVAR3[VAR1-1] = 0; AVAR4 = Null; AVAR4[VAR1-1] = 0; AVART1 = Null; AVART2 = Null; for(i = VAR1; i < BarCount; i++) { //Buy Signal Generation if(AVAR4[i-1] < Close[i-1] && FLAG1 == False) { AVART1[i] = True; FLAG1 = True; VAR3 = AVAR1[i]; } else { AVART1[i] = False; } //Trailing Stop Loss Buy if(FLAG1 == True) { if(VAR3 < AVAR1[i]) { VAR3 = AVAR1[i]; } AVAR3[i] = VAR3; } else { AVAR3[i] = Null; } //Short Signal Generation if(AVAR3[i-1] > Close[i-1] && FLAG1 == True) { AVART2[i] = True; FLAG1 = False; VAR4 = AVAR2[i]; } else { AVART2[i] = False; } //Trailing Stop Loss Short if(FLAG1 == False) { if(VAR4 > AVAR2[i]) { VAR4 = AVAR2[i]; } AVAR4[i] = VAR4; } else { AVAR4[i] = Null; } } Buy = ExRem(AVART1, AVART2); Short = ExRem(AVART2, AVART1); Sell = Short; Cover = Buy; Candlecol=IIf(BarsSince(Buy)BarsSince(Short) AND BarsSince(Short)!=0,4,1)); cc1=IIf(Buy,colorBlue,IIf(Short,colorRed,Candlecol)); SetBarFillColor(Cc1); Plot( C, "Price", colorDefault, styleCandle ); AVAR10 = IIf(IsNull(AVAR3), L - 0.1, AVAR3); AVAR11 = IIf(IsNull(AVAR4), H + 0.1, AVAR4); Plot(AVAR10, "SL1", IIf(IsNull(AVAR3), colorBlack, colorBrightGreen), styleStaircase|styleDashed); Plot(AVAR11, "SL2", IIf(IsNull(AVAR4), colorBlack, colorOrange), styleStaircase|styleDashed); Buyshape = Buy * shapeUpArrow; SellShape = Sell * shapeDownArrow; PlotShapes( Buyshape, colorBrightGreen, 0, Low ); PlotShapes( SellShape, colorRed, 0, High ); Shortshape = Short * shapeDownArrow; CoverShape = Cover * shapeUpArrow; PlotShapes( Shortshape, colorOrange, 0, High, -30); PlotShapes( CoverShape, colorTurquoise, 0, Low, -30 ); _SECTION_END();