MYPERIOD=Param("MYPERIOD",5,5,10,1);
MYO=EMA(O,MYPERIOD);
MYH=EMA(H,MYPERIOD);
MYL=EMA(L,MYPERIOD);
MYC=EMA(C,MYPERIOD)*OBV()/Ref(OBV(),-1);
MYCC=EMA(C,MYPERIOD);
MYV=EMA(V,MYPERIOD);
MYAVG=(MYO+MYH+MYL+MYC)/4;
PlotOHLC(MYO,MYH,MYL,MYCC,"SARVANI.V5 ",IIf((V>Ref(MYV,-1) AND MYC>MYO),colorGreen,IIf(MYC<MYO,colorRed,colorTeal)),styleCandle);
PlotPR=Param("plotperiod",6,5,10,1);
Plot(EMA(MYH,PlotPR),"",colorGreen,styleLine,0,0);
Plot(EMA(MYL,PlotPR),"",colorRed,styleLine,0,0);
RESIS=Param("MAJOR RESISTANCE",60,30,80,1);
Plot(EMA(MYC,RESIS),"",colorBlack,styleLine,0,0);
Buy=V>Ref(MYV,-1) AND MYC>MYO AND Ref(MYC,-1)>Ref(MYO,-1) AND MYC>Ref(MYC,-1) AND MYL>Ref(MYL,-1) AND C>O AND EMA(MYC,2)>EMA(MYC,4);
Sell=MYL<Ref(LLV(MYL,4),-1);
Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);
PlotShapes(Buy*shapeUpArrow,colorGreen,Layer=0,yposition=MYL,Offset=-50);
PlotShapes(Sell*shapeDownArrow,colorRed,Layer=0,yposition=MYH,Offset=-30);
IND=Cross(MACD(),Signal());
PlotShapes(IND*shapeSmallSquare,colorBlack,0,yposition=L,Offset=-30);
IND1=Cross(Signal(),MACD());
PlotShapes(IND1*shapeSmallSquare,colorOrange,0,Yposition=H,Offset=60);
Title = Name() + " " + Date()+" " + EncodeColor( colorBlue ) +"**SARVANI.V5***" +EncodeColor( colorRed )
+ " OPEN.... " + O + "... HIGH... " + H + "... LOW... " + L + " ...CLOSE.... "+ Close + "...VOLUME INC. %..." + ((V-EMA(V,3))/EMA(V,3))*100 + "\n";
/*
*D
* D Thank you.
*/
/*f*/
Comments
Post a Comment