Ar trading system afl amibroker

Olá a todos, só quero compartilhar algo que eu tenho programado (não totalmente por mim contribuições de comerciantes do companheiro em amibroker também) . Eu tentei e testou, e pensa que trabalha muito de perto ao sistema que foi ensinado. Fim de e dia deve lembrar, wun sistema trazer u dinheiro, don39t busca de santo graal. Ser um comerciante disciplinado. (0, chartShowArrows124chartShowDates) Parâmetro definido pelo usuário para os períodos de EMA EMAType Param (quotEMA-1, TEMA-2, JMA-3quot, 2 (somente para uso em gráficos de tabelas de AMIBROKER TA) CARTAS SEMANAL COM SISTEMA DE IMPULSO MENSAL Diagrama de barras semanal SECTIONBEGIN (quotWeekly Graphquot) , 1, 3, 1) Parâmetro de Plotfashion (quotBarArrows-1, Barras de Impulso (1), 1, 3, 1) Param de EMAprds (quotEMAperiodsquot, 7, 1, 30, 1) -2quot, 2, 1, 2, 1) Permitir que o usuário defina a localização e a altura da fita semanal e mensal WRP1 Param (quotWeekly Ribbon Locationquot, -10.5, -1000, 1000, 0.1) WRP2 Param (quotWeekly Ribbon Heightquot, 366.5, -0.001 , 500, 0,1) MRP1 Param (quotMonthly Ribbon Locationquot, 5,2, -1000, 1000, 0,1) MRP2 Param (quotMonthly Ribbon Heightquot, 199, -0,001, 500, 0,1) TimeFrameSet (inWeekly) Calcular EMA e MACD Histograma if (EMAType 1 ) DayEMA EMA (Close, EMAprds) se (EMAType 2) DayEMA TEMA (Close, EMAprds) if (EMAType 3) Linha abaixo para ser usado com Jurik JMA Day MACDval MACD (12, 26) Sinal de Sinal (12, 26, 9) Histograma MACDval - Signalval Determine (5, 8, 5) Se tivermos um Impulse UP, DOWN ou None ImpulseUp DayEMA gt Ref (DayEMA, -1) E Histograma gt Ref (Histograma, -1) ImpulseDown DayEMA lt Ref (DayEMA, -1) E Histograma lt Ref (Histograma, -1) (Dayema, -1) E Histograma lt Ref (Dayema, -1) E Histograma lt Ref (Histograma, -1) e Histograma lt Ref (Histograma, -1) E (Não Impulso) TimeFrameRestore () Agora obtenha o histograma mensal do MACD. TimeFrameSet (inMenthly) MACDval MACD (5, 8) Signal Signal (5, 8, 5) Histinm MACDval - Signalval mhrising Histinm gt Ref (Histinm, -1) mhfalling Histinm lt Ref (Histinm, -1) whrising TimeFrameExpand (whrising, inWeekly , ExpandLast) whfalling TimeFrameExpand (whfalling, inWeekly, expandLast) mhrising TimeFrameExpand (mhrising, inMonthly, expandLast) mhfalling TimeFrameExpand (mhfalling, inMonthly, expandLast) kol IIf (whrising, colorBrightGreen, IIf (whfalling, colorRed, colorLightGrey) PlotShapes (shapeUpArrow ImpulseUp, colorBrightGreen, 0, Low, -12) PlotShapes (plotfashion 1) Plot (Close, quotClosequot, colorTeal, styleBar) ShapeDownArrow ImpulseDown, colorRed, 0, High, -12) PlotShapes (shapeSmallCircle ImpulseNone, colorWhite, 0, High, 5) else barkol IIf (impulseUP, colorBrightGreen, IIf (impulseDown, colorRed, colorCustom11)) Plot (C, quotClosequot, barko Tendência semanal VERDE AUMENTANDO, QUEDA VERMELHA, NEUTRO BRANCO Plot (10, quotMesa de Fita, kol, styleOwnScale124styleArea124styleNoLabel, WRP1, WRP2) Tendência Semanal AZUL, AMARELO FALLING, WHITE NEUTRAL TimeFrameRestore () SECTIONBEGIN (quotEMA1quot) P ParamField (quotPrice fieldquot, -1) Parâmetros Param (quotPeriodsquot, 15, 2, 200, 1, 10) Plot (EMA (P, Períodos), DEFAULTNAME (), ParamColor QuotColorquot, colorCycle), ParamStyle (quotStylequot)) SECTIONEND () SECTIONBEGIN (quotZIG - ZigQuot) TimeFrameSet (inWeekly) P ParamField (quotPrice fieldquot) alterar Param (quot changequot, 5,0,1,25,0.1) ), DEFAULTNAME (), ParamColor (quotColorquot, colorCycle), ParamStyle (quotStylequot)) TimeFrameRestore () SEÇÃOEND () MACD Semanal Histogran SECTIONBEGIN (quotWeekly MACDquot) TimeFrameSet (inWeekly) MACDw MACD (12, 26) 9) MACDwLINE MACD (12, 26 ) MACDwSignal Signal (12, 26, 9) Cor IIf (Ref (MACDw, -1) gtMACDw, colorRed, colorBrightGreen) TimeFrameRestore () Plot (MACDw, quotMACD Weeklyquot, Color, styleHistogram 124 styleThick) ColorRed, styleLine) Plot (MACDwSignal, quotMACD Semanalmente Signal Linequot, colorBrightGreen, styleLine) SEÇÃOEND () ÍNDICE DE FORÇA SEMANAL 13day MA SECTIONBEGIN (quotForce Index2quot) Parâmetros TimeFrameSet (inWeekly) Param (quotPeriodsquot, 13, 1, 100, 1) (Close, Ref (Close, -1)) V), intervalos) FIkol IIf (fi lt 0, colorRed, colorBrightGreen) Plot (Close, quotClosequot, colorRed, 2) Plot (FI, quotForce Index, FIkol, styleLine124styleThick) (0, quotquot, colorViolet, styleLine 124 styleThick 124 styleNoLabel) Título Name () EncodeColor (colorWhite) quot - Índice de Força - quot WriteVal (periods, 1) quot dias, quot EncodeColor (colorRed) quot Fechar quot EncodeColor (colorWhite) quot quot WriteVal (Close) quot, quot EncodeColor (colorBlue) quotForce Index quot E NcodeColor (colorWhite) WriteVal (FI, 1.2) TimeFrameRestore () SECTIONEND () SECTIONBEGIN (quotVolumequot) TimeFrameSet (inWeekly) Plot (volume, DEFAULTNAME (), ParamColor (quotColorquot, colorBlueGrey), ParamStyle (quotStylequot, styleHistogram 124 styleOwnScale 124 styleThick, ), 2) TimeFrameRestore () TABELA DIÁRIA COM SISTEMA DE IMPULSO SEMANAL Parâmetro definido pelo usuário para períodos de EMA EMAType Param (quotEMA-1, TEMA-2, JMA-3quot, 2, 1, 3, 1) EMAprds Param (quotEMAperiodsquot , 7, 1, 30, 1) StdMACD Param (quotStandard MACD No-0, Yes-1quot, 1, 0, 1, 1) Plotfashion Param (quotBarArrows-1, Impulse Bars-2quot, 2,1,2,1) Permitir que o usuário defina a localização e a altura da fita semanal e mensal WRP1 Param (quotFerramenta de Fita Semanal, 5.2, -1000, 1000, 0.1) WRP2 Param (quotWeekly Ribbon Heightquot, 199, -0.001, 500, 0.1) MRP1 Param (quotMonthly Ribbon Locationquot, 5.2, -1000, 1000, 0.1) MRP2 Param (quotAltura de fita mensal, 199, -0.001, 500, 0.1) Computa EMA e MACD H (EMAType 1) DayEMA EMA (Close, EMAprds) se (EMAType 2) DayEMA TEMA (Close, EMAprds) se (EMAType 3) Linha abaixo para ser usado com Jurik JMA Histograma MACD () Signal () Determine se temos um Impulse UP, DOWN ou None ImpulseUp DayEMA gt Ref (DayEMA, -1) E Histograma gt Ref (Histograma, -1) ImpulseDown DayEMA lt Ref (DayEMA, -1) E Histograma lt Ref (Histograma , -1) ImpulseNone (NOT ImpulseUP) E (NOT ImpulseDown) Calcular o MACD semanal e determinar se aumenta ou diminui Nota: usa parâmetros quotnon-standardquot33 TimeFrameSet (inWeekly) if (StdMACD 0) MACDval MACD (5, , 8, 5) MACDval MACD (12, 26) Sinal de Sinal (12, 26, 9) Histinw MACDval - Whaler de Signalval Histinw gt Ref (Histinw, -1) Whinting Histinw lt Ref (Histinw, -1) ) AND (NOT whfalling) Agora obtenha o histograma mensal do MACD. TimeFrameSet (inMenthly) MACDval MACD (5, 8) Signal Signal (5, 8, 5) Histinm MACDval - Signalval mhrising Histinm gt Ref (Histinm, -1) mhfalling Histinm lt Ref (Histinm, -1) whrising TimeFrameExpand (whrising, inWeekly , ExpandLast) whfalling TimeFrameExpand (whfalling, inWeekly, expandLast) whnone TimeFrameExpand (whnone, inWeekly, expandLast) mhrising TimeFrameExpand (mhrising, inMonthly, expandLast) mhfalling TimeFrameExpand (mhfalling, inMonthly, expandLast) kol IIf (whrising, colorBrightGreen, (Plotfashion 1) Plot (Close, quotClosequot, colorTeal, styleBar) PlotShapes (shapeUpArrow ImpulseUp , ColorBrightGreen, 0, Low, -12) PlotShapes (shapeDownArrow ImpulseDown, colorRed, 0, High, -12) PlotShapes (shapeSmallCircle ImpulseNone, colorWhite, 0, High, 5) mais barkol IIf (impulseUP, colorBrightGreen, IIf Wn, colorRed, colorCustom11)) Lote (C, quotClosequot, barkol, styleBar) Lote (10, quotMemória Ribbonquot, kol, styleOwnScale124styleArea124styleNoLabel, WRP1, WRP2) Tendência semanal VERDE RISING, RED FALLING, WHITE NEUTRAL , StyleOwnScale124styleArea124styleNoLabel, MRP1, MRP2) Tendência mensal AZUL AUMENTANDO, AMARELO QUEDA, BRANCO NEUTRO LookBkPd 100 AvgPd 22 ExternalBarPct 15 ConvergePct 2 EMA média (C, AvgPd) Rng HVV (H, LookBkPd) X Rng deltaX X2 (Sobre - LookBkPd) Sum (Under, LookBkPd)) LookBkPd OP LastValue (OuterPct) XXsign (OP - ExternalBarPct) deltaX deltaX deltaX2 enquanto (abs (OP - ExternalBarPct) ) Gt ConvergePct) Plot (Médio, quotMAquot, colorYellow, styleLine124styleNoTitle) Plot (MiddleX, quotMAquot, colorSkyblue, styleDashed124styleNoTitle) Plot (Middle-X, quotMAquot, colorSkyblue, styleDashed124styleNoTitle) Ction Determine se o status Impulse é otimista, neutro ou com baixa. Exibir como coluna de texto. ImpulseState WriteIf (ImpulseUp, quotBulllishquot, WriteIf (ImpulseDown, quotBearishquot, quotNeutralquot)) Definir a cor de fundo para Impulse Status Column ImpulseCol IIf (ImpulseUp, colorGreen, IIf (ImpulseDown, colorRed, colorLightGrey)) Determinar a tendência semanal. Exibir como coluna de texto WeeklyTrend WriteIf (whrising, quotRisingquot, WriteIf (whfalling, quotFallingquot, quotFlat33quot)) WeeklyCol IIf (whrising, colorGreen, IIf (whfalling, colorRed, colorLightGrey)) Determine Monthly Trend. Exibir como coluna de texto MonthlyTrend WriteIf (mhrising, quotRisingquot, WriteIf (mhfalling, quotFallingquot, quotFlat33quot)) MonthlyCol IIf (mhrising, colorGreen, IIf (mhfalling, colorRed, colorLightGrey)) Determine quantas barras o estado atual existiu barsinbull Min (BarsSince (Barras de impulsos), BarsSince (impulsedup), BarsSince (impulseup), BarsSince (impulseup)) Define uma única variável para mostrar o número de barras no estado atual, dependendo do Impulse real Colunas para exibição no Explorer AddTextColumn (ImpulseState, quotImpulse Statusquot, 1, colorWhite, ImpulseCol) AddColumn (barsinstate, quotBars neste estado, 1, colorWhite, Impulsecol) AddTextColumn (WeeklyTrend, quotWeekly Trendquot, 1, colorWhite, WeeklyCol) AddTextColumn (MonthlyTrend, quotMonthly Trendquot, 1, colorWhite, MonthlyCo L) SECTIONBEGIN (quotZIG - Zigquot) P ParamField (quotPrice fieldquot) change Param (quotColagem, colorCycle), ParamStyle (Parâmetro) (12, 26) - Sinal (12, 26, 9) MACDwLINE MACD (12, 26) Sinal MACDwSignal (12, 26, 9) (MACDw, quotMACD Dailyquot, Color, styleHistogram 124 styleThick) Plot (MACDwLINE, quotMACD Diário Linequot, colorRed, styleLine) Plot (MACDwSignal, quotMACD Dail) Duração (MACDw, -1) gtMACDw, colorRed, colorBrightGreen) Signal Linequot, colorBrightGreen, styleLine) SEÇÃOEND () ÍNDICE DA FORÇA DIÁRIA 2DAY Parâmetros de MA Param (quotPeriodsquot, 2, 1, 100, 1) FI EMA (((Close - Ref (Close, -1) (0, colorRed, colorBrightGreen) Plot (Close, quotClosequot, colorRed, 2) Plot (FI, quotForce Index, FIkol, styleLine124styleThick) ColorViolet, styleLine 124 styleThick 124 styleNoLabel) Título Name () EncodeColor (colorWhite) quot - Force Index - quot WriteVal (period, 1) quot dias, quot EncodeColor (colorRed) quot Fechar quot EncodeColor (colorWhite) quot quot WriteVal (Close) quot , QuotCodeColor (colorBlue) quotForce Index quot EncodeColor (corWhite) WriteVal (FI, 1.2) SECÇÃOBEGIN (quotVolumequot) Plot (Volume, DEFAULTNAME (), ParamColor (quotColorquot, colorBlueGrey), ParamStyle (quotStylequot, styleHistogram 124 styleOwnScale 124 styleThick , HltH1 e LgtL1, 0, IIf (H-H1gtL1-L, H-H1, L1-L), H1, ) VAL1 H-H1 Val2 L1-L Val IIf (Val1gtVal2, Val1, Val2) Mediana Mediana (Val, 22) cor IIf (Val lt Avgval, colorBlue, IIf (Valgt Avgval e Val lt Avgval 3, colorViolet, IIf Gt Avgval 3, colorOrange, colorViolet))) Plot (T, DEFAULTNAME (), cor, estiloHistogram 124 styleThick) P ParamField (quotPrice fieldquot, -1) Periods Para M (quotPeriodsquot, 22, 2, 200, 1, 10) Plot (EMA (P, Períodos), quotEMA 22quot, colorGreen, styleThick) Daily BullPower SECTIONBEGIN (quotBull Power EMAquot) Bull Power Lookback Param (quotEMA Lookbackquot, (BullPower, quotquot, ParamColor (quotColorquot, colorCustom11), styleHistogram) Title Name () quot quot Data () quot Bull Powerquot WriteVal (Lookback, 3.0) quot Day: quot WriteVal (BullPower, 5.3) GraphXSpace 5 SECTIONEND () Diário BearPower SECTIONBEGIN (quotBear Power EMAquot) Bear Power Lookback Param (quotEMA Lookbackquot, 13) BearPower Low - EMA (Close, Lookback) Plot (BearPower, quotquot, ParamColor (quotColorquot, colorRed) ) Quot quot Date () quot Bear Powerquot WriteVal (Lookback, 3.0) quot Dia: quot WriteVal (BearPower, 5.3) GraphXSpace 5 SECÇÃOEND () ÉLDER TRIPLO SCREEN SCAN Elder Triplo Screen Trading System. Codificado por Dennis Skoblar 7052005. Derrived from quotTrading For A Livingquot e quotCome Into My Trading Roomquot por Alexander Elder. Esta varredura encontra candidatos pelo declive Semanal do Historial do MACD e o Índice de Força do Período Diário de 2 dias mergulha acima ou abaixo da Linha Zero. Trace um Weekly 26 Period EMA para ajudar a confirmar a direção semanal. Deve estar aumentando junto com um uptick no histograma Semanal de MACD para ir por muito tempo. No entanto, Elder escreve que as divergências no histograma MACD substituem a EMA. O Índice de Força do Período Diário 2 estará abaixo da Linha Zero. Procure o estoque para pullback para em torno de it39s Daily 13 EMA Período. Também use o Daily 22 Period EMA para confirmar a direção da tendência diária. Faça o oposto para shorts. Use as guias semanais LongShort EMA como filtros para cancelar a varredura para exibir apenas a EMA semanal indo no sentido de negociação pretendido. Use o LongShort Elder Ray Tabs (BullPower e BearPower) para ajustar os sinais de entrada. Esta guia é melhor usada quando em concordância com o LongShort EMA Weekly Direction Tabs. Um período de 50 EMA gt 100000 é usado para filtrar o volume. Um mínimo de uma corrida de 5 pontos em um mês é usado como um filtro para um intervalo de stock39s. Esta varredura é melhor usada como uma Exploração. TimeFrameSet (inWeekly) WeeklyMACD MACD (12,26) - Sinal (12,26,9) WeekHistRising Ref (WeeklyMACD, -1) lt Ref (WeeklyMACD, 0) WeekHistFalling Ref (WeeklyMACD, -1) gt Ref (WeeklyMACD, FIWeekly EMA (V (C-Ref (C, -1)), 13) WeeklyForceIndexLong FIWeekly gt 0 WeeklyForceIndexShort FIWeekly lt 0 TimeFrameRestore () Critérios semanais MACDLongW WeekHistRising MACDShortW WeekHistFalling FILONGW WeeklyForceIndexLong FIShortW WeeklyForceIndexShort Critérios diários FIDaily EMA C, -1)), 2) FILME FIDENTAL lt 0 FIShortD FIDaily gt 0 VFilter EMA (V, 50) gt 100000 TenTwentyFilter HHV (H, 20) - LLV (L, 20) Quanto preço tem ido em um mês (gt10 Pontos preferíveis) FiftyDayHVFilter rodada (StDev (log (CRef (C, -1)), 50) 100sqrt (256)) Volotilidade de um ano (gt40 preferível) bullpower High - EMA (Close, 13) ) Critérios de varrimento ElderLong MACDLongW AND FILongD E FILongW ElderShort MACDShortW E FIShortD E FIShortW Colunas para exploração Column0 FullName () Column0Name quotTick Er namequot Column1 quot quot Column1Name quot quot Column2 ElderLong Column2Name quotLongquot Column3 ElderLong AND EMA (C, 130) gt Ref (EMA (C, 130), - 5) Column3Name quotLong EMA Weekly Directionquot Column4 Column3 AND (bearpower lt 0 AND bullpower gt 0 ) Column4Name quotLong Elder Ray Filterquot Column5 quot quot Column5Name quot quot Column6 ElderShort Column6Name quotShortquot Column7 ElderShort E EMA (C, 130) lt Ref (EMA (C, 130), - 5) Column7Name quotShort EMA Weekly Directionquot Column8 Coluna7 AND (bearpower lt 0 AND bullpower gt 0) Column8Name quotShort Elder Ray Filterquot Column9 quot quot Column9Name quot quot Coluna10 TenTwentyFilter Column10Name quotOne Mês Ponto Rangequot Column11 FiftyDayHVFilter Column11Name quotHistorical Volotility 50 Dayquot AddTextColumn (IndustryID (1), quotIndustry) AddTextColumn (MarketID (1), quotMarketquot) Filtros Filtro VFilter AND (ElderLong OU ElderShort) Comprar ElderLong Venda 0 Short ElderShort Cover 0 Hc - June 29, 200 6 12:38 AM (GMT) Obrigado por compartilhar os códigos. BTW, você tem usado Metastock antes Como é Amibroker em comparação com Metastock Espero ver seus comentários sobre Amibroker. Jest1081 - 29 de junho de 2006 02:54 (GMT) Não, eu não tenho experiência com metastock. Amibroker entrega. No muito básico, você precisa saber um pouco de codificação para fazer um sistema comercial básico. Eu dun bastante como os gráficos. Não muito crisp. Você pode tomar alook no meu blogsite que contém algumas imagens, clique em Uma coisa com certeza é o comércio i mais longo, mais satisfação que eu quero começar a partir dele, os gráficos funciona bem, mas falta profundidade, se você sabe o que quero dizer, apenas Não lhe dê esse sentimento39. Então outra vez eu pude ainda furar a amibroker quando eu vou tempo real em futuros e índices. Fóruns grátis. Serviço confiável com mais de 8 anos de experiência. AR SISTEMA DE NEGOCIAÇÃO AFL LIVRE faço este AFL sk ((C, nol)) MA (C, nol)) 100 Graph0sk Graph0BarColorIIf (skgt0,5,4) SECTIONBEGIN (quotemaquot ) GfxSetTextColor (ColorRGB (10,250,250)) GfxSetBkMode (0) GfxTextOut (Name (),) GFxSetTextAlign (6) GfxSetTextColor (ColorRGB (10,250,250)) Lk EMA (Close, 22) Plot (lk, quot quot, colorBrightGreen, styleDots) GfxSelectFont (quottohomaboldquot, Estado (quotpxwidthquot) 2, Estado (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 (quotHem, inDaily) DLoDay TimeFrameGetPrice (quotLquot, InDaily) gfr TimeFrameGetPrice (quotCquot, inDaily, -1) fechar Título EncodeColor (colorWhite) quot AR ARQUIVO SYSTEM quotEncodeColor (C OlorRGB (220,10,150)) quot Intervalo (2) quot quot Date () EncodeColor (ColorRGB (200, 150, 120)) quot n Open quot O, High. Quot H quot, Low. Quot L EncodeColor (colorGreen) quot Prevvious Day Close. Quot EncodeColor (colorGreen) gfr EncodeColor (colorYellow) quotn ToDay Open. Quot DDayO quot High. Quot DHiDay quot Low. (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) Parâmetro (Parâmetro QuotOutor ColorQuot, ColorBlack) ParâmetroColor de INUPcolor (quotInner Painel Superior, colorGrey40) Parâmetro de Parâmetro (Parâmetro QuotInner (Cores de Inferência, Inferior, Inferior, Inferno, Inferno, Inferno, Inferno, Inferno, Inferno, Inferno, Inferno, Inferno, Inferno, Inferno, Inferno, ColorBlack) TitleColor ParamColor (quotTitle Color quot, colorBlack) if (NÃO BKswitch) SetChartBkColor (OUTcolor) cor da borda externa SetBarChartBkGradientFill 0) GraphXSpace 15 ea EMA (C, 10) eb EMA (C, 20) SetBarFillColor (IIf (ea gt eb, colorGreen, colorRed)) Comprar e A gt eb AND TimeNum () gt 092000 E TimeNum () lt 150000 Vender eb gt ou OR TimeNum () gt 150000 Curto 0 Capa 0 Comprar ExRem (Comprar, Vender) ExRem Curto (Capa Curta) (HL) 2 (FactorATR (Pd)) Dn (HL) 2- (FactorATR (Tabela 2) FactorParam (quotFactorquot, 4,1,10,1) PdParam (quotATR Períodos, 10,1,100,1) Pd)) iTrATR (Pd) TrendUpTrendDownNull trend01 changeOfTrend0 flagflagh0 para (i 1 i ltBarCount i) TrendUpi Nulo TrendDowni Nulo se (CloseigtUpi-1) trendi1 se (trendi-1 -1) changeOfTrend 1 else if (CloseiltDni-1) trendi-1 If (trendi-1) changeOfTrend 1 else if (trendi-11) trendi1 changeOfTrend 0 else if (trendi-1-1) trendi-1 changeOfTrend 0 Comprar trend1 Selltrend-1 BuyExRem (Compra, Venda) SellExRem ShortSell CoverBuy BuyPriceValueWhen (Comprar, C) SellPriceValueQuando (Venda, C) ShortPriceValueQuando (Curto, C) CoverPriceValueQuando (Cover, C) PlotShapes (IIf (Buy, shapeSquare, shapeNone), colorGreen, (Buy, shapeSquare, shapeNone), colorLime, 0, L, Offset-45) PlotShapes (IIf (Curto, shapeSquare, shapeNone), colorRed, 0, H, Offset40) PlotShapes (IIf (Buy, shapeUpArrow, shapeNone), colorWhite, IIf (Curto, shapeSquare, shapeNone), colorOrange, 0, H, Offset50) PlotShapes (IIf (Curto, shapeDownArrow, shapeNone), colorWhite, 0, H, Offset-45) para (iBarCount-1igt1i--) if (Buyi 1 ) Entrada Ci sig quotBUYquot sl TrendSLi entrada tar1 (entrada .0050) tar2 entrada (entrada .0092) tar3 entrada (entrada .0179) barras ii 0 se (Selli 1) sig quotSELLquot entrada Ci sl TrendSLi tar1 entrada - (entrada .0050) Tar2 entrada - (entrada .0112) tar3 entrada - (entrada .0212) barras ii 0 Desvio 20 Clr IIf (sig quotBUYquot, colorLime, colorRed) ssl IIf (barras BarCount-1, TrendSLBarCount-1, Ref (TrendSL, -1) ) Sl Traço de sslBarCount-1 (LineArray (barras-Offset, tar1, BarCount, tar1,1), quotquot, Clr, estiloLinestyleDots, Nulo, Nulo, Offset) Plot (LineArray (barras-Offset, tar2, BarCount, tar2,1) , Quotquot, Clr, styleLinestyleDots, Nulo, Nulo, Offset) Plot (LineArray (barras-deslocamento, tar3, BarCount, tar3,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot (LineArray (barras - Offset, sl, BarCount, sl, 1), quotquot, colorDarkRed, (LineArray (barras-Offset, entrada, BarCount, entrada, 1), quotquot, colorGreen, styleLinestyleLine, Null, Null, Offset) para (ibars i ltBarCounti) PlotText (quotquotsigquotquotentry, BarCount1, entry PlotText (quotT3quottar3, BarCount3, tar3, Null, Clr) PlotText (quotT1quottar1, BarCount3, tar1, Null, Clr) Plot Text (quotT2quottar2, BarCount3, tar2, Null, Clr) ParamToggle (quotMessage Boardquot, quotShowHidequot, 1) se GfxSelectSolidBrush (colorGreen) esta é a cor de fundo da caixa mais GfxSelectSolidBrush (colorRed) esta é a cor de fundo da caixa pxHeight (colorRed) GfxSelectFont (quotTahomaquot, 13, 100) GfxSetBkMode (1) GfxSetTextColor (colorWhite) Status (quotpxchartheightquot) xx Status (quotpxchartwidthquot) Lef T 1100 largura 310 x 5 x2 290 GfxSelectPen (colorWhite, 4) mais ampla cor GfxRoundRect (x, y - 165, x2, y. GfxTextOut ((quot quot quot), 130, y-160) GfxTextOut ((quot Sinal quot) Sinal veio (BarCount-bars-1) GfxTextOut ((quotquot WriteIf (sig quotBUYquot, sig quot quot, sig quot quot) quot. Quot entrada), 130, y-120) GfxTextOut () (Quot STOP LOSS, quot sl quot (para WriteVal (IIf (sig quotSELLquot, entry-sl, sl-entry), 2.2) quot), 130, y-100) GfxTextOut ((quotTGT: 1. , Y-80) GfxTextOut ((quotTGT: 2. Quot tar2), 130, y-60) GfxTextOut ((quotTGT: 3. (Compra, venda) Vender ExRem (Vender, Comprar) forma Comprar shapeUpArrow Vender shapeDownArrow PlotShapes (IIf) , ShapeSquare, shapeNone), colorGreen, 0, L, Offset-40) PlotShapes (IIf (Buy, shapeSquare, shapeNone), colorLime, 0, L, Offset-50) PlotShapes (IIf (Sell, shapeSquare, shapeNone), colorRed, 0, H, Offset40) PlotShapes (IIf (Sell, shapeSquare, shapeNone), colorOrange, 0, H , Offset50) PlotShapes (IIf (Venda, shapeDownArrow, shapeNone), colorWhite, 0, H, Offset-45) 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, P ParamField (quotFieldquot) Tipo ParamList (quotTypequot, quotWeighted, Simple, Exponential, Exponencial Duplo, Tripple Exponential, Wildersquot) Parâmetros89 Param (quotPeriods180quot, 180, 2, 300) Displacement2 Param (quotDisplacement2quot, 2, -50, 50) (P, Periods89), DEFAULTNAME (), colorWhite, styleDots, 0, 0, Deslocamento2) SECTIONEND () rjlCross (Lk, tar1) golCross (tar1, Lk) PlotShapes (shapeHollowStarrjl, colorAqua, 20) PlotShapes (shapeHollowStargol, colorViolet, 0, L, 20) SECÇÃOEND () para (i 0 i lt BarCount i) if (bvei) PlotText (quotABnquot. Seção (i) (), (), (), () () () () TimeBoot () TimeFrameSet (inDaily) troca agora para dayily TimeFrameRestore () (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 , False) GfxSetTextColor (ColorRGB (10,250,250)) GfxTextOut (quotVolume. Quot Volume quotquot, cx 20, cy 50) SEÇÃOBEGIN (quottomquot) função GetSecondNum () Time Now (4) Horário int (Time 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 GfxSelectoPen (ColorRGB (203, 25, 23), 3) GfxSelectPen (ColorRGB (203, 25, Se (NewPeriod) GfxSelectSolidBrush (colorYellow) GfxSelectPen (colorYellow, 2) Diga (quotNovo períodoquot) GfxSetBkMode (1) GfxSelectFont (quotArialquot, 13, 800, False) GfxSetTextColor (ColorRGB (220,10,150)) GfxTextOut (quotTimeleftquotquot. GfxSetTextColor (ColorRGB (10,250,250)) GfxTextOut ((quotFu2 Trading SYSTEM quot), 1150, y-45) GfxSetTextColor (ColorRGB (10,250,250)) GfxTextOut ((quot Develop Por quot), 1150, , Y-25) SECTIONBEGIN (quotRibbonquot) uptrendPDI () gtMDI () AND Signal () ltMACD () downtrendMDI () gtPDI () E Signal () gtMACD () Plot (1, efines a altura da fita em porcentagem da largura do painel ,,,,,,,,,,,,,,,,, IIf (tendência de alta, colorLime, IIf (tendência de baixa, colorRed, IIf (Signal () ltMACD (), colorLightGrey, colorLightGrey) Scroll up e clcik no botão de download Última edição por SuperSaiyan 2 de março de 2017 às 21:46. Re: AR TRADING SYSTEM AFL LIVRE faço este AFL SuperSaiyan SuperSaiyan está on-line agora Membro Registrado: Mar 2006 Mensagens: 115 Agradecimentos: 6 Agradecido 101 vezes em 53 Posts SuperSaiyan ficará famoso em breve SuperSaiyan ficará famoso em breve Re: AR TRADING SISTEMA AFL LIVRE eu faço este AFL Citação: nenhuma zona de troca está faltando pode qualquer dar o código Versão de trabalho de AFL Download Link ARTrading. afl - 11 KB Clck o botão acima para download Juntos nós estamos fortes 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) GfxSetTextColor (ColorRGB (10,250,250)) GfxSetBkMode (0) GfxTextOut (Nome (), 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. (QuotCdot, inDaily) gf TimeFrameGetPrice (quotCquot, inDaily, -1) fechar Título EncodeColor (colorWhite) quot AR ARQUIVO SYSTEM quotEncodeColor (quotQuad, inDaily) DHIDay TimeFrameGetPrice (quotHquot, inDaily) ColorRGB (220,10,150)) quot quot Quota de Intervalo (2) Date () EncodeColor (ColorRGB (200, 150, 120)) quot n Open quot O, High. Quot H quot, Low. Quot L EncodeColor (colorGreen) quot Prevvious Day Close. Quot EncodeColor (colorGreen) gfr EncodeColor (colorYellow) quotn ToDay Open. Quot DDayO quot High. Quot DHiDay quot Low. (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) Parâmetro (Parâmetro QuotOutor ColorQuot, ColorBlack) ParâmetroColor de INUPcolor (quotInner Painel Superior, colorGrey40) Parâmetro de Parâmetro (Parâmetro QuotInner (Cores de Inferência, Inferior, Inferior, Inferior, Inferior, Inferior, Inferior, Inferior, Inferior, Inferior, Inferior) 0) GraphXSpace 15 ea EMA (C, 10) eb EMA (C, 20) SetBarFillColor (IIf (ea gt eb, colorGreen, colorRed)) Comprar e A gt eb AND TimeNum () gt 092000 E TimeNum () lt 150000 Venda eb gt ou OR TimeNum () gt 150000 Curto 0 Capa 0 Comprar ExRem (Compra, Venda) ExRem Curto (Capa Curta) (HL) 2 (FactorATR (Pd)) Dn (HL) 2- (FactorATR (Tabela 2) FactorParam (quotFactorquot, 4,1,10,1) PdParam (quotATR Períodos, 10,1,100,1) Pd)) iTrATR (Pd) TrendUpTrendDownNull trend01 changeOfTrend0 flagflagh0 para (i 1 i ltBarCount i) TrendUpi Nulo TrendDowni Nulo se (CloseigtUpi-1) trendi1 se (trendi-1 -1) changeOfTrend 1 else if (CloseiltDni-1) trendi-1 If (trendi-1) changeOfTrend 1 else if (trendi-11) trendi1 changeOfTrend 0 else if (trendi-1-1) trendi-1 changeOfTrend 0 Comprar trend1 Selltrend-1 BuyExRem (Compra, Venda) SellExRem ShortSell CoverBuy BuyPriceValueWhen(Buy, C) SellPriceValueWhen(Sell, C) ShortPriceValueWhen(Short, C) CoverPriceValueWhen(Cover, C) PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset-40) PlotShapes(IIf (Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset-50) PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset-45) PlotShapes(IIf(Short, shapeSquare, shapeNone),colorRed, 0, H, Offset40) PlotShapes(IIf(Short, shapeSquare, shapeNone),colorOrange, 0,H, Offset50) PlotShapes(IIf(Short, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset-45) for(iBarCount-1igt1i--) if(Buyi 1) entry Ci sig quotBUYquot sl TrendSLi tar1 entry (entry .0050) tar2 entry (entry .0092) tar3 entry (entry .0179) bars i i 0 if(Selli 1) sig quotSELLquot entry Ci sl TrendSLi tar1 entry - (entry .0050) tar2 entry - (entry .0112) tar3 entry - (entry .0212) bars i i 0 Offset 20 Clr IIf(sig quotBUYquot, colorLime, colorRed) ssl IIf(bars BarCount-1, TrendSLBarCount-1, Ref(TrendSL, -1)) sl sslBarCount-1 Plot(LineArray(bars-Offset, tar1, BarCount, tar1,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot(LineArray(bars-Offset, tar2, BarCount, tar2,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot(LineArray(bars-Offset, tar3, BarCount, tar3,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot(LineArray(bars-Offset, sl, BarCount, sl,1), quotquot, colorDarkRed, styleLinestyleLine, Null, Null, Offset) Plot(LineArray(bars-Offset, entry, BarCount, entry,1), quotquot, colorGreen, styleLinestyleLine, Null, Null, Offset) for (ibars i ltBarCounti) PlotText(quotquotsigquotquotentry, BarCount1,entry, Null, colorBlue) PlotText(quotT1quottar1,BarCount3,tar1,Null, Clr)Plot Text(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 ) if ( sig quotBUYquot) GfxSelectSolidBrush( colorGreen ) this is the box background color else GfxSelectSolidBrush( colorRed ) this is the box background color pxHeight Status( quotpxchartheightquot ) xx Status( quotpxchartwidthquot) Lef t 1100 width 310 x 5 x2 290 GfxSelectPen( colorWhite, 4) broader color 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 Signal came quot (BarCount-bars-1) Interval()60 quot mins agoquot), 148, y-140) The text format location GfxTextOut( (quotquot WriteIf(sig quotBUYquot, sig quot quot, sig 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),(entry-C)),2.2)), 130, y-22) Buy ExRem(Buy, Sell) Sell ExRem(Sell, Buy) shape Buy shapeUpArrow Sell shapeDownArrow PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset-40) PlotShapes(IIf(Buy, 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(Sell, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset-45) PlotShapes( shape, IIf( Buy, colorGreen, colorRed ),0, IIf( Buy, Low, High ) ) dist 2.5ATR(5) for( i 0 i lt BarCount i ) if( Buyi ) PlotText( quotBuynquot Closei, i, Lowi - disti, colorWhite ) if( Selli ) PlotText( quotsellnquot Closei, i, Lowi disti, colorWhite ) SECTIONBEGIN(quotemaquot) P ParamField(quotFieldquot) Type ParamList(quotTypequot, quotWeighted, Simple, Exponential, 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() for( i 0 i lt BarCount i ) if( bvei ) PlotText( quotABnquot. i, L i - disti, colorWhite, colorDarkBlue ) if( rfwi ) PlotText( quotASnquot. i, H i disti, colorWhite, colorRed ) SECTIONBEGIN(quotdayquot) TimeFrameSet( inDaily ) switch now to dayily TimeFrameRestore() restore time frame to original Plot( 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, False ) GfxSetTextColor(ColorRGB(10,250,250)) GfxTextOut(quotVolume. quot Volume quotquot, cx 20,cy 50) SECTIONBEGIN(quottomquot) function GetSecondNum() Time Now( 4) Seconds int( Time 100 ) Minutes int( Time 100 100 ) Hours int( Time 10000 100 ) SecondNum int( Hours 60 60 Minutes 60 Seconds ) 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 ) if ( NewPeriod ) GfxSelectSolidBrush( colorYellow ) GfxSelectPen( colorYellow, 2 ) Say( 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( ( quotFu2 Trading SYSTEM quot),1150,y-25) SECTIONBEGIN(quotRibbonquot) uptrendPDI()gtMDI()AND Signal()ltMACD() downtrendMDI()gtPDI()AND Signal()gtMACD() Plot( 1, efines the height of the ribbon in percent of pane width quotribbonquot, IIf( uptrend, colorLime, IIf( downtrend, colorRed, IIf(Signal()ltMACD(), colorLightGrey, colorLightGrey ))), choose color styleOwnScalestyleAreastyleNoLabel, -.05,50 ) SECTIONEND() This one works 100 if not then scroll up and clcik on download button Cut your losses quickly, without hesitation. Buy right, sit tight. It was never my thinking that made the big money for me, it always was sitting. Jesse Livermore When it chnages 30 a day There is only one side to market and thats Right side Last edited by SuperSaiyan 2nd March 2017 at 08:46 PM. Sir can you please explain how to use This Ar Trading System for entry amp exit of a trade. ThanksAR TRADING SYSTEM AFL FREE i make this AFL AR TRADING SYSTEM AFL FREE i make this AFL FREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREE FREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREE FREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREE FREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREE 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( C olorHSB( 100, 10, 400) ) GfxTextOut(quotLTP. quotCquot quot, cx, cy ) DDayO TimeFrameGetPrice(quotOquot, inDaily) DHiDay TimeFrameGetPrice(quotHquot, inDaily) DLoDay TimeFrameGetPrice(quotLquot, inDaily) gfr TimeFrameGetPrice(quotCquot, inDaily, -1)close Title 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 Open quot O quot, High. quot H quot, Low. quot L EncodeColor(colorGreen) quot Prevvious Day Close. quot EncodeColor(colorGreen) gfr EncodeColor(colorYellow) quotn ToDay Open. quot DDayO quot High. quot DHiDay quot Low. quot DLoDay SECTIONEND() Colcci IIf(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, quotquot. 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 Lowerquot, colorBlack) TitleColor ParamColor(quotTitle Color quot, colorBlack) if (NOT BKswitch) SetChartBkColor(OUTcolor) color of outer border SetChartBkGradientFill(INUPcolor, INDNcolor, TitleCo lor) color of inner panel SECTIONEND() SECTIONBEGIN(quotquot) SetBarsRequired(100000,0) GraphXSpace 15 ea EMA (C,10) eb EMA (C,20) SetBarFillColor( IIf( ea gt eb, colorGreen, colorRed ) ) Buy e a gt eb AND TimeNum() gt 092000 AND TimeNum() lt 150000 Sell eb gt ea OR TimeNum() gt 150000 Short 0 Cover 0 Buy ExRem(Buy, Sell) Sell ExRem(Sell, Buy) 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)) iATRATR(Pd) TrendUpTrendDownNull trend01 changeOfTrend0 flagflagh0 for (i 1 i ltBarCount i) TrendUpi Null TrendDowni Null if (CloseigtUpi-1) trendi1 if (trendi-1 -1) changeOfTrend 1 else if (CloseiltDni-1) trendi-1 if (trendi-1 1) changeOfTrend 1 else if (trendi-11) trendi1 changeOfTrend 0 else if (trendi-1-1) trendi-1 changeOfTrend 0 Buy trend1 Selltrend-1 BuyExRem(Buy, Sell) SellExRem(Sell, Buy) ShortSell CoverBuy BuyPriceValueWhen(Buy, C) SellPriceValueWhen(Sell, C) ShortPriceValueWhen(Short, C) CoverPriceValueWhen(Cover, C) PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset-40) PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset-50) PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset-45) PlotShapes(IIf(Short, shapeSquare, shapeNone),colorRed, 0, H, Offset40) PlotShapes(IIf(Short, shapeSquare, shapeNone),colorOrange, 0,H, Offset50) PlotShapes(IIf(Short, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset-45) for(iBarCount-1igt1i--) if(Buyi 1) entry Ci sig quotBUYquot sl TrendSLi tar1 entry (entry .0050) tar2 entry (entry .0092) tar3 entry (entry .0179) bars i i 0 if(Selli 1) sig quotSELLquot entry Ci sl TrendSLi tar1 entry - (entry .0050) tar2 entry - (entry .0112) tar3 entry - (entry .0212) bars i i 0 Offset 20 Clr IIf(sig quotBUYquot, colorLime, colorRed) ssl IIf(bars BarCount-1, TrendSLBarCount-1, Ref(TrendSL, -1)) sl sslBarCount-1 Plot(LineArray(bars-Offset, tar1, BarCount, tar1,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot(LineArray(bars-Offset, tar2, BarCount, tar2,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot(LineArray(bars-Offset, tar3, BarCount, tar3,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot(LineArray(bars-Offset, sl, BarCount, sl,1), quotquot, colorDarkRed, styleLinestyleLine, Null, Null, Offset) Plot(LineArray(bars-Offset, entry, BarCount, entry,1), quotquot, colorGreen, styleLinestyleLine, Null, Null, Offset) for (ibars i ltBarCounti) PlotText(quotquotsigquotquotentry, BarCount1,entry, Null, colorBlue) PlotText(quotT1quottar1,BarCount3,tar1,Null, Clr)Plot Text(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 ) if ( sig quotBUYquot) GfxSelectSolidBrush( colorGreen ) this is the box background color else GfxSelectSolidBrush( colorRed ) this is the box background color pxHeight Status( quotpxchartheightquot ) xx Status( quotpxchartwidthquot) Lef t 1100 width 310 x 5 x2 290 GfxSelectPen( colorWhite, 4) broader color 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 Signal came quot (BarCount-bars-1) Interval()60 quot mins agoquot), 148, y-140) The text format location GfxTextOut( (quotquot WriteIf(sig quotBUYquot, sig quot quot, sig 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),(entry-C)),2.2)), 130, y-22) Buy ExRem(Buy, Sell) Sell ExRem(Sell, Buy) shape Buy shapeUpArrow Sell shapeDownArrow PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset-40) PlotShapes(IIf(Buy, 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(Sell, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset-45) PlotShapes( shape, IIf( Buy, colorGreen, colorRed ),0, IIf( Buy, Low, High ) ) dist 2.5ATR(5) for( i 0 i lt BarCount i ) if( Buyi ) PlotText( quotBuynquot Closei, i, Lowi - disti, colorWhite ) if( Selli ) PlotText( quotsellnquot Closei, i, Lowi disti, colorWhite ) SECTIONBEGIN(quotemaquot) P ParamField(quotFieldquot) Type ParamList(quotTypequot, quotWeighted, Simple, Exponential, 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() for( i 0 i lt BarCount i ) if( bvei ) PlotText( quotABnquot. i, L i - disti, colorWhite, colorDarkBlue ) if( rfwi ) PlotText( quotASnquot. i, H i disti, colorWhite, colorRed ) SECTIONBEGIN(quotdayquot) TimeFrameSet( inDaily ) switch now to dayily TimeFrameRestore() restore time frame to original Plot( 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, False ) GfxSetTextColor(ColorRGB(10,250,250)) GfxTextOut(quotVolume. quot Volume quotquot, cx 20,cy 50) SECTIONBEGIN(quottomquot) function GetSecondNum() Time Now( 4) Seconds int( Time 100 ) Minutes int( Time 100 100 ) Hours int( Time 10000 100 ) SecondNum int( Hours 60 60 Minutes 60 Seconds ) 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 ) if ( NewPeriod ) GfxSelectSolidBrush( colorYellow ) GfxSelectPen( colorYellow, 2 ) Say( 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()AND Signal()ltMACD() downtrendMDI()gtPDI()AND Signal()gtMACD() Plot( 1, efines the height of the ribbon in percent of pane width quotribbonquot, IIf( uptrend, colorLime, IIf( downtrend, colorRed, IIf(Signal()ltMACD(), colorLightGrey, colorLightGrey ))), choose color styleOwnScalestyleAreastyleNoLabel, -.05,50 ) SECTIONEND() Last edited by skumar4545 3rd January 2017 at 11:22 AM. Reason: add img