Skip to main content

SaravanI V5 EOD




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

Popular posts from this blog

TB 100.1.1 tsf tema linear

_SECTION_BEGIN("Magnified Market Price"); //by Vidyasagar, vkunisetty@yahoo.com// SetChartOptions(0,chartShowArrows|chartShowDates); FS=Param("Font Size",30,11,100,1); GfxSelectFont("Times New Roman", FS, 700, True ); GfxSetBkMode( colorWhite ); GfxSetTextColor( ParamColor("Color",colorWhite) ); Hor=Param("Horizontal Position",750,1,1200,1); Ver=Param("Vertical Position",7,1,830,1); GfxTextOut(""+C , Hor , Ver ); YC=TimeFrameGetPrice("C",inDaily,-1); DD=Prec(C-YC,2); xx=Prec((DD/YC)*100,2); GfxSelectFont("Times New Roman", 11, 700, True ); GfxSetBkMode( colorWhite ); GfxSetTextColor(ParamColor("Color",colorWhite) ); //GfxTextOut("Open - "+O+" High - "+H+" Low - "+L+" Close - "+C, Horr , Verr-14 ); //GraphXSpace = Param("Graph Space",500,-10,500,1); _SECTION_END(); _SECTION_BEGIN("Trend Blaster V1.2"); SetChartBkColor(...
Post a Comment
Read more

ALMA KAMA

_SECTION_BEGIN("KAMA - Kaufman Adaptive Moving Average"); LBPeriods = Param( "LB Periods", 81, 1, 200, 1 ); FSCPeriods = Param( "FSC Periods", 15, 1, 200, 1 ); SSCPeriods = Param( "SSC Periods", 30, 1, 200, 1 ); FastSmoothConst = 2 / ( FSCPeriods + 1 ); SlowSmoothConst = 2 / ( SSCPeriods + 1 ); Direction = abs( Close - Ref( Close, -LBPeriods ) ); Volatility = Sum( abs( Close - Ref( Close, -1 ) ), LBPeriods ); EfficiencyRatio = Direction / Volatility; SC = ( EfficiencyRatio * ( FastSmoothConst - SlowSmoothConst ) + SlowSmoothConst ) ^ 2; KAMA = AMA( Close, SC ); Plot( KAMA, "KAMA", ParamColor( "Color", colorRed ), styleLine ); _SECTION_END(); "Arnaud Legoux Moving Average"; /*________________________________________________________________________________________________ AFL code by hiscores. Originally posted here http://finance.groups.yahoo.com/grou...message/154257 Minor mod by rmike to Modify the AFL in conform...
Post a Comment
Read more

KBL Master Scalper Pro.

_SECTION_BEGIN("HA"); tchoice=Param("Title Selection ",2,1,2,1); Q=Param("% Change",2.1,1,10,1); Z= Ref(Zig(C ,q ),-1) ; HH=Ref(((Z<Ref(Z,-1) AND Ref(Z,-1) > Ref(Z,-2)) AND (Peak(z,q,1 ) >Peak(Z,q,2))),-1); LH=Ref(((Z<Ref(Z,-1) AND Ref(Z,-1) > Ref(Z,-2)) AND (Peak(Z,q,1 ) <Peak(Z,q,2))),-1); HL=Ref(((Z>Ref(Z,-1) AND Ref(Z,-1) < Ref(Z,-2)) AND (Trough(Z,q,1 ) >Trough(Z,q,2))),-1); LL=Ref(((Z>Ref(Z,-1) AND Ref(Z,-1) < Ref(Z,-2)) AND (Trough(Z,q,1 ) <Trough(Z,q,2))),-1); GraphXSpace = 5; dist = 0.5*ATR(20); for( i = 0; i < BarCount; i++ ) { if( HH[i] ) PlotText( "HH", i, H[ i ]+dist[i], colorCustom12 ); if( LH[i] ) PlotText( "LH", i, H[ i ]+dist[i], colorCustom12 ); if( HL[i] ) PlotText( "HL", i, L[ i ]-dist[i], colorBlack ); if( LL[i] ) PlotText( "LL", i, L[ i ]-dist[i], colorBlack ); } //calculates floor pivots from previous days data & plots it on the present intraday ...
Post a Comment
Read more