_SECTION_BEGIN("Background_Setting");
SetChartBkGradientFill( ParamColor("BgTop", colorBlack),
ParamColor("BgBottom", colorDarkGrey),ParamColor("TitleBack",colorGrey40));
SetChartBkColor(ParamColor("Outer Panel",colorPaleBlue));
SetChartOptions(0,chartShowArrows|chartShowDates);
_SECTION_END();
_SECTION_BEGIN("BehgozinStrengthFinder2");
//Behgozin Stock Strength Finder.
//Simply It shows the Strength of any Stock so you can select the best stock
//Also can be used as buy and sell system by crossing zero line
// It can be used in daily, weekly or monthly time frame. Also you can see the results by Exploration
CLN = Ref(C,3);
Beh = ((CLN - EMA(CLN, 10)) / EMA(CLN, 10)) * 100;
V2 = HHV(Beh,100);
V3 = LLV(Beh,100);
Beh1 = WMA(Beh*(V2-V3),6);
Beh2 = EMA(Beh1,5);
Plot(Beh1, "Behgozin Strength Finder ",4,4);
Plot(Beh2, "BSF Mn ",42,4);
Plot(0,"",colorWhite,styleLine);
Buy = Beh1>0 ;
Sell = Beh1<0 ;
Buy=Exrem(Buy,Sell); // added to remove excess signal
Sell=Exrem(Sell,Buy);// addded to remove excess signal
SellPrice = ValueWhen(Sell,C,1);
BuyPrice = ValueWhen(Buy,C,1);
Filter = Buy OR Sell ;
SetOption("NoDefaultColumns", True);
AddTextColumn(Name(), "SYMBOL");
AddColumn(DateTime(), "DATE", formatDateTime);
AddColumn(IIf(Buy, 66, 83), "BSF Sig", formatChar, colorBlack, IIf(Buy, colorBrightGreen, colorOrange));
AddColumn(Beh1,"BSF", SetSortColumns( 4 ));
AddColumn(C, "LTP", 1.2,colorBlue);
AddColumn(V, "Volume", 1, colorBlack,IIf(V > EMA(V,21), colorBrightGreen, colorOrange));
_SECTION_END();