 |
| Major Minor Support Resistance Lines |
//www.aflcode.com _SECTION_BEGIN("Multiple Ribbon "); "ATR exit = Yellow arrow"; "Kol meet=Blue Triangle "; RibbonThickness = Param("Ribbon Thickness", 4, 1, 5, 0.1); Font = ParamList("Font:","Arial|Calibri|Futura|Tahoma|Times New Roman"); ""; function GfxConvertBarToPixelX(Bar) { lvb = Status("lastvisiblebar"); fvb = Status("firstvisiblebar"); pxchartleft = Status("pxchartleft"); pxchartwidth = Status("pxchartwidth"); return pxchartleft + Bar * pxchartwidth / (Lvb - fvb + 1); } procedure MultiRibbon(RibbonColor, Position, Label) { LineColor = colorLightGrey; Position = RibbonThickness * Position; x2 = Status("pxchartright"); y2 = Status("pxchartbottom"); RibbonColor = IIf(GfxConvertBarToPixelX(BarIndex()-Status("firstvisiblebarindex")) > y2/1.5 * (RibbonThickness/100) * 18 , RibbonColor, colorYellow); Plot(0, "", LineColor, styleOwnScale | styleNoLabel, 0, 100); Plot(Position, "", LineColor, styleOwnScale | styleNoLabel, 0, 100); Plot(Position, "", RibbonColor, styleArea | styleOwnScale | styleNoLabel, 0, 100); GfxSetTextColor(colorBlack); GfxSelectFont(Font, y2/1.5 * (RibbonThickness/100), 400); GfxDrawText(Label, 8, y2 * 1.001 -(y2 * Position/100) , y2/1.5 * (RibbonThickness/100) * 17, y2, 2 + 32 + 256); } //============================================candle sticks======================= Up_MACD_TRIX = MACD( 3, 11 ) > Signal(3,11,16); Down_MACD_TRIX = MACD( 3, 11 ) < Signal(3,11,16); Colormacd = IIf(Up_MACD_TRIX,colorLime,IIf(Down_MACD_TRIX,colorRed,colorCustom12)); //PlotOHLC( Open, High, Low, Close, "", Colormacd, styleBar ); PlotOHLC( Open, High, Low, Close, "", Colormacd, styleCandle ); //PlotOHLC( 1.01*Open, 1.01*High, 1.01*Low, 1.01*Close, "", Colormacd, styleCandle ); //---------------------------------------------------------------------------------- //===================TREND LINES =============================================== per = 15; per = Param( "period", 15, 1, 500, 1); mm = C; x = Cum(1); lastx = LastValue(x); selv = SelectedValue(x); aaa = LinRegIntercept(mm, per); bbb = LinRegSlope(mm, per); daa = SelectedValue(ValueWhen(x, aaa, 1)); dbb = SelectedValue(ValueWhen(x, bbb, 1)); xx = IIf(x > selv - per AND x <= selv, x - (selv - per),Null); yy = daa + dbb * xx; dhh = abs(H - yy); dll = abs(L - yy); dtt = Max(dhh,dll); wd = SelectedValue(HHV(dtt,per)); SetChartOptions(0, chartShowDates); GraphXSpace = 5; //Plot(C,"",colorWhite,64); Plot(yy, "LinReg", colorYellow ); Plot(yy + wd, "SL if u r SHORT", colorRed, 4 ); Plot(yy - wd, "SL if u r LONG", colorBrightGreen, 4 ); //--------------------------------------------------------------------------------- // //=========================================EMA================================ //Plot (MA (Close,3),"MA3",colorRed); //Plot( EMA( Close,13),"EMA13",colorBlue ); //Plot( EMA( Close,39),"EMA39",colorGreen ); //Plot( EMA( Close,50),"EMA50",colorWhite ); Short_trend = IIf(MA (Close,3)>EMA( Close,13), ColorRGB( 35, 126, 88 ), ColorRGB( 163, 71, 84 ) ); mid_trend = IIf(EMA( Close,13) > EMA( Close,39), ColorRGB( 35, 126, 88 ), ColorRGB( 163, 71, 84 ) ); Long_trend = IIf(EMA (Close,39) > EMA (Close, 50),ColorRGB( 35, 126, 88 ), ColorRGB( 163, 71, 84 ) ); //MultiRibbon(Long_trend, 1, "LONG-TREND"); //MultiRibbon(mid_trend, 2, "MID-TREND"); //MultiRibbon(Short_trend, 3, "SHORT-TREND"); //==========================rsi-7============================================= RSIcolor=IIf(RSI(7)>50, ColorRGB( 35, 126, 88 ), ColorRGB( 163, 71, 84 ) ); //MultiRibbon(RSIcolor, 4, "RSI : "+RSI(7)); //-------------------------------------------------------------------------------------- // //=======================================MACD===================================== MACDcolor = IIf(MACD(8,21)>Signal(8,21,9), ColorRGB( 35, 126, 88 ), ColorRGB( 163, 71, 84 ) ); //MultiRibbon(MACDcolor, 5, "MACD : "+MACD(8,21)); //--------------------------------------------------------------------------------------- //=====================================trix============================================ Trixcolor=IIf(Trix( 9 ) > Ref( Trix( 9 ) , -1 ),ColorRGB( 35, 126, 88 ), ColorRGB( 163, 71, 84 ) ); //MultiRibbon(Trixcolor, 6, "TRIX : "+Trix(9)); //=============================BB============================================ A1=EMA(C,12)-EMA(C,26); BBtop=BBandTop(A1,10,1); BBbot=BBandBot(A1,10,1); BBcolor=IIf(a1<0 AND a1>Ref(a1,-1),ColorRGB( 35, 126, 88 ),IIf(a1>0 AND a1>Ref(a1,-1),ColorRGB( 35, 126, 88 ),IIf(a1>0 AND a1<Ref(a1,-1),ColorRGB( 163, 71, 84 ),ColorRGB( 163, 71, 84 )))); //MultiRibbon(BBcolor, 7, "BIlinger Band : "); //=======================ATR exit========================================== _SECTION_BEGIN("ATRtrading"); //SetChartBkColor( colorBlack ) ; period = Param("Period", 13, 1, 240, 1); mult = Param("Multiplier", 1.7, 1, 240, 0.1); f=ATR(period); VS[0] = Close[0]; trend[0] = 0; HighC[0]=0; Lowc[0]=0; for( i = period+1; i < BarCount; i++ ) { vs[i] = vs[i-1]; trend[i] = trend[i-1]; highC[i] = HighC[i-1]; lowc[i] = lowc[i-1]; if ((trend[i]>=0) && ( C[i] <VS[i] )) { trend[i] =-1; HighC[i] = C[i]; lowc[i] = C[i]; } if ((trend[i]<=0) && (C[i] >VS[i])) { trend[i]=1; HighC[i] = C[i]; lowc[i] = C[i]; } if (trend[i]==-1) { if (C[i]<lowc[i]) lowc[i] = C[i]; VS[i]= lowc[i]+ (mult*f[i]); } if (trend[i]==1) { if (C[i]>HighC[i]) HighC[i] = C[i]; VS[i]= HighC[i]-(mult*f[i]); } } ATRBuy=Cross(Trend,0); ATRSell=Cross(0, Trend); //Plot(VS, "Vol Stop",IIf(trend==1,10,11 ),styleThick); shape = ATRBuy * shapeUpArrow + ATRSell * shapeDownArrow; // WriteIf(trend > 0, "ATR says : UP Trend","ATR says DOWN Trend") ; // PlotShapes( shape, IIf( ATRBuy, colorYellow, colorYellow ), 0, IIf( ATRBuy, Low-f, High+f)); _SECTION_END(); //=================================Kolkata meet =================== /* _SECTION_BEGIN("Kolkata Meet - Bands"); //.......................................................................... a = Param("Angle Degrees",30,15,90,15); n = Param("Slope_Bars",5,10,50,1); a = (22 / 7) * (a / 180); Num = NumL = NumH = 0; Den = 0; for (i = 1;i < n+1;i++) { Num = Num + sin(i * a) * Ref(C,-i-1); NumL = NumL + sin(i * a) * Ref(L,-i-1); NumH = NumH + sin(i * a) * Ref(H,-i-1); Den = Den + sin(i * a); } j = Num/Den; jL = NumL/Den; jH = NumH/Den; _SECTION_END(); _SECTION_BEGIN("Signal 04"); Buy = C > jH; Sell = C < jL; Buy = ExRem(Buy,Sell); Sell = ExRem(Sell,Buy); Short = Sell; Cover = Buy; Short = ExRem(Short,Cover); Cover = ExRem(Cover,Short); _SECTION_END(); _SECTION_BEGIN("Plot Arrows"); //Position size fixed 100 units SetPositionSize(100,4); SetTradeDelays(1,1,1,1); PlotShapes(shapeUpTriangle * Buy, colorBlue,0, L,-20); PlotShapes(shapeDownTriangle * Short, colorBlue,0, H, -20); */ //==================interpretation============================ WriteIf(EMA( Close,13)>EMA( Close,39),"EMA says : UP TREND \n EMA -50 SL of "+ WriteVal(EMA(Close,50)),"EMA says : DOWN TREND \n EMA "+ WriteVal(EMA(Close,50))); WriteIf (Trix( 9 ) > Ref( Trix( 9 ) , -1 ),"\n TRIX =" + WriteVal(Trix( 9 ))+ " : UP","\n TRIX =" + WriteVal(Trix( 9 ))+" : DOWN"); WriteIf (MACD( 12, 26 ) > Ref( MACD( 12, 26 ) , -1 ), "MACD ="+ WriteVal(MACD( 12, 26 ))+ " : UP","MACD ="+ WriteVal(MACD( 12, 26 ))+ " : DOWN"); WriteIf(ADX( 9 ) > Ref( ADX( 9 ) , -1 ),"ADX ="+WriteVal (ADX(9))+" :TREND-ING","ADX ="+WriteVal (ADX(9))+" : ----"); WriteIf (RSI( 7 ) > Ref( RSI(7) , -1 ), "RSI ="+ WriteVal(RSI( 7))+ " : UP","RSI ="+ WriteVal(RSI( 7))+ " : DOWN"); WriteIf (CCI( 10 ) > Ref( CCI(10) , -1 ), "CCI ="+ WriteVal(CCI( 10))+ " : UP","CCI ="+ WriteVal(CCI( 10))+ " : DOWN"); WriteIf(StochK( 14)< Ref (StochK( 14),1) ,"stochastic ="+WriteVal (StochK(14))+" : UP " ,"stochastic ="+WriteVal (StochK( 14))+" : DOWN "); ""; WriteIf (Close > SAR( 0.02, 0.2 ),"SAR says : go LONG at "+Close+" \n with a Stop-Loss = " + WriteVal( SAR( 0.02, 0.2 )),"SAR says : go Short at "+Close+"\n with a Stop-Loss = " + WriteVal( SAR( 0.02, 0.2 ))); //===========================================RSI cross------------------ r = RSI(21); ee = EMA(r,3); es = EMA(ee, 13); RSIEMABuy = Cross(ee,es) AND Trix(9)>Ref(Trix(9),-1); RSIEMAShort = Cross(es,ee) AND Trix(9)<Ref(Trix(9),-1); PlotShapes(shapeUpArrow * RSIEMABuy, colorGreen,0, L,-20); PlotShapes(shapeDownArrow * RSIEMAShort, colorRed,0, H, -20); //====================BB============================== _SECTION_BEGIN("Bollinger Bands"); P = ParamField("Price field",-1); Periods = Param("Periods", 9, 2, 300, 1 ); Width = Param("Width", 2, 0, 10, 0.05 ); Style = ParamStyle("Style"); Plot( BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), colorYellow, Style ); Plot( BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), colorYellow, Style ); _SECTION_END(); //--------------------------------------------------------------- //=======================MA4,5==================================== Plot( MA( Close, 4 ), "", colorBlue, styleThick,Null, Null, 5 ); Plot( MA( Close,5 ), "", colorGreen, styleThick,Null, Null, 5 ); //-------------------------------------------------- _SECTION_BEGIN("Trend Check"); P1 = Param("Short Period",13,0,100,1); P2 = Param("Long Period",39,0,100,1); L1=Param("Threshold",4,2,10,1); U= MA(C,P1)-MA(C,P2); R=100*U/MA(C,P2); ap=Param("ADX Period",9,5,30,1); MyADX=ADX(ap); Len=Param("Length",10,1,30,1); dp=Param("Diff Period",20,5,50,1); Vs=ParamToggle("Select Indicator","ADX, Ravi",0); if(Vs) { ta = R; } else { ta=MyADX; } EmaIndex=IIf(Len>0,2/(1+Len),0.20); Diff=HHV(ta,dp)-LLV(ta,dp); Myconst=IIf(Diff>0,(ta-LLV(ta,dp))/Diff,EMAIndex); Newconst=IIf( MyConst > EmaIndex , EmaIndex, MyConst); y=AMA(C,Newconst); Plot(y,"Trend Check",colorWhite, styleThick); /* zt = IIf(y<Ref(y,-1),-1,IIf(y>Ref(y,-1),1,0)); dist = 1.2*ATR(10); for( i = 0; i < BarCount; i++ ) { if( zt[i] ==-1 ) PlotText( "S", i, L[ i ]-dist[i], colorRed, colorBlack ); if( zt[i]== 1 ) PlotText( "B", i, H[ i ]+dist[i], colorGreen, colorBlack ); if( zt[i]== 0 ) PlotText( "**", i, H[ i ]+dist[i], colorWhite, colorBlack ); if( zt[i]== 0 ) PlotText( "**", i, L[ i ]-dist[i], colorWhite, colorBlack ); } */ _SECTION_END(); _SECTION_END();
Sign up here with your email
ConversionConversion EmoticonEmoticon