Ar Trading System Afl Amibroker

Título: Sistema de Negociação Triplo de SCreen Usando 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 envolveu dinheiro, não procure o Santo Graal. Seja um comerciante disciplinado. SOMENTE PARA USO EM CARTÕES AMIBROKER TA CARTAS SEMANAS COM SISTEMA DE IMPULSO MENSAL // Diagrama 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 a altura WRP1 Param (quot Weekly Ribbon Locationquot, -10.5, -1000, 1000, 0.1) WRP2 Param (quot Weekly 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 Histograma EMA e MACD se (EMAType 1) DayEMA EMA (Close, EMAprds) se (EMAType 2) DayEMA TEMA (Close, EMAprds) se (EMAType 3) // Linha abaixo para ser usada com Juri K JMA // DayEMA 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 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 (NÃO ImpulseUP) E (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 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) 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) // 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 (impulseDown, colorRed, colorCustom11)) Plot (C, quotClosequot, Barra Kol, styleBar) // Plot (10, quot Weekly Ribbonquot, kol, styleOwnScale124styleArea124styleNoLabel, WRP1, WRP2) // Tendência semanal VERDADEIRO, RED FALLING, WHITE NEUTRAL Plot (10, QuotMonthly Ribbonquot, mkol, styleOwnScale124styleArea124styleNoLabel, MRP1, MRP2) // Tendência mensal ALARGAMENTO AZUL, QUEDA AMARELA, NEUTRO BRANCO TimeFrameRestore () SECTIONBEGIN (quotEMA1quot) P ParamField (quotPrice fieldquot, -1) Períodos 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, mudança), DEFAULTNAME (), ParamColor (quotColorquot, colorCycle), ParamStyle (quotStylequot)) TimeFrameRestore () SECTIONEND () // Weekly MACD Histogran SECTIONBEGIN (quotWeekly MACDquot) TimeFrameSet (in Weekly) MACDw MACD (12, 26 ) - Sinal (12, 26, 9) MACDLLINE MA CD (12, 26) Sinal MACDwSignal (12, 26, 9) Cor IIf (Ref (MACDw, -1) gtMACDw, colorRed, colorBrightGreen) TimeFrameRestore () Lote (MACDw, quotMACD Weeklyquot, Color, styleHistogram 124 styleThick) Lote (MACDWLINE Linha de linha QuotMACD Weekly Linequot, colorRed, styleLine) (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) 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 Close quot EncodeColor (ColorWhite) quot quot WriteVal (Close) quot, quode EncodeColor (colorBlue) quotForce Inde X quode EncodeColor (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 () SECÇÃO () QUADRO 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 e a posição da fita semanais e mensais WRP1 Param (quot Weekly Ribbon Locationquot, 5.2, -1000, 1000, 0.1) WRP2 Param (quet 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) // Co Mpute EMA e MACD Histograma se (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 (NÃO ImpulseUP) AND (NÃO ImpulseDown) // Calcula o MACD semanal e determina se o aumento ou a queda // Nota: usa parâmetros quotnon-standardquot33 TimeFrameSet (inWeekly) if ( StdMACD 0) MACDval MACD (5, 8) Sinal de sinal (5, 8, 5), exceto MACDval MACD (12, 26) Signalval Signal (12, 26, 9) Histinw MACDval - Signalval whrising Histinw gt Ref (Histinw, -1) Antes de histórias, (Reflito histórico, -1) whnone (NOT whriesing) E (não whfalling) // Agora obtenha 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 (impulso Para baixo, colorRed, colorCustom11)) Plot (C, quotClosequot, barkol, styleBar) Plot (10, quot Weekly Ribbonquot, kol, styleOwnScale124styleArea124styleNoLabel, WRP1, WRP2) // Tendência semanal RENO VERDE, RED FALLING, WHITE NEUTRAL // Plot (10, QuotMonthly Ribbonquot, mkol, styleOwnScale124styleArea124styleNoLabel, MRP1, MRP2) // Tendência mensal AZUL AUMENTANDO, QUEDA AMARELA, 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 X / 2 do Over H gt Médio X Em L lt Médio - X OuterPct 100 (Sum (Over, LookBkPd) Sum (Under, LookBkPd)) / LookBkPd OP LastValue (OuterPct) XXsign (OP - ExternalBarPct) deltaX DeltaX deltaX / 2 enquanto (abs (OP - ExternalBarPct) gt ConvergePct) Plot (Middle, quotMAquot, colorYellow, styleLine124styleNoTitle) Plot (MiddleX, quotMAquot, colorSkyblue, styleDashed124styleNoTitle) Plot (Middle-X, quotMAquot, colorSkyblue, styleDashed124styleNoTitle) / / Seção do Explorer // Determine se o status do Impulso é otimista, neutro ou descendente. Exibir como coluna de texto. ImpulseState WriteIf (ImpulseUp, quotBulllishquot, WriteIf (ImpulseDown, quotBearishquot, quotNeutralquot)) // Define 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)) // Determina quantas barras tem o estado atual existente barsinbull Min ( BarsSince (impulsenone), BarsSince (impulsedown)) barsinbear Min (BarsSince (impulseup), BarsSince (impulsenone)) barsinneut Min (BarsSince (impulsedown), BarsSince (impulseup)) // Define uma única variável para mostrar o número de barras no estado atual Dependendo de // status de Impulso real - barras de impacto Bullish, Bearish ou Neutral IIf (ImpulseUp, barsinbull, IIf (Impulsedown, barsinbear, barsinneut)) // Colunas para exibição no Explorer AddTextColumn (ImpulseState, quotImpulse Statusquot, 1, colorWhite, ImpulseCol) AddColumn (Barras de estado, quotBars neste estado, 1, colorWhite, Impulsecol) AddTextColumn (WeeklyTrend, quot Weekly Trendquot, 1, colorWhite, WeeklyCol) AddTextColumn (MonthlyTrend, quotMonthly Trendquot, 1, colorWhite, M OnthlyCol) SECTIONBEGIN (quotZIG - Zigquot) P ParamField (quotPrice fieldquot) alterar Param (quot changingquot, 5,0.1,25,0.1) Plot (Zig (P, change), DEFAULTNAME (), ParamColor (quotColorquot, colorCycle), ParamStyle ( QuotStylequot)) SECTIONEND () // 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 (queriodsquot, 2, 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) 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 Close quot EncodeColor (colorWhite) quot quot WriteVal ( Fechar) quot EncodeColor (colorBlue) quotForce Index quot EncodeColor (colorWhite) WriteVal (FI, 1.2) SECÇÃO () SECTIONBEGIN (quotVolumequot) Plot (Volume, DEFAULTNAME (), ParamColor (quotColorquot, colorBlueGrey), ParamStyle (quotStylequot, styleHistogram 124 StyleOwnScale 124 styleThick, maskHistogram), 2) SECTIONEND () 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) Por Iods Param (quotPeriodsquot, 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 Dia: QuotemaVer (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 Sistema de negociação triplo. // Codificado por Dennis Skoblar 7/05/2005. // Derivado de 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 de Período Diário 2 mergulhando acima ou abaixo da linha zero de It's. Traçar 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 as divergências no MACD // Histograma substituem a EMA. O Índice de Força do Período Diário 2 estará abaixo da linha zero de It's. Procure o estoque para retroceder em torno dele39's Daily 13 Period EMA. Também use o // Periodo 22 Período EMA para confirmar a direção da tendência diária. Faça o contrário para calções. Use as guias de direção semanal EMA Long / Short como filtros para destruição através da // digitalização para exibir somente o EMA semanal na direção de negociação pretendida. Use o Long / Short Elder Ray Tabs (BullPower AND BearPower) para afinar os sinais de entrada. // Esta guia é melhor usada quando estiver de acordo com as guias de direção semanal Long / Short EMA. Um Período 50 EMA gt 100000 é usado para Filtrar Volume. Um mínimo de uma corrida de 5 pontos em // um mês é usado como um filtro para um intervalo de estoque. 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, 0) Nove semanas 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) // Qual o preço Foi dividido em um mês (gt10 pontos preferidos) FiftyDayHVFilter round (StDev (log (C / Ref (C, -1)), 50) 100sqrt (256)) // Um ​​ano de volubilidade (gt40 preferível) bullpower High - 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 () Column0N Ame quotTicker 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 Coluna5 quot Quot Column5Name quot quot Column6 ElderShort Column6Name quotShortquot Column7 ElderShort E EMA (C, 130) lt Ref (EMA (C, 130), - 5) Coluna7 Nomeado quotShort EMA Semanal Directionquot Coluna8 Coluna7 E (lote de força de vida 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) / / Filter Filtro VFilter AND (ElderLong OR ElderShort) Compre ElderLong Sell 0 Short ElderShort Cover 0 Hc - 29 de junho de 2006 12:38 AM (GMT) Obrigado por compartilhar os códigos. BTW, você usou o Metastock antes? Como Amibroker comparou com a Metastock Hope para ver seus comentários sobre Amibroker. Jest1081 - 29 de junho de 2006 02:54 PM (GMT) Não, 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 é muito nítido. Você pode pegar o meu blog, ele contém algumas fotos, clique em Uma coisa com certeza é quanto mais eu troco, mais satisfação eu quero obter, as tabelas 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 o Amibroker quando eu for em tempo real em futuros e índices. Junte-se aos milhões que nos usam para as comunidades do fórum. Crie seu próprio fórum hoje. Saiba mais middot Registe-se gratuitamente Hospedado gratuitamente por zIFBoardsAR TRADING SYSTEM AFL FREE eu faço este AFL sk ((C-MA (C, nol)) / MA (C, nol)) 100 Graph0sk Graph0BarColorIIf (skgt0,5,4) SECTIONBEGIN (Quote, 22) 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 (quotHquot, inDaily) DLoDay TimeFrameGetPrice (quotLuot, inDaily) gfr TimeFrameGetPrice (quotCquot, inDaily, -1) // fechar Título EncodeColor (colorWhite) quot AR TRADING SYST EM 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. 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 ))) Obter 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 Painel Lowerquot, ColorBlack) TitleColor ParamColor (quotTitle Color quot, colorBlack) if (NOT BKswitch) SetChartBkColor (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)) B Uk eb eb e TimeNum () gt 092000 e TimeNum () lt 150000 Vender eb gt e OR TimeNum () gt 150000 Curto 0 Capa 0 Comprar ExRem (Comprar, Vender) Vender 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)) 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 Compre (Short, C) SellPriceValueQuando (Vender, C) ShortPriceValueQuando (Short, C) CoverPriceValueQuando (Cover, C) PlotShapes (IIf (Comprar, shapeSquare, shapeNone), colorGreen, 0, L, Offset-40) PlotShapes (IIf (Buy, shapeSquare, shapeNone), col Ou Lime, 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 (Short, 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, O Ffset) Plot (LineArray (barras-Offset, tar3, BarCount, tar3,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot (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, Nulo, 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 Boardfot (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 (quotpxchartw Idthquot) Esquerda 1100 largura 310 x 5 x2 290 GfxSelectPen (colorWhite, 4) // maior cor 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 veio quot (BarCount-bars-1) Interval () / 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 entry), 130, y-120 ) GfxTextOut ((quotSTOP PERDA. 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 P / L. 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 shapeDownArrow 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 (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.5ATR (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 ( Quote ParamField (quotFieldquot) Tipo ParamList (quotTypequot, quotWeighted, Simple, Exponencial, Double Exponential, Tripple Exponential, Wildersquot) Periods89 Param (queriods180quot, 180, 2, 300) Displacement2 Param (quotDisplacement2quot, 2, -50, 50) Plot (EMA (P, Períodos89), 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. Eu, L i - disti, colorWhite, colorDarkBlue) se (rfwi) PlotText (quotASnquot. I, H i disti, colorWhite, colorRed) SECTIONBEGIN (quotdayquot) TimeFrameSet (inDaily) // mude agora para Dayily TimeFrameRestore () // restaure o tempo Quadro para 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,100 0,1) yParam (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. (GfxSetTextColor (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 () E Sinal () ltMACD () downtrendMDI () gtPDI () E Sinal () gtMACD () Plot (1, / efines a altura da fita em percentagem do painel Largura / quotribbonquot, IIf (tendência de alta, colorLime, IIf (downtrend, colorRed, IIf (Signal () ltMACD (), colorLightGrey, colorLightGrey))), / escolher cor / estiloOwnScalestyleAreastyleNoLabel, -.05,50) SECTIONEND () Este funciona 100 se não, então deslize para cima e clicque no botão de download Última edição por SuperSaiyan 2 de março de 2014 às 21:46. Re: AR TRADING SYSTEM AFL FREE eu faço isso AFL SuperSaiyan SuperSaiyan está conectado agora Membro Data de inscrição: Mar 2006 Mensagens: 115 Obrigado: 6 Agradecido 101 vezes em 53 Posts SuperSaiyan se tornará famoso em breve. O SuperSaiyan se tornará famoso em breve Default Re: AR TRADING SISTEMA AFL LIVRE eu faço isso Citação da AFL: falta nenhuma zona de troca pode dar o código Versão de trabalho do AFL Download LINK ARTrading. afl - 11 KB Clack 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 (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. QuotCquot quot, cx, cy) DDayO TimeFrameGetPrice (quotOquot, inDaily) DHiDay TimeFrameGetPrice (quotHous, inDaily) DLoDay TimeFrameGetPrice (quotLocot, 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 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. 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 ))) Obter 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 Painel Lowerquot, ColorBlack) TitleColor ParamColor (quotTitle Color quot, colorBlack) if (NOT BKswitch) SetChartBkColor (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)) B Uk eb eb e TimeNum () gt 092000 e TimeNum () lt 150000 Vender eb gt e OR TimeNum () gt 150000 Curto 0 Capa 0 Comprar ExRem (Comprar, Vender) Vender 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)) 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 Compre (Short, C) SellPriceValueQuando (Vender, C) ShortPriceValueQuando (Short, C) CoverPriceValueQuando (Cover, C) PlotShapes (IIf (Comprar, shapeSquare, shapeNone), colorGreen, 0, L, Offset-40) PlotShapes (IIf (Buy, shapeSquare, shapeNone), col Ou Lime, 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 (Short, 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, O Ffset) Plot (LineArray (barras-Offset, tar3, BarCount, tar3,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot (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, Nulo, 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 Boardfot (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 (quotpxchartw idthquot) Left 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 P/L . 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, shapeUpArrow, 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 () para (i 0 i lt BarCount i) se (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,100 0,1) yParam(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 2014 at 08:46 PM. Sir can you please explain how to use This Ar Trading System for entry amp exit of a trade. obrigado