Ar Trading System Afl

Título: Sistema de detección triple comercio utilizando Amibroker Descripción: Trading System jest1081 - 28 de junio de 2006 18:17 (GMT) Hola a todos, sólo quiero comparten algo que he programado (no totalmente por mí contribuciones de otros operadores en AmiBroker también) . He probado, y piensa que trabaja muy de cerca con el sistema que se ha enseñado. Fin de correo día debe recordar, Wun sistema u traer el dinero, la búsqueda de don39t Santo Grial. ser un comerciante disciplinado. SÓLO PARA USO EN Árboles, AmiBroker TA gráficos semanales CON SISTEMA DE IMPULSO mes // semanal Gráfico de barras SECTIONBEGIN (quotWeekly Graphquot) SetChartOptions (0, chartShowArrows124chartShowDates) // parámetro definido por el usuario 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 (quotStandard MACD n-0, Sí-1quot, 1, 0, 1, 1) Plotfashion Param (quotBarArrows - 1, Bares-Impulso 2quot, 2, 1, 2, 1) // Permite al usuario definir semanal y mensual de la cinta ubicación y la altura WRP1 Param (quotWeekly la cinta Locationquot, -10.5, -1000, 1000, 0,1) WRP2 Param (cinta quotWeekly Heightquot, 366,5, -0.001, 500, 0.1) MRP1 Param (cinta Locationquot quotMonthly, 5.2, -1000, 1000, 0,1) MRP2 Param (cinta Heightquot quotMonthly, 199, -0.001, 500, 0.1) TimeFrameSet (inWeekly) // Calcular EMA y si histograma MACD (EMAType 1) DayEMA EMA (Close, EMAprds) si (EMAType 2) DayEMA de TEMA (Close, EMAprds) si (EMAType 3) // Línea de abajo para ser utilizado con Jurik JMA // DayEMA JurikJMA (C, EMAPrds) si (StdMACD 0) MACDval MACD (5, 8) Signalval señal (5, 8, 5) otra cosa MACDval MACD (12, 26) Signalval señal (12, 26, 9) Histograma MACDval - Signalval // Determinar si tenemos un impulso hacia arriba, abajo o Ninguno ImpulseUp DayEMA gt Ref (DayEMA, -1) y el histograma gt Ref (histograma, -1) ImpulseDown DayEMA lt Ref (DayEMA, -1) y el histograma lt Ref (histograma, -1) ImpulseNone (NO ImpulseUP) Y (NO ImpulseDown) whrising DayEMA gt Ref (DayEMA, -1) y el histograma gt Ref (histograma, -1) whfalling DayEMA lt Ref (DayEMA, -1) y el histograma lt Ref (histograma, -1) TimeFrameRestore () // Ahora sal mensual histograma MACD. TimeFrameSet (inMonthly) MACDval MACD (5, 8) Signalval señal (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) // plotearlos all33 si Plotfashion 1) Terreno ((Close, quotClosequot, colorTeal, stylebar) PlotShapes (shapeUpArrow ImpulseUp, colorBrightGreen, 0, bajo, -12) PlotShapes (shapeDownArrow impulseDown, colorred, 0, alta, -12) PlotShapes (shapeSmallCircle ImpulseNone, ColorWhite, 0, Alto, 5) otra cosa Barkol IIf (impulseUP, colorBrightGreen, IIf (impulseDown, colorred, colorCustom11)) Solar (C, quotClosequot, Barkol, stylebar) // Terreno (10, quotWeekly Ribbonquot, kol, styleOwnScale124styleArea124styleNoLabel, WRP1, WRP2) // semanal tendencia VERDE naciente, rojo cayendo, Parcela blanco neutro (10, quotMonthly Ribbonquot, mkol, styleOwnScale124styleArea124styleNoLabel, MRP1, MRP2) // Tendencia mensual AZUL subiendo, bajando amarillo, blanco TimeFrameRestore NEUTRAL () SECTIONBEGIN (quotEMA1quot) P paramField (quotPrice fieldquot, -1) períodos Param (quotPeriodsquot, 15, 2, 200, 1, 10) Terreno (EMA (P), los períodos, DEFAULTNAME (), ParamColor (quotColorquot, colorCycle), ParamStyle (quotStylequot)) SECTIONEND () SECTIONBEGIN (quotZIG - Zigquot) TimeFrameSet (inWeekly) P paramField (quotPrice fieldquot) el cambio Param (quot changequot, 5,0.1,25,0.1) Parcela (Zig (P, modificar), DEFAULTNAME (), ParamColor (quotColorquot, colorCycle), ParamStyle (quotStylequot)) TimeFrameRestore () SECTIONEND () // semanal MACD Histogran SECTIONBEGIN (quotWeekly MACDquot) TimeFrameSet (inWeekly) MACDw MACD (12, 26 ) - señal (12, 26, 9) MACDwLINE MACD (12, 26) MACDwSignal señal (12, 26, 9) color IIf (Ref (MACDw, -1) gtMACDw, colorred, colorBrightGreen) TimeFrameRestore () Terreno (MACDw, quotMACD Weeklyquot, color, styleHistogram 124 styleThick) Solar (MACDwLINE, quotMACD semanal Linequot, colorred, styleline) Solar (MACDwSignal, quotMACD semanal señal Linequot, colorBrightGreen, styleline) SECTIONEND () FUERZA índice semanal 13 días MA SECTIONBEGIN (quotForce Index2quot) TimeFrameSet (inWeekly) períodos Param (quotPeriodsquot, 13, 1, 100, 1) FI EMA (((Cerrar - Ref (Close, -1)) V), períodos) FIkol IIf (fi lt 0, colorred, colorBrightGreen) Plot (Close, quotClosequot, colorred, 2) Solar (FI, quotForce Indexquot, FIkol, styleLine124styleThick) Terreno (0, quotquot, colorViolet, styleline 124 styleThick 124 Nombre styleNoLabel) Título () EncodeColor (quot ColorWhite) - Índice de Fuerza - WriteVal quot (períodos, 1) quot días, quot EncodeColor (colorred) EncodeColor quot Cerrar quot (ColorWhite) quot quot WriteVal (Cerrar) quot, quot EncodeColor (ColorBlue) quotForce Índice quot EncodeColor (ColorWhite) WriteVal (FI, 1.2) TimeFrameRestore () SECTIONEND () SECTIONBEGIN (quotVolumequot) TimeFrameSet (inWeekly) Solar (Volumen, DEFAULTNAME (), ParamColor (quotColorquot, colorBlueGrey), ParamStyle (quotStylequot, styleHistogram 124 124 styleOwnScale styleThick, maskHistogram), 2) TimeFrameRestore () SECTIONEND () gráfico diario CON SISTEMA DE IMPULSO SEMANA // usuario - parámetro definido por períodos EMA EMAType Param (quotEMA-1, TEMA-2, JMA-3quot, 2, 1, 3, 1) EMAprds Param (quotEMAperiodsquot, 7, 1, 30, 1) StdMACD Param (quotStandard MACD No-0, Sí-1quot, 1, 0, 1, 1) Plotfashion Param (quotBarArrows-1, Bares-Impulso 2quot, 2, 1, 2, 1) // Permite al usuario definir semanal y mensual de la cinta ubicación y la altura WRP1 Param (cinta quotWeekly Locationquot, 5.2, -1000, 1000, 0,1) WRP2 Param (cinta Heightquot quotWeekly, 199, -0.001, 500, 0,1) // MRP1 Param (cinta Locationquot quotMonthly, 5.2, -1000, 1000, 0,1) // MRP2 Param ( quotMonthly la cinta Heightquot, 199, -0.001, 500, 0,1) // Calcular EMA y si histograma MACD (EMAType 1) DayEMA EMA (Close, EMAprds) si (EMAType 2) DayEMA TEMA (Close, EMAprds) si (EMAType 3) / / Línea de abajo para ser utilizado con Jurik JMA // DayEMA JurikJMA (C, EMAPrds) histograma MACD () - señal () // Determinar si tenemos un impulso hacia arriba, abajo o Ninguno ImpulseUp DayEMA gt Ref (DayEMA, -1) y histograma gt Ref (histograma, -1) ImpulseDown DayEMA lt Ref (DayEMA, -1) y el histograma lt Ref (histograma, -1) ImpulseNone (NO ImpulseUP) y (NO ImpulseDown) // Calcular semanal MACD y determinar si ascendente o descendente // Nota: utiliza quotnon-standardquot parameters33 TimeFrameSet (inWeekly) si (StdMACD 0) MACDval MACD (5, 8) Signalval señal (5, 8, 5) otra cosa MACDval MACD (12, 26) Signalval señal (12, 26, 9 ) Histinw MACDval - Signalval whrising Histinw gt Ref (Histinw, -1) whfalling Histinw lt Ref (Histinw, -1) whnone (NO whrising) Y (NO whfalling) // Ahora sal mensual histograma MACD. TimeFrameSet (inMonthly) MACDval MACD (5, 8) Signalval señal (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)) // PlotShapes Parcela ellos si all33 (Plotfashion 1) Terreno (Close, quotClosequot, colorTeal, stylebar) ( shapeUpArrow ImpulseUp, colorBrightGreen, 0, -12), PlotShapes bajos (shapeDownArrow ImpulseDown, colorred, 0, alta, -12) PlotShapes (shapeSmallCircle ImpulseNone, ColorWhite, 0, Alto, 5) otra cosa Barkol IIf (impulseUP, colorBrightGreen, IIf (impulseDown , colorred, colorCustom11)) Solar (C, quotClosequot, Barkol, stylebar) Solar (10, quotWeekly Ribbonquot, kol, styleOwnScale124styleArea124styleNoLabel, WRP1, WRP2) // RISING semanal tendencia VERDE, ROJO CAE, blanco neutro // Terreno (10, quotMonthly Ribbonquot, mkol, styleOwnScale124styleArea124styleNoLabel, MRP1, MRP2) // mensual de tendencia AZUL subiendo, bajando amarillo, blanco LookBkPd NEUTRAL 100 AvgPd 22 ExternalBarPct 15 ConvergePct 2 Medio EMA (C, AvgPd) Rng HHV (H, LookBkPd) - LLV (L, LookBkPd ) X Rng deltaX X / 2 do Over H X gt Medio Bajo Medio L LT - X OuterPct 100 (suma (Over, LookBkPd) suma (Bajo, LookBkPd)) / LookBkPd OP LastValue (OuterPct) XXsign (OP - ExternalBarPct) deltaX deltaX deltaX / 2, mientras que (abs (OP - ExternalBarPct) gt ConvergePct) Solar (Media, quotMAquot, colorYellow, styleLine124styleNoTitle) Solar (MiddleX, quotMAquot, colorSkyblue, styleDashed124styleNoTitle) Solar (Medio-X, quotMAquot, colorSkyblue, styleDashed124styleNoTitle) // Sección Explorador // Determinar si el estado del impulso es alcista, bajista o neutral. Mostrar como columna de texto. ImpulseState WriteIf (ImpulseUp, quotBulllishquot, WriteIf (ImpulseDown, quotBearishquot, quotNeutralquot)) // establecer el color de fondo para el Estatus de Impulso Columna ImpulseCol IIf (ImpulseUp, colorGreen, IIf (ImpulseDown, colorred, colorLightGrey)) // Determinar tendencia semanal. Mostrar como columna de texto WeeklyTrend WriteIf (whrising, quotRisingquot, WriteIf (whfalling, quotFallingquot, quotFlat33quot)) WeeklyCol IIf (whrising, colorGreen, IIf (whfalling, colorred, colorLightGrey)) // Determinar la tendencia mensual. Mostrar como columna de texto MonthlyTrend WriteIf (mhrising, quotRisingquot, WriteIf (mhfalling, quotFallingquot, quotFlat33quot)) MonthlyCol IIf (mhrising, colorGreen, IIf (mhfalling, colorred, colorLightGrey)) // Determinar el número de barras ha existido el estado actual barsinbull Min ( BarsSince (impulsenone), BarsSince (impulsedown)) barsinbear Min (BarsSince (impulseup), BarsSince (impulsenone)) barsinneut Min (BarsSince (impulsedown), BarsSince (impulseup)) // Establecer una única variable para mostrar el número de barras en el estado actual // dependiendo de Estado del impulso real - barsinstate alcista, bajista o neutral IIF (ImpulseUp, barsinbull, IIf (Impulsedown, barsinbear, barsinneut)) // Columnas para mostrar en el Explorador de AddTextColumn (ImpulseState, quotImpulse Statusquot, 1, ColorWhite, ImpulseCol) AddColumn (barsinstate, quotBars en este statequot, 1, ColorWhite, Impulsecol) AddTextColumn (WeeklyTrend, quotWeekly Trendquot, 1, ColorWhite, WeeklyCol) AddTextColumn (MonthlyTrend, quotMonthly Trendquot, 1, ColorWhite, MonthlyCol) SECTIONBEGIN (quotZIG - Zigquot) P paramField (quotPrice fieldquot) el cambio Param (changequot quot, 5,0.1,25,0.1) Solar (Zig (P, modificar), DEFAULTNAME (), ParamColor (quotColorquot, colorCycle), ParamStyle (quotStylequot)) SECTIONEND () // semanal MACD Histogran SECTIONBEGIN (quotWeekly MACDquot) TimeFrameSet (inDaily) MACDw MACD (12, 26) - señal (12, 26, 9) MACDwLINE MACD (12, 26) MACDwSignal señal (12, 26, 9) color IIf (Ref (MACDw, -1) gtMACDw, colorred, colorBrightGreen) TimeFrameRestore () Terreno (MACDw, quotMACD Dailyquot, color, styleHistogram 124 styleThick) Solar (MACDwLINE, quotMACD diario Linequot, colorred, styleline) Solar (MACDwSignal, quotMACD Dail señal Linequot, colorBrightGreen, styleline) SECTIONEND () DIARIO FORCE INDEX períodos 2DAY MA Param (quotPeriodsquot, 2, 1, 100, 1) FI EMA (((Cerrar - Ref (Close, -1)) V), períodos) FIkol IIf (fi lt 0, colorred, colorBrightGreen) Parcela (Cerrar, quotClosequot, colorred, 2) Solar (FI, quotForce Indexquot, FIkol, styleLine124styleThick) Terreno (0, quotquot, colorViolet, styleline 124 styleThick 124 styleNoLabel) Nombre Título () EncodeColor quot (ColorWhite) - Índice de Fuerza - WriteVal quot ( períodos, 1) días quot, quot EncodeColor (colorred) EncodeColor quot Cerrar quot (ColorWhite) quot quot WriteVal (Cerrar) quot, quot EncodeColor (ColorBlue) quotForce Índice quot EncodeColor (ColorWhite) WriteVal (FI, 1.2) SECTIONEND () SECTIONBEGIN ( quotVolumequot) Solar (Volumen, DEFAULTNAME (), ParamColor (quotColorquot, colorBlueGrey), ParamStyle (quotStylequot, styleHistogram 124 124 styleOwnScale styleThick, maskHistogram), 2) SECTIONEND () Ref H1 (H, -1) Ref L1 (L, -1 ) T IIf (HltH1 Y LgtL1, 0, IIf (H-H1gtL1-L, H-H1, L1-L)) Val1 H-H1 Val2 L1-L Val IIf (Val1gtVal2, Val1, Val2) Avgval mediana (Val, 22 ) Color IIf (Val lt Avgval, ColorBlue, IIf (Val gt Avgval y Val lt Avgval 3, colorViolet, IIf (Val gt Avgval 3, colorOrange, colorViolet))) Solar (T, DEFAULTNAME (), el color, styleHistogram 124 styleThick) P paramField (quotPrice fieldquot, -1) períodos Param (quotPeriodsquot, 22, 2, 200, 1, 10) Terreno (EMA (P), los períodos, quotEMA 22quot, colorGreen, styleThick) // diario BullPower SECTIONBEGIN (quotBull Poder EMAquot) /// Bull Power / Lookback Param (quotEMA Lookbackquot, 13) BullPower alta - EMA (Close, Lookback) Solar (BullPower, quotquot, ParamColor (quotColorquot, colorCustom11), styleHistogram) Nombre Título () Fecha quot quot () quot Bull Powerquot WriteVal (Lookback, 3.0) Día quot: quot WriteVal (BullPower, 5.3) GraphXSpace 5 SECTIONEND () // diario BearPower SECTIONBEGIN (quotBear Poder EMAquot) /// oso de encendido / Lookback Param (quotEMA Lookbackquot, 13) BearPower baja - EMA ( Cerrar, Lookback) Solar (BearPower, quotquot, ParamColor (quotColorquot, colorred), styleHistogram) Título Nombre () quot quot Fecha () quot oso Powerquot WriteVal (Lookback, 3.0) Día quot: quot WriteVal (BearPower, 5.3) GraphXSpace 5 SECTIONEND () ELDER triple pantalla SCAN // Elder Sistema de Triple pantalla de comercio. // Codificado por Dennis Skoblar 05/07/2005. // Derrived de quotTrading para un Livingquot y quotCome Into My Trading Roomquot por Alexander Elder. // Esta exploración encuentra candidatos por la pendiente semanal MACD Historgam, y el Daily 2 Índice de Fuerza Periodo de inmersión encima o por debajo it39s Línea cero. Trazar una semana EMA 26 Período a // ayudar a confirmar el sentido semanal. Cabe aumentando junto con un repunte en el histograma MACD semanal que pase mucho tiempo. Sin embargo, Viejo escribe que las divergencias en el MACD histograma // anulan la EMA. El período diario 2 Índice de Fuerza estará por debajo de la línea cero it39s. Busque el archivo de pullback a cerca de 13 it39s diario EMA período. También puede utilizar el Daily // EMA 22 Período para confirmar la dirección de la tendencia diaria. Hacer lo contrario para los cortocircuitos. Utilice las fichas de dirección semanales largo / corto EMA como filtros de sacrificar a través de la // escanear sólo se visualice el Weekly EMA va en la dirección de intercambios, destinados. Usa los / Corto Elder Ray más aquí largas (BullPower Y BearPower) para ajustar con precisión las señales de entrada. // Esta ficha se utiliza mejor cuando estén de acuerdo con las lengüetas de dirección semanal Long / Short EMA. Un EMA gt 50 Período 100000 se utiliza para filtro de volumen. Un mínimo de un 5 punto de ejecución en un solo mes // se utiliza como filtro para una gama stock39s. Esta exploración se utiliza mejor como una exploración. TimeFrameSet (inWeekly) WeeklyMACD MACD (12,26) - Señal (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 () // criterios semanales MACDLongW WeekHistRising MACDShortW WeekHistFalling FILongW WeeklyForceIndexLong FIShortW WeeklyForceIndexShort // criterios diarias 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) // ¿Cómo tiene mucho precio ido en un mes (puntos gt10 preferible) FiftyDayHVFilter redonda (DesvEst (log (C / Ref (C, -1)), 50) 100sqrt (256)) // Uno volotility año (gt40 preferible) bullpower alta - EMA (Close, 13) bajo bearpower - EMA (Close, 13) // criterios de exploración ElderLong MACDLongW Y FILongD Y FILongW ElderShort MACDShortW Y FIShortD Y FIShortW // Las columnas para la exploración Column0 NombreCompleto () Column0Name quotTicker namequot Columna1 quot quot quot quot Column1Name Columna2 ElderLong Column2Name quotLongquot cOLUMN3 ElderLong y EMA (C, 130) gt Ref (EMA (C, 130), - 5) Column3Name quotLong EMA semanal Directionquot columna4 Columna3 Y (bearpower lt 0 Y bullpower gt 0) Column4Name quotLong Elder Ray Filterquot Column5 quot quot Column5Name quot quot Column6 ElderShort Column6Name quotShortquot Column7 ElderShort y EMA (C, 130) lt Ref (EMA (C, 130), - 5) Column7Name quotShort EMA semanal Directionquot Column8 Column7 Y (bearpower lt 0 Y bullpower gt 0) Column8Name quotShort Elder Ray Filterquot Column9 quot quot Column9Name quot quot Column10 TenTwentyFilter Column10Name quotOne Mes Punto Rangequot Column11 FiftyDayHVFilter Column11Name quotHistorical Volotility 50 Dayquot AddTextColumn (IndustryID (1), quotIndustryquot) AddTextColumn (MarketID (1), quotMarketquot) // filtro filtros VFilter Y (O ElderLong ElderShort) Comprar Vender 0 ElderLong breve cubierta ElderShort 0 Hc - 29 junio de 2006 12:38a. m. (GMT) Gracias por compartir los códigos. Por cierto, tiene que utilice Metastock antes ¿Cómo Amibroker comparación con Metastock esperanza de ver sus comentarios sobre Amibroker. jest1081 - 29 junio de 2006 14:54 (GMT) Pues no tengo ninguna experiencia con metastock. Amibroker entrega. en el muy básico, lo que necesita saber un poco de codificación para hacer un sistema de comercio básico. Me gusta bastante dun las tablas. no es muy nítido. Puede tomar alook en mi blogsite que contiene un par de fotos, haga clic en Una cosa es segura es el más largo que el comercio, la mayor satisfacción que quieren obtener de ella, los gráficos funciona bien, pero carece de profundidad, si ya sabes lo que quiero decir, simplemente don39t que 39feeling39 que dan. Por otra parte todavía podría pegarse a AmiBroker cuando voy en tiempo real sobre los futuros e índices. Crear foro. Servicio confiable con más de 8 años de experience. AR SISTEMA COMERCIAL AFL libre me gusta este AFL sk 100 Graph0sk Graph0BarColorIIf (skgt0,5,4) SECTIONBEGIN ((C-MA (/ MA (C, nol) C, nol))) ( quotemaquot) Lc EMA (Close, 22) Solar (Lc, quot quot, colorBrightGreen, styleDots) GfxSelectFont (quottohomaboldquot, Status (quotpxheightquot) / 16) GfxSetTextAlign (6) GfxSetTextColor (ColorRGB (10250250)) GfxSetBkMode (0) GfxTextOut (Nombre ( ), Estado (quotpxwidthquot) / 2, de estado (quotpxheightquot) / 10) cxParam (quotcxposnquot, 1085,0,1200,1) cyParam (quotcyposnquot, 16,0,1000,1) GfxSetBkColor (ColorRGB (200,50,100)) GfxSelectFont (quottohomaboldquot, 20,98, False) GfxSetTextColor (colorYellow) GfxSetTextColor (ColorHSB (100, 10, 400)) GfxTextOut (quotLTP. quotCquot quot, cx, cy) DDayO TimeFrameGetPrice (quotOquot, inDaily) DHiDay TimeFrameGetPrice (quotHquot, inDaily) DLoDay TimeFrameGetPrice (quotLquot, inDaily) gfr TimeFrameGetPrice (quotCquot, inDaily, -1) // Se cierra el Título EncodeColor (ColorWhite) quot SISTEMA DE COMERCIO AR quotEncodeColor (ColorRGB (220,10,150)) quot quot Intervalo (2) quot quot Fecha () EncodeColor ( ColorRGB (200150120)) quot n Abrir quot quot O, alta. H quot quot, bajo. quot L EncodeColor (colorGreen) quot Prevvious Día Cerrar. quot EncodeColor (colorGreen) gfr EncodeColor (colorYellow) quotn Abiertos hoy. quot quot DDayO alta. quot quot DHiDay baja. 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) Academy Art ParamColor (quotOuter Panel Colorquot, Colorblack) INUPcolor ParamColor (quotInner Panel Upperquot, colorGrey40) INDNcolor ParamColor (quotInner Panel Lowerquot, Colorblack) TitleColor ParamColor (quotTitle color quot, Colorblack) si (NO BKswitch) SetChartBkColor (DNG) // color del borde exterior SetChartBkGradientFill (INUPcolor, INDNcolor, TitleCo lor) // color del SECTIONEND panel interior () SECTIONBEGIN (quotquot ) SetBarsRequired (100000,0) GraphXSpace 15 ea EMA (C, 10) eb EMA (C, 20) SetBarFillColor (IIf (ea gt eb, colorGreen, colorred)) Comprar ea gt eb Y TimeNum () 092 000 gt Y TimeNum () lt 150000 Vender ea eb gt O TimeNum GT () 150000 Breve 0 cubierta 0 Comprar ExRem (comprar, vender) Vender ExRem (Vender, Comprar) Breve ExRem (corto, Cover) cubierta ExRem (cubierta, corto) FactorParam (quotFactorquot, 4, 1,10,1) PdParam (quotATR Periodsquot, 10,1,100,1) Hasta (HL) / 2 (FactorATR (Pd)) Dn (HL) / 2- (FactorATR (Pd)) iATRATR (Pd) TrendUpTrendDownNull trend01 changeOfTrend0 flagflagh0 para (i 1 i ltBarCount i) TrendUpi Null Null si TrendDowni (CloseigtUpi-1) si trendi1 (trendi-1 -1) changeOfTrend 1 else if (CloseiltDni-1) trendi-1 si (1 trendi-1) changeOfTrend 1 persona si (trendi-11) trendi1 changeOfTrend 0 else if (trendi-1-1) trendi-1 changeOfTrend 0 Comprar trend1 Selltrend-1 BuyExRem (comprar, vender) SellExRem (Vender, Comprar) ShortSell CoverBuy BuyPriceValueWhen (Comprar, C) SellPriceValueWhen (Sell , C) ShortPriceValueWhen (corto, C) CoverPriceValueWhen (cubierta, C) PlotShapes (IIf (Comprar, shapeSquare, shapeNone), colorGreen, 0, L,) PlotShapes (IIF (Comprar, shapeSquare, shapeNone), colorLime, 0 40 Offset - , L, PlotShapes (IIF (Short, shapeSquare, shapeNone), colorred, 0, H, Offset40) PlotShapes (IIF Offset-50) PlotShapes (IIF (Comprar, shapeUpArrow, shapeNone), ColorWhite, 0, L, Offset-45) (corto, shapeSquare, shapeNone), colorOrange, 0, H, Offset50) PlotShapes (IIf (corto, shapeDownArrow, shapeNone), ColorWhite, 0, H, Offset-45) por (iBarCount-1igt1i--) si (buyi 1) de entrada Ci sig quotBUYquot sl TrendSLi TAR1 entrada (entrada 0,0050) TAR2 entrada (entrada 0,0092) tar3 de entrada (entrada) .0179 bares ii 0 si (Selli 1) sig entrada quotSELLquot Ci sl entrada TAR1 TrendSLi - (entrada 0,0050) TAR2 de entrada - (entrada 0,0112) de entrada tar3 - (entrada 0,0212) bares II 0 Offset 20 Clr IIf (sig quotBUYquot, colorLime, colorred) ssl IIF (bares BarCount-1, TrendSLBarCount-1, Ref (TrendSL, -1)) sl sslBarCount-1 Terreno (LineArray (bares-Offset, TAR1, BarCount, tar1,1), quotquot, Clr, styleLinestyleDots, null, null, Offset) Solar (Offset-bares (LineArray, TAR2, BarCount, tar2,1), quotquot, Clr, styleLinestyleDots, null, null, Offset) Solar (LineArray (bares-Offset, tar3, BarCount, tar3,1), quotquot, Clr, styleLinestyleDots, null, null, Offset) Plot (LineArray (bares-offset, sl , BarCount, sl, 1), quotquot, colorDarkRed, styleLinestyleLine, null, null, Offset) // Terreno (LineArray (bares-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 de la parcela (quotT2quottar2, BarCount3, TAR2, Null, Clr) PlotText (quotT3quottar3, BarCount3, tar3, Null, Clr) messageboard ParamToggle (quotMessage Boardquot, quotShowHidequot, 1) si (messageboard 1) GfxSelectFont (quotTahomaquot, 13, 100) GfxSetBkMode (1) GfxSetTextColor (ColorWhite) si (sig quotBUYquot) GfxSelectSolidBrush (colorGreen) // esto es la caja de color de fondo demás GfxSelectSolidBrush (colorred) // este es el estado de la caja de color de fondo pxHeight (quotpxchartheightquot) xx Estado (quotpxchartwidthquot) izquierda 1100 ancho de 310 x 5 x 2 290 GfxSelectPen (ColorWhite, 4) // más amplia de colores GfxRoundRect (x, y - 165, x2, y. 160, 90) GfxTextOut ((quot quot AR SISTEMA DE COMERCIO), 141, Y-160) GfxTextOut ((quot quot), 130, Y-160) GfxTextOut ((quotLast quot sig quot señal llegó quot (BarCount-bares-1) intervalo () / 60 minutos quot agoquot), 148, Y-140) // La ubicación formato de texto GfxTextOut ((quotquot WriteIf (sig quotBUYquot, quot quot sig, sig quot quot) quot. quot entrada), 130, Y-120 ) GfxTextOut ((quotSTOP PÉRDIDA quot sl quot (quot WriteVal (IIf (sig quotSELLquot, entrada-sl, sl-entrada), 2.2) quot) quot.), 130, Y-100) GfxTextOut ((quotTGT:. 1 quot TAR1 ), 130, y -80) GfxTextOut ((quotTGT:. 2 TAR2 quot), 130, Y-60) GfxTextOut ((quotTGT:. 3 tar3 quot), 130, Y-40) GfxTextOut ((quotCurrent P / L. quot WriteVal (IIf (sig quotBUYquot, (C-entrada), (entrada-C)), 2.2)), 130, Y-22) Comprar ExRem (comprar, vender) Vender ExRem (Vender, Comprar) Forma de 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,) PlotShapes (IIF (Vender, shapeSquare, shapeNone), colorred, 0, H, Offset40) PlotShapes (IIf (Vender, shapeSquare, shapeNone), colorOrange, 0, H, Offset50 45 Offset - PlotShapes) (IIf (Vender, shapeDownArrow, shapeNone), ColorWhite, 0, H, Offset-45) // PlotShapes (forma, IIf (Comprar, colorGreen, colorred), 0, IIf (Comprar, bajo, alto)) dist 2.5 ATR (5) para (i 0 i lt BarCount i) si (Buyi) PlotText (quotBuynquot cerrarYa, i, Lowi - disti, ColorWhite) si (Selli) PlotText (quotsellnquot cerrarYa, i, Lowi disti, ColorWhite) SECTIONBEGIN (quotemaquot) P paramField (quotFieldquot) Tipo paramlist (quotTypequot, quotWeighted, simple, exponencial, exponencial doble, Triple exponencial, Wildersquot) Periods89 Param (quotPeriods180quot, 180, 2, 300) Displacement2 Param (quotDisplacement2quot, 2, -50, 50) Solar (EMA (P, Periods89), DEFAULTNAME (), ColorWhite, styleDots, 0, 0, Displacement2) SECTIONEND) rjlCross (Lc, TAR1) golCross (TAR1, Lc) PlotShapes ((shapeHollowStarrjl, colorAqua, 0, H, -20) PlotShapes ( shapeHollowStargol, colorViolet, 0, L, 20) SECTIONEND () para (i 0 i lt BarCount i) si (bvei) PlotText (quotABnquot. I, L i - disti, ColorWhite, colorDarkBlue) si (rfwi) PlotText (quotASnquot. i, i H disti, ColorWhite, colorred) SECTIONBEGIN (quotdayquot) TimeFrameSet (inDaily) // cambiar ahora a dayily TimeFrameRestore () // el tiempo de restauración trama a trama original (TimeFrameExpand (Oo, inDaily), quotquot, colorYellow, 10304 styleNoLabel) cx Param (quotcxposnquot, 476,0,1200,1) cy Param (quotcyposnquot, 500,0,1000,10) GfxSelectFont (Arial quot quot , 14, 98, False) GfxSetTextColor (ColorRGB (10250250)) GfxTextOut (quotVolume. quotquot quot volumen, cx 20, cy 50) SECTIONBEGIN (quottomquot) función GetSecondNum () Hora Actual (4) segundos int (Tiempo 100) Minutos int ( tiempo / 100 100) Horas int (Hora / 10000 100) secondNum int (60 horas 60 minutos 60 segundos) volver secondNum RequestTimedRefresh (1) TimeFrame Intervalo () SecNumber GetSecondNum () Newperiod SecNumber TimeFrame 0 SecsLeft SecNumber - int (SecNumber / TimeFrame) TimeFrame SecsToGo marco de tiempo - SecsLeft xParam (quotxposnquot, 99,0,1000,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) si (NewPeriod) // GfxSelectSolidBrush (colorYellow) // GfxSelectPen (colorYellow, 2) // Say (periodquot) GfxSetBkMode quotNew ( 1) GfxSelectFont (quotArialquot, 13, 800, False) GfxSetTextColor (ColorRGB (220,10,150)) GfxTextOut (quotTimeleftquotquot. quotNumToStr (SecsToGo, 1,0), x674, y507) GfxSetTextColor (ColorRGB (10250250)) GfxTextOut ((quot Desarrollar Por quot), 1150, y-45) GfxSetTextColor (ColorRGB (10250250)) GfxTextOut ((quotFu2 sistema de comercio quot), 1150 , 25 y-) SECTIONBEGIN (quotRibbonquot) uptrendPDI () gtMDI () y la señal () ltMACD () downtrendMDI () gtPDI () y la señal () gtMACD () Solar (1, / recisa la altura de la cinta, en porcentaje del panel ancho / quotribbonquot, IIf (tendencia alcista, colorLime, IIf (tendencia a la baja, colorred, IIf (señal () ltMACD (), colorLightGrey, colorLightGrey))), / elegir el color / styleOwnScalestyleAreastyleNoLabel, -.05,50) SECTIONEND () Esta funciona 100 si no, entonces desplazarse hacia arriba y clcik en la opción de descargar Última edición por supersaiyan 2 ª marzo de 2014 a 21:46. Re: AR SISTEMA DE COMERCIO AFL libre me gusta este AFL supersaiyan supersaiyan está en línea Miembro Fecha de Ingreso: Mar 2006 Mensajes: 115 Gracias: 6 Agradecido 101 veces en 53 Mensajes supersaiyan a ser famoso muy pronto enoughSuperSaiyan a ser famoso muy pronto Predeterminado Re: Compra-AR SISTEMA AFL libre me gusta este AFL Cita: ninguna zona de comercio no se encuentra ninguna puede dar el código de la versión de la AFL en enlace de descarga ARTrading. afl de trabajo - 11 KB cLCK el botón de arriba para descargar Juntos estamos fuertes sk ((C-MA (C, nol)) / MA (C, nol)) 100 Graph0sk Graph0BarColorIIf (skgt0,5,4) SECTIONBEGIN (quotemaquot) Lc EMA (Close, 22) Solar (Lc, quot quot, colorBrightGreen, styleDots) GfxSelectFont (quottohomaboldquot, Status (quotpxheightquot ) / 16) GfxSetTextAlign (6) GfxSetTextColor (ColorRGB (10250250)) GfxSetBkMode (0) GfxTextOut (Nombre (), Estado (quotpxwidthquot) / 2, de estado (quotpxheightquot) / 10) cxParam (quotcxposnquot, 1085,0,1200,1 ) cyParam (quotcyposnquot, 16,0,1000,1) GfxSetBkColor (ColorRGB (200,50,100)) GfxSelectFont (quottohomaboldquot, 20,98, False) GfxSetTextColor (colorYellow) GfxSetTextColor (ColorHSB (100, 10, 400)) GfxTextOut (quotLTP . quotCquot quot, cx, cy) DDayO TimeFrameGetPrice (quotOquot, inDaily) DHiDay TimeFrameGetPrice (quotHquot, inDaily) DLoDay TimeFrameGetPrice (quotLquot, inDaily) TimeFrameGetPrice TFG (quotCquot, inDaily, -1) // Se cierra el Título EncodeColor (ColorWhite) quot SISTEMA DE COMERCIO AR quotEncodeColor (ColorRGB (220,10,150)) quot quot Intervalo (2) quot quot Fecha () EncodeColor (ColorRGB (200150120)) quot n Abrir quot quot O, alta. H quot quot, bajo. quot L EncodeColor (colorGreen) quot Prevvious Día Cerrar. quot EncodeColor (colorGreen) gfr EncodeColor (colorYellow) quotn Abiertos hoy. quot quot DDayO alta. quot quot DHiDay baja. 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) Academy Art ParamColor (quotOuter Panel Colorquot, Colorblack) INUPcolor ParamColor (quotInner Panel Upperquot, colorGrey40) INDNcolor ParamColor (quotInner Panel Lowerquot, Colorblack) TitleColor ParamColor (quotTitle color quot, Colorblack) si (NO BKswitch) SetChartBkColor (DNG) // color del borde exterior SetChartBkGradientFill (INUPcolor, INDNcolor, TitleCo lor) // color del SECTIONEND panel interior () SECTIONBEGIN (quotquot ) SetBarsRequired (100000,0) GraphXSpace 15 ea EMA (C, 10) eb EMA (C, 20) SetBarFillColor (IIf (ea gt eb, colorGreen, colorred)) Comprar ea gt eb Y TimeNum () 092 000 gt Y TimeNum () lt 150000 Vender ea eb gt O TimeNum GT () 150000 Breve 0 cubierta 0 Comprar ExRem (comprar, vender) Vender ExRem (Vender, Comprar) Breve ExRem (corto, Cover) cubierta ExRem (cubierta, corto) FactorParam (quotFactorquot, 4, 1,10,1) PdParam (quotATR Periodsquot, 10,1,100,1) Hasta (HL) / 2 (FactorATR (Pd)) Dn (HL) / 2- (FactorATR (Pd)) iATRATR (Pd) TrendUpTrendDownNull trend01 changeOfTrend0 flagflagh0 para (i 1 i ltBarCount i) TrendUpi Null Null si TrendDowni (CloseigtUpi-1) si trendi1 (trendi-1 -1) changeOfTrend 1 else if (CloseiltDni-1) trendi-1 si (1 trendi-1) changeOfTrend 1 persona si