Ar Trading System Afl Amibroker

Titel: Triple SCreen Trading System mit Amibroker Beschreibung: Trading System jest1081 - June 28, 2006 06:17 PM (GMT) Hallo alle, möchte nur etwas, das ich programmiert haben (nicht vollständig von mir Beiträgen von Mithändlern in Amibroker sowie) . Ich habe versucht und getestet, und denkt, es funktioniert sehr eng mit dem System, das gelehrt wurde. Ende des e Tag muss sich erinnern, System Wun bringen u Geld, don39t Suche nach heiligen Gral. Ein disziplinierter Händler sein. NUR FÜR DEN EINSATZ IN Amibroker TA Charts Wochencharts mit monatlichen - Impulssystem // Weekly Bar Chart SECTIONBEGIN (quotWeekly Graphquot) SetChartOptions (0, chartShowArrows124chartShowDates) // Benutzerdefinierte Parameter für EMA Perioden EMAType Param (quotEMA-1, TEMA-2, JMA 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 3, 1) 1, Impulsstäbe-2quot, 2, 1, 2, 1) // Erlauben Sie dem Benutzer, wöchentliche und monatliche Multifunktionsleiste zu definieren und Höhe WRP1 Param (quotWeekly Ribbon Locationquot, -10,5, -1000, 1000, 0,1) WRP2 Param (quotWeekly Ribbon MRP1 Param (MZP1 Param) MRP2 Param MRP2 Param MRP2 Param (Zehnfachband-Hüllkurve, 199, -0.001, 500, 0.1) TimeFrameSet (inWeekly) // Berechnen 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 die Verwendung mit Jurik JMA // DayEMA JurikJMA (C, (5, 8, 5) sonst MACDval MACD (12, 26) Signalwert-Signal (12, 26, 9) Histogramm MACDval - Signalwert // Bestimmen, ob wir haben Ein Impuls UP, DOWN oder keine ImpulseUp DayEMA gt Ref (DayEMA, -1) UND Histogramm gt Ref (Histogramm, -1) ImpulseDown DayEMA lt Ref (DayEMA, -1) UND Histogramm lt Ref (Histogramm, -1) ImpulseNone (NICHT (Histogramm, -1) UNDHistogramm (Histogramm, -1) UNDHistogramm GT Ref (Histogramm, -1) UNDHistogramm gt Ref (HISTOGRAMM, -1) // Jetzt monatlich 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 , expandLast) whfalling TimeFrameExpand (whfalling, inWeekly, expandLast) mhrising TimeFrameExpand (mhrising, inMonthly, expandLast) mhfalling TimeFrameExpand (mhfalling, inMonthly, expandLast) kol IIf (whrising, colorBrightGreen, IIf (whfalling, Blau und Rot, colorLightGrey)) mkol IIf (mhrising , Farbeblau, IIf (mhfalling, Coloryellow, colorLightGrey)) TimeFrameSet (inWeekly) // sie if (Plotfashion 1) Grundstück (Close, quotClosequot, colorTeal, stylebar) PlotShapes (shapeUpArrow ImpulseUp, colorBrightGreen, 0, Niedrig, -12) Plot all33 PlotShapes (shapeDownArrow impulseDown, Blau und Rot, 0, Hoch, -12) PlotShapes (shapeSmallCircle ImpulseNone, Farbeweiß, 0, Hoch, 5) sonst Barkol IIf (impulseUP, colorBrightGreen, IIf (impulseDown, Blau und Rot, colorCustom11)) Plot (C, quotClosequot, Barkol, stylebar) // Plot (10, quotWeekly Ribbonquot, kol, styleOwnScale124styleArea124styleNoLabel, WRP1, WRP2) // Weekly Trend GREEN RISING, ROT FALLEN, WEISS NEUTRAL Plot (10, quotMonthly Ribbonquot, mkol, styleOwnScale124styleArea124styleNoLabel, MRP1, MRP2) // Monats Trend BLUE RISING, GELB Fallen, Weiß NEUTRAL TimeFrameRestore () SECTIONBEGIN (quotEMA1quot) P ParamField (quotPrice fieldquot, -1) Perioden Param (quotPeriodsquot, 15, 2, 200, 1, 10) Grundstück (EMA (P, Perioden), DEFAULT (), ParamColor (quotColorquot, colorCycle), ParamStyle (quotStylequot)) SectionEnd () SECTIONBEGIN (quotZIG - Zigquot) TimeFrameSet (inWeekly) P ParamField (quotPrice fieldquot) ändern Param (zit changequot, 5,0.1,25,0.1) Plot (Zig (P, Wechsel), DEFAULT (), ParamColor (quotColorquot, colorCycle), ParamStyle (quotStylequot)) TimeFrameRestore () SectionEnd () // Weekly MACD Histogran SECTIONBEGIN (quotWeekly MACDquot) TimeFrameSet (inWeekly) MACDw MACD (12, 26 ) MACDwSignal Signal (12, 26, 9) Farbe IIf (Ref (MACDw, -1) gtMACDw, colorRed, FarbeBrightGreen) TimeFrameRestore () Plot (MACDw, quotMACD) Weeklyquot, Farbe, styleHistogram 124 styleThick) Plot (MACDwLINE, quotMACD Weekly Linequot, Blau und Rot, Styleline) Plot (MACDwSignal, quotMACD Weekly Signal Linequot, colorBrightGreen, Styleline) SectionEnd () WOCHEN INDEX FORCE 13 Tage MA SECTIONBEGIN (quotForce Index2quot) TimeFrameSet (inWeekly) (Schliessen, - 1)) V), Perioden) FIkol IIf (fi lt 0, colorRed, colorBrightGreen) Plot (Close, quotClosequot, Blau und Rot, 2) Grundstück (FI, quotForce Indexquot, FIkol, styleLine124styleThick) Grundstück (0, quotquot, colorViolet, Styleline 124 styleThick 124 styleNoLabel) Titelname () EncodeColor (Farbeweiß) quot - Force-Index - quot WriteVal (Perioden, 1) quot Tage, quot EncodeColor (Blau und Rot) quot Schließen quot EncodeColor (Farbeweiß) quot quot WriteVal (Schließen), quot, quot EncodeColor (Farbeblau) quotForce Index quot EncodeColor (Farbeweiß) WriteVal (FI, 1.2) TimeFrameRestore () SectionEnd () SECTIONBEGIN (quotVolumequot) TimeFrameSet (inWeekly) Plot (Volumen, DEFAULT (), ParamColor (quotColorquot, colorBlueGrey), ParamStyle (quotStylequot, styleHistogram 124 styleOwnScale 124 styleThick, maskHistogram), 2) TimeFrameRestore () SectionEnd () Tages-Chart mit wöchentlichem - Impulssystem // User - (ZEM-1, TEMA-2, JMA-3quot, 2, 1, 3, 1) EMAprds Param (ZEMperiodsquot, 7, 1, 30, 1) StdMACD Param Ja-1quot, 1, 0, 1, 1) Plotfashion Param (quotBarArrows-1, Impulsstäbe-2quot, 2, 1, 2, 1) // Erlauben Sie dem Benutzer, wöchentliche und monatliche Multifunktionsleiste zu definieren und Höhe WRP1 Param (quotWeekly Multifunktionsleiste // MRP2 Param (M, M, M, M, M, N, M, M, M, N, Z) (EMAprds), wenn (EMAType 2) DayEMA TEMA (Schließen, EMAprds) if (EMAType 3) / EMAprds) Wenn EMATME (EMAT) / Zeile unten für die Verwendung mit Jurik JMA // TagEMA JurikJMA (C, EMAPrds) Histogramm MACD () - Signal () // Bestimmen Sie, ob ein Impuls UP, DOWN oder None ImpulseUp DayEMA gt Ref (DayEMA, -1) AND Histogramm gt Ref (Histogramm, -1) ImpulseDown DayEMA lt Ref (DayEMA, -1) UND Histogramm lt Ref (Histogramm, -1) ImpulseNone (NOT ImpulseUP) UND (NOT ImpulseDown) // Berechnen Sie wöchentliche MACD und bestimmen Sie, ob steigend oder fallend // Hinweis: nutzt Quoton-Standardquot-Parameter33 TimeFrameSet (inWeekly) if (StdMACD 0) MACDval MACD (5, 8) Signalvalensignal (5, 8, 5) sonst MACDval MACD (12, 26) Signalwertsignal (12, 26, 9) ) Histinw MACDval - Signalval whrising Histinw gt Ref (Histinw, -1) whnting Histinw lt Ref (Histinw, -1) whnone (nicht whring) UND (nicht whfalling) // Jetzt bekommen monatlich 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 , 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, Blau und Rot, IIf (whnone, colorCustom11, colorLightGrey))) mkol IIf (mhrising, Farbeblau, IIf (mhfalling, Coloryellow, colorLightGrey)) // Plot sie all33 if (Plotfashion 1) Grundstück (Close, quotClosequot, colorTeal, stylebar) PlotShapes ( shapeUpArrow impulseUp, colorBrightGreen, 0, Niedrig, -12) PlotShapes (shapeDownArrow ImpulseDown, Blau und Rot, 0, Hoch, -12) PlotShapes (shapeSmallCircle ImpulseNone, Farbeweiß, 0, Hoch, 5) sonst Barkol IIf (impulseUP, colorBrightGreen, IIf (impulseDown , Blau und Rot, colorCustom11)) Plot (C, quotClosequot, Barkol, stylebar) Grundstück (10, quotWeekly Ribbonquot, kol, styleOwnScale124styleArea124styleNoLabel, WRP1, WRP2) // Weekly Trend GREEN RISING, ROT FALLEN, WEISS NEUTRAL // Plot (10, quotMonthly Ribbonquot, mkol, styleOwnScale124styleArea124styleNoLabel, MRP1, MRP2) // Monats Trend BLUE RISING, GELB Fallen, Weiß NEUTRAL LookBkPd 100 AvgPd 22 ExternalBarPct 15 ConvergePct 2 Middle EMA (C, AvgPd) Rng HHV (H, LookBkPd) - LLV (L, LookBkPd ) X Rng deltaX X / 2 do über H gt Mitte X Unter L lt Mitte - X ÄußererPct 100 (Summe (Over, LookBkPd) Summe (Unter, LookBkPd)) / LookBkPd OP LastValue (OuterPct) XXsign (OP - ExternalBarPct) deltaX deltaX deltaX / 2, während (abs (OP - ExternalBarPct) gt ConvergePct) Plot (Mitte, quotMAquot, Coloryellow, styleLine124styleNoTitle) Plot (MiddleX, quotMAquot, colorSkyblue, styleDashed124styleNoTitle) Plot (Middle-X, quotMAquot, colorSkyblue, styleDashed124styleNoTitle) // Explorer Section // Bestimmen, ob Impulsstatus bullisch, neutral oder bearish ist. Als Spalte anzeigen. ImpulseState WriteIf (ImpulseUp, quotBulllishquot, WriteIf (ImpulseDown, quotBearishquot, quotNeutralquot)) // Stellen Sie die Hintergrundfarbe für Impulse Status-Spalte ImpulseCol IIf (ImpulseUp, colorGreen, IIf (ImpulseDown, Blau und Rot, colorLightGrey)) // Bestimmen Weekly Trend. Als Textspalte anzeigen WeeklyTrend WriteIf (whrising, quotRisingquot, WriteIf (whfalling, quotFallingquot, quotFlat33quot)) WeeklyCol IIf (whring, colorGreen, IIf (whfalling, colorRed, colorLightGrey)) // Monatlichen Trend bestimmen. Anzeige als Text-Spalte MonthlyTrend WriteIf (mhrising, quotRisingquot, WriteIf (mhfalling, quotFallingquot, quotFlat33quot)) MonthlyCol IIf (mhrising, colorGreen, IIf (mhfalling, Blau und Rot, colorLightGrey)) // Ermitteln Sie, wie viele Bars hat der aktuelle Zustand barsinbull Min existierte ( BarsSince (impulseon), BarsSince (impulsedown)) Barsinbear Min (BarsSince (impulseup), BarsSince (impulsenone)) barsinneut Min (BarsSince (impulsedown), BarsSince (impulseup)) // Stellen Sie eine einzelne Variable ein, um die Anzahl der Balken im aktuellen Zustand anzuzeigen je nach // tatsächlichen Impulse Status - Bullish, Bärische oder Neutral barsinstate IIf (ImpulseUp, barsinbull, IIf (Impulsedown, barsinbear, barsinneut)) // Spalten für die Anzeige im Explorer AddTextColumn (ImpulseState, quotImpulse Statusquot, 1, Farbeweiß, ImpulseCol) AddColumn (barsinstate, quotBars in diesem statequot, 1, Farbeweiß, Impulsecol) AddTextColumn (Weekly, quotWeekly Trendquot, 1, Farbeweiß, WeeklyCol) AddTextColumn (MonthlyTrend, quotMonthly Trendquot, 1, Farbeweiß, MonthlyCol) SECTIONBEGIN (quotZIG - Zigquot) P ParamField (quotPrice fieldquot) ändern Param (zit changequot, 5,0.1,25,0.1) Plot (Zig (P, Wechsel), DEFAULT (), ParamColor (quotColorquot, colorCycle), ParamStyle (quotStylequot)) SectionEnd () // Weekly MACD Histogran SECTIONBEGIN (12, 26, 9) MACDwSignal Signal (12, 26, 9) Farbe IIf (Ref (MACDw, -1) MACDw MACD (12, 26) gtMACDw, Blau und Rot, colorBrightGreen) TimeFrameRestore () Plot (MACDw, quotMACD Dailyquot, Farbe, styleHistogram 124 styleThick) Plot (MACDwLINE, quotMACD Täglich Linequot, Blau und Rot, Styleline) Plot (MACDwSignal, quotMACD Dail Signal Linequot, colorBrightGreen, Styleline) SectionEnd () TÄGLICHE KRAFT INDEX 2DAY MA Perioden Param (quotPeriodsquot, 2, 1, 100, 1) FI EMA ((Close - Ref (Close, -1)) V), Perioden) FIkol IIf (fi lt 0, colorRed, colorBrightGreen) (In der Nähe, quotClosequot, Blau und Rot, 2) Grundstück (FI, quotForce Indexquot, FIkol, styleLine124styleThick) Grundstück (0, quotquot, colorViolet, Styleline 124 styleThick 124 styleNoLabel) Titelname () EncodeColor (Farbeweiß) quot - Force-Index - quot WriteVal ( (FI, 1.2) SECTIONEND () SECTIONBEGIN (FI, 1.2) SECTIONEND () SECTIONBEGIN (ENTWURF) quotVolumequot) Plot (Volumen, DEFAULT (), ParamColor (quotColorquot, colorBlueGrey), ParamStyle (quotStylequot, styleHistogram 124 styleOwnScale 124 styleThick, maskHistogram), 2) SectionEnd () H1 Ref (H, -1) L1 Ref (L, -1 (Val, Val1gtVal2, Val1, Val2) Avgval Median (Val, 22. ***), Tlf (HltH1 UND LgtL1, 0, IIf (H-H1gtL1-L, H-H1, L1-L) ) Farbe IIf (Wert lt Avgval, colorBlue, IIf (Val gt Avgval und Val lt Avgval 3, colorViolet, IIf (Val gt Avgval 3, colorOrange, colorViolet))) Plot (T, DEFAULTNAME (), Farbe, StilHistogramm 124 styleThick) P ParamField (quadratisches Feldquot, -1) Perioden Param (quotPeriodsquot, 22, 2, 200, 1, 10) Plot (EMA (P, Perioden), quotEMA 22quot, colorGreen, styleThick) // Daily BullPower SECTIONBEGIN /// Bull Power / Lookback Param (QuoteEMA Lookbackquot, 13) BullPower High - EMA (Close, Lookback) Zeichnung (BullPower, quotquot, ParamColor (quotColorquot, colorCustom11), StyleHistogram) Titel Name () (BullPower, 5.3) GraphXSpace 5 SECTIONEND () // Täglicher BearPower SECTIONBEGIN (QuoteBear Leistung EMAquot) /// Bear Power / Lookback Param (quotEMA Lookbackquot, 13) BearPower Low - EMA Schließen, Lookback) Plot (BearPower, quotquot, ParamColor (quotColorquot, Blau und Rot), styleHistogram) Titelname () quot quot Date () quot Bär Powerquot WriteVal (Lookback, 3.0) quot Tag: quot WriteVal (BearPower, 5.3) GraphXSpace 5 SectionEnd () ELDER TRIPLE SCREEN SCAN // Elder Dreifach-Bildschirm Trading System. // Codiert von Dennis Skoblar 07.05.2005. // Derrived von quotTrading für ein Livingquot und quotCome Into My Trading Roomquot von Alexander Elder. // Dieser Scan findet Kandidaten durch die wöchentliche MACD-Historgam-Steigung und den Daily 2 Period Force Index, der über oder unter it39s Zero Line taucht. Planen Sie eine wöchentliche 26 Periode EMA zu // help bestätigen Sie die wöchentliche Richtung. Es sollte zusammen mit einem uptick auf dem wöchentlichen MACD Histogramm zu steigen, um lang zu gehen. Allerdings schreibt Elder, dass Divergenzen im MACD // Histogramm die EMA außer Kraft setzen. Der Daily 2 Period Force Index wird unterhalb von it39s Zero Line liegen. Suchen Sie nach dem Vorrat zu pullback, um um it39s Täglich 13 Periode EMA. Verwenden Sie auch die // Daily 22 Period EMA, um die Richtung des täglichen Trends zu bestätigen. Tun Sie das Gegenteil für Shorts. Verwenden Sie die Long / Short EMA Weekly Direction Tabs als Filter, um den // scan zu durchbrechen, um nur die Weekly EMA anzuzeigen, die in die beabsichtigte Tradingrichtung geht. Verwenden Sie die Long / Short Elder Ray Tabs (BullPower AND BearPower), um die Eingangssignale fein abzustimmen. // Diese Registerkarte wird am besten in Verbindung mit den Long / Short EMA Weekly Direction Tabs verwendet. Für die Filtermenge wird eine 50 Periode EMA gt 100000 verwendet. Mindestens ein 5-Punkt-Lauf in // einem Monat wird als Filter für einen stock39s-Bereich verwendet. Dieser Scan wird am Besten als Exploration verwendet. TimeFrameSet (inWeekly) WöchentlichMACD MACD (12,26) WeekHistRising Ref (WeeklyMACD, 0) FIWeekly EMA (V (C-Ref (C, -1)), 13) WeeklyForceIndexLong FIWeekly gt 0 WeeklyForceIndexShort FIWeekly lt 0 TimeFrameRestore () // Weekly Kriterien MACDLongW WeekHistRising MACDShortW WeekHistFalling FILongW WeeklyForceIndexLong FIShortW WeeklyForceIndexShort // Täglich 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 hat In einem Monat (gt10 Punkte vorzuziehen) FiftyDayHVFilter Runde (StDev (log (C / Ref (C, -1)), 50) 100sqrt (256) // Ein Jahr Volotilität (gt40 vorzuziehen) 13) bearpower Low - EMA (Close, 13) // Scan Kriterien ElderLong MACDLongW UND FILongD UND FILongW ElderShort MACDShortW UND FIShortD UND FIShortW // Spalten für die Exploration COLUMN0 Fullname () Column0Name quotTicker namequot Column1 quot quot Column1Name quot quot Column2 ElderLong Column2Name quotLongquot Column3 ElderLong UND EMA (C, 130) gt Ref (EMA (C, 130), - 5) Column3Name quotLong EMA Weekly Directionquot Column4 Column3 UND (bearpower lt 0 AND bullpower gt 0) Column4Name quotLong Elder Ray Filterquot Column5 quot quot Column5Name quot quot Column6 ElderShort Column6Name quotShortquot Column7 ElderShort UND EMA (C, 130) lt Ref (EMA (C, 130), - 5) Column7Name quotShort EMA Weekly Directionquot COLUMN8 Column7 UND (bearpower lt 0 AND bullpower gt 0) Column8Name quotShort Elder Ray Filterquot Column9 quot quot Column9Name quot quot Column10 TenTwentyFilter Column10Name quotOne Monat Punkt Rangequot Column11 FiftyDayHVFilter Column11Name quotHistorical Volotility 50 Dayquot AddTextColumn (IndustryID (1), quotIndustryquot) AddTextColumn (MarketID (1), quotMarketquot) // Filter Filter VFilter AND (ElderLong OR ElderShort) kaufen ElderLong 0 Verkaufen Short ElderShort Cover 0 Hc - 29. Juni 2006 12:38 (GMT) Vielen Dank für den Austausch der Codes. BTW, verwenden Sie Metastock vor Wie funktioniert Amibroker im Vergleich zu Metastock Hope, um Ihre Kommentare zu Amibroker zu sehen. Jest1081 - June 29, 2006 02:54 PM (GMT) Nope ich habe keine Erfahrung mit metastock. Amibroker liefert. Auf der sehr grundlegenden, müssen Sie wissen, ein wenig Codierung, um ein grundlegendes Handelssystem zu machen. Ich düne ganz wie die Charts. Es ist nicht sehr knackig. Sie können alook auf meiner Blogsite es enthält ein paar Bilder, klicken Sie auf eine Sache sicher ist, je länger ich handeln, desto mehr Zufriedenheit will ich von ihm bekommen, funktioniert die Diagramme gut, aber fehlt Tiefe, wenn u wissen, was ich meine, nur Don39t geben Ihnen das 39feeling39. Dann wieder könnte ich noch am ambrroker bleiben, wenn ich Realzeit auf Futures und Indizes gehe. Verbinden Sie die Millionen, die uns für ihre Forumgemeinschaften verwenden. Erstellen Sie Ihr eigenes Forum heute. Erfahren Sie mehr middot Registrieren Sie sich kostenlos Hosted for free von zIFBoardsAR HANDELSYSTEM AFL FREE Ich mache diese AFL sk ((C-MA (C, nol)) / MA (C, nol)) 100 Graph0sk Graph0BarColorIIf (skgt0,5,4) SECTIONBEGIN (quotemaquot) Lk EMA (Close, 22) Plot (lk, quot quot, colorBrightGreen, styleDots) GfxSelectFont (quottohomaboldquot, Status (quotpxheightquot) / 16) GfxSetTextAlign (6) GfxSetTextColor (ColorRGB (10250250)) 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 (Farbeweiß) quot AR TRADING SYSTEM quotEncodeColor (ColorRGB (220,10,150)) quot quot Intervall (2) quot quot Date () EncodeColor (ColorRGB (200,150,120)) n nennen. H, Niedrig. "L EncodeColor (colorGreen)". EncodeColor (colorGreen) gfr EncodeColor (farbegelb) quotn ToDay Öffnen. DDayO high. DHiDay "Niedrig. (CCI (8) gt Ref (CCI (8), & ndash; 1), colorBrightGreen, colorDarkRed (CCI (8) gt 5, colorBrightGreen, IIf (CCI (8) lt-5, colorRed, (Ha, O, O, O, O, O, O, O, O, O, O, O, O, O) PlotOHLC) (haOpen, HaHigh, halow, HaClose, quotquot. Colcci, styleCandle styleNoLabel) BKswitch ParamToggle (quotBackground Colorquot, quotOn, Offquot) OutColor ParamColor (quotOuter-Panel Colorquot, Farbeschwarz) INUPcolor ParamColor (quotInner-Panel Upperquot, colorGrey40) INDNcolor ParamColor (quotInner Panel-Lowerquot, Farbeschwarz) Title ParamColor (quotTitle Farbe quot, Farbeschwarz) if (NICHT BKswitch) SetChartBkColor (OutColor) // Farbe der äußeren Grenze SetChartBkGradientFill (INUPcolor, INDNcolor, TitleCo lor) // Farbe der Innenplatte SectionEnd () SECTIONBEGIN (quotquot ) SetBarsRequired (100000,0) GraphXSpace 15 ea EMA (C, 10) eb EMA (C, 20) SetBarFillColor (IIf (ea gt eb, colorGreen, Blau und Rot)) kaufen ea gt eb UND TimeNum () gt 092,000 UND TimeNum () Lt 150000 Verkaufen eb gt ea ODER TimeNum () gt 150000 Short 0 Cover 0 Kaufen ExRem (Verkaufen, Kaufen) Short ExRem (Short, Cover) Cover ExRem (Cover, Short) FactorParam (quotFactorquot, 4, 1,10,1) PdParam (quotATR Periodsquot, 10,1,100,1) Bis (HL) / 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 wenn (trendi-1 -1) changeOfTrend 1 sonst if (Closeilti-1) trendi-1 wenn (trendi-1 1) changeOfTrend 1 sonst if (trendi-11) trendi1 changeOfTrend 0 else if (trendi-1-1) trendi-1 changeOfTrend 0 Kaufen Trend1 Selltrend-1 BuyExRem (Kaufen, Verkaufen) SellExRem (Verkauf, Kauf) ShortSell CoverBuy BuyPriceValueWhen (Kauf, C) SellPriceValueWhen (Verkaufen , C) ShortPriceValueWhen (Short, C) CoverPriceValueWhen (Cover, C) PlotShapes (IIf (Kauf, shapeSquare, shapeNone), colorGreen, 0, L, Offset-40) PlotShapes (IIf (Kauf, shapeSquare, shapeNone), colorLime, 0 , L, Offset-50) PlotShapes (IIf (Short, shapeSquare, shapeNone), colorRed, 0, H, Offset-50) PlotShapes (IIf (Kauf, shapeUpArrow, shapeNone), colorWhite, 0, (Short, shapeDownArrow, shapeNone), colorWhite, 0, H, Offset-45) für (iBarCount-1igt1i-), wenn (Buyi 1) Eintragung Ci sig quotBUYquot sl TrendSLi tar1 Eintrag (Eintrag .0050) tar2 Eintrag (Eintrag .0092) tar3 Eintrag (Eintrag .0179) tar2 Eintrag (Eintrag .0112) tar3 Eintrag - (Eingabe .0212) Bars ii 0 Offset 20 Clr IIf (sig quotBUYquot, colorLime, colorRed) ssl IIf (Balken BarCount-1, TrendSLBarCount-1, Ref (TrendSL, -1)) (Strich-Offset, tar2, BarCount, tar2,1), String-Offset (Strich-Offset, tar2, BarCount, tar1,1), Strichcount, (LineArray (Balken-Offset, tar3, BarCount, tar3,1), Quotot, Clr, styleLinestyleDots, Null, Null, Offset) , BarCount, Eintrag, 1), quotquot, colorGreen, styleLinestyleLine, Null, Null, Offset) // Zeichnen (LineArray (Balken-Offset, Eintrag, BarCount, Eintrag, 1), quotquot, colorDarkRed, ) für (Ibars i ltBarCounti) PlotText (quotquotsigquotquotentry, BarCount1, Eintrag, Null, Farbeblau) 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), wenn (Message 1) GfxSelectFont (quotTahomaquot, 13, 100) GfxSetBkMode (1) GfxSetTextColor (Farbeweiß) if (sig quotBUYquot) GfxSelectSolidBrush (colorGreen) // das ist die Box Hintergrundfarbe anders GfxSelectSolidBrush (Blau und Rot) // das ist die Box Hintergrundfarbe pxHeight Status (quotpxchartheightquot) xx-Status (quotpxchartwidthquot) links 1100 Breite 310 x 5 x 2 290 GfxSelectPen (Farbeweiß, 4) // breitere Farbe GfxRoundRect (x, y - 165, x2, y. GfxTextOut ((Quote quot,), GfxTextOut ((Quot), GfxTextOut ((Quot-Quot) Intervall () / 60 minuten vorquot), 148, y-140) // Der Textformatort GfxTextOut ((quotquot WriteIf (sig quotBUYquot, sig quot, sig quotiert)), 130, y-120 ), GfxTextOut ((quotTGT: 1 tar1), GfxTextOut ((anfängliche Anführungszeichen, z. B. GfxTextOut ((TCT: 3, tar3), 130, y-40) GfxTextOut ((Gleichstrom P / L. (Buy, Sell) Verkaufen ExRem (Verkaufen, Kaufen) Form Kaufen shapeUpArrow Verkaufen shapeDownArrow PlotShapes (IIf (Kauf, shapeSquare, shapeNone), colorGreen, 0, L, Offset-40) PlotShapes (IIf (Kaufen, PlotShapes (IIf (Sell, shapeSquare, shapeNone), colorRay, 0, H, Offset40) PlotShapes (IIf (Verkauf, shapeSquare, shapeNone), colorOrange, 0, H, Offset50 ) PlotShapes (Form, Farbe, Farbe, Farbe), 0, IIf (Kauf, niedrig, hoch)) ATR (5) für (i 0 i lt BarCount i) if (Buyi) PlotText (quotBuynquot Closei, i, Lowi - disti, Farbeweiß) if (Selli) PlotText (quotsellnquot Closei, i, Lowi disti, Farbeweiß) SECTIONBEGIN (quotemaquot) P ParamField (quotFieldquot) Typ ParamList (quotTypequot, quotWeighted, einfach, Exponential, Double Exponential, Tripple Exponential, Wildersquot) Periods89 Param (quotPeriods180quot, 180, 2, 300) Displacement2 Param (quotDisplacement2quot, 2, -50, 50) Grundstück (EMA (P, Periods89), DEFAULT (), Farbeweiß, styleDots, 0, 0, Displacement2) SectionEnd () rjlCross (Lk, TAR1) golCross (TAR1, Lk) PlotShapes (shapeHollowStarrjl, colorAqua, 0, H, -20) PlotShapes ( (Bvei) PlotText (quadratisch) für (i 0 i lt BarCount i) wenn (bvei) PlotText (z. i, L i - disti, Farbeweiß, colorDarkBlue) if (rfwi) PlotText (quotASnquot. i, H i disti, Farbeweiß, Blau und Rot) SECTIONBEGIN (quotdayquot) TimeFrameSet (inDaily) // jetzt wechseln zu dayily TimeFrameRestore () // wiederherstellen Zeit Frame zu ursprünglichem Plot (TimeFrameExpand (Oo, inDaily), quotquot, colorYellow, 10304 styleNoLabel) cx Param (quotcyposnquot, 500,0,100,10) GfxSelectFont (Arial quot , 14, 98, false) GfxSetTextColor (ColorRGB (10250250)) GfxTextOut (quotVolume. quot Volume quotquot, cx 20, cy 50) SECTIONBEGIN (quottomquot) Funktion GetSecondNum () Aktuelle Zeit (4) Sekunden int (Zeit 100) Minuten int ( Time / 100 100) Stunden int (Zeit / 10000 100) secondNum int (Stunden 60 60 Minuten 60 Sekunden) return secondNum RequestTimedRefresh (1) Timeframe-Intervall () 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 GfxSelectPen (colorYellow) // GfxSelectPen (colorYellow, 2) // Say (quotNew periodquot) GfxSetBkMode (Farbe, gelb, grün) 1) GfxSelectFont (quotArialquot, 13, 800, False) GfxSetTextColor (ColorRGB (220,10,150)) GfxTextOut (quotTimeleftquotquot. quotNumToStr (SecsToGo, 1.0), x674, y507) GfxSetTextColor (ColorRGB (10250250)) GfxTextOut ((zit von quot Entwickeln), 1150, y-45) GfxSetTextColor (ColorRGB (10250250)) GfxTextOut ((quotFu2 Handelssystem quot), 1150 , Y-25) SECTIONBEGIN (quotRibbonquot) uptrendPDI () gtMDI () UND-Signal () ltMACD () AbwärtstrendMDI () gtPDI () UND Signal () gtMACD () Zeichnet die Höhe des Bandes in Prozent des Fensters Breite / quotribbonquot, IIf (Aufwärtstrend, colorLime, IIf (Abwärtstrends, Blau und Rot, IIf (Signal () ltMACD (), colorLightGrey, colorLightGrey))), / Farbe wählen / styleOwnScalestyleAreastyleNoLabel, -.05,50) SectionEnd () Dieses funktioniert 100 wenn nicht dann scrollen up und clcik auf Download-Taste Zuletzt bearbeitet von SuperSaiyan 2nd March 2014 at 09:46. Re: AR TRADING SYSTEM AFL GRATIS Ich mache dieses AFL SuperSaiyan SuperSaiyan ist offline Member Registriert seit: Mar 2006 Beiträge: 115 Vielen Dank: 6 Thanked 101 Times in 53 Posts SuperSaiyan wird bald berühmt baldSuperSaiyan wird berühmt bald genug Default Re: AR TRADING SYSTEM AFL FREE Ich mache diese AFL Zitat: keine Handelszone fehlt kann jeder geben Sie den Code Working-Version von AFL Download LINK ARTrading. afl - 11 KB Clck die oben genannten Button zum Download Zusammen stehen wir stark 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 (10250250)) 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 (Farbeweiß) quot AR TRADING SYSTEM (ColorRGB (200,150,120)) n. Öffnen Sie den Quotienten O, den Wert "Hoch". H, Niedrig. "L EncodeColor (colorGreen)". EncodeColor (colorGreen) gfr EncodeColor (farbegelb) quotN ToDay Öffnen. DDayO high. DHiDay "Niedrig. (CCI (8) gt Ref (CCI (8), & ndash; 1), colorBrightGreen, colorDarkRed (CCI (8) gt 5, colorBrightGreen, IIf (CCI (8) lt-5, colorRed, (Ha, O, O, O, O, O, O, O, O, O, O, O, O, O) PlotOHLC) (haOpen, HaHigh, halow, HaClose, quotquot. Colcci, styleCandle styleNoLabel) BKswitch ParamToggle (quotBackground Colorquot, quotOn, Offquot) OutColor ParamColor (quotOuter-Panel Colorquot, Farbeschwarz) INUPcolor ParamColor (quotInner-Panel Upperquot, colorGrey40) INDNcolor ParamColor (quotInner Panel-Lowerquot, Farbeschwarz) Title ParamColor (quotTitle Farbe quot, Farbeschwarz) if (NICHT BKswitch) SetChartBkColor (OutColor) // Farbe der äußeren Grenze SetChartBkGradientFill (INUPcolor, INDNcolor, TitleCo lor) // Farbe der Innenplatte SectionEnd () SECTIONBEGIN (quotquot ) SetBarFillColor (IIf (ea gt eb, colorGreen, colorRed)) Kaufen ea gt eb AND ZeitNum () gt 092000 AND TimeNum () Lt 150000 Verkaufen eb gt ea ODER TimeNum () gt 150000 Short 0 Cover 0 Kaufen ExRem (Verkaufen, Kaufen) Short ExRem (Short, Cover) Cover ExRem (Cover, Short) FactorParam (quotFactorquot, 4, (PL) / 2 (FaktorATR (Pd)) iATRATR (Pd) TrendUpTrendDownNull trend01 changeOfTrend0 flagflagh0 (Pd) (& ldquor; PAT ") PdParam (quotATR Periodsquot, 10,1,100,1) Für (i 1 i ltBarCount i) TrendUpi Null TrendDowni Null if (CloseigtUpi-1) trendi1 wenn (trendi-1 -1) changeOfTrend 1 sonst if (Closeilti-1) trendi-1 wenn (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(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 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 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() 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. Vielen Dank