Ar trading system afl

AR TRADING SYSTEM AFL FREE eu faço este AFL sk ((C-MA (C, nol)) MA (C, nol)) 100 Graph0sk Graph0BarColorIIf (skgt0,5,4) SECTIONBEGIN (quotemaquot) Lk EMA (Close, 22) Plot (Lk, quot quot, colorBrightGreen, styleDots) GfxSelectFont (quottohomaboldquot, Status (quotpxheightquot) 16) GfxSetTextAlign (6) GfxSetTextColor (ColorRGB (10,250,250)) GfxSetBkMode (0) GfxTextOut (Name (), Status (quotpxwidthquot) 2, Status (quotpxheightquot ) 10) cxParam (quotcxposnquot, 1085,0,1200,1) cyParam (quotcyposnquot, 16,0,1000,1) GfxSetBkColor (ColorRGB (200,50,100)) GfxSelectFont (quottohomaboldquot, 20,98, False) GfxSetTextColor (colorYellow) GfxSetTextColor (ColorHSB (100, 10, 400)) GfxTextOut (quotLTP. QuotCquot quot, cx, cy) DDayO TimeFrameGetPrice (quotOquot, inDaily) DHiDay TimeFrameGetPrice (quotHquot, inDaily) DLoDay TimeFrameGetPrice (quotLuot, inDaily) gfr TimeFrameGetPrice (quotCquot, inDaily, -1) fechar Título EncodeColor (colorWhite) quot AR TRADING SYSTEM quotEncodeColor (ColorRGB (220,10,150)) quot quot Interval (2) quot Quot Date () EncodeColor (ColorRGB (200,150,120)) quot n quot aberto quot, High. Quot H quot, Low. Quot L EncodeColor (colorGreen) quot Prevvious Day Close. Quode EncodeColor (colorGreen) gfr EncodeColor (colorYellow) quotn ToDay Open. DDayO quot High. DHiDay quot Low. (DLL) (cCI (8) gt 5, colorBrightGreen, IIf (CCI (8) lt-5, colorRed, IIf (CCI (8) gt Ref (CCI (8), - 1), ColorBrightGreen, ColorDarkRed ))) HaClose EMA ((OHLLC) 5,3) HaOpen AMA (Ref (HaClose, -1), 0,5) HaHigh Max (H, Max (HaClose, HaOpen)) HaLow Min (L, Min (HaClose, HaOpen)) PlotOHLC (HaOpen, HaHigh, HaLow, HaClose, Colcci, styleCandle styleNoLabel) BKswitch ParamToggle (quotBackground Colorquot, quotOn, Offquot) OUTcolor ParamColor (quotOuter Panel Colorquot, colorBlack) INUPcolor ParamColor (quotInner Panel Upperquot, colorGrey40) INDNcolor ParamColor (quotInner Panel LowerCaptureBlackChartBkColor (OUTcolor) cor da borda externa SetChartBkGradientFill (INUPcolor, INDNcolor, TitleCo lor) cor do painel interno SECTIONEND () SECTIONBEGIN (quotquot) SetBarsRequired (100000, 0) GraphXSpace 15 ea EMA (C, 10) eb EMA (C, 20) SetBarFillColor (IIf (e gt eb, colorGreen, colorRed)) Compre e A gt eb AND TimeNum () gt 092000 E TimeNum () lt 150000 Vender eb gt ea OU Tempo () gt 150000 Curta 0 Capa 0 Comprar ExRem (Comprar, Vender) Venda ExRem (Vender, Comprar) Short ExRem (Short, Cover) Cover ExRem (Cover, Short) FactorParam (quotFactorquot, 4,1,10,1) PdParam (quotATR Periodsquot, 10,1,100,1) Up (HL) 2 (FactorATR (Pd)) Dn (HL) 2- (FactorATR (Pd)) Dn (HL) 2- (FactorATR (Pd) Pd)) iATRATR (Pd) TrendUpTrendDownNull trend01 changeOfTrend0 flagflagh0 para (i 1 i ltBarCount i) TrendUpi Null TrendDowni Nulo se (CloseigtUpi-1) trendi1 se (trendi-1 -1) changeOfTrend 1 else if (CloseiltDni-1) trendi-1 Se (trendi-1 1) changeOfTrend 1 else if (trendi-11) trendi1 changeOfTrend 0 else if (trendi-1-1) trendi-1 changeOfTrend 0 Comprar trend1 Selltrend-1 BuyExRem (Comprar, Vender) SellExRem (Sell, Buy) ShortSell CoverBuy BuyPriceValueQuando (Buy, C) SellPriceValueQuando (Sell, C) ShortPriceValueQuando (Short, C) CoverPriceValueWhen (Cover, C) PlotShapes (IIf (Comprar, shapeSquare, shapeNone), colorGreen, 0, L, Offset-40) PlotShapes (IIf (Comprar, shapeSquare, shapeNone), ColorLime, 0, L, Offset-50) PlotShapes (IIf (Comprar, shapeUpArrow, shapeNone), ColorWhite, 0, L, Offset-45) PlotShapes (IIf (Short, shapeSquare, shapeNone), colorRed, 0, H, Offset40) PlotShapes ( IIf (Curto, shapeSquare, shapeNone), colorOrange, 0, H, Offset50) PlotShapes (IIf (Short, shapeDownArrow, shapeNone), colorWhite, 0, H, Offset-45) para (iBarCount-1igt1i--) se (Buyi 1 ) Entrada Ci sig quotBUYquot sl TrendSLi entrada tar1 (entrada .0050) entrada tar2 (entrada .0092) entrada tar3 (entrada .0179) barras ii 0 se (Selli 1) sig quotSELLquot entrada Ci sl TrendSLi entrada tar1 - (entrada .0050) Entrada tar2 - (entrada .0112) entrada tar3 - (entrada .0212) barras ii 0 Deslocamento 20 Clr IIf (sig quotBUYquot, colorLime, colorRed) ssl IIf (barras BarCount-1, TrendSLBarCount-1, Ref (TrendSL, -1) ) Sl sslBarCount-1 Plot (LineArray (barras-Offset, tar1, BarCount, tar1,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot (LineArray (barras-Offset, tar2, BarCount, tar2,1) , Quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Lote (LineArray (barras-Offset, tar3, BarCount, tar3,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Lote (LineArray (barras-Offset, sl, BarCount, sl, 1), quotquot, colorDarkRed, StyleLinestyleLine, Null, Null, Offset) Plot (LineArray (barras-Offset, entrada, BarCount, entrada, 1), quotquot, colorGreen, styleLinestyleLine, Null, Null, Offset) para (ibars i ltBarCounti) PlotText (quotquotsigquotquotentry, BarCount1, entrada , Null, colorBlue) PlotText (quotT1quottar1, BarCount3, tar1, Null, Clr) Texto do gráfico (quotT2quottar2, BarCount3, tar2, Null, Clr) PlotText (quotT3quottar3, BarCount3, tar3, Null, Clr) Messageboard ParamToggle (quotMessage Boardquot, quotShowHidequot, 1) if (messageboard 1) GfxSelectFont (quotTahomaquot, 13, 100) GfxSetBkMode (1) GfxSetTextColor (colorWhite) se (sig quotBUYquot) GfxSelectSolidBrush (colorGreen) esta é a cor do fundo da caixa else GfxSelectSolidBrush (colorRed) esta é a cor do fundo da caixa pxHeight Status (quotpxchartheightquot) xx Status (quotpxchartwidthquot) Lef T 1100 largura 310 x 5 x2 290 GfxSelectPen (colorWhite, 4) cor mais larga GfxRoundRect (x, y - 165, x2, y. 160, 90) GfxTextOut ((quot AR TRADING SYSTEM quot), 141, y-160) GfxTextOut ((quot quot), 130, y-160) GfxTextOut ((quotLast quot sig quot O sinal veio quot (BarCount-bars-1) Intervalo () 60 quot mins agoquot), 148, y-140) A localização do formato de texto GfxTextOut ((quotquot WriteIf (sig quotBUYquot, sig quot quot quot quot quot quot) quot entry), 130, y-120) GfxTextOut ( (QuotSTOP LOSS. Quot sl quot (quot WriteVal (IIf (sig quotSELLquot, entry-sl, sl-entry), 2.2) quot) quot), 130, y-100) GfxTextOut ((quotTGT: 1. Quot tar1), 130 , Y -80) GfxTextOut ((quotTGT: 2. Quot tar2), 130, y-60) GfxTextOut ((quotTGT: 3. Quot tar3), 130, y-40) GfxTextOut ((quotCurrent PL. Quot WriteVal (IIf ( Sig quotBUYquot, (C-entry), (entrada-C)), 2.2)), 130, y-22) Comprar ExRem (Comprar, Vender) Vender Formulário ExRem (Vender, Comprar) Comprar shapeUpArrow Vender FormatosDownArrow PlotShapes (IIf (Comprar , ShapeSquare, shapeNone), colorGreen, 0, L, Offset-40) PlotShapes (IIf (Comprar, shapeSquare, shapeNone), ColorLime, 0, L, Offset-50) PlotShapes (IIf (Buy, sha PeUpArrow, shapeNone), ColorWhite, 0, L, Offset-45) PlotShapes (IIf (Sell, shapeSquare, shapeNone), colorRed, 0, H, Offset40) PlotShapes (IIf (Sell, shapeSquare, shapeNone), colorOrange, 0, H Offset50) PlotShapes (IIf (Vender, shapeDownArrow, shapeNone), ColorWhite, 0, H, Offset-45) PlotShapes (forma, IIf (Comprar, ColorGreen, ColorRed), 0, IIf (Comprar, Baixo, Alto)) dist 2.5 ATR (5) para (i 0 i lt BarCount i) se (Buyi) PlotText (quotBuynquot Closei, i, Lowi - disti, colorWhite) se (Selli) PlotText (quotsellnquot Closei, i, Lowi disti, colorWhite) SECTIONBEGIN (quotemaquot) P ParamField (quotFieldquot) Tipo ParamList (quotTypequot, quotWeighted, Simple, Exponencial, Double Exponential, Tripple Exponential, Wildersquot) Periods89 Param (quotPeriods180quot, 180, 2, 300) Displacement2 Param (quotDisplacement2quot, 2, -50, 50) Plot (EMA (P, Periods89), DEFAULTNAME (), colorWhite, styleDots, 0, 0, Displacement2) SECTIONEND () rjlCross (Lk, tar1) GolCross (tar1, Lk) PlotShapes (shapeHollowStarrjl, colorAqua, 0, H, - 20) PlotShapes (shapeHollowStargol, colorViolet, 0, L, 20) SECTIONEND () para (i 0 i lt BarCount i) se (bvei) PlotText (quotABnquot. I, L i - disti, colorWhite, colorDarkBlue) se (rfwi) PlotText (quotASnquot. I, H i disti, colorWhite, colorRed) SECTIONBEGIN (quotdaySit) TimeFrameSet (inDaily) muda agora para Dayily TimeFrameRestore () restaura o frame de tempo para o Plot original (TimeFrameExpand (Oo, inDaily), quotquot, colorYellow, 10304 styleNoLabel) cx Param (quotcxposnquot, 476,0,1200,1) cy Param (quotcyposnquot, 500,0,1000,10) GfxSelectFont (quot Arial quot, 14, 98 Falso) GfxSetTextColor (ColorRGB (10,250,250)) GfxTextOut (quotVolume. Quot Volume quotquot, cx 20, cy 50) SECTIONBEGIN (quottomquot) função GetSecondNum () Tempo agora (4) Segundos int (Tempo 100) Minutos int (Tempo 100 100) Horas int (Tempo 10000 100) SecondNum int (Horas 60 60 Minutos 60 Segundos) return SecondNum RequestTimedRefresh (1) TimeFrame Interval () SecNumber GetSecondNum () Newperiod SecNumber TimeFrame 0 SecsLeft SecNumber - int (SecNumber TimeFrame) TimeFrame SecsToGo TimeFrame - SecsLeft xParam ( Quotxposnquot, 99,0,1000,1) yP Aram (quotyposnquot, 40,0,1000,1) GfxRoundRect (x615, y530, x738, y499, 0,0) GfxSelectSolidBrush (ColorRGB (230, 230, 230)) GfxSelectPen (ColorRGB (203, 25, 23), 3) Se (NewPeriod) GfxSelectSolidBrush (colorYellow) GfxSelectPen (colorYellow, 2) Diga (quotNew periodquot) GfxSetBkMode (1) GfxSelectFont (quotArialquot, 13, 800, False) GfxSetTextColor (ColorRGB (220,10,150)) GfxTextOut (quotTimeleftquotquot. (GFxTextOut ((quot Development by quot), 1150, y-45) GfxSetTextColor (ColorRGB (10,250,250)) GfxTextOut ((QuotFu2 Trading SYSTEM quot), 1150 (x2), GFxTextOut (quotNoToStr (SecsToGo, 1.0), x674, y507) GfxSetTextColor (ColorRGB (10,250,250) , Y-25) SECTIONBEGIN (quotRibbonquot) uptrendPDI () gtMDI () E Sinal () ltMACD () downtrendMDI () gtPDI () E Sinal () gtMACD () Plot (1, efines a altura da fita em percentagem da largura do painel Quotribbonquot IIf (uptrend, colorLime, IIf (downtrend, colorRed, IIf (Signal () ltMACD (), colorLightGrey, colorLightGrey))), escolha o estilo de corOwnScalestyleAreastyleNoLabel, -.05,50) SECTIONEND () Este funciona 100 se não, então Avançar e clicar no botão de download Última edição por SuperSaiyan 2 de março de 2017 às 21:46. Re: AR TRADING SYSTEM AFL FREE eu faço isso AFL SuperSaiyan SuperSaiyan está online agora Membro Data de inscrição: Mar 2006 Mensagens: 115 Obrigado: 6 Agradecido 101 vezes em 53 posts SuperSaiyan será famoso em breve. O SuperSaiyan se tornará famoso em breve Predefinição Re: AR TRADING SISTEMA AFL LIVRE eu faço isso Citação da AFL: não há nenhuma zona de negociação pode dar o código Versão de trabalho do AFL Download LINK ARTrading. afl - 11 KB Clck o botão acima para baixar Together we stand strong sk ((C-MA (C, Nol)) MA (C, nol)) 100 Graph0sk Graph0BarColorIIf (skgt0,5,4) SECTIONBEGIN (quotemaquot) Lk EMA (Close, 22) Plot (lk, quot quot, colorBrightGreen, styleDots) GfxSelectFont (quottohomaboldquot, Status (quotpxheightquot) 16) GfxSetTextAlign (6) GfxSetTextColor (ColorRGB (10,250,250)) GfxSetBkMode (0) GfxTextOut (Name (), Status (quotpxwidthquot) 2, Status (quotpxheightquot) 10) cxParam (quotcxposnquot, 1085,0,1200,1) cyParam (quotcyposnquot , 16,0,1000,1) GfxSetBkColor (ColorRGB (200,50,100)) GfxSelectFont (quottohomaboldquot, 20,98, Falso) GfxSetTextColor (colorYellow) GfxSetTextColor (ColorHSB (100, 10, 400)) GfxTextOut (quotLTP. QuotCquot quot, cx, cy) DDayO TimeFrameGetPrice (quotOquot, inDaily) DHiDay TimeFrameGetPrice (quotHous, inDaily) DLoDay TimeFrameGetPrice (quotLuot, inDaily) gfr TimeFrameGetPrice (quotCquot, inDaily, -1) fechar Título EncodeColor (colorWhite) quot AR TRADING SYSTEM quotEncodeColor ( ColorRGB (220,10,150)) quot quot Interval (2) quot quot Date () EncodeColor (ColorRGB (200,150,120)) quot Quot quot aberto, alto. Quot H quot, Low. Quot L EncodeColor (colorGreen) quot Prevvious Day Close. Quode EncodeColor (colorGreen) gfr EncodeColor (colorYellow) quotn ToDay Open. DDayO quot High. DHiDay quot Low. (DLL) (cCI (8) gt 5, colorBrightGreen, IIf (CCI (8) lt-5, colorRed, IIf (CCI (8) gt Ref (CCI (8), - 1), ColorBrightGreen, ColorDarkRed ))) HaClose EMA ((OHLLC) 5,3) HaOpen AMA (Ref (HaClose, -1), 0,5) HaHigh Max (H, Max (HaClose, HaOpen)) HaLow Min (L, Min (HaClose, HaOpen)) PlotOHLC (HaOpen, HaHigh, HaLow, HaClose, Colcci, styleCandle styleNoLabel) BKswitch ParamToggle (quotBackground Colorquot, quotOn, Offquot) OUTcolor ParamColor (quotOuter Panel Colorquot, colorBlack) INUPcolor ParamColor (quotInner Panel Upperquot, colorGrey40) INDNcolor ParamColor (quotInner Panel LowerCaptureBlackChartBkColor (OUTcolor) cor da borda externa SetChartBkGradientFill (INUPcolor, INDNcolor, TitleCo lor) cor do painel interno SECTIONEND () SECTIONBEGIN (quotquot) SetBarsRequired (100000, 0) GraphXSpace 15 ea EMA (C, 10) eb EMA (C, 20) SetBarFillColor (IIf (e gt eb, colorGreen, colorRed)) Compre e A gt eb AND TimeNum () gt 092000 E TimeNum () lt 150000 Vender eb gt ea OU Tempo () gt 150000 Curta 0 Capa 0 Comprar ExRem (Comprar, Vender) Venda ExRem (Vender, Comprar) Short ExRem (Short, Cover) Cover ExRem (Cover, Short) FactorParam (quotFactorquot, 4,1,10,1) PdParam (quotATR Periodsquot, 10,1,100,1) Up (HL) 2 (FactorATR (Pd)) Dn (HL) 2- (FactorATR (Pd)) Dn (HL) 2- (FactorATR (Pd) Pd)) iATRATR (Pd) TrendUpTrendDownNull trend01 changeOfTrend0 flagflagh0 para (i 1 i ltBarCount i) TrendUpi Null TrendDowni Nulo se (CloseigtUpi-1) trendi1 se (trendi-1 -1) changeOfTrend 1 else if (CloseiltDni-1) trendi-1 Se (trendi-1 1) changeOfTrend 1 else if (trendi-11) trendi1 changeOfTrend 0 else if (trendi-1-1) trendi-1 changeOfTrend 0 Comprar trend1 Selltrend-1 BuyExRem (Comprar, Vender) SellExRem (Sell, Buy) ShortSell CoverBuy BuyPriceValueQuando (Buy, C) SellPriceValueQuando (Sell, C) ShortPriceValueQuando (Short, C) CoverPriceValueWhen (Cover, C) PlotShapes (IIf (Comprar, shapeSquare, shapeNone), colorGreen, 0, L, Offset-40) PlotShapes (IIf (Comprar, shapeSquare, shapeNone), ColorLime, 0, L, Offset-50) PlotShapes (IIf (Comprar, shapeUpArrow, shapeNone), ColorWhite, 0, L, Offset-45) PlotShapes (IIf (Short, shapeSquare, shapeNone), colorRed, 0, H, Offset40) PlotShapes ( IIf (Curto, shapeSquare, shapeNone), colorOrange, 0, H, Offset50) PlotShapes (IIf (Short, shapeDownArrow, shapeNone), colorWhite, 0, H, Offset-45) para (iBarCount-1igt1i--) se (Buyi 1 ) Entrada Ci sig quotBUYquot sl TrendSLi entrada tar1 (entrada .0050) entrada tar2 (entrada .0092) entrada tar3 (entrada .0179) barras ii 0 se (Selli 1) sig quotSELLquot entrada Ci sl TrendSLi entrada tar1 - (entrada .0050) Entrada tar2 - (entrada .0112) entrada tar3 - (entrada .0212) barras ii 0 Deslocamento 20 Clr IIf (sig quotBUYquot, colorLime, colorRed) ssl IIf (barras BarCount-1, TrendSLBarCount-1, Ref (TrendSL, -1) ) Sl sslBarCount-1 Plot (LineArray (barras-Offset, tar1, BarCount, tar1,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot (LineArray (barras-Offset, tar2, BarCount, tar2,1) , Quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Lote (LineArray (barras-Offset, tar3, BarCount, tar3,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Lote (LineArray (barras-Offset, sl, BarCount, sl, 1), quotquot, colorDarkRed, StyleLinestyleLine, Null, Null, Offset) Plot (LineArray (barras-Offset, entrada, BarCount, entrada, 1), quotquot, colorGreen, styleLinestyleLine, Null, Null, Offset) para (ibars i ltBarCounti) PlotText (quotquotsigquotquotentry, BarCount1, entrada , Null, colorBlue) PlotText (quotT1quottar1, BarCount3, tar1, Null, Clr) Texto do gráfico (quotT2quottar2, BarCount3, tar2, Null, Clr) PlotText (quotT3quottar3, BarCount3, tar3, Null, Clr) Messageboard ParamToggle (quotMessage Boardquot, quotShowHidequot, 1) if (messageboard 1) GfxSelectFont (quotTahomaquot, 13, 100) GfxSetBkMode (1) GfxSetTextColor (colorWhite) se (sig quotBUYquot) GfxSelectSolidBrush (colorGreen) esta é a cor do fundo da caixa else GfxSelectSolidBrush (colorRed) esta é a cor do fundo da caixa pxHeight Status (quotpxchartheightquot) xx Status (quotpxchartwidthquot) Lef T 1100 largura 310 x 5 x2 290 GfxSelectPen (colorWhite, 4) cor mais larga GfxRoundRect (x, y - 165, x2, y. 160, 90) GfxTextOut ((quot AR TRADING SYSTEM quot), 141, y-160) GfxTextOut ((quot quot), 130, y-160) GfxTextOut ((quotLast quot sig quot O sinal veio quot (BarCount-bars-1) Intervalo () 60 quot mins agoquot), 148, y-140) A localização do formato de texto GfxTextOut ((quotquot WriteIf (sig quotBUYquot, sig quot quot quot quot quot quot) quot entry), 130, y-120) GfxTextOut ( (QuotSTOP LOSS. Quot sl quot (quot WriteVal (IIf (sig quotSELLquot, entry-sl, sl-entry), 2.2) quot) quot), 130, y-100) GfxTextOut ((quotTGT: 1. Quot tar1), 130 , Y -80) GfxTextOut ((quotTGT: 2. Quot tar2), 130, y-60) GfxTextOut ((quotTGT: 3. Quot tar3), 130, y-40) GfxTextOut ((quotCurrent PL. Quot WriteVal (IIf ( Sig quotBUYquot, (C-entry), (entrada-C)), 2.2)), 130, y-22) Comprar ExRem (Comprar, Vender) Vender Formulário ExRem (Vender, Comprar) Comprar shapeUpArrow Vender FormatosDownArrow PlotShapes (IIf (Comprar , ShapeSquare, shapeNone), colorGreen, 0, L, Offset-40) PlotShapes (IIf (Comprar, shapeSquare, shapeNone), ColorLime, 0, L, Offset-50) PlotShapes (IIf (Buy, sha PeUpArrow, shapeNone), ColorWhite, 0, L, Offset-45) PlotShapes (IIf (Sell, shapeSquare, shapeNone), colorRed, 0, H, Offset40) PlotShapes (IIf (Sell, shapeSquare, shapeNone), colorOrange, 0, H Offset50) PlotShapes (IIf (Vender, shapeDownArrow, shapeNone), ColorWhite, 0, H, Offset-45) PlotShapes (forma, IIf (Comprar, ColorGreen, ColorRed), 0, IIf (Comprar, Baixo, Alto)) dist 2.5 ATR (5) para (i 0 i lt BarCount i) se (Buyi) PlotText (quotBuynquot Closei, i, Lowi - disti, colorWhite) se (Selli) PlotText (quotsellnquot Closei, i, Lowi disti, colorWhite) SECTIONBEGIN (quotemaquot) P ParamField (quotFieldquot) Tipo ParamList (quotTypequot, quotWeighted, Simple, Exponencial, Double Exponential, Tripple Exponential, Wildersquot) Periods89 Param (quotPeriods180quot, 180, 2, 300) Displacement2 Param (quotDisplacement2quot, 2, -50, 50) Plot (EMA (P, Periods89), DEFAULTNAME (), colorWhite, styleDots, 0, 0, Displacement2) SECTIONEND () rjlCross (Lk, tar1) GolCross (tar1, Lk) PlotShapes (shapeHollowStarrjl, colorAqua, 0, H, - 20) PlotShapes (shapeHollowStargol, colorViolet, 0, L, 20) SECTIONEND () para (i 0 i lt BarCount i) se (bvei) PlotText (quotABnquot. I, L i - disti, colorWhite, colorDarkBlue) se (rfwi) PlotText (quotASnquot. I, H i disti, colorWhite, colorRed) SECTIONBEGIN (quotdaySit) TimeFrameSet (inDaily) muda agora para Dayily TimeFrameRestore () restaura o frame de tempo para o Plot original (TimeFrameExpand (Oo, inDaily), quotquot, colorYellow, 10304 styleNoLabel) cx Param (quotcxposnquot, 476,0,1200,1) cy Param (quotcyposnquot, 500,0,1000,10) GfxSelectFont (quot Arial quot, 14, 98 Falso) GfxSetTextColor (ColorRGB (10,250,250)) GfxTextOut (quotVolume. Quot Volume quotquot, cx 20, cy 50) SECTIONBEGIN (quottomquot) função GetSecondNum () Tempo agora (4) Segundos int (Tempo 100) Minutos int (Tempo 100 100) Horas int (Tempo 10000 100) SecondNum int (Horas 60 60 Minutos 60 Segundos) return SecondNum RequestTimedRefresh (1) TimeFrame Interval () SecNumber GetSecondNum () Newperiod SecNumber TimeFrame 0 SecsLeft SecNumber - int (SecNumber TimeFrame) TimeFrame SecsToGo TimeFrame - SecsLeft xParam ( Quotxposnquot, 99,0,1000,1) yP Aram (quotyposnquot, 40,0,1000,1) GfxRoundRect (x615, y530, x738, y499, 0,0) GfxSelectSolidBrush (ColorRGB (230, 230, 230)) GfxSelectPen (ColorRGB (203, 25, 23), 3) Se (NewPeriod) GfxSelectSolidBrush (colorYellow) GfxSelectPen (colorYellow, 2) Diga (quotNew periodquot) GfxSetBkMode (1) GfxSelectFont (quotArialquot, 13, 800, False) GfxSetTextColor (ColorRGB (220,10,150)) GfxTextOut (quotTimeleftquotquot. (GFxTextOut ((quot Development by quot), 1150, y-45) GfxSetTextColor (ColorRGB (10,250,250)) GfxTextOut ((QuotFu2 Trading SYSTEM quot), 1150 (x2), GFxTextOut (quotNoToStr (SecsToGo, 1.0), x674, y507) GfxSetTextColor (ColorRGB (10,250,250) , Y-25) SECTIONBEGIN (quotRibbonquot) uptrendPDI () gtMDI () E Sinal () ltMACD () downtrendMDI () gtPDI () E Sinal () gtMACD () Plot (1, efines a altura da fita em percentagem da largura do painel Quotribbonquot IIf (uptrend, colorLime, IIf (downtrend, colorRed, IIf (Signal () ltMACD (), colorLightGrey, colorLightGrey))), escolha o estilo de corOwnScalestyleAreastyleNoLabel, -.05,50) SECTIONEND () Este funciona 100 se não, então Deslize para cima e clicque no botão de download Corte suas perdas rapidamente, sem hesitação. Compre direito, fique bem. Nunca foi meu pensamento que fez o grande dinheiro para mim, sempre estava sentado. Jesse Livermore Quando chnages 30 por dia Há apenas um lado do mercado e esse é o lado direito Última edição por SuperSaiyan 2 de março de 2017 às 20:46. Senhor, você pode explicar como usar este Ar Trading System para saída de amplificador de entrada de um comércio. ThanksAR TRADING SYSTEM AFL FREE eu crio este AFL AR TRADING SYSTEM AFL FREE eu faço este AFL FREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREEGRATE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREE FREE FREE sk ((C-MA (C, nol)) MA (C, nol)) 100 Graph0sk Graph0BarColorIIf (skgt0,5,4) SECTIONBEGIN (quotemaquot) Lk EMA (Close, 22) Plot ( Lg, quot quot, colorBrightGreen, styleDots) GfxSelectFont (quottohomaboldquot, Status (quotpxheightquot) 16) GfxSetTextAlign (6) GfxSetTextColor (ColorRGB (10,250,250)) GfxSetBkMode (0) GfxTextOut (Name (), Status (quotpxwidthquot) 2, Status (quotpxheightquot) 10) cxParam (quotcxposnquot, 1085,0,1200,1) cyParam (quotcyposnquot, 16,0,1000,1) GfxSetBkColor (ColorRGB (200,50,100)) GfxSelectFont (quottohomaboldquot, 20,98, False) GfxSetTextColor (colorYellow) GfxSetTextColor (C OlorHSB (100, 10, 400)) GfxTextOut (quotLTP. QuotCquot quot, cx, cy) DDayO TimeFrameGetPrice (quotOquot, inDaily) DHiDay TimeFrameGetPrice (quotHous, inDaily) DLoDay TimeFrameGetPrice (quotLuot, inDaily) gfr TimeFrameGetPrice (quotCquot, inDaily, -1) fechar Título EncodeColor (colorWhite) quot AR TRADING SYSTEM quotEncodeColor ( ColorRGB (220,10,150)) quot quot Interval (2) quot quot Date () EncodeColor (ColorRGB (200,150,120)) quot Quot quot aberto, alto. Quot H quot, Low. Quot L EncodeColor (colorGreen) quot Prevvious Day Close. Quode EncodeColor (colorGreen) gfr EncodeColor (colorYellow) quotn ToDay Open. DDayO quot High. DHiDay quot Low. (DLL) (cCI (8) gt 5, colorBrightGreen, IIf (CCI (8) lt-5, colorRed, IIf (CCI (8) gt Ref (CCI (8), - 1), ColorBrightGreen, ColorDarkRed ))) HaClose EMA ((OHLLC) 5,3) HaOpen AMA (Ref (HaClose, -1), 0,5) HaHigh Max (H, Max (HaClose, HaOpen)) HaLow Min (L, Min (HaClose, HaOpen)) PlotOHLC (HaOpen, HaHigh, HaLow, HaClose, Colcci, styleCandle styleNoLabel) BKswitch ParamToggle (quotBackground Colorquot, quotOn, Offquot) OUTcolor ParamColor (quotOuter Panel Colorquot, colorBlack) INUPcolor ParamColor (quotInner Panel Upperquot, colorGrey40) INDNcolor ParamColor (quotInner Panel LowerCaptureBlackChartBkColor (OUTcolor) cor da borda externa SetChartBkGradientFill (INUPcolor, INDNcolor, TitleCo lor) cor do painel interno SECTIONEND () SECTIONBEGIN (quotquot) SetBarsRequired (100000, 0) GraphXSpace 15 ea EMA (C, 10) eb EMA (C, 20) SetBarFillColor (IIf (e gt eb, colorGreen, colorRed)) Compre e A gt eb AND TimeNum () gt 092000 E TimeNum () lt 150000 Vender eb gt ea OU Tempo () gt 150000 Curta 0 Capa 0 Comprar ExRem (Comprar, Vender) Venda ExRem (Vender, Comprar) Short ExRem (Short, Cover) Cover ExRem (Cover, Short) FactorParam (quotFactorquot, 4,1,10,1) PdParam (quotATR Periodsquot, 10,1,100,1) Up (HL) 2 (FactorATR (Pd)) Dn (HL) 2- (FactorATR (Pd)) Dn (HL) 2- (FactorATR (Pd) Pd)) iATRATR (Pd) TrendUpTrendDownNull trend01 changeOfTrend0 flagflagh0 para (i 1 i ltBarCount i) TrendUpi Null TrendDowni Nulo se (CloseigtUpi-1) trendi1 se (trendi-1 -1) changeOfTrend 1 else if (CloseiltDni-1) trendi-1 Se (trendi-1 1) changeOfTrend 1 else if (trendi-11) trendi1 changeOfTrend 0 else if (trendi-1-1) trendi-1 changeOfTrend 0 Comprar trend1 Selltrend-1 BuyExRem (Comprar, Vender) SellExRem (Sell, Buy) ShortSell CoverBuy BuyPriceValueQuando (Buy, C) SellPriceValueQuando (Sell, C) ShortPriceValueQuando (Short, C) CoverPriceValueWhen (Cover, C) PlotShapes (IIf (Comprar, shapeSquare, shapeNone), colorGreen, 0, L, Offset-40) PlotShapes (IIf (Comprar, shapeSquare, shapeNone), ColorLime, 0, L, Offset-50) PlotShapes (IIf (Comprar, shapeUpArrow, shapeNone), ColorWhite, 0, L, Offset-45) PlotShapes (IIf (Short, shapeSquare, shapeNone), colorRed, 0, H, Offset40) PlotShapes ( IIf (Curto, shapeSquare, shapeNone), colorOrange, 0, H, Offset50) PlotShapes (IIf (Short, shapeDownArrow, shapeNone), colorWhite, 0, H, Offset-45) para (iBarCount-1igt1i--) se (Buyi 1 ) Entrada Ci sig quotBUYquot sl TrendSLi entrada tar1 (entrada .0050) entrada tar2 (entrada .0092) entrada tar3 (entrada .0179) barras ii 0 se (Selli 1) sig quotSELLquot entrada Ci sl TrendSLi entrada tar1 - (entrada .0050) Entrada tar2 - (entrada .0112) entrada tar3 - (entrada .0212) barras ii 0 Deslocamento 20 Clr IIf (sig quotBUYquot, colorLime, colorRed) ssl IIf (barras BarCount-1, TrendSLBarCount-1, Ref (TrendSL, -1) ) Sl sslBarCount-1 Plot (LineArray (barras-Offset, tar1, BarCount, tar1,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot (LineArray (barras-Offset, tar2, BarCount, tar2,1) , Quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Lote (LineArray (barras-Offset, tar3, BarCount, tar3,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Lote (LineArray (barras-Offset, sl, BarCount, sl, 1), quotquot, colorDarkRed, StyleLinestyleLine, Null, Null, Offset) Plot (LineArray (barras-Offset, entrada, BarCount, entrada, 1), quotquot, colorGreen, styleLinestyleLine, Null, Null, Offset) para (ibars i ltBarCounti) PlotText (quotquotsigquotquotentry, BarCount1, entrada , Null, colorBlue) PlotText (quotT1quottar1, BarCount3, tar1, Null, Clr) Texto do gráfico (quotT2quottar2, BarCount3, tar2, Null, Clr) PlotText (quotT3quottar3, BarCount3, tar3, Null, Clr) Messageboard ParamToggle (quotMessage Boardquot, quotShowHidequot, 1) if (messageboard 1) GfxSelectFont (quotTahomaquot, 13, 100) GfxSetBkMode (1) GfxSetTextColor (colorWhite) se (sig quotBUYquot) GfxSelectSolidBrush (colorGreen) esta é a cor do fundo da caixa else GfxSelectSolidBrush (colorRed) esta é a cor do fundo da caixa pxHeight Status (quotpxchartheightquot) xx Status (quotpxchartwidthquot) Lef T 1100 largura 310 x 5 x2 290 GfxSelectPen (colorWhite, 4) cor mais larga GfxRoundRect (x, y - 165, x2, y. 160, 90) GfxTextOut ((quot AR TRADING SYSTEM quot), 141, y-160) GfxTextOut ((quot quot), 130, y-160) GfxTextOut ((quotLast quot sig quot O sinal veio quot (BarCount-bars-1) Intervalo () 60 quot mins agoquot), 148, y-140) A localização do formato de texto GfxTextOut ((quotquot WriteIf (sig quotBUYquot, sig quot quot quot quot quot quot) quot entry), 130, y-120) GfxTextOut ( (QuotSTOP LOSS. Quot sl quot (quot WriteVal (IIf (sig quotSELLquot, entry-sl, sl-entry), 2.2) quot) quot), 130, y-100) GfxTextOut ((quotTGT: 1. Quot tar1), 130 , Y -80) GfxTextOut ((quotTGT: 2. Quot tar2), 130, y-60) GfxTextOut ((quotTGT: 3. Quot tar3), 130, y-40) GfxTextOut ((quotCurrent PL. Quot WriteVal (IIf ( Sig quotBUYquot, (C-entry), (entrada-C)), 2.2)), 130, y-22) Comprar ExRem (Comprar, Vender) Vender Formulário ExRem (Vender, Comprar) Comprar shapeUpArrow Vender FormatosDownArrow PlotShapes (IIf (Comprar , ShapeSquare, shapeNone), colorGreen, 0, L, Offset-40) PlotShapes (IIf (Comprar, shapeSquare, shapeNone), ColorLime, 0, L, Offset-50) PlotShapes (IIf (Buy, sha PeUpArrow, shapeNone), ColorWhite, 0, L, Offset-45) PlotShapes (IIf (Sell, shapeSquare, shapeNone), colorRed, 0, H, Offset40) PlotShapes (IIf (Sell, shapeSquare, shapeNone), colorOrange, 0, H Offset50) PlotShapes (IIf (Vender, shapeDownArrow, shapeNone), ColorWhite, 0, H, Offset-45) PlotShapes (forma, IIf (Comprar, ColorGreen, ColorRed), 0, IIf (Comprar, Baixo, Alto)) dist 2.5 ATR (5) para (i 0 i lt BarCount i) se (Buyi) PlotText (quotBuynquot Closei, i, Lowi - disti, colorWhite) se (Selli) PlotText (quotsellnquot Closei, i, Lowi disti, colorWhite) SECTIONBEGIN (quotemaquot) P ParamField (quotFieldquot) Tipo ParamList (quotTypequot, quotWeighted, Simple, Exponencial, Double Exponential, Tripple Exponential, Wildersquot) Periods89 Param (quotPeriods180quot, 180, 2, 300) Displacement2 Param (quotDisplacement2quot, 2, -50, 50) Plot (EMA (P, Periods89), DEFAULTNAME (), colorWhite, styleDots, 0, 0, Displacement2) SECTIONEND () rjlCross (Lk, tar1) GolCross (tar1, Lk) PlotShapes (shapeHollowStarrjl, colorAqua, 0, H, - 20) PlotShapes (shapeHollowStargol, colorViolet, 0, L, 20) SECTIONEND () para (i 0 i lt BarCount i) se (bvei) PlotText (quotABnquot. I, L i - disti, colorWhite, colorDarkBlue) se (rfwi) PlotText (quotASnquot. I, H i disti, colorWhite, colorRed) SECTIONBEGIN (quotdaySit) TimeFrameSet (inDaily) muda agora para Dayily TimeFrameRestore () restaura o frame de tempo para o Plot original (TimeFrameExpand (Oo, inDaily), quotquot, colorYellow, 10304 styleNoLabel) cx Param (quotcxposnquot, 476,0,1200,1) cy Param (quotcyposnquot, 500,0,1000,10) GfxSelectFont (quot Arial quot, 14, 98 Falso) GfxSetTextColor (ColorRGB (10,250,250)) GfxTextOut (quotVolume. Quot Volume quotquot, cx 20, cy 50) SECTIONBEGIN (quottomquot) função GetSecondNum () Tempo agora (4) Segundos int (Tempo 100) Minutos int (Tempo 100 100) Horas int (Tempo 10000 100) SecondNum int (Horas 60 60 Minutos 60 Segundos) return SecondNum RequestTimedRefresh (1) TimeFrame Interval () SecNumber GetSecondNum () Newperiod SecNumber TimeFrame 0 SecsLeft SecNumber - int (SecNumber TimeFrame) TimeFrame SecsToGo TimeFrame - SecsLeft xParam ( Quotxposnquot, 99,0,1000,1) yP Aram (quotyposnquot, 40,0,1000,1) GfxRoundRect (x615, y530, x738, y499, 0,0) GfxSelectSolidBrush (ColorRGB (230, 230, 230)) GfxSelectPen (ColorRGB (203, 25, 23), 3) Se (NewPeriod) GfxSelectSolidBrush (colorYellow) GfxSelectPen (colorYellow, 2) Diga (quotNew periodquot) GfxSetBkMode (1) GfxSelectFont (quotArialquot, 13, 800, False) GfxSetTextColor (ColorRGB (220,10,150)) GfxTextOut (quotTimeleftquotquot. QuotNumToStr (SecsToGo, 1.0), x674, y507) GfxSetTextColor (ColorRGB (10,250,250)) GfxTextOut ((quot Develop By quot), 1150, y-45) GfxSetTextColor (ColorRGB (10,250,250)) GfxTextOut (quotAR Trading SYSTEM quot), 1150 , Y-25) SECTIONBEGIN (quotRibbonquot) uptrendPDI () gtMDI () E Sinal () ltMACD () downtrendMDI () gtPDI () E Sinal () gtMACD () Plot (1, efines a altura da fita em percentagem da largura do painel Quotribbonquot, IIf (tendência de alta, colorLime, IIf (tendência de alta, colorRed, IIf (Signal () ltMACD (), colorLightGrey, colorLightGrey))), escolha o estilo de corOwnScalestyleAreastyleNoLabel, -.05,50) SECTIONEND () Última edição por skumar4545 3 de janeiro de 2017 Às 11:22. Razão: adicionar sistema de negociação imgMySAR ADX para Amibroker (AFL) Tweet no Twitter O sistema de negociação MySAR ADX para Amibroker (AFL) Parabolic Stop and Reversal, também conhecido como Parabolic SAR, é uma estratégia que usa um método de parada e reversão para determinar qual ajuda Os comerciantes entram boa saída. J. Welles Wilder8217s Parabolic Stop and Reversal é um estudo simples para usar. O estudo calcula continuamente os pontos de preços de parada e reversão. Sempre que a análise técnica do mercado de ações e valores mobiliários, Parabolic SAR (Parabolic Stop and Reverse) é um método desenvolvido por J. Welles Wilder, Jr., parece ser mais rentável. Acho que o truque é aproveitar a tendência. Sempre haverá redução. O foco deve ser dado à tendência. Minha recomendação é adicionar lotes durante a tendência de maximizar os lucros. A coisa boa sobre o indicador é que ele irá tirar você de um comércio perdedor sem perda maciça. Então, se o sistema é globalmente lucrativo, podemos nos importar menos com os whipsaws. Whipsaw é um prelúdio para lucrar. Uma maneira que eu forneci o gráfico e circulou quando muito deveria ser adicionado. Observe quando a linha vai para baixo, por causa de uma ruptura de preço. Devemos aproveitar o movimento de preços. Em seguida, venda quando obtemos o sinal de inversão. Se isso pode ser codificado, isso seria incrível. Este indicador de SAR é impressionante, já que sou seguidor da tendência e nada mais. Este é um sistema de negociação completo usando um SAR personalizado projetado por Thomas Ludwig e ADX para filtrar sinais falsos. Ele rastreia o movimento dos preços e segue a tendência. sourcecode 82128212821282128212821282128212821282128212821282128212821282128212821282128212821282128212821282128212 Fórmula Nome: MySAR ADX Sistema AuthorUploader: Abhishek Gupta DateTime Adicionado: 2017-Mar-09 Nível: beginnermedium Flags: estratégia de negociação 82128212821282128212821282128212821282128212821282128212821282128212821282128212821282128212821282128212 Este é um sistema comercial completo utilizando um SAR personalizado desenhado por Thomas Ludwig e ADX para a filtragem de sinais falsos. Ele rastreia o movimento dos preços e segue a tendência. Usa PSAR xo por Thomas Ludwig wisestocktraderindicators2313-parabxo Escrito por: Abhishek Gupta 82128212821282128212821282128212821282128212821282128212821282128212821282128212821282128212821282128212 SECTIONBEGIN SetChartOptions (quotPricequot) (0, chartShowArrowschartShowDates) N (Título StrFormat (quot 8211 Abrir g, Hi g, Lo g, Fechar g (.1f) Vol quot WriteVal (V, 1.0) quot, O, H, L, C, SelectedValue (ROC (C, 1)))) Plot (C, quotClosequot, ParamColor (quotColorquot, colorDefault), styleNoTitle ParamStyle (quotStylequot) GetPriceStyle ()) SECTIONEND () SECTIONBEGIN (quotPSO xoquot) wisestocktraderindicators2313-parabxo 82128212821282128212821282128212821282128212821282128212821282128212821282128212821282128212821282128212 Nome da Fórmula: ParabXO AuthorUploader: Thomas Ludwig E-mail: Thomas. Ludwigmx. de Data de Exibição: 2005-03-21 15:19:39 Origem: Palavras-chave: Nível: médio Bandeiras: Indicador Fórmula URL: amibrokerlibraryformula. phpid448 Detalhes URL: amibrokerlibrarydetail. ph Pid448 82128212821282128212821282128212821282128212821282128212821282128212821282128212821282128212821282128212 Este é um aprimoramento do famoso indicador Parabolic SAR de Welles Wilder. Para mais detalhes, veja as observações abaixo. 82128212821282128212821282128212821282128212821282128212821282128212821282128212821282128212821282128212 ParabXO implementado na AFL. O código abaixo depende muito do código AFL para o Parabolic SAR por Tomasz Janeczko na biblioteca AB. Aplicação: Arraste o amplificador Drop. Além de tornar o Factor do acelerador e seu valor máximo variável através da função Param (), fiz 2 aprimoramentos por algumas codificações adicionais simples introduzidas por Dennis Meyers em um artigo na edição SampC 41995: 1. O valor de início do AF pode Seja configurado de forma independente, assim você pode fazer o indicador reagir consideravelmente mais rapidamente. 2. O ParabXO não reverte, a menos que seja penetrado por uma quantidade especificada (chamado quotCrossover threshold in quot below), evitando assim muitas whipsaws. Ele pode ser configurado para 0 se você não deseja usar essa modificação. Por favor, note que no artigo Meyers8217 ele usou um número absoluto, enquanto que uma porcentagem faz mais sentido na minha humilde opinião. Escrito por: Thomas Ludwig acc Param (quotAcceleration factorquot, 0.1, 0.01, 0.1, 0.01) acc Optimize (quotAcceleration factorquot, acc, 0.01, 0.1, 0.01) afstart Param (quotStarting AF valuequot, 0.03, 0.01, 0.1, 0.01) afstart Optimize (QuotMelimum AF valuequot, afmax, 0.01, 0.1, 0.01) Param Param (quotMaximum AF valuequot, 0.06, 0.01, 0.1, 0.01) afmax Optimize (quotMaximum AF valuequot, afmax, 0.01, 0.1, 0.01) Ct Param (quotCrossover threshold in quot 0, 0, 1, 0.1) Ct Optimize (quotCrossover threshold in quot, Ct, 0, 1, 0.1) Ct1Ct100 IAF acc MaxAF afmax aceleração máxima psar Fechar inicializar psartemp Fechar longo 1 assumir longo para as condições iniciais af afstart valor inicial do Fator de aceleraç~ao ep Low 0 init ponto extremo hp Alto 0 lp Baixo 0 para (i 2 i lt BarCount i) se (longo) psar i psar i-1 af (hp 8211 psar i-1) psartemp i psar i (1-Ct1 ) Else psar i psar i-1 af (lp 8211 psar i-1) psartemp i psar i (1Ct1) inverter 0 ch Eck for reversal if (long) if (Low i lt psar i (1-Ct1)) long 0 reverso 1 posição reversa para Short psar i hp SAR é High point no comércio anterior psartemp i hp lp Low i af afstart else if (High I gt psar i (1Ct1)) longo 1 reverso 1 posição reversa para longo psar i lp psartemp i lp hp High i af afstart if (reverse 0) if (long) if (High i gt hp) hp High i af af IAF if (Af gt MaxAF) af MaxAF se (Low i 8211 1 lt psar i) psar i Low i 8211 1 se (Low i 8211 2 lt psar i) psar i Low i 8211 2 else if (Low i lt lp) lp Low i Af af IAF se (af gt MaxAF) af MaxAF se (High i 8211 1 gt psar i) psar i High i 8211 1 se (High i 8211 2 gt psar i) psar i High i 8211 2 Plot (psar, DEFAULTNAME () , ParamColor (quotColorquot, colorRed), styleDots styleNoLine styleThick) Plot (psartemp, DEFAULTNAME (), ParamColor (quotColorquot, colorRed), styleDots styleNoLine styleThick) SECTIONEND () SECTIONBEGIN (quotADXquot) foi executado Ge Param (quotADX Periodquot, 13, 12, 25, 1) range Optimize (quotADX Periodquot, range, 20, 25, 1) MYADXFactor Param (quotADX Factorquot, 15, 12, 20, 1) MYADXFactor Optimize (quotADX Factorquot, MYADXFactor, 15, 20, 1) MYADX ADX (intervalo) SECTIONEND () SECTIONBEGIN (quotTrading signalsquot) Compre Cross (Open, psartemp) E MYADXgtMYADXFactor Short Cross (psartemp, Open) E MYADXgtMYADXFactor Sell Cross (psartemp, Open) Cover Cross (Open, psartemp ) Comprar ExRem (Comprar, Vender) Extrem de venda Extrem (Curto, Capa) Capa ExRem (Capa, Curta) Comprar Valor do preçoQuando (Comprar, Fechar) CurtoPreço ValorQuando (Curto, Fechar) Cobertura Valor Valor Quando (Capa, Fechar) SellPrice ValueWhen (Sell, Close) dist 1.5ATR (10) para (i2 iltBarCount i) se (Coveri) PlotText (quotnCover short: quot CoverPricei, i1.5, L i - disti-3, colorLime) PlotText (quotnnProfit: quot ( ShortPricei-CoverPricei), i1.5, L i - disti-3, colorLime) else if (Selli) PlotText (quotnSell comprou: quot SellPricei, i1.5, H i disti5, colorOrange) PlotTex T (quotnnProfit: quot (SellPricei-BuyPricei), i1.5, H i disti5, colorOrange) se (Buyi) PlotText (quotBuy: quot BuyPricei, i1.5, L i - disti-3, colorLime) else if (Shorti) PlotText (quotShort: quot ShortPricei, i1.5, H i disti5, colorOrange) PlotShapes (BuyshapeUpArrow, colorGreen, 0, Low, -28) PlotShapes (ShortshapeDownArrow, colorRed, 0, Alto, -28) PlotShapes (CovershapeHollowUpArrow, colorGreen, 0 , Low, -45) PlotShapes (SellshapeHollowDownArrow, colorRed, 0, High, -45) printf (quotnSignal veio quot IIf (BarsSince (Short) gtBarsSince (Buy), BarsSince (Buy), BarsSince (Short)) quot bars agoquot) WriteIf (BarsSince (Short) gtBarsSince (Buy), quotnBuy quot BuyPrice, quotnShort quot ShortPrice) printf (quotTrailing SL: quot psar) printf (quotnnPossiblities quot) printf (quotnMax Profit: quot IIf (BarsSince (Short) gtBarsSince (Buy), (( OHLC) 4-BuyPrice), (ShortPrice - (OHLC) 4))) printf (quotnMin Profit: quot IIf (BarsSince (Short) gtBarsSince (Buy), (psar-ShortPrice), (ShortPrice-psar))) Write Messages pr Intf (quotnnLet the profit run. quot) printf (quotnClose uma chamada somente quando trailing SL hitsquot) SECTIONEND () sourcecode