Ar trading system afl amibroker

14 de outubro de 2017 Adicionado em 29 de fevereiro de 2017, pontos adicionais a serem considerados: 1) Este sistema depende da obtenção de preenchimentos precisos ao preço aberto. Para obter esses preenchimentos, é necessário um feed de dados de atraso mínimo de qualidade e habilidades avançadas de programação para implementar a automação comercial. 2) Ao definir o preço de entrada ligeiramente abaixo do preço de abertura (tentando melhorar o desempenho), o sistema falha miseravelmente. Mesmo melhorar o preço por apenas um centavo mata o sistema. Isso sugere que a maior parte do lucro vem de dias em que o preço de abertura foi igual ao Baixo diário, ou seja, o preço subiu do Aberto e nunca caiu abaixo dele. Isso, é claro, é óbvio. Para confirmar isso, adicionei esta condição de teste (olha para frente) para excluir dias em que o Open Low: Compre Compre E NÃO O L Isso mata o sistema e prova que a maior parte do lucro vem dos dias em que OL. Para confirmar ainda isso, adicionei a condição oposta: Compre Compre E O L Isso dá lucros quase infinitos e prova que a maioria dos lucros vem de dias em que o preço se move imediatamente a partir do Aberto e nunca retorna abaixo dele. Tentando melhorar o preço de entrada é um erro, você deve entrar em um Stop set 1-2 ct acima do preço Open, isso eliminará os dias em que o preço cai e nunca volta. Isso melhora significativamente o desempenho. 3) Este sistema comercializa os procedimentos de resposta do comerciante do joelho. Esses padrões geralmente são afogados pela negociação em grande volume, portanto, esse sistema funciona muito melhor quando você seleciona tickers com volumes entre 500,000 e 5,000,000 shareday. Isso também melhora significativamente o desempenho. Adicionando as duas características acima, resulta em uma curva de equidade muito melhor do que a mostrada abaixo. Desculpe, não tenho tempo para documentar o acima em maior detalhe. Boa sorte Esta publicação descreve uma idéia de negociação muito simples que só faz compras em uma determinada porcentagem abaixo de ontem8217s baixa, e sai no dia seguinte8217s aberto. Às vezes, pode ser difícil obter o preço aberto exato, a alta rentabilidade deste sistema torna um bom candidato para novas experiências. O sistema funciona bem com Watchlists como N100, SP500, SP1500, Russel 1000, etc. Desempenho no Russel 1000, com max. As posições abertas definidas para 1, para o período de 12102003 a 12102017, se parecem com isso: algumas das outras Watchlists dão menos exposição (lucros), mas isso vem com DDs menores. As comissões foram definidas para 0,005 por ação. Nenhuma margem utilizada. Não é utilizado nenhum ranking explícito. Os tickers são negociados com base em seu tipo alfabético na Watchlist. Isso pode parecer estranho, mas é significativo: ao reverter esse tipo, o sistema falha. Isso pode significar que, devido a problemas de varredura em tempo real, os símbolos listados no topo deste tipo podem ser negociados de forma diferente dos listados na parte inferior. Preste atenção ao Liquidity (você pode querer trocar mais de uma posição) e slppage (A entrada é bastante livre de risco, mas as saídas podem ser problemáticas). Os DDs são significativos, mas podem ser compensados ​​com entradas e saídas negociadas em tempo real melhoradas. Ao negociar automaticamente, pode ser possível colocar ordens de entrada OCA DAY-LMT para todos os sinais e apenas esperar e ver o que preencher. Uma vez que as saídas são mais difíceis do que as entradas, você pode querer explorar outras estratégias de saída. Os valores padrão dos parâmetros são escolhidos apenas de um chapéu. Quase certamente você pode otimizá-los ou ajustá-los dinamicamente para os tickers individuais. Eu testei este sistema em breve no modo Walk-Forward e os resultados foram lucrativos para todos os anos testados. Exceto pelo número de ações, os parâmetros negociados não são muito críticos. Over-optimizing doesn8217t parece um problema neste caso. O código abaixo é muito simples e requer poucas explicações. No entanto, é importante entender que este sistema goza de uma pequena vantagem ao negociar no Open e ao calcular o TrendMA usando o mesmo preço Open. Alguns podem interpretar isso como um vazamento futuro, no entanto, se você trocar este sistema em tempo real, não é. Muitas pessoas não percebem que, se você trocar no Open, você também pode usar esse preço em seus cálculos 8212 enquanto você os executa em tempo real 8212, é por isso que a AmiBroker e a tecnologia podem lhe dar uma vantagem. Se você Ref () voltar a TrendMA por uma barra, o sistema ainda é muito lucrativo, no entanto, os DDs aumentam para algumas Watchlists. Se você usa investimentos fixos, a diferença é insignificante. O procedimento de negociação seria começar a digitalizar antes do mercado abrir e remover os tickers com preços tão remotos que não são susceptíveis de atender ao OpenThresh. Assim, você pode começar a escanear 1000 símbolos, mas muito rapidamente o número escaneado diminui para apenas uma dúzia de tickers. Quando você se aproxima das 9:30 da manhã, sua verificação em tempo real será muito rápida e você poderá colocar sua ordem LMT muito perto do Open 8211, você pode até mesmo melhorar o preço Open. Embora algumas pessoas tenham olhado o código abaixo e não encontraram nada errado, os lucros parecem bastante elevados para um sistema tão simples. Informe os erros que você pode ver. Arquivado por Herman às 7:03 pm sob Ideias (Experimental) Comments Off no sistema EOD Gap-Trading Portfolio 1 de setembro de 2017 Esta idéia foi postada (161332) na lista principal do AmiBroker em 3 de julho de 2017. Foram numerosos comentários excelentes sobre A lista e se você estiver interessado em trabalhar neste sistema, você faz bem em lê-los todos antes de começar. Depois de postar, encontrei uma série de postagens na web discutindo essa idéia comercial, alguns alegaram estar negociando um sistema similar com um bom sucesso. Eu referi-me a este sistema um sistema 8220Gap Trading8221, mas isso pode ser um pouco de um nome incorreto, 8220Mean reversion8221 pode ser uma classificação melhor. Googling para isso irá obter muitos mais hits para sistemas semelhantes. Aqui estão alguns links: Parece ser uma idéia comercial bastante amplamente discutida e sugiro que você faça alguns Googling por conta própria para aprender o mais recente. Como um usuário Amibroker, você possui melhores ferramentas do que a maioria dos comerciantes e você tem uma chance melhor do que a maioria de apresentar uma variação que funcione. Talvez com um pouco menos lucros, e com uma quantidade significativa de código adicional 8212 ganhou, não seja um projeto 8220quicky8221 :-) Algumas pessoas comentaram que esse sistema não funcionará na negociação real, enquanto eles podem estar certos outros dizem que esquemas como este trabalho. Eu não terminei o sistema e posso reclamar saber se é negociável ou não. O sistema compra a uma determinada porcentagem abaixo de ontem8217s baixo, em uma ordem LMT, e sai no mesmo dia no fim. Arquivado por Herman às 6:53 pm sob Idéias (Experimental) Comentários Desligados em uma idéia de negociação EOD Gap de longo tempo Eu uso um pequeno critério de configuração para procurar minhas ações. MACD padrão, procuro barras de histograma 4 e 1 barra para sinal de compra (eu tenho o histograma definido como vermelho para baixo e azul para que eu possa ver claramente). MACD acima Zero Line RSI Acima de 30 Este sistema é base no comércio de tendências. Comprar no pullback quando o mercado continuar sua tendência ascendente. Para procurar MACD Configurações de tendências: 1) Insira a seguinte fórmula em um gráfico. 2) Execute uma verificação em AA usando SMACDTrend com Todos os símbolos. N últimos dias. N 1 e Sincronizar gráfico em selecionar como as configurações. Os estoques que atendam aos critérios serão reportados na lista de resultados. Nota: algumas variações das regras de configuração podem definir sinais que são bastante raros e, em bancos de dados pequenos, é possível que não haja configurações em nenhum dia determinado (portanto, nenhum estoque será relatado pela verificação). 3) Clique em qualquer símbolo no painel Resultados para visualizar o gráfico, para esse símbolo, em segundo plano. Nota: neste exemplo, foi utilizado um banco de dados de treinamento, que apenas contém dados até 5112007. Idéia comercial por protraderinc. Comentários e fórmulas pelo Bill 8211 WaveMechanic. Arquivado em brianz às 11:06 pm sob Ideas (Experimental) Comments Off no MACD Trend System 14 de outubro de 2007 Arquivado por brianz às 10:43 pm sob Ideas (Experimental) Comentários desativados no 15 Day Performers Trading System 19 de agosto de 2007 Isso é O primeiro de uma série de idéias comerciais KISS (mantê-lo simples, estúpido) para você brincar. Todas as ideias do sistema apresentadas aqui não são comprovadas, não finalizadas e podem conter erros. Eles são destinados a mostrar padrões possíveis para uma maior exploração. Como sempre, você é convidado a fazer comentários e ou adicionar suas próprias idéias a esta série. Eu prefiro sistemas em tempo real que comercializam rápido, são automatizados e estão desprovidos de indicadores tradicionais. De preferência, eles não devem ter parâmetros otimizáveis ​​no entanto, nem sempre posso conseguir esse objetivo. Nem todos os sistemas serão tão simples que haverá alguns que utilizam funções de média simples ou de tipo HHVLLV. O primeiro sistema mostrado abaixo é uma cópia do sistema de demonstração que uso para desenvolver rotinas de Automação de Comércio em outros lugares neste site. Real-time Gap-Trading. Para ver como isso funciona, você deve fazer o Backtest em dados de 1 minuto com uma periodicidade no intervalo de 5-60 minutos. Sua primeira impressão pode ser que esses lucros são simplesmente devido a um mercado superior, no entanto, o fato de que os lucros Longos e Curtos são aproximadamente iguais sugerem que há mais. Como 98 de todos os negócios caem entre as 9:30 da manhã e as 10:30 da manhã, esse tipo de sistema é bom se você quiser apenas trocar pouco tempo a cada dia. Isso reduz o risco em relação à exposição ao mercado e dá mais tempo para aproveitar outras atividades. O teste posterior na lista de vigilância NASDAQ-100 (backtests individuais, 15 min. Periodicidade) dá os lucros mostrados abaixo para o período de 1 MAR 2007 até 17 de agosto de 2007. Os nomes dos tickers são omitidos para manter o gráfico compacto, o gráfico mostra simplesmente um lucro líquido Barra para cada ticker testado. A exposição média para este sistema é de cerca de 15, portanto, você pode negociar carteiras para aumentar os lucros e suavizar as curvas de equivalência. Seja advertido que, em sua forma bruta, as retiradas são inaceitáveis ​​e que pode haver restrições de volume para muitos tickers. Uma vez que este sistema tem pouca exposição, pode ser um candidato para escaneamento de mercado e negociação de carteira classificada. RARs seria uma indicação dos lucros máximos absolutos que poderiam ser obtidos se conseguisse aumentar a exposição para cerca de 100. No entanto, o movimento de preços de diferentes tickers pode ser correlacionado, e os negócios de diferentes tickers podem se sobrepor. Se muitos tickers operarem ao mesmo tempo, seria difícil aumentar a exposição do sistema. Arquivado por Herman às 1:49 pm sob Ideas (Experimental) Comments Off no KISS-001: Intraday Gap Trading 17 de agosto de 2007 Você está convidado a enviar links para ideias do sistema em comentários para esta publicação. Gap Trading Strategies 8211 Stockcharts Intraday Moving Average Crossover com dimensionamento de posição 8211 NeoTicker Volatility-Breakout-Systems 8211 Traders Log Sistema de HighLow de dez dias 8211 StockWeblog Reversion Systems 8211 SeekingAlpha Systems Traders Club. Boletins do Clube Comerciante. 16 de julho de 2007 Esta categoria é reservada para sistemas reais de negociação de trabalho, ou seja, você negociou em algum momento ou consideraria negociar. Uma vez que os critérios para a comercialização variam de pessoa para pessoa, e como os sistemas podem funcionar ou não dependendo da forma como são negociados, será difícil rever as contribuições aqui. Com respeito ao que é publicado aqui, mantenha uma mente aberta e considere que o autor considera o sistema negociável. Você pode contribuir postando como autor (requer registro) ou em um comentário para esta publicação. Arquivado por Herman às 11:14 am sob Comentários Práticos (Rentáveis) Desativados na Introdução aos Sistemas de Negociação 8211 Prático É onde você pode compartilhar sistemas de negociação que são marginalmente lucrativos, ou seja, aqueles que não devem ser negociados como estão, mas que mostram potencial. Normalmente, este seria um sistema básico que é rentável, mas as experiências diminuem de 50. Tais sistemas podem ser melhorados pela adição de Stops, Targets, Gerenciamento de Dinheiro, técnicas de portfólio, etc. A realidade é que, embora você não tenha a experiência necessária para fazer Isso funciona, alguém pode. Quase todos nós encontramos ideias de sistemas de negociação em livros e revistas que codificamos na AFL para avaliação. Alguns desses sistemas podem ter ocorrido por muitos anos, enquanto outros são idéias novas. Depois de codificá-los, quase sempre, estamos desapontados e retiramos o sistema (trabalho). Em vez de jogar o seu trabalho, você está convidado a publicar o sistema aqui para dar a outro desenvolvedor a chance de corrigi-lo. Você é convidado a contribuir como autor (requer registro) ou em um comentário para esta publicação. Arquivado por Herman às 11:04 am sob Ideas (Experimental) Comments Off em Introdução aos Sistemas de Negociação 8211 IdeasAR 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 E NcodeColor (colorWhite) quot AR TRADING SYSTEM quotEncodeColor (ColorRGB (220,10,150)) quot quot Interval (2) quot quot Date () EncodeColor (ColorRGB (200,150,120)) quot 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) 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