// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Background_Setting");
SetChartBkGradientFill( ParamColor("BgTop", colorBlack),

ParamColor("BgBottom", colorBlack),ParamColor("titleblock",colorBlack )); 
_SECTION_END();


_SECTION_BEGIN("price channel");
/*Price Channel*/
MaxGraph=10;
T0=10;
F0=MA( (H+L+2*C)/4, T0);

UF0= MA((H+L+2*C)/4,T0) + MA((H-L),T0);

LF0=MA((H+L+2*C)/4,T0) - MA((H-L),T0);

K0=IIf(C > UF0, 100 , IIf(C<LF0 , -100 ,0));

Graph0=0;
Graph0Color=7;

T1=20;
F1=MA( (H+L+C)/3, T0);

UF1= MA((H+L+C)/3,T1) + MA((H-L),T1);

LF1=MA((H+L+C)/3,T1) - MA((H-L),T1);

K1=IIf(C > UF1, 100 , IIf(C<LF1 , -100 ,0));

PR=MA((K1+K0)/2,3);
Graph1=PR;
Graph1Style=8;

upbar= PR>Ref(PR,-1) ;
downbar= PR< Ref(PR,-1) ;
barcolor = IIf( downbar,4, IIf( upbar, 5, 7));
Graph1BarColor = ValueWhen( barcolor != 0, barcolor );

Title=EncodeColor(colorWhite)+"Best RSI :"+EncodeColor(colorRed)+
WriteVal(PR)+WriteIf(PR>98," {Overbought}",EncodeColor(colorRed)+WriteIf(PR<-
98," {Oversold}"," "))+EncodeColor(colorWhite)+
"  Trend  : "+
WriteIf(PR>0,EncodeColor(colorBlue)+" Bullish",EncodeColor(colorRed)+" Bearish")+EncodeColor(colorWhite)+
" Trade : "+EncodeColor(colorBlue)+
WriteIf(upbar,"Buy",EncodeColor(colorRed)+WriteIf(downbar,"Sell"," "));;
_SECTION_END();