// Downloaded From https://www.WiseStockTrader.com _SECTION_BEGIN("sheroune"); Col = IIf(C > O,colorGreen,colorRed); Plot(C,"",col,styleBar+styleThick); _SECTION_END(); _SECTION_BEGIN("Support-Resistance"); SupRes=ParamToggle("Sup-Res","No|Yes",1); SupResA = Param("Sup-Res A Period",20,0,100,1); SupResB = Param("Sup-Res B Period",25,0,100,1); Res1 = ParamColor("Resistance High", colorRed ); Res2 = ParamColor("Resistance Low", colorDarkRed ); Sup1 = ParamColor("Support High", colorDarkGreen ); Sup2 = ParamColor("Support Low", colorBrightGreen ); if(SupRes) { MaxGraph = 12; BuyOffSet = SupResA;//Optimize("BuyOffSet",18,15,20,1); SellOffset = BuyOffSet;//Optimize("SellOffset",2,2,14,2); RegLength = 5;//Optimize("RegLength",5, 2,11,2); BuyATRPeriod = 2;//Optimize("BuyATRPeriod",2,2,5,1); SellATRPeriod = BuyATRPeriod;//Optimize("SellATRPeriod",4,2,11,2); ATRMultiplier = 0.5;//Optimize("ATRMultiplier",1,0.7,1.25,.05); SuppA = HHV(H-ATRMultiplier*ATR(BuyATRPeriod),BuyOffset); /* RED */ RessB = LLV(L+ATRMultiplier*ATR(SellATRPeriod),SellOffset); /* GREEN */ Plot(SuppA,"",sup1,ParamStyle("Sup-Res A Style", styleDashed|styleNoTitle) ); Plot(RessB,"",res2,ParamStyle("Sup-Res A Style", styleDashed|styleNoTitle) ); nn=SupResB; mmm=100; TYP=(High + Low + 2*Close)/4; CI=(TYP-MA(TYP,14))/(0.015*StDev(TYP,14)); CCCI=EMA(CI,5)+mmm; Hh=HHV(H,nn); Ll=LLV(L,nn); MM=(Hh+Ll)/2; CCCC=EMA(CCCI*(Hh-Ll)/(2*mmm)+Ll,5); Plot(Hh,"",Res1, ParamStyle("Sup-Res B Style", styleThick|styleNoTitle) ); Plot(Ll,"",Sup2, ParamStyle("Sup-Res B Style", styleThick|styleNoTitle) ) ; } _SECTION_END(); Buy = Cross(H,Ref(Hh,-1)); Short = Cross (Ref(Ll,-1),L); Cover = Buy; Sell = Short; PlotShapes(shapeUpArrow*Buy,colorWhite); PlotShapes(shapeDownArrow*Short,colorWhite); /* **************************************** // -- Done with discovering and plotting pivots ***************************************** */ Title = EncodeColor(colorWhite)+ "SHEROUNE ka SYSTEM" + " - " + Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) + " - " + Date() +" - "+ "\n"+ WriteIf(H > Ref(H,-1),EncodeColor(colorGreen),EncodeColor(colorRed))+" Hi "+H+"\n"+ EncodeColor(colorWhite)+"Op "+O+EncodeColor(colorAqua)+" Cl : " +C+"\n"+ WriteIf(L < Ref(L,-1),EncodeColor(colorRed),EncodeColor(colorGreen))+" Lo "+L +"\n"+"\n"+ EncodeColor(colorBrightGreen)+"Place Reversal for Short at : "+Hh +"\n"+ EncodeColor(colorRed)+"Place Reversal for Long at : "+Ll ;