PARÂMETRO DE BOLLINGER E SISTEMA CROSS OVER para Amibroker (AFL) SECTIONBEGIN (Bandas de Bollinger com código de barras cruzado e tweaked) P ParamField (Campo de preço, -1) Parâmetro de período (Períodos curtos, 20, 15, 30, 1) Largura, 2, 1, 10, 1) TopCondBBandTop (P, Período, Largura) gtRef (BBandTop (P, Período, Largura), - 1) MidCondMA (C, Período) BotCondBBandBot (P, Período, Largura) gtRef (BBandBot (P, Período, Largura), - 1) UpColorIIf (TopCond E MidCond, colorTurquoise, colorPink) DownColorIIf (MidCond E BotCond, colorTurquoise, Largura), BBandTop (P, Período, Largura), MA (C, Período), MA (C, Período),, UpColor, styleCloudstyleNoLabelstyleNoTitle, Nulo, Nulo, Nulo, -2) PlotOHLC (C, Período), BBandBot (P, Período, Largura), BBandBot (P, Período, Largura),, DownColor, styleCloudstyleNoLabelstyleNoTitle, Nulo, Nulo, Nulo, -2) ColorGreen, styleThickstyleNoTitle, Null, Null, Null, -1) Gráfico (BB, Topo), colorRed, styleThickstyleNoTitle, Nulo, Nulo, (0, chartShowArrowschartShowDates) N (Título StrFormat (- Open g, Hi g, Lo g, Close, Close, Close, Close, Close, Close, Close, G (.1f) Vol. WriteVal (V, 1.0), O, H, L, C, SelectedValue (ROC (C, 1))) trendup IIf (MACD (12,26) gt 0 e MACD (12,26) Gt Signal (12,26,9), colorBlue, colorWhite) trendcolor IIf (MACD (12,26) lt 0 e MACD (12,26) lt Signal (12,26,9), colorRed, trendup) (RSI Period, 7, 1, 100) r RSI (sp) RSIup r gt 70 RSIdown r lt 30 (RSI Period, 7, 1, 100) Shape RSIup shapeNone RSIdown shapeNone PlotShapes (forma, IIf (RSIup, colorBrightGreen, colorRed), 0, IIf (RSIup, Baixa, Alta)) se (ParamToggle (Tooltip mostra, todos os valores apenas os preços)) ToolTipStrFormat (Open gnHigh gnLow: GnClose: g (.1f) nVolume: NumToStr (V, 1), O, H, L, C, SelectedValue (ROC (C, 1))) SETUPChartBkColor (ParamColor (Painel color, colorBlack)) PlotOHLC (L, 20) 2 ATR (10)) ExitSignal C lt (HHV (H, 20) - 2 ATR (10)) Sinal de entrada Cgt (II, 13) 2 ATR (10) / gráfico de preços de plotagem e paradas / Plot (Tabela 2) ATR (10) / TTF (SignSignal, colorBlue, IIf (ExitSignal, colorOrange, colorGrey50) TrailStop, Trailing stop, colorGold, styleThick styleLine) Plot (C, Price, color, styleBar) / plot color ribbon / Plot (2,, Color, styleArea styleOwnScale styleNoLabel, -0.1, 50) SECTIONBEGIN (GFX EMA) procedure Plotlinewidth (pvalue ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, Pshowdate local Miny, Maxy local Lvb, fvb pxwidth local, pxheight local TotalBars, axisarea local i, x, y if (plinewidthgt0 ampamp Estado (ação) 1 ampamp (pstyle amp styleLinestyleLine) GfxSetOverlayMode (0) MinyStatus (axisminy) MaxyStatus (axismaxy) lvbStatus (lastvisiblebar) fvbStatus (firstvisiblebar) pxwidthStatus (pxwidth) pxheightStatus (Pxheight) TotalBarsLvb-fvb xaxisarea56 se (pshowdate) yaxisarea10 mais yaxisarea0 i0 x5i (pxwidth-xaxisarea-10) / (TotalBars1) y5yaxisarea (pxheight-yaxisarea-10) / (Maxy-Miny) GfxMoveTo (x, Pxheight-y) para (i1 iltTotalBars E ilt (BarCount-fvb) i) GfxSelectPen (pcolori fvb, plinewidth, 0) x5i (pxwidth-xaxisarea-10) / (TotalBars1) y5yaxisarea (pvalueifvb-Miny) (pxheight-yaxisarea-10 P1 Param (TL 1 Períodos, 20, 5, 50, 1) p2 Parâmetro (TL 2 Períodos, 5) Parâmetro (TL1 Períodos, 20, 5, 50, 1) (TL1 gt TL2, ParamColor (TL Up Cor, colorBrightGreen), ParamColor (TL Dn Cor, colorCustom12)) Lote (TL1, p2) (TL 3 Períodos, 80, 5, 100, 1) p4 Parâmetro (TL 4 Períodos, 20, 1) Parâmetro (TL 3 Períodos, 80, 5, 100, 1) p4 Param (TL 3 Períodos, 80, 5, 100, 1) TriggerLine 1, Col1, styleLinestyleThickstyleNoLabel) 3, 100, 1) TL3 LinearReg (C, p3) TL4 EMA (TL3, p4) Col1 IIf (TL3 gt TL4, ParamColor (TLL Up Color, colorBlue), ParamColor (TLL Dn Color, colorRed) 3, Col1, styleLinestyleThickstyleNoLabel) Plot (TL4, TriggerLine 4, Col1, styleLinestyleThickstyleNoLabel) SECÇÃOBEGIN (Fibo Retrace e extensões) fibs ParamToggle (Plot Fibs, OffOn, 1) pctH Param (Pivot Hi, 0.325,0.001,2.0,0.002 ) Parâmetro (Parâmetro de Baixo, 1,1, BarCount-1,1) Parâmetro de Parâmetro (Pivot Lo, 0,325,0,001,2,0,0,002) Ext. Esquerda 2,1,1,500,1) Parâmetro de Fwd (Plot Forward, 0, 0, 500, 1) ParamToggle (Texto de Plot, OffOn, 1) hts Param (Deslocamento de Texto, -33,5, -50,50,0,10) (PRp, H, HiLB)) xRp0 SelectedValue (ValueWhen (pRp, x, HiLB)) pSp TroughBars (pRp, H, HiLB) pRp PeakBars (H, pctH, 1) 0 Tipo de parâmetro (Estilo de linha, estiloLinha, estiloNoLabel) (PSp, L, LoLB)) xSp0 SelectedValue (ValueWhen (pSp, x, LoLB)) Delta yRp0 - ySp0 função fib (ret) retval (Delta ret) Fibval IIf (ret Lt 1,0 E xSp0 lt xRp0, yRp0 - retval, IIf (ret lt 1.0 E xSp0 gt xRp0, ySp0 retval, IIf (ret gt 1.0 E xSp0 lt xRp0, yRp0 - retval, IIf (ret gt 1.0 E xSp0 gt xRp0, ySp0 retval , Null)))) return FibVal x0 Min (xSp0, xRp0) - Back x1 (BarCount -1) r236 fib (0,236) r236I LastValue (r236,1) r382 fib (0,382) r382I LastValue (r382,1) r050 fib 0.50) r050I LastValue (r050,1) r618 fib (0.618) r618I LastValue (r618,1) r786 fib (0.786) r786I LastValue (r786,1) e127 fib (1.27) e127I LastValue (e127,1) e162 fib (1.62) E162I LastValue (e162,1) e200 fib (2.00) e200I LastValue (e200,1) e262 fib (2.62) e262I LastValue (e262,1) e424 fib (4.24) e424I LastValue (e424,1) p00 IIf (xSp0 gt xRp0, YSp0, yRp0) p00I LastValue (p00,1) p100 IIf (xSp0 lt xRp0, ySp0, yRp0) p100I LastValue (p100,1) color00 IIf (xSp0 gt xRp0, colorLime, colorRed) color100 IIf (xSp0 lt xRp0, colorLime, colorRed ) Numbars LastValue (Cum (Status (barvisible))) fração IIf (StrRight (Name), 3), 3.2, 3.2) if (fibs1) Plot (LineArray (xRp0-Fwd, yRp0, x1, yRp0, Back) , 32,8styleNoRescale, Null, Null, Fwd) Plot (LineArray (x0-Fwd, r236, (LineArray (x0-Fwd, r382, x1, r382, Voltar) ,, 44, stylestyleNoRescale, Null, Null, Fwd) Plot (LineArray (X0-Fwd, r050, x1, r050, Voltar), 41, stylestyleNoRescale, Null, Null, Fwd) Plot (LineArray), 43, stylestyleNoRescale, Null, Fwd) Trama (LineArray (x0-Fwd, e127, x1, e127, Voltar), e127, 47), Plot (LineArray (x0-Fwd, r786, x1, r786, Back) ,, 42, stylestyleNoRescale, Null, , StyltextNoRescale, Null, Null, Fwd) Plot (LineArray (x0-Fwd, e200, x1, E200, Voltar), p200,47, stylestyleNoRescale, Nulo, Nulo, Fwd) Plot (LineArray (LineArray (x0-Fwd, e262, x1, e262, Voltar), p262,47, stylestyleNoRescale, (Text1) PlotText (0 WriteVal (p00, fração), LastValue (BarIndex ()) - (numbars / hts ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ) - (numbars / hts), r050I 0,05, 41) PlotText (62 WriteVal (r618, fração) , LastValue (BarIndex ()) - (numbars / hts), r618I 0.05, 43) PlotText (78 WriteVal (r786, fração), LastValue WriteVal (p100, fração), LastValue (BarIndex ()) - (numbars / hts), p100I 0.05, color100) PlotText (127 WriteVal (e127, fração), LastValue (BarIndex , 47) PlotText (200 WriteVal (e162, fração), LastValue (BarIndex ()) - (numbars / hts), e162I 0.05, 47) PlotText / Hts), e200I 0.05, 47) PlotText (262 WriteVal (e262, fração), LastValue (BarIndex ()) - (numbars / hts), e262I 0.05, 47) () Código para identificar automaticamente os pivôs // - qual será o nosso intervalo de lookback para o hh e ll farbackParam (Quão longe voltar para ir, 100,50, 5000: 10) nBars Param (Número de barras, 12, 5, 40) Título Nome () (StrLeft (FullName (), 15)) O: Abrir, H: Alto, L: Gráfico de velas básicas PlotOHLC (Open, High, Low, Close, nOO nH H nL L
No comments:
Post a Comment