Skip to main content

Icchi Band


WH=HHV(High,5);
WL=LLV(Low,5);
WBP=(HHV(High,5)+LLV(Low,5)+Close)/3;

RBAND=ValueWhen(Cross(MA(WBP,25),WBP),HHV(WH,25),1);

SBAND=ValueWhen(Cross(WBP,MA(WBP,25)),LLV(WL,25),1);

MSWNG=(RBAND+SBAND)/2;
SetChartOptions(0,chartShowArrows|chartShowDates);
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 

Plot(RBAND,"RES",colorRed,styleLine|styleThick);
Plot(SBAND,"SUPP",colorGreen,styleLine|styleThick);

GfxSelectFont("Tahoma", Status("pxheight")/22 );
GfxSetTextAlign(6.5 );// center alignment
GfxSetTextColor( ColorHSB( 42, 42, 42 ) );
GfxSetBkMode(0); // transparent
GfxTextOut( " " +Close, Status("pxwidth")/2, Status("pxheight")/6 );
GfxTextOut( Name(), Status("pxwidth")/2, Status("pxheight")/12 );

//15minscloud;
SL = ( HHV( H, 78 ) + LLV( L, 78) )/2;
TL = ( HHV( H, 27) + LLV( L,27) )/2;
DL = Ref( C, 78);
Span11 = (( SL + TL )/2);
Span12 = (HHV( H, 156) + LLV(L,156))/2;
PlotOHLC (Span11,Span11,Span12,Span12,"15mCloud",colorLightGrey,styleCloud|styleNoRescale,Null,Null);
//5 MINS CLOUD;
SL = ( HHV( H, 26 ) + LLV( L, 26) )/2;
TL = ( HHV( H, 9 ) + LLV( L, 9 ) )/2;
DL = Ref( C, 26 );
Span1 = (( SL + TL )/2);
Span2 = (HHV( H, 52) + LLV(L, 52))/2;
PlotOHLC (Span1,Span1,Span2,Span2,"5mCloud",colorPaleGreen,styleCloud|styleNoRescale,Null,Null);

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

Order vol free

_SECTION_BEGIN( "Ord Volume"); ZigPercent = Param( "Percent of Change for Zig", 4.6, 0, 50, 0.1 ); ZigUpColor = ParamColor( "Up Color", colorDarkBlue ); ZigDownColor = ParamColor( "Down Color", colorViolet ); ZerRedVol = Param( "Zeros to Reduce from Volume", 3, 0, 8, 1 ); SwingXoffset = Param( "Swing X Position", 3, -10, 30, 1 ); SwingYoffset = Param( "Swing Y Position", 1, 0, 30, 0.2 ); Color_LVT = ParamColor( "Leg Volume Text Color", colorWhite ); Color_LPTS = ParamColor( "Leg % Text Color Simple", colorGrey50 ); Color_LPTH = ParamColor( "Leg % Text Color Highlighted", colorBlack ); Color_LPBH = ParamColor( "Leg % Background Highlighted", colorYellow ); LegYoffset = Param( "Leg Y Position", 1.5, 0, 10, 0.1 ); RedVol = IIf( ZerRedVol == 0, 1,  IIf( ZerRedVol == 1, 10, IIf( ZerRedVol == 2, 100, IIf( ZerRedVol == 3, 1000, IIf( ZerRedVol == 4, 10000, IIf( ZerRedVol == ...
Post a Comment
Read more