Ar trading system afl amibroker

Título: Sistema de negociação Triple SCreen Usando o Amibroker Descrição: Sistema de negociação jest1081 - 28 de junho de 2006 06:17 PM (GMT) Oi tudo, só quero compartilhar algo que eu programei (não totalmente por mim contribuições de outros comerciantes em Amibroker também) . Eu tentei e testei, e penso que funciona muito bem no sistema que foi ensinado. O fim do dia deve se lembrar, o sistema causou dinheiro, não procure o Santo Graal. Seja um comerciante disciplinado. ÚNICAMENTE PARA USO EM CARTÕES AMIBROKER CARTAS SEMANAS COM SISTEMA DE IMPULSO MENSAL Tabela de barras semanal SECTIONBEGIN (quot Weekly Graphquot) SetChartOptions (0, chartShowArrows124chartShowDates) Parâmetro definido pelo usuário para períodos EMA EMAType Param (quotEMA-1, TEMA-2, JMA-3quot, 2 1, 3, 1) EMAprds Param (quotEMAperiodsquot, 7, 1, 30, 1) StdMACD Param (questtandard 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 semanal e mensal da fita e o parâmetro WRP1 de altura (quot Weekly Ribbon Locationquot, -10.5, -1000, 1000, 0.1) WRP2 Param (quot Weeknight 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) Compute EMA e MACD Histograma se (EMAType 1 ) DayEMA EMA (Close, EMAprds) se (EMAType 2) DayEMA TEMA (Close, EMAprds) se (EMAType 3) Linha a seguir para ser usado com Jurik JMA Day EMA JurikJMA (C, EMAPrds) se (StdMACD 0) MACDval MACD (5, 8) Sinal de sinal (5, 8, 5), exceto MACDval MACD (12, 26) Signalval Signal (12, 26, 9) Histograma MACDval - Signalval Determine Se tivermos Impulso 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) AND (NÃO ImpulseDown) whrising DayEMA gt Ref (DayEMA, -1) E Histograma gt Ref (Histograma, -1) whacheing DayEMA lt Ref (DayEMA, -1) E Histograma lt Ref (Histograma, -1) TimeFrameRestore () Agora obtenha histograma mensal MACD. TimeFrameSet (inMonthly) MACDval MACD (5, 8) Signalval 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)) mkol IIf (mhrising , ColorBlue, IIf (mhfalling, colorYellow, colorLightGrey)) TimeFrameSet (inWeekly) Traze-os all33 se (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) else barkol IIf (impulseUP, colorBrightGreen, IIf (impulseDown, colorRed, colorCustom11)) Plot (C, quotClosequot, barko L, styleBar) Plot (10, quot Weekly Ribbonquot, kol, styleOwnScale124styleArea124styleNoLabel, WRP1, WRP2) Tendência semanal AUMENTO VERDE, RED FALLING, WHITE NEUTRAL Lote (10, QuotMonthly Ribbonquot, mkol, styleOwnScale124styleArea124styleNoLabel, MRP1, MRP2) Tendência mensal AZUL AUMENTANDO, AMARELO FALLING, WHITE NEUTRAL TimeFrameRestore () SECTIONBEGIN (quotEMA1quot) P ParamField (quotPrice fieldquot, -1) Periods 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) Plot (Zig (P, change ), DEFAULTNAME (), ParamColor (quotColorquot, colorCycle), ParamStyle (quotStylequot)) TimeFrameRestore () SECÇÃO () Weekly MACD Histogran SECTIONBEGIN (quotWeekly MACDquot) TimeFrameSet (in Weekly) MACDw MACD (12, 26) - Sinal (12, 26, 9) MACDLLINE MACD (12, 26 ) MACDwSignal Signal (12, 26, 9) Cor IIf (Ref (MACDw, -1) gtMACDw, colorRed, colorBrightGreen) TimeFrameRestore () Lote (MACDw, quotMACD Weeklyquot, Color, styleHistogram 124 styleThick) Lote (MACDwLINE, quotMACD Weekly Linequot, ColorRed, styleLine) Plot (MACDwSignal, quotMACD Weekly Signal Linequot, colorBrightGreen, styleLine) SECTIONEND () ÍNDICE DE FORÇA SEMANAL 13 dias MA SECTIONBEGIN (quotForce Index2quot) Períodos TimeFrameSet (inWeekly) Param (quotPeriodsquot, 13, 1, 100, 1) FI EMA ( (Close - Ref (Close, -1)) V), períodos) FIkol IIf (fi lt 0, colorRed, colorBrightGreen) Plot (Close, quotClosequot, colorRed, 2) Plot (FI, quotForce Indexquot, FIkol, styleLine124styleThick) (0, quotquot, colorViolet, styleLine 124 styleThick 124 styleNoLabel) Título Nome () EncodeColor (colorWhite) quot - Force Index - quot WriteVal (períodos, 1) quot days, quode EncodeColor (colorRed) quot Fechar quot EncodeColor (colorWhite) quot quot WriteVal (Close) quot, quode 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, maskHistogram ), 2) TimeFrameRestore () SECTIONEND () GRÁFICO DIÁRIO COM SISTEMA DE IMPULSO SEMANAL Parâmetro definido pelo usuário para períodos EMA EMAType Param (quotEMA-1, TEMA-2, JMA-3quot, 2, 1, 3, 1) EMAprds Param (quotEMAperiodsquot , 7, 1, 30, 1) StdMACD Param (quest Standard 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 semanal e mensal da fita e a altura WRP1 Param (quot Weekly Ribbon Locationquot, 5.2, -1000, 1000, 0.1) WRP2 Param (quot Weekly Ribbon Heightquot, 199, -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) Compute 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 DayEMA JurikJMA (C, EMAPrds) Histograma MACD () - Sinal () Determine se temos Impulso 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 (NÃO ImpulseDown) Calcule o MACD semanal e determine se eleva ou cai Nota: usa parâmetros quotnon-standardquot33 TimeFrameSet (inWeekly) se (StdMACD 0) MACDval MACD (5, 8) Signalval Signal (5 , 8, 5) mais MACDval MACD (12, 26) Sinal de sinal (12, 26, 9) Histinw MACDval - Atenuação de sinal Histinw gt Ref (Histinw, -1) whfalling Histinw lt Ref (Histinw, -1) whnone (NOT whrising ) E (NÃO HABILITANDO) Agora receba Histograma Mensal de MACD. TimeFrameSet (inMonthly) MACDval MACD (5, 8) Signalval 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, IIf (whfalling, ColorRed, IIf (whnone, colorCustom11, colorLightGrey))) mkol IIf (mhrising, colorBlue, IIf (mhfalling, colorYellow, colorLightGrey)) Trate-os all33 se (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) else barkol IIf (impulseUP, colorBrightGreen, IIf (impulseDo Wn, colorRed, colorCustom11)) Plot (C, quotClosequot, barkol, styleBar) Plot (10, quot Weekly Ribbonquot, kol, styleOwnScale124styleArea124styleNoLabel, WRP1, WRP2) Tendência semanal VERDADEIRO, RED FALLING, NEUTRO BRANCO Plot (10, quotMonthly Ribbonquot, mkol , StyleOwnScale124styleArea124styleNoLabel, MRP1, MRP2) Tendência mensal AZUL AUMENTANDO, CAUDO AMARELO, NEUTRO BRANCO LookBkPd 100 AvgPd 22 ExternalBarPct 15 ConvergePct 2 EMA médio (C, AvgPd) Rng HHV (H, LookBkPd) - LLV (L, LookBkPd) X Rng deltaX X2 Do Over H gt Middle X Under L lt Middle - X OuterPct 100 (Sum (Over, LookBkPd) Sum (Under, LookBkPd)) LookBkPd OP LastValue (OuterPct) XXsign (OP - ExternalBarPct) deltaX deltaX deltaX2 enquanto (abs (OP - ExternalBarPct ) Gt ConvergePct) Plot (Middle, quotMAquot, colorYellow, styleLine124styleNoTitle) Plot (MiddleX, quotMAquot, colorSkyblue, styleDashed124styleNoTitle) Plot (Middle-X, quotMAquot, colorSkyblue, styleDashed124styleNoTitle) Explorer Se Determinar se o status do Impulso é otimista, neutro ou de baixa. Exibir como coluna de texto. ImpulseState WriteIf (ImpulseUp, quotBulllishquot, WriteIf (ImpulseDown, quotBearishquot, quotNeutralquot)) Defina a cor de fundo para Impulse Status Column ImpulseCol IIf (ImpulseUp, colorGreen, IIf (ImpulseDown, colorRed, colorLightGrey)) Determine 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 tendência mensal. 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 existe barsinbull Min (BarsSince ( Impulsionado), BarsSince (impulsedown)) barsinbear Min (BarsSince (impulseup), BarsSince (impulsenone)) barsinneut Min (BarsSince (impulsedown), BarsSince (impulseup)) Defina uma única variável para mostrar o número de barras no estado atual, dependendo do Impulso real Status - Bullish, Bearish ou Neutral barsinstate IIf (ImpulseUp, barsinbull, IIf (Impulsedown, barsinbear, barsinneut)) Colunas para exibição no Explorer AddTextColumn (ImpulseState, quotImpulse Statusquot, 1, colorWhite, ImpulseCol) AddColumn (barrasinstate, quotBars neste estado, 1, colorWhite, Impulsecol) AddTextColumn (WeeklyTrend, quot Weekly Trendquot, 1, colorWhite, WeeklyCol) AddTextColumn (MonthlyTrend, quotMonthly Trendquot, 1, colorWhite, MonthlyCo L) SECÇÃO BEGIN (quotZIG - Zigquot) P ParamField (quotPrice fieldquot) mudança Param (quot changequot, 5,0.1,25,0.1) Plot (Zig (P, change), DEFAULTNAME (), ParamColor (quotColorquot, colorCycle), ParamStyle ( QuotStylequot)) SECÇÃO () Weekly MACD Histogran SECTIONBEGIN (quotWeekly MACDquot) TimeFrameSet (inDaily) MACDw MACD (12, 26) - Sinal (12, 26, 9) MACDLLINE MACD (12, 26) MACDwSignal Signal (12, 26, 9) Cor IIf (Ref (MACDw, -1) gtMACDw, colorRed, colorBrightGreen) TimeFrameRestore () Lote (MACDw, quotMACD Dailyquot, Color, styleHistogram 124 styleThick) Lote (MACDwLINE, quotMACD Daily Linequot, colorRed, styleLine) Lote (MACDwSignal, quotMACD Dail Signal Linequot, colorBrightGreen, styleLine) SECTIONEND () ÍNDICE DA FORÇA DIÁRIA 2DAY MA períodos Param (quotPeriodsquot, 2, 1, 100, 1) FI EMA (((Close - Ref (Close, -1)) V), períodos) FIkol IIf (Limpar, quotClosequot, colorRed, 2) Plot (FI, quotForce Indexquot, FIkol, styleLine124styleThick) Plot (0, quotquot, ColorViolet, styleLine 124 styleThick 124 styleNoLabel) Nome do título () EncodeColor (colorWhite) quot - Force Index - quot WriteVal (períodos, 1) quot days, quode EncodeColor (colorRed) quot Fechar quot EncodeColor (colorWhite) quot quot WriteVal (Close) quot Quot EncodeColor (colorBlue) quotForce Index quot EncodeColor (colorWhite) WriteVal (FI, 1.2) SECTIONEND () SECTIONBEGIN (quotVolumequot) Plot (Volume, DEFAULTNAME (), ParamColor (quotColorquot, colorBlueGrey), ParamStyle (quotStylequot, styleHistogram 124 styleOwnScale 124 styleThick , Mascara Histogram), 2) SECÇÃO () H1 Ref (H, -1) L1 Ref (L, -1) T IIf (HltH1 E LgtL1, 0, IIf (H-H1gtL1-L, H-H1, L1-L) ) Val1 H-H1 Val2 L1-L Val IIf (Val1gtVal2, Val1, Val2) Mediana média (Val, 22) cor IIf (Val lt Avgval, colorBlue, IIf (Val gt Avgval AND Val lt Avgval 3, colorViolet, IIf (Val Gt Avgval 3, colorOrange, colorViolet))) Plot (T, DEFAULTNAME (), color, styleHistogram 124 styleThick) P ParamField (quotPrice fieldquot, -1) Períodos Para M (quinto período 22, 2, 200, 1, 10) Plot (EMA (P, Periods), quotEMA 22quot, colorGreen, styleThick) Daily BullPower SECTIONBEGIN (quotBull Power EMAquot) Bull Power Lookback Param (quotEMA Lookbackquot, 13) BullPower High - EMA (Close, Lookback) Plot (BullPower, quotquot, ParamColor (quotColorquot, colorCustom11), styleHistogram) Nome do título () quot quot Date () quot Bull Powerquot WriteVal (Lookback, 3.0) quot Day: quot WriteVal (BullPower, 5.3) GraphXSpace 5 SECTIONEND () Daily BearPower SECTIONBEGIN (quotBear Power EMAquot) Bear Power Lookback Param (quotEMA Lookbackquot, 13) BearPower Low - EMA (Close, Lookback) Plot (BearPower, quotquot, ParamColor (quotColorquot, colorRed), styleHistogram) Nome do título ( ) Quot quot Date () quot Bear Powerquot WriteVal (Lookback, 3.0) quot Day: quot WriteVal (BearPower, 5.3) GraphXSpace 5 SECTIONEND () ELDER TRIPLE SCREEN SCAN Elder Triple Screen Trading System. Codificado por Dennis Skoblar 7052005. Derrived from quotTrading For A Livingquot e quotCome Into My Trading Roomquot de Alexander Elder. Esta varredura encontra candidatos pela inclinação semanal de História de MACD, e o Índice de Força do Período Diário 2 mergulhando acima ou abaixo da linha zero. Trate um Período semanal 26 EMA para ajudar a confirmar a direção semanal. Ele deve estar aumentando com um aumento no histograma semanal do MACD para passar por muito tempo. No entanto, Elder escreve que divergências no MACD Histograma substituem o EMA. O Índice de Força do Período Diário 2 estará abaixo da linha Zero. Procure o estoque para retroceder em torno dele39s Daily 13 Period EMA. Também use o Daily 22 Period EMA para confirmar a direção da tendência diária. Faça o contrário para calções. Use as guias LongShort EMA Weekly Direction como filtros para descartar a varredura para exibir somente o EMA semanal na direção comercial pretendida. Use o LongShort Elder Ray Tabs (BullPower AND BearPower) para ajustar os sinais de entrada. Esta guia é melhor usada quando estiver de acordo com os separadores LongShort EMA Weekly Direction. Um Período 50 EMA gt 100000 é usado para Filtrar Volume. Um mínimo de 5 pontos executados em um mês é usado como um filtro para um intervalo de estoque. Esta verificação é 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, 0) 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 (V (C-Ref ( C, -1)), 2) FILONGD FIDaily lt 0 FIShortD FIDaily gt 0 VFilter EMA (V, 50) gt 100000 TenTwentyFilter HHV (H, 20) - LLV (L, 20) Quanto caiu o preço em um mês (gt10 Pontos preferidos) FiftyDayHVFilter round (StDev (log (CRef (C, -1)), 50) 100sqrt (256)) Um ano de volubilidade (gt40 preferível) bullpower Alto - EMA (Close, 13) bearpower Low - EMA (Close, 13 ) Critérios de verificação ElderLong MACDLongW e FILongD e FILongW ElderShort MACDShortW e FIShortD e FIShortW Colunas para exploração Column0 FullName () Column0Name quotTick O nome da coluna Coluna1 quot quot Coluna1 Nome quot Coluna2 ElderLong Column2Name quotLongquot Column3 ElderLong E 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 AND EMA (C, 130) lt Ref (EMA (C, 130), - 5) Coluna7 Nomeado quimsegundo EMA Semanal Direção Coluna8 Coluna7 E (força de vida lt 0 AND bullpower gt 0) Column8Name quotShort Elder Ray Filterquot Column9 quot quot Column9Name quot quot Column10 TenTwentyFilter Column10Name quotOne Month Point Rangequot Column11 FiftyDayHVFilter Column11Name quotHistorical Volotility 50 Dayquot AddTextColumn (IndustryID (1), quotIndustryquot) AddTextColumn (MarketID (1), quotMarketquot) Filtros Filtro VFilter AND (ElderLong OR ElderShort) Compre ElderLong Sell 0 Short ElderShort Cover 0 Hc - 29 de junho de 200 6 12:38 AM (GMT) Obrigado por compartilhar os códigos. BTW, você usou Metastock antes? Como Amibroker comparou com Metastock Hope para ver seus comentários sobre Amibroker. Jest1081 - 29 de junho de 2006 02:54 PM (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 criar um sistema de comércio básico. Eu não gosto muito dos gráficos. Não está muito crocante. Você pode pegar o meu blog, ele contém algumas fotos, clique em Uma coisa com certeza, quanto mais eu troco, mais satisfação que eu quero obter, os gráficos funcionam bem, mas falta profundidade, se você sabe o que quero dizer, apenas Não lhe dê isso 39feeling39. Então, novamente, eu ainda posso ficar com Amibroker quando eu for em tempo real em futuros e índices. Fóruns grátis. Serviço confiável com mais de 8 anos de experiência. MySAR ADX Trading System 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 uma parada e Método reverso para determinar o que ajuda os comerciantes a entrar em 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 (quotnCerrar uma chamada somente quando trailing SL hitsquot) SECTIONEND () sourcecodeAR TRADING SYSTEM AFL FREE eu faço para 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 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 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 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 FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE FREE, 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 (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, False) 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. 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. Motivo: add img