Ar Trading System Afl Amibroker

Titel: Triple SCreen Trading System mit Amibroker Beschreibung: Trading System jest1081 - Juni 28, 2006 06:17 PM (GMT) Hallo alle, möchte nur etwas teilen, das ich programmiert habe (nicht ganz von mir Beiträge von anderen Händlern in amibroker auch) . Ich habe versucht und getestet, und denkt, es funktioniert sehr eng mit dem System, das gelehrt wurde. Ende des Tages muss sich erinnern, System wun bringen Sie Geld, don39t Suche nach heiligen Gral. Sei ein disziplinierter Händler. NUR ZUR VERWENDUNG IM AMIBROKER TA CHARTS WÖCHENTLICHE CHARTS MIT MONATLICHEM IMPULSYSTEM Wöchentliches Balkendiagramm SECTIONBEGIN (quotWeekly Graphquot) SetChartOptions (0, chartShowArrows124chartShowDates) Benutzerdefinierter Parameter für EMA-Perioden EMAType Param (quotEMA-1, TEMA-2, JMA-3quot, 2 , 1, 3, 1) EMAprds Param (quotArAperiodsquot, 7, 1, 30, 1) StdMACD Param (quotStandard MACD No-0, Ja-1quot, 1, 0, 1, 1) Plotfashion Param (quotBarArrows-1, Impulsstäbe -2quot, 2, 1, 2, 1) Erlaube dem Benutzer, wöchentliche und monatliche Farbbandposition und Höhe WRP1 Param zu definieren (quotWeekly Ribbon Locationquot, -10.5, -1000, 1000, 0.1) WRP2 Param (quotWeekly Ribbon Heightquot, 366.5, -0.001 , 500, 0,1) MRP1 Param (quotMonthly Ribbon Locationquot, 5,2, -1000, 1000, 0,1) MRP2 Param (quotMonthly Ribbon Heightquot, 199, -0.001, 500, 0.1) TimeFrameSet (inWeekly) Berechnen Sie EMA und MACD Histogramm if (EMAType 1 ) (EMA), wenn Sie mit Jurik JMA DayEMA JurikJMA (C, EMAPrds) verwendet werden, wenn (StdMACD 0) MACDval MACD (5, 8) Signalval Signal (5, 8, 5) sonst MACDval MACD (12, 26) Signalval Signal (12, 26, 9) Histogramm MACDval - Signalval Bestimmen Sie, ob wir einen Impuls UP, DOWN oder None haben ImpulseUp DayEMA gt Ref (DayEMA, (Histogramm, -1) ImpulseNone (NOT ImpulseUP) UND (NICHT ImpulseDown) Wright DayEMA gt Ref (DayEMA, -1) UND Histogramm lt Ref (Histogramm, -1) UND Histogramm gt Ref (Histogramm, -1), das DayEMA lt Ref (DayEMA, -1) UND Histogramm lt Ref (Histogramm, -1) TimeFrameRestore () Jetzt bekommst monatliches MACD Histogramm. 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 (Mhring, inMonthly, expandLast) mhfalling TimeFrameExpand (mhfalling, inMonthly, expandLast) kol IIf (whrising, colorBrightGreen, IIf (whfalling, colorRed, colorLightGrey)) mkol IIf (mhrising, inWeekly, expandLast) mhrising TimeFrameExpand (mhrising, , ColorBlue, IIf (mhfalling, colorYellow, colorLightGrey)) TimeFrameSet (inWeekly) Plot sie all33 Wenn (Plotfashion 1) Plot (Close, quotClosequot, colorTeal, styleBar) PlotShapes (shapeUpArrow ImpulseUp, colorBrightGreen, 0, Low, -12) PlotShapes ( Shape_ownArrow ImpulseDown, colorRed, 0, High, -12) PlotShapes (shapeSmallCircle ImpulseNone, colorWhite, 0, High, 5) sonst barkol IIf (impulseUP, colorBrightGreen, IIf (impulseDown, colorRed, colorCustom11)) Plot (C, quotClosequot, barkol, StyleBar) Plot (10, quotWeekly Ribbonquot, kol, styleOwnScale124styleArea124styleNoLabel, WRP1, WRP2) Wöchentlicher Trend GREEN RISING, RED FALLING, WEISS NEUTRAL Plot (10, quotMonthly Ribbonquot, mkol, styleOwnScale124styleArea124styleNoLabel, MRP1, MRP2) Monatsverlauf BLAUES RISING, GELB FALLEN, WHITE NEUTRAL TimeFrameRestore () SECTIONBEGIN (quotEMA1quot) P ParamField (quotPrice fieldquot, -1) Perioden Param (quotPeriodsquot, 15, 2, 200, 1, 10) Plot (EMA (P, Perioden), DEFAULTNAME (), ParamColor (quotColorquot, ColorCycle), ParamStyle (quotStylequot)) SECTIONEND () SECTIONBEGIN (quotZIG - Zigquot) TimeFrameSet (inWeekly) P ParamField (quotPrice fieldquot) ändern Param (Änderungsquot, 5,0,1,25,0.1) Plot (Zig (P, Änderung), DEFAULTNAME (), ParamColor (quotColorquot, colorCycle), ParamStyle (quotStylequot)) TimeFrameRestore () SECTIONEND () Wöchentlicher MACD Histogran SECTIONBEGIN ("MACDw MACDw") MACDw MACD (12, 26) - Signal (12, 26, 9) MACDWLINE MACD (12, 26) MACDwSignal Signal (12, 26, 9) Farbe IIf (Ref (MACDw, -1) gtMACDw, colorRed, colorBrightGreen) TimeFrameRestore () Plot (MACDw, quotMACD Weeklyquot, Farbe, styleHistogramm 124 styleThick) Plot ( MACDWLINE, quotMACD Weekly Linequot, colorRed, styleLine) Plot (MACDwSignal, quotMACD Wöchentliches Signal Linequot, colorBrightGreen, styleLine) SECTIONEND () WÖCHENTLICHE FORCE INDEX 13day MA SECTIONBEGIN (quotForce Index2quot) TimeFrameSet (in Weekly) Perioden Param (quotPeriodsquot, 13, 1, 100 , 1) FI EMA ((Close - Ref (Close, -1)) V), Perioden) FIkol IIf (Filz 0, colorRed, colorBrightGreen) Plot (Close, quotClosequot, colorRed, 2) Plot (FI, quotForce Indexquot , FIkol, styleLine124styleThick) Plot (0, quotquot, colorViolet, styleLine 124 styleThick 124 styleNoLabel) Titel Name () EncodeColor (colorWhite) quot - Force Index - WriteVal (Perioden, 1) Tage, EncodeColor (colorRed) EncodeColor (colorWhite) Quellzertifikat (colorWlite) Quellzertifikat (ColorWlite) Quellzertifikat (ColorWhite) WriteVal (FI, 1.2) TimeFrameRestore () SECTIONEND () SECTIONBEGIN (quotVolumequot) TimeFrameSet (inWeekly) Plot (Volume, DEFAULTNAME ( ), ParamColor (quotColorquot, colorBlueGrey), ParamStyle (quotStylequot, styleHistogramm 124 styleOwnScale 124 styleThick, maskHistogramm), 2) TimeFrameRestore () SECTIONEND () TÄGLICHES CHART MIT WÖCHENTLICHEM IMPULSYSTEM Benutzerdefinierter Parameter für EMA-Perioden EMAType Param (quotEMA-1, TEMA-2, JMA-3quot, 2, 1, 3, 1) EMAprds Param (quotEMAperiodsquot, 7, 1, 30, 1) StdMACD Param (Standard MACD No-0, Yes-1quot, 1, 0, 1, 1) Plotfashion Param (quotBarArrows-1, Impulse Bars-2quot, 2, 1, 2, 1) Erlauben Sie dem Benutzer, wöchentlich und monatlich zu definieren Ort und Höhe WRP1 Param (quotWeekly Ribbon Locationquot, 5.2, -1000, 1000, 0.1) WRP2 Param ( "Rechtwinkliges Ribbon Heightquot, 199, -0.001, 500, 0.1) MRP1 Param (quotTlyhly Ribbon Locationquot, 5.2, -1000, 1000, 0.1) MRP2 Param (quotMonthly Ribbon Heightquot, 199, -0.001, 500, 0.1) Berechnen Sie EMA und MACD Histogramm If (EMAType 1) DayEMA EMA (Schließen, EMAprds) if (EMAType 2) DayEMA TEMA (Schließen, EMAprds) if (EMAType 3) Zeile unten für Jurik JMA DayEMA JurikJMA (C, EMAPrds) Histogramm MACD () - Signal (Histogramm, -1) ImpulseDown DayEMA lt Ref (DayEMA, -1) UND Histogramm lt Ref (Histogramm, -1) und Histogramm, -1) ImpulseNone (NOT ImpulseUP) AND (NOT ImpulseDown) Berechnen Sie wöchentlich MACD und bestimmen Sie, ob steigend oder fallend Hinweis: verwendet quotnon-standardquot parameters33 TimeFrameSet (inWeekly) if (StdMACD 0) MACDval MACD (5, 8) Signalval Signal (5, 8, 5) sonst MACDval MACD (12, 26) Signalval Signal (12, 26, 9) Histinw MACDval - Signalval whrising Histinw gt Ref (Histinw, -1) whfalling Histinw lt Ref (Histinw, -1) whnone (NICHT geschrumpft) UND (NICHT Wimmern) Jetzt bekommst du monatliches MACD Histogramm. 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 (Wright, Weitern, Weitern, Weitern, Weitern, Weitern, Weitern, Weitern, Wandern, Wandern, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Fliegen, Colorced, IIf (whnone, colorCustom11, colorLightGrey))) mkol IIf (mhrising, colorBlue, IIf (mhfalling, colorYellow, colorLightGrey)) Plot sie all33 if (Plotfashion 1) Plot (Schließen, quotClosequot, colorTeal, styleBar) PlotShapes (shapeUpArrow ImpulseUp , ColorBrightGreen, 0, Low, -12) PlotShapes (shapeDownArrow ImpulseDown, colorRed, 0, High, -12) PlotShapes (shapeSmallCircle ImpulseNone, colorWhite, 0, High, 5) sonst barkol IIf (impulseUP, colorBrightGreen, IIf (impulseDown, colorRed , ColorCustom11)) Plot (C, quotClosequot, barkol, styleBar) Plot (10, quotWeekly Ribbonquot, kol, styleOwnScale124styleArea124styleNoLabel, WRP1, WRP2) Wöchentlicher Trend GREEN RISING, RED FALLING, WEISS NEUTRAL Plot (10, quotMonthly Ribbonquot, mkol, styleOwnScale124styleArea124styleNoLabel, MRP1, MRP2) Monatlicher Trend BLAUES RISING, GELB FALLEN, WEISS NEUTRAL LookBkPd 100 AvgPd 22 ExternalBarPct 15 ConvergePct 2 Mittleres EMA (C, AvgPd) Rng HHV (H, LookBkPd) - LLV (L, LookBkPd) X Rng DeltaX X2 über H Gt Middle X unter L lt Mitte - X OuterPct 100 (Summe (Over, LookBkPd) Summe (Under, LookBkPd)) LookBkPd OP LastValue (OuterPct) XXsign (OP - ExternalBarPct) deltaX deltaX deltaX2 while (abs (OP - ExternalBarPct) gt ConvergePct ) Handlung (Mitte, quotMAquot, colorYellow, styleLine124styleNoTitle) Plot (MiddleX, quotMAquot, colorSkyblue, styleDashed124styleNoTitle) Plot (Middle-X, quotMAquot, colorSkyblue, styleDashed124styleNoTitle) Explorer-Abschnitt Bestimmen Sie, ob Impulsstatus bullisch, neutral oder bearish ist. Als Textspalte anzeigen (ImpulseUp, colorGreen, IIf (ImpulseDown, colorRed, colorLightGrey)) Bestimmen Sie den wöchentlichen Trend. (ImpulseUp, colorGreen, IIf (ImpulseDown, colorRed, colorLightGrey)) Bestimmen Sie den wöchentlichen Trend. Zeigen als Text Spalte WeeklyTrend WriteIf (whrising, quotRisingquot, WriteIf (whfalling, quotFallingquot, quotFlat33quot)) WeeklyCol IIf (whrising, colorGreen, IIf (whfalling, colorRed, colorLightGrey)) Bestimmen Sie monatlichen Trend. Zeigen Sie als Text Spalte MonatlichTrend WriteIf (mhrising, quotRisingquot, WriteIf (mhfalling, quotFallingquot, quotFlat33quot)) MonthlyCol IIf (mhrising, colorGreen, IIf (mhfalling, colorRed, colorLightGrey)) Bestimmen Sie, wie viele Bars hat den aktuellen Status existiert barsinbull Min (BarsSince ( Impulsenon), BarsSince (impulsedown)) Barsinnear Min (BarsSince (Impulseup), BarsSince (impulsenone)) barsinneut Min (BarsSince (impulsedown), BarsSince (impulseup)) Setzt eine einzelne Variable, um die Anzahl der Balken im aktuellen Zustand zu zeigen, je nach dem tatsächlichen Impuls Status - Bullish, Bearish oder Neutral barinstate IIf (ImpulseUp, barsinbull, IIf (Impulsedown, barsinbear, barsinneut)) Spalten für die Anzeige im Explorer AddTextColumn (ImpulseState, quotImpulse Statusquot, 1, colorWhite, ImpulseCol) AddColumn (barsinstate, quotBars in diesem 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) ändern Param (Änderungsquot, 5,01,25,0,1) Plot (Zig (P, Änderung), DEFAULTNAME (), ParamColor (quotColorquot, colorCycle), ParamStyle (quotStylequot)) SECTIONEND () Wöchentlicher MACD Histogran SECTIONBEGIN (quotWeekly MACDquot) TimeFrameSet (inDaily) MACDw MACD (12, 26) - Signal (12, 26, 9) MACDWLINE MACD (12, 26) MACDwSignal Signal (12, 26, 9) Farbe IIf (Ref (MACDw, -1) gtMACDw, colorRed, colorBrightGreen) TimeFrameRestore () Plot (MACDw, quotMACD Dailyquot, Farbe, styleHistogramm 124 styleThick) Plot (MACDwLINE, quotMACD Daily Linequot, colorRed, styleLine) Plot (MACDwSignal, quotMACD Dail Signal Linequot, colorBrightGreen, styleLine) SECTIONEND () DAILY FORCE INDEX 2DAY MA Perioden Param (quotPeriodsquot, 2, 1, 100, 1) FI EMA ((Close - Ref (Close, -1)) V), Perioden) FIkol IIf (Filz 0, colorRed, colorBrightGreen) Plot (Close, quotClosequot, colorRed, 2) Plot (FI, quotForce Indexquot, FIkol, styleLine124styleThick) Plot (0, quotquot, colorViolet, styleLine 124 styleThick 124 styleNoLabel) Titel Name () EncodeColor (colorWhite) quot - Force Index - WriteVal (Perioden, 1) Tage, EncodeColor ( ColorChor (colorWhite) quot EncodeColor (colorWhite) quot. EncodeColor (colorBlue) quotForce Index EncodeColor (colorWhite) WriteVal (FI, 1.2) SECTIONEND () SECTIONBEGIN (quotVolumequot) Plot (Volume, DEFAULTNAME (), (H, -1) L1 Ref (L, -1) T IIf (HltH1 UND LgtL1, 0, 1) L1 Ref (H, -1) L1 Ref (L, -1) T IIf (HltH1 UND LgtL1, 0, IIV (Val-G1, L1-L)) Val1 H-H1 Val2 L1-L Val IIf (Val1gtVal2, Val1, Val2) Avgval Median (Val, 22) Farbe IIf (Val lt Avgval, colorBlue, (T, DEFAULTNAME (), Farbe, StilHistogramm 124 styleThick) P ParamField (quotPrice fieldquot, -1) Perioden. (Abb. 1) Perioden (vgl. Valvval), Valvval 3, colorViolet, IIf (Val gt Avgval 3, colorOrange, colorViolet) Param (quotPeriodsquot, 22, 2, 200, 1, 10) Plot (EMA (P, Perioden), quotEMA 22quot, colorGreen, styleThick) Täglicher BullPower SECTIONBEGIN (quotBull Power EMAquot) Bull Power Lookback Param (quotEMA Lookbackquot, 13) BullPower High (BullPower, Zitat), Zitat, Zitat, Zitat Zitat von Zombie, Zitat von Zombie, Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat Zitat GraphicSpace 5 SECTIONEND () Täglicher BearPower SECTIONBEGIN (Battle Power EMAquot) Bear Power Lookback Param (quotEMA Lookbackquot, 13) BearPower Low - EMA (Close, Lookback) Plot (BearPower, quotquot, ParamColor (quotColorquot, colorRed), styleHistogramm) Titel Name ( ) Bear Powerquot WriteVal (Lookback, 3.0) Tag: WriteVal (BearPower, 5.3) GraphXSpace 5 SECTIONEND () ELDER TRIPLE SCREEN SCAN Elder Triple Screen Trading System. Coded von Dennis Skoblar 7052005. Abgeleitet von quotTrading For A Livingquot und quotCome Into My Trading Roomquot von Alexander Elder. Dieser Scan findet Kandidaten von der Weekly MACD Historgam Hang, und die Daily 2 Period Force Index Tauchen über oder unter it39s Zero Line. Plot a Weekly 26 Periode EMA, um zu helfen, die wöchentliche Richtung zu bestätigen. Es sollte mit einem Aufstieg auf das wöchentliche MACD Histogramm steigen, um lange zu gehen. Allerdings schreibt Elder, dass Divergenzen im MACD Histogramm die EMA überschreiben. Der Daily 2 Period Force Index wird unter it39s Zero Line sein. Schauen Sie nach der Aktie, um es zu umzugehen39s Täglich 13 Periode EMA. Nutzen Sie auch die Daily 22 Period EMA, um die Richtung des täglichen Trends zu bestätigen. Mach das Gegenteil für Shorts. Verwenden Sie die LongShort EMA Weekly Direction Tabs als Filter, um den Scan zu durchlaufen, um nur die wöchentliche EMA in der vorgesehenen Handelsrichtung anzuzeigen. Verwenden Sie die LongShort Elder Ray Tabs (BullPower AND BearPower), um die Eingangssignale fein abzustimmen. Diese Registerkarte wird am besten in Übereinstimmung mit den LongShort EMA Weekly Direction Tabs verwendet. A 50 Periode EMA gt 100000 wird verwendet, um Volumen zu filtern. Ein Minimum von einem 5-Punkte-Lauf in einem Monat wird als Filter für eine Aktie verwendet. Dieser Scan wird am besten als Erkundung verwendet. TimeWrameSet (inWeekly) WeeklyMACD MACD (12,26) - Signal (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 WöchentlichForceIndexShort FIWeekly lt 0 TimeFrameRestore () Wöchentliche Kriterien MACDLongW WeekHistRising MACDShortW WeekHistFalling FILongW WeeklyForceIndexLong FIShortW WeeklyForceIndexShort Tägliche Kriterien 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) Wie viel Preis ist in einem Monat gegangen (gt10 Punkte (vorläufig) Bullpower High - EMA (Close, 13) bearpower Niedrig - EMA (Close, 13 ) Scan-Kriterien ElderLong MACDLongW UND FILongD UND FILongW ElderShort MACDShortW UND FISHortD AND FIShortW Spalten für die Erforschung Column0 FullName () Column0Name quotTicker namequot Column1 quot quot Column1Name quot Column2 ElderLong Column2Name quotLongquot Column3 ElderLong UND EMA (C, 130) gt Ref (EMA (C , 130), - 5) Column3Name quotLong EMA Weekly Directionquot Column4 Column3 AND (Bessereffekt lt 0 UND Bullpower gt 0) Column4Name quotLong Elder Ray Filterquot Column5 Quell Column5Name Quumn Column6 ElderShort Column6Name quotShortquot Column7 ElderShort UND EMA (C, 130) lt Ref (EMA (C, 130), - 5) Column7Name quotShort EMA wöchentlich Directionquot Spalte8 Spalte7 UND (Besserschaft lt 0 UND Bullpower gt 0) Column8Name quotShort Elder Ray Filterquot Column9 quotes Spalte9Name quotes Spalte10 TenTwentyFilter Column10Name quotOne Month Point Rangequot Spalte11 FiftyDayHVFilter Column11Name quotHistorical Volotilität 50 Dayquot AddTextColumn (IndustryID (1), quotIndustryquot) AddTextColumn (MarketID (1), quotMarketquot) Filter Filter VFilter AND (ElderLong OR ElderShort) Kaufen ElderLong Verkaufen 0 Short ElderShort Cover 0 Hc - 29. Juni 2006 12:38 (GMT ) Vielen Dank für den Austausch der Codes. BTW, hast du Metastock benutzt, bevor wie funktioniert Amibroker im Vergleich zu Metastock Hope, um deine Kommentare zu Amibroker zu sehen. Jest1081 - 29. Juni 2006 02:54 PM (GMT) Nein, ich habe keine Erfahrung mit Metastock. Amibroker liefert. An der sehr grundlegenden, müssen Sie wissen, ein wenig Kodierung, um ein grundlegendes Handelssystem zu machen. Ich verdrehe ganz wie die Charts. Es ist nicht sehr knackig. Sie können auf meine Blogsite nehmen, enthält es ein paar Bilder, klicken Sie auf eine Sache für sicher ist die längere ich handeln, desto mehr Zufriedenheit möchte ich von ihm bekommen, die Charts funktioniert gut aber fehlt Tiefe, wenn Sie wissen, was ich meine, nur Du gehst dir das Geheimnis. Dann wieder könnte ich noch auf amibroker bleiben, wenn ich in Echtzeit auf Futures und Indizes gehe. Kostenlose Foren Zuverlässiger Service mit über 8 Jahren Erfahrung. AR TRADING SYSTEM AFL FREE Ich mache diese AFL sk ((C-MA (C, nol)) MA (C, nol)) 100 Graph0sk Graph0BarColorIIf (skgt0,5,4) SECTIONBEGIN (quotemaquot ) GfxSetTextColor (ColorRGB (10.250.250)) GfxSetBkMode (0) GfxTextOut (Name (), GFXSetBkMode (0) GfxSetBkMode (0) GfxSetBkMode (0) GfxTextOut (Name () Status (quotpxwidthquot) 2, Status (quotpxheightquot) 10) cxParam (quotcxposnquot, 1085,0,1200,1) cyParam (quotcyposnquot, 16,0,1000,1) GfxSetBkColor (ColorRGB (200,50,100)) GfxSelectFont (quottohomaboldquot, 20 , 98, False) GfxSetTextColor (colorYellow) GfxSetTextColor (ColorHSB (100, 10, 400)) GfxTextOut (quotLTP. QuotCquot quot, cx, cy) DDayO TimeFrameGetPrice (quotOquot, inDaily) DHiDay TimeFrameGetPrice (quotHquot, inDaily) DLoDay TimeFrameGetPrice (quotLquot, InDaily) gfr TimeFrameGetPrice (quotCquot, inDaily, -1) schließen Titel EncodeColor (colorWhite) AR TRADING SYSTEM quotEncodeColor (ColorRGB (220,10,150)) quot Interval (2) quot Datum () EncodeColor (ColorRGB (200,150,120)) N Öffnen Sie die O-Adresse, hoch. H quot, Niedrig. L EncodeColor (colorGreen) "Prevvious Day Close". EncodeColor (colorGreen) gfr EncodeColor (colorYellow) Zitat ToDay Open. DDayO-Wert. DHiDay-Niedrig. 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 )) HaClos EMA ((OHLLC) 5,3) HaOpen AMA (Ref (HaClose, -1), 0,5) HaHigh Max (H, Max (HaClose, HaOpen)) HaLow Min (L, Min (HaClose, HaOpen) PlotOHLC (HaOpen, HaHigh, HaLow, HaClose, quotquot, Colcci, styleCandle styleNoLabel) BKswitch ParamToggle (quotBackground Colorquot, quotOn, Offquot) OUTcolor ParamColor (quotOuter Panel Colorquot, colorBlack) INUPcolor ParamColor (im Inneren Panel Upperquot, colorGrey40) INDNcolor ParamColor (quotInner Panel Niedrigquot, FarbeBlack) TitelColor ParamColor (quotTitle Color quot, colorBlack) if (NOT BKswitch) SetChartBkColor (OUTcolor) Farbe des äußeren Randes SetChartBkGradientFill (INUPcolor, INDNcolor, TitleCo lor) Farbe des Innenpaneels SECTIONEND () SECTIONBEGIN (quotquot) SetBarsRequired (100000, 0) GraphXSpace 15 ea EMA (C, 10) eb EMA (C, 20) SetBarFillColor (IIf (ea gt eb, colorGreen, colorRed)) Kaufen Sie ea gt eb AND TimeNum () gt 092000 AND TimeNum () lt 150000 Verkaufen eb gt Ea OR TimeNum () gt 150000 Short 0 Cover 0 Kaufen ExRem (Kaufen, Verkaufen) Verkaufen ExRem (Verkaufen, Kaufen) Short ExRem (Short, Cover) Cover ExRem (Cover, Short) FactorParam (quotFactorquot, 4,1,10,1 ) PtParam (FT) 2 (FactorATR (Pd)) Dn (HL) 2- (FactorATR (Pd)) IATRATR (Pd) TrendUpTrendDownNull trend01 changeOfTrend0 flagflagh0 für (i 1 i ltBarCount i ) TrendUpi Null TrendDowni Null if (CloseigtUpi-1) trendi1 if (trendi-1 -1) changeOfTrend 1 sonst if (CloseiltDni-1) trendi-1 if (trendi-1 1) changeOfTrend 1 sonst if (trendi-11) trendi1 changeOfTrend 0 else if (trendi-1-1) trendi-1 changeOfTrend 0 Buy trend1 Selltrend-1 BuyExRem (Kaufen, Verkaufen) SellExRem (Verkaufen, Kaufen) ShortSell CoverBuy BuyPriceValueWhen (Buy, C) SellPriceValueWhen (Sell, C) ShortPriceValueWhen (Short, C) CoverPriceValueWhen (Cover, C) PlotShapes (IIf (Buy, shapeSquare, shapeNone), colorGreen, 0, L, Offset-40) PlotShapes (IIf (Buy, shapeSquare, shapeNone), colorLime, 0, L, Offset-50) PlotShapes (IIf (Short, shapeSquare, shapeNone), colorRed, 0, H, Offset40) PlotShapes (IIf (Short, shapeSquare, shapeNone), ColorWhite, 0, L, Offset-45) , ColorOrange, 0, H, Offset50) PlotShapes (IIf (Short, shapeDownArrow, shapeNone), colorWhite, 0, H, Offset-45) für (iBarCount-1igt1i--) if (Buyi 1) Eintrag Ci sig quotBUYquot sl TrendSLi tar1 Eintrag (Eintrag .0050) tar2 Eintrag (Eintrag .0092) tar3 Eintrag (Eintrag .0179) Stäbe ii 0 if (Selli 1) sig quotSELLquot Eintrag Ci sl TrendSLi tar1 Eintrag - (Eintrag .0050) tar2 Eintrag - (Eintrag .0112) Tar3 Eintrag - (Eintrag .0212) Stäbe ii 0 Offset 20 Clr IIf (sig quotBUYquot, colorLime, colorRed) ssl IIf (Stäbe BarCount-1, TrendSLBarCount-1, Ref (TrendSL, -1)) sl sslBarCount-1 Plot (LineArray (Balken-Offset, tar1, BarCount, tar1,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot (LineArray (Balken-Offset, tar2, BarCount, tar2,1), quotquot, Clr, styleLinestyleDots, Null , Null, Offset) Plot (LineArray (Balken-Offset, tar3, BarCount, tar3,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot (LineArray (Balken-Offset, sl, BarCount, sl, 1) (Bar-Offset, Eintrag, BarCount, Eintrag, 1), Quittung, colorGreen, styleLinestyleLine, Null, Null, Offset) für (ibars i ltBarCounti) PlotText ( (ZitatT1quottar1, BarCount3, tar1, Null, Clr) PlotText (quotT3quottar3, BarCount3, tar3, Null, Clr) PlotText (quotT3quottar3, BarCount3, tar3, Null, Clr) "GfxSetTextColor (colorWhite) Wenn (sig quotBUYquot) GfxSelectSolidBrush (colorGreen) Dies ist die Box Hintergrundfarbe sonst GfxSelectSolidBrush (colorRed) Dies ist Die Box Hintergrundfarbe pxHeight Status (quotpxchartheightquot) xx Status (quotpxchartwidthquot) Links 1100 Breite 310 x 5 x2 290 GfxSelectPen (colorWhite, 4) breiter Farbe GfxRoundRect (x, y - 165, x2, y. 160, 90) GfxTextOut ((ARCADING SYSTEM quot), 141, y-160) GfxTextOut ((quot), 130, y-160) GfxTextOut ((& ldquor; Letztes Signal "(BarCount-Bars-1) Intervall () 60 Ziffern), 148, y-140) Der Textformatort GfxTextOut ((quadratische Schreibgut (sig quotBUYquot, sig quot quot, sig quot quot) Eintrag), 130, y-120) GfxTextOut ( (& Ldquor; & ldquor; & ldquor; & ldquor; & ldquor; & ldquor; & ldquor; & ldquor; & lgr; GfxTextOut ((TGT: 2, tar2), 130, y-60) GfxTextOut ((TTT3), 130, y-40) GfxTextOut ( Sig quotBUYquot, (C-Eintrag), (Eintrag-C)), 2.2)), 130, y-22) Kaufen ExRem (Kaufen, Verkaufen) Verkaufen ExRem (Verkaufen, Kaufen) Form Kaufen shapeUpArrow Verkaufen shapeDownArrow PlotShapes (IIf (Buy (Abb. 1, 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 ( Verkauf, shapeDownArrow, shapeNone), colorWhite, 0, H, Offset-45) PlotShapes (Form, IIf (Buy, colorGreen, colorRed), 0, IIf (Buy, Low, High)) dist 2.5ATR (5) für (i 0 (1) Wenn du (Selli) PlotText (quotellnquot Closei, i, Lowi disti, colorWhite) SECTIONBEGIN (quotemaquot) P ParamField (quotFieldquot) Geben Sie ParamList ein. Deutsch: www. tab. fzk. de/de/projekt/zusammenf...ng/ab117.htm. Englisch: www. tab. fzk. de/en/projekt/zusammenf...ng/ab117.htm (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 (), (1), (1), (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) , 20) SECTIONEND () für (i 0 i lt BarCount i) if (bvei) PlotText (quotAnquot. I, L i - disti, colorWhite, colorDarkBlue) if (rfwi) PlotText (quotAnquot. I, H i disti, colorWhite, colorRed) SECTIONBEGIN (quotdayquot) TimeFrameSet (inDaily) schaltet jetzt zu tagtäglich TimeFrameRestore () Wiederherstellungszeitrahmen zum ursprünglichen Plot (Z. BoAxxntwort, 476,0,1200,1) cy Param (quotcyposnquot, 500,0,1000,10) GfxSelectFont (Arial quot, 14, 98) , Falsch) GfxSetTextColor (ColorRGB (10,250,250)) GfxTextOut (z. Beispiel) Quellquartett, cx 20, cy 50) SECTIONBEGIN (quottomquot) Funktion GetSecondNum () Zeit jetzt (4) Sekunden int (Zeit 100) Minuten int (Zeit 100 100) Stunden-Zeit (Zeit-10000 100) SecondNum int (Stunden 60 60 Minuten 60 Sekunden) return SecondNum RequestTimedRefresh (1) TimeFrame Interval () SecNumber GetSecondNum () Newperiod SecNumber TimeFrame 0 SecsLeft SecNumber - int (SecNumber TimeFrame) TimeFrame SecsToGo TimeFrame - SecsLeft xParam ( (X615, y530, x738, y499, 0,0) GfxSelectSolidBrush (ColorRGB (230, 230, 230)) GfxSelectPen (ColorRGB (1) GfxSetBkMode (1) GfxSelectFont (quotArialquot, 13, 800, False) GfxSetTextColor (ColorRGB (220,10,150) GfxSetTextColor (ColorRGB (220,10,150) )) GfxTextOut (quotTimeleftquotquot. "GfxTextColor (ColorRGB (10.250.250)) GfxTextOut ((Fortsetzung), 1150, y-45) GfxSetTextColor (ColorRGB (10.250.250)) GfxTextOut ((FD2 Trading SYSTEM quot), 1150 , Y-25) SECTIONBEGIN (quotRibbonquot) uptrendPDI () gtMDI () UND Signal () ltMACD () downtrendMDI () gtPDI () UND Signal () gtMACD () Plot (1, eimiert die Höhe des Bandes in Prozent der Scheibenbreite (LDMACD (), ColorLightGrey, ColorLightGrey))), wählen Sie Farbe styleOwnScalestyleAreastyleNoLabel, -.05,50) SECTIONEND () Dies funktioniert 100, wenn nicht damals. Deutsch: www. tab. fzk. de/de/projekt/zusammenf...ng/ab117.htm. Englisch: www. tab. fzk. de/en/projekt/zusammenf...ng/ab117.htm Scroll up und clcik auf Download-Button Zuletzt bearbeitet von SuperSaiyan 2nd March 2014 um 09:46 PM. Re: AR TRADING SYSTEM AFL FREI Ich mache diese AFL SuperSaiyan SuperSaiyan ist jetzt Mitglied Mitglied Registriert seit: Mar 2006 Beiträge: 115 Danke: 6 Danke 101 Times in 53 Posts SuperSaiyan wird bald berühmt werdenSuperSaiyan wird bald berühmt werden Default Re: AR TRADING SYSTEM AFL FREI Ich mache diese AFL Zitat: keine Handelszone fehlt kann jeder geben Sie den Code Arbeitsversion von AFL Download LINK ARTrading. afl - 11 KB Clck die oben Schaltfläche zum Download Gemeinsam stehen wir stark sk ((C-MA (C, Ng)) MA (C, nol)) 100 Graph0sk Graph0BarColorIIf (skgt0,5,4) SECTIONBEGIN (quotemaquot) Lk EMA (Schließen, 22) Plot (lk, quot quot, colorBrightGreen, styleDots) GfxSelectFont (quottohomaboldquot, Status (quotpxheightquot) 16) GfxSetTextAlle (6) GfxSetTextColor (ColorRGB (10.250.250)) GfxSetBkMode (0) GfxTextOut (Name (), Status (quotpxwidthquot) 2, Status (quotpxheightquot) 10) cxParam (quotcxposnquot, 1085,0,1200,1) cyParam (quotcyposnquot , 16,0,1000,1) GfxSetBkColor (ColorRGB (200,50,100)) GfxSelectFont (quottohomaboldquot, 20,98, False) GfxSetTextColor (colorYellow) GfxSetTextColor (ColorHSB (100, 10, 400)) GfxTextOut (quotLTP. "DDayO TimeFrameGetPrice" (z. B. Quatze, inDaily) DHoDay TimeFrameGetPrice (quotHquot, inDaily) DLoDay TimeFrameGetPrice (quotLquot, inDaily) gfr TimeFrameGetPrice (quotCquot, inDaily, -1) schließen Titel EncodeColor (colorWhite) AR TRADING SYSTEM quotEncodeColor ( ColorRGB (220,10,150)) quot Interval (2) quot Datum () EncodeColor (ColorRGB (200,150,120)). H quot, Niedrig. L EncodeColor (colorGreen) "Prevvious Day Close". EncodeColor (colorGreen) gfr EncodeColor (colorYellow) Zitat ToDay Open. DDayO-Wert. DHiDay-Niedrig. 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 )) HaClos EMA ((OHLLC) 5,3) HaOpen AMA (Ref (HaClose, -1), 0,5) HaHigh Max (H, Max (HaClose, HaOpen)) HaLow Min (L, Min (HaClose, HaOpen) PlotOHLC (HaOpen, HaHigh, HaLow, HaClose, quotquot, Colcci, styleCandle styleNoLabel) BKswitch ParamToggle (quotBackground Colorquot, quotOn, Offquot) OUTcolor ParamColor (quotOuter Panel Colorquot, colorBlack) INUPcolor ParamColor (im Inneren Panel Upperquot, colorGrey40) INDNcolor ParamColor (quotInner Panel Niedrigquot, FarbeBlack) TitelColor ParamColor (quotTitle Color quot, colorBlack) if (NOT BKswitch) SetChartBkColor (OUTcolor) Farbe des äußeren Randes SetChartBkGradientFill (INUPcolor, INDNcolor, TitleCo lor) Farbe des Innenpaneels SECTIONEND () SECTIONBEGIN (quotquot) SetBarsRequired (100000, 0) GraphXSpace 15 ea EMA (C, 10) eb EMA (C, 20) SetBarFillColor (IIf (ea gt eb, colorGreen, colorRed)) Kaufen Sie ea gt eb AND TimeNum () gt 092000 AND TimeNum () lt 150000 Verkaufen eb gt Ea OR TimeNum () gt 150000 Short 0 Cover 0 Kaufen ExRem (Kaufen, Verkaufen) Verkaufen ExRem (Verkaufen, Kaufen) Short ExRem (Short, Cover) Cover ExRem (Cover, Short) FactorParam (quotFactorquot, 4,1,10,1 ) PtParam (FT) 2 (FactorATR (Pd)) Dn (HL) 2- (FactorATR (Pd)) IATRATR (Pd) TrendUpTrendDownNull trend01 changeOfTrend0 flagflagh0 für (i 1 i ltBarCount i ) TrendUpi Null TrendDowni Null if (CloseigtUpi-1) trendi1 if (trendi-1 -1) changeOfTrend 1 sonst if (CloseiltDni-1) trendi-1 if (trendi-1 1) changeOfTrend 1 sonst if (trendi-11) trendi1 changeOfTrend 0 else if (trendi-1-1) trendi-1 changeOfTrend 0 Buy trend1 Selltrend-1 BuyExRem (Kaufen, Verkaufen) SellExRem (Verkaufen, Kaufen) ShortSell CoverBuy BuyPriceValueWhen (Buy, C) SellPriceValueWhen (Sell, C) ShortPriceValueWhen (Short, C) CoverPriceValueWhen(Cover, C) PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset-40) PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset-50) PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset-45) PlotShapes(IIf(Short, shapeSquare, shapeNone),colorRed, 0, H, Offset40) PlotShapes(IIf(Short, shapeSquare, shapeNone),colorOrange, 0,H, Offset50) PlotShapes(IIf(Short, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset-45) for(iBarCount-1igt1i--) if(Buyi 1) entry Ci sig quotBUYquot sl TrendSLi tar1 entry (entry .0050) tar2 entry (entry .0092) tar3 entry (entry .0179) bars ii 0 if(Selli 1) sig quotSELLquot entry Ci sl TrendSLi tar1 entry - (entry .0050) tar2 entry - (entry .0112) tar3 entry - (entry .0212) bars ii 0 Offset 20 Clr IIf(sig quotBUYquot, colorLime, colorRed) ssl IIf(bars BarCount-1, TrendSLBarCount-1, Ref(TrendSL, -1)) sl sslBarCount-1 Plot(LineArray (bars-Offset, tar1, BarCount, tar1,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot(LineArray(bars-Offset, tar2, BarCount, tar2,1), quotquot, Clr, styleLinestyleDots, Null , Null, Offset) Plot(LineArray(bars-Offset, tar3, BarCount, tar3,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot(LineArray(bars-Offset, sl, BarCount, sl,1) , quotquot, colorDarkRed, styleLinestyleLine, Null, Null, Offset) Plot(LineArray(bars-Offset, entry, BarCount, entry,1), quotquot, colorGreen, styleLinestyleLine, Null, Null, Offset) for (ibars i ltBarCounti) PlotText( quotquotsigquotquotentry, BarCount1,entry, Null, colorBlue) PlotText(quotT1quottar1,BarCount3,tar1,Null, Clr)Plot Text(quotT2quottar2,BarCount3,tar2,Null, Clr)PlotText (quotT3quottar3,BarCount3,tar3,Null, Clr) messageboard ParamToggle( quotMessage Boardquot, quotShowHidequot,1) if (messageboard 1 ) GfxSelectFont( quotTahomaquot, 13, 100 ) GfxSetBkMode( 1 ) GfxSetTextColor( colorWhite ) if ( sig quotBUYquot) GfxSelectSolidBrush( colorGreen ) this is the box background color else GfxSelectSolidBrush( colorRed ) this is the box background color pxHeight Status( quotpxchartheightquot ) xx Status( quotpxchartwidthquot) 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 PL . quot WriteVal(IIf(sig quotBUYquot,(C-entry),(entry-C)),2.2)), 130, y-22) Buy ExRem(Buy, Sell) Sell ExRem(Sell, Buy) shape Buy shapeUpArrow Sell shapeDownArrow PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset-40) PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset-50) PlotShapes(IIf(Buy, 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() for( i 0 i lt BarCount i ) if( bvei ) PlotText( quotABnquot. i, L i - disti, colorWhite, colorDarkBlue ) if( rfwi ) PlotText( quotASnquot. i, H i disti, colorWhite, colorRed ) SECTIONBEGIN(quotdayquot) TimeFrameSet( inDaily ) switch now to dayily TimeFrameRestore() restore time frame to original Plot( TimeFrameExpand( Oo, inDaily),quotquot, colorYellow,10304 styleNoLabel) cx Param(quotcxposnquot,476,0,1200,1) cy Param(quotcyposnquot, 500,0,1000,10 ) GfxSelectFont( quot Arial quot, 14, 98, False ) GfxSetTextColor(ColorRGB(10,250,250)) GfxTextOut(quotVolume. quot Volume quotquot, cx 20,cy 50) SECTIONBEGIN(quottomquot) function GetSecondNum() Time Now( 4) Seconds int( Time 100 ) Minutes int( Time 100 100 ) Hours int( Time 10000 100 ) SecondNum int( Hours 60 60 Minutes 60 Seconds ) return SecondNum RequestTimedRefresh( 1 ) TimeFrame Interval() SecNumber GetSecondNum() Newperiod SecNumber TimeFrame 0 SecsLeft SecNumber - int( SecNumber TimeFrame ) TimeFrame SecsToGo TimeFrame - SecsLeft xParam(quotxposnquot,99,0,1000,1) 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. ThanksAR TRADING SYSTEM AFL FREE i make this AFL AR TRADING SYSTEM AFL FREE i make this AFL FREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREE FREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREE FREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREE FREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREEFREE FREE sk((C-MA(C, nol))MA(C, nol))100 Graph0sk Graph0BarColorIIf(skgt0,5,4) SECTIONBEGIN(quotemaquot) Lk EMA(Close,22) Plot (lk, quot quot, colorBrightGreen, styleDots) GfxSelectFont(quottohomaboldquot, Status(quotpxheightquot)16) GfxSetTextAlign( 6 ) GfxSetTextColor(ColorRGB(10,250,250)) GfxSetBkMode(0) GfxTextOut( Name(), Status(quotpxwidthquot)2, Status(quotpxheightquot)10 ) cxParam(quotcxposnquot,1085,0,1200,1) cyParam(quotcyposnquot,16,0,1000,1) GfxSetBkColor(ColorRGB(200,50,100)) GfxSelectFont( quottohomaboldquot,20,98, False) GfxSetTextColor( colorYellow) GfxSetTextColor( 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)close Title EncodeColor(colorWhite)quot AR TRADING SYSTEM quotEncodeColor(ColorRGB(220,10,150)) quot quot Interval(2) quot quot Date() EncodeColor(ColorRGB(200,150,120)) quot n Open quot O quot, High. quot H quot, Low. quot L EncodeColor(colorGreen) quot Prevvious Day Close. quot EncodeColor(colorGreen) gfr EncodeColor(colorYellow) quotn ToDay Open. quot DDayO quot High. quot DHiDay quot Low. quot DLoDay SECTIONEND() Colcci IIf(CCI(8) gt 5, colorBrightGreen, IIf(CCI(8) lt-5,colorRed, IIf(CCI(8) gt Ref(CCI(8),-1),colorBrightGreen, colorDarkRed))) HaClose EMA((OHLLC)5,3) HaOpen AMA( Ref( HaClose, -1 ), 0.5 ) HaHigh Max( H, Max( HaClose, HaOpen ) ) HaLow Min( L, Min( HaClose, HaOpen ) ) PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, quotquot. Colcci, styleCandle styleNoLabel ) BKswitch ParamToggle(quotBackground Colorquot, quotOn, Offquot) OUTcolor ParamColor(quotOuter Panel Colorquot, colorBlack) INUPcolor ParamColor(quotInner Panel Upperquot, colorGrey40) INDNcolor ParamColor(quotInner Panel Lowerquot, colorBlack) TitleColor ParamColor(quotTitle Color quot, colorBlack) if (NOT BKswitch) SetChartBkColor(OUTcolor) color of outer border SetChartBkGradientFill(INUPcolor, INDNcolor, TitleCo lor) color of inner panel SECTIONEND() SECTIONBEGIN(quotquot) SetBarsRequired(100000,0) GraphXSpace 15 ea EMA (C,10) eb EMA (C,20) SetBarFillColor( IIf( ea gt eb, colorGreen, colorRed ) ) Buy ea gt eb AND TimeNum() gt 092000 AND TimeNum() lt 150000 Sell eb gt ea OR TimeNum() gt 150000 Short 0 Cover 0 Buy ExRem(Buy, Sell) Sell ExRem(Sell, Buy) Short ExRem(Short, Cover) Cover ExRem(Cover, Short) FactorParam(quotFactorquot,4,1,10,1) PdParam(quotATR Periodsquot,10,1,100,1) Up(HL)2(FactorATR(Pd)) Dn(HL)2-(FactorATR(Pd)) iATRATR(Pd) TrendUpTrendDownNull trend01 changeOfTrend0 flagflagh0 for (i 1 i ltBarCount i) TrendUpi Null TrendDowni Null if (CloseigtUpi-1) trendi1 if (trendi-1 -1) changeOfTrend 1 else if (CloseiltDni-1) trendi-1 if (trendi-1 1) changeOfTrend 1 else if (trendi-11) trendi1 changeOfTrend 0 else if (trendi-1-1) trendi-1 changeOfTrend 0 Buy trend1 Selltrend-1 BuyExRem(Buy, Sell) SellExRem(Sell, Buy) ShortSell CoverBuy BuyPriceValueWhen(Buy, C) SellPriceValueWhen(Sell, C) ShortPriceValueWhen(Short, C) CoverPriceValueWhen(Cover, C) PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset-40) PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset-50) PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset-45) PlotShapes(IIf(Short, shapeSquare, shapeNone),colorRed, 0, H, Offset40) PlotShapes(IIf(Short, shapeSquare, shapeNone),colorOrange, 0,H, Offset50) PlotShapes(IIf(Short, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset-45) for(iBarCount-1igt1i--) if(Buyi 1) entry Ci sig quotBUYquot sl TrendSLi tar1 entry (entry .0050) tar2 entry (entry .0092) tar3 entry (entry .0179) bars i i 0 if(Selli 1) sig quotSELLquot entry Ci sl TrendSLi tar1 entry - (entry .0050) tar2 entry - (entry .0112) tar3 entry - (entry .0212) bars i i 0 Offset 20 Clr IIf(sig quotBUYquot, colorLime, colorRed) ssl IIf(bars BarCount-1, TrendSLBarCount-1, Ref(TrendSL, -1)) sl sslBarCount-1 Plot(LineArray(bars-Offset, tar1, BarCount, tar1,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot(LineArray(bars-Offset, tar2, BarCount, tar2,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot(LineArray(bars-Offset, tar3, BarCount, tar3,1), quotquot, Clr, styleLinestyleDots, Null, Null, Offset) Plot(LineArray(bars-Offset, sl, BarCount, sl,1), quotquot, colorDarkRed, styleLinestyleLine, Null, Null, Offset) Plot(LineArray(bars-Offset, entry, BarCount, entry,1), quotquot, colorGreen, styleLinestyleLine, Null, Null, Offset) for (ibars i ltBarCounti) PlotText(quotquotsigquotquotentry, BarCount1,entry, Null, colorBlue) PlotText(quotT1quottar1,BarCount3,tar1,Null, Clr)Plot Text(quotT2quottar2,BarCount3,tar2,Null, Clr)PlotText (quotT3quottar3,BarCount3,tar3,Null, Clr) messageboard ParamToggle(quotMessage Boardquot, quotShowHidequot,1) if (messageboard 1 ) GfxSelectFont( quotTahomaquot, 13, 100 ) GfxSetBkMode( 1 ) GfxSetTextColor( colorWhite ) if ( sig quotBUYquot) GfxSelectSolidBrush( colorGreen ) this is the box background color else GfxSelectSolidBrush( colorRed ) this is the box background color pxHeight Status( quotpxchartheightquot ) xx Status( quotpxchartwidthquot) 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 PL . quot WriteVal(IIf(sig quotBUYquot,(C-entry),(entry-C)),2.2)), 130, y-22) Buy ExRem(Buy, Sell) Sell ExRem(Sell, Buy) shape Buy shapeUpArrow Sell shapeDownArrow PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset-40) PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset-50) PlotShapes(IIf(Buy, 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() for( i 0 i lt BarCount i ) if( bvei ) PlotText( quotABnquot. i, L i - disti, colorWhite, colorDarkBlue ) if( rfwi ) PlotText( quotASnquot. i, H i disti, colorWhite, colorRed ) SECTIONBEGIN(quotdayquot) TimeFrameSet( inDaily ) switch now to dayily TimeFrameRestore() restore time frame to original Plot( TimeFrameExpand( Oo, inDaily),quotquot, colorYellow,10304 styleNoLabel) cx Param(quotcxposnquot,476,0,1200,1) cy Param(quotcyposnquot, 500,0,1000,10 ) GfxSelectFont( quot Arial quot, 14, 98, False ) GfxSetTextColor(ColorRGB(10,250,250)) GfxTextOut(quotVolume. quot Volume quotquot, cx 20,cy 50) SECTIONBEGIN(quottomquot) function GetSecondNum() Time Now( 4) Seconds int( Time 100 ) Minutes int( Time 100 100 ) Hours int( Time 10000 100 ) SecondNum int( Hours 60 60 Minutes 60 Seconds ) return SecondNum RequestTimedRefresh( 1 ) TimeFrame Interval() SecNumber GetSecondNum() Newperiod SecNumber TimeFrame 0 SecsLeft SecNumber - int( SecNumber TimeFrame ) TimeFrame SecsToGo TimeFrame - SecsLeft xParam(quotxposnquot,99,0,1000,1) 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( ( quotAR Trading SYSTEM quot),1150,y-25) SECTIONBEGIN(quotRibbonquot) uptrendPDI()gtMDI()AND Signal()ltMACD() downtrendMDI()gtPDI()AND Signal()gtMACD() Plot( 1, efines the height of the ribbon in percent of pane width quotribbonquot, IIf( uptrend, colorLime, IIf( downtrend, colorRed, IIf(Signal()ltMACD(), colorLightGrey, colorLightGrey ))), choose color styleOwnScalestyleAreastyleNoLabel, -.05,50 ) SECTIONEND() Last edited by skumar4545 3rd January 2014 at 11:22 AM. Reason: add img