تشخیص الگوهای هارمونیک

راه حل نهایی مدیریت پورتفولیو.

سهام، مارجین، CFD، آتی و فارکس EOD و Realtime سود سهام و توزیع اعتماد و خیلی بیشتر .

جعبه ابزار WiseTrader

پلاگین شماره 1 فروش Amibroker شامل:

شاخص های تطبیقی پیشرفته کاوش الگوی پیشرفته شبکه های عصبی و خیلی بیشتر .

تشخیص الگوی هارمونیک برای Amibroker (AFL)

حدود 6 سال پیش رتبه بندی: 4 / 5 (رای 5) برچسب ها: فراکتال، آمیبرکر، الگو

/* تشخیص الگوی هارمونیک

تشخیص خودکار الگوهای هارمونیک - گارتلی، خفاش، پروانه و خرچنگ.

زیگ زاگ در این AFL استفاده نمی شود. این بر اساس فراکتال است

مدرن شده توسط E. M. Pottasch (دسامبر 2016).- تمام محاسبات توسط نویسنده اصلی به همان صورت باقی مانده است.- بهبود تجسم الگوها.

کدی که من استفاده کردم کد اصلی از: http://www. inditraders. com/amibroker/1934-afl-harmonic-pattes. html فایل: Harmonic1. 1. afl (2009) */

اسکرین شات ها

شاخص / فرمول

/* HARMONIC PATTERN DETECTION Automatic Detection of Harmonic Pattes - Gartley, Bat, Butterfly and Crab. Zig Zag is not used in this AFL. It is based on fractals Contact - [email protected] Modeized by E.M.Pottasch (Dec 2016). - All calculations by the original author left as they were. - Improved visualisation of the pattes. - Adjusted names of variables, constants and arrays, adapted using code from David Keleher. The code I used is the original code from: http://www.inditraders.com/amibroker/1934-afl-harmonic-pattes.html file: Harmonic1.1.afl (2009) */ Version( 6.0 ); GfxSetCoordsMode( 1 ); GfxSetOverlayMode( 1 ); BullBat4 = BullButterfly4 = BullCrab4 = BullGartley4 = 0; BullBat = BullButterfly = BullCrab = BullGartley = 0; BearBat4 = BearButterfly4 = BearCrab4 = BearGartley4 = 0; BearBat = BearButterfly = BearCrab = BearGartley = 0; bi = BarIndex(); fvb = FirstVisibleValue( bi ); lvb = LastVisibleValue( bi ); GraphXSpace = 0; SetChartBkColor( colorBlack ); SetChartOptions( 1, chartShowDates, chartGridMiddle, 0, 0, 0 ); SetBarFillColor( IIf( C> O, ColorRGB( 0, 75, 0 ), IIf( C O, ColorRGB( 0, 255, 0 ), IIf( C rightstrength; retu Top;>تابع GetValley()L; Valley = Valley AND LastValue( bi ) - ValueWhen( Valley, bi )> rightstrength; retu Valley;>pk = GetTop(); tr = GetValley(); pk = IIf( pk, IIf( ValueWhen( pk, bi, 2 )H, False, pk ) ), pk ); pk = IIf( pk AND ValueWhen( pk, bi, 0 )>bi, IIf( ValueWhen( pk, bi, 0 )= H، نادرست، pk)، pk)، pk)؛tr = IIf(tr، IIf( ValueWhen(tr، bi، 2)bi , IIf( ValueWhen( tr, bi, 0 )tl2; hh = pk AND ph1>ph2; lh = pk و ph1// +++ Bullish Pattes PTvalid = ( px1> tx1 AND tx1> px2 AND px2>tx2 ) و pk; if(dGart AND bu)GBmin AND( ph2 - tl1 ) / ( ph2 - tl2 )GCMin AND( ph1 - tl1 ) / ( ph2 - tl1 )ValueWhen( BullGartley4, ph2 ) - ( ValueWhen( BullGartley4, ph2 ) - ValueWhen( BullGartley4, tl2 ) ) * GDmax AND HighestSince( BullGartley4, H ) if( dBat AND bu )BatBmin AND( ph2 - tl1 ) / ( ph2 - tl2 )BatCMin AND( ph1 - tl1 ) / ( ph2 - tl1 )ValueWhen( BullBat4, ph2 ) - ( ValueWhen( BullBat4, ph2 ) - ValueWhen( BullBat4, tl2 ) ) * BatDmax AND HighestSince( BullBat4, H ) if( dBut AND bu )BtBmin AND( ph2 - tl1 ) / ( ph2 - tl2 )BtCmin AND( ph1 - tl1 ) / ( ph2 - tl1 )ValueWhen( BullButterfly4, ph2 ) - ( ValueWhen( BullButterfly4, ph2 ) - ValueWhen( BullButterfly4, tl2 ) ) * BtDmax AND HighestSince( BullButterfly4, H ) if( dCrab AND bu)CBmin AND( ph2 - tl1 ) / ( ph2 - tl2 )CCmin AND( ph1 - tl1 ) / ( ph2 - tl1 )ValueWhen (BullCrab4 ، PH2) - (ValueWhen (BullCrab4 ، PH2) - ValueWhen (Bullcrab4 ، TL2)) * Cdmax و بالاترین (Bullcrab4 ، H) Bullhar4 = Bullgartley4 یا Bullbutterfly4 یا Bullbatt4 یا Bullcrab4 ؛Bullhar = Bullgartley یا Bullbutterfly یا Bullbat یا Bullcrab ؛buxy = valueWhen (bullhar4 ، tl2) ؛BUXX = ValueWhen (Bullhar4 ، TX2) ؛BUAY = Value WHEN (Bullhar4 ، PH2) ؛Buax = Value WHEN (Bullhar4 ، px2) ؛buby = value when (bullhar4 ، tl1) ؛Bubx = ValueWhen (Bullhar4 ، TX1) ؛Bucy = Value WHEN (Bullhar4 ، PH1) ؛BuCx = ValueWhen (Bullhar4 ، PX1) ؛Budy = Value When (Bullhar ، L) ؛Budx = ValueWhen (Bullhar ، BI) ؛buabdxa = (buay - buby) / (buay - buxy) ؛bubcdab = (bucy - buby) / (buay - buby) ؛buaddxa = (buay - budy) / (buay - buxy) ؛bubcdcd = (bucy - budy) / (bucy - buby) ؛تابع drawbullishpatte (من ، نام الگوی)>تابع drawbullishpattes ()FVB ؛من-- )اگر (Bullcrab [i] و bu و dcrab)دیگری اگر (Bullbat [i] و bu و dbat)دیگری اگر (Bullgartley [i] و Bu و dgart)>if (bullhar4 [i] و flag2)>> drawBullishPattes(); // +++ Bearish Pattes PTvalid = ( tx1> px1 AND px1> tx2 AND tx2>PX2) و TR ؛if (dgart و be)GBMIN و (PH1 - TL2) / (PH2 - TL2)GCMIN و (PH1 - TL1) / (PH1 - TL2)Value When (Beargartley4 ، TL2) + (ValueWhen (Beargartley4 ، PH2) - ValueWhen (Beargartley4 ، TL2)) * Gdmin و بالاترین (Beargartley4 ، H)= ValueWhen( BearGartley4, tl1 ) AND HighestSince( BearGartley4, H ) == H, True, False ); BearGartley = BearGartley AND HighestSince( BearGartley4, H )> ValueWhen( BearGartley4, ph1 );>if (dbat و be)Batbmin و (PH1 - TL2) / (PH2 - TL2)Batcmin و (PH1 - TL1) / (PH1 - TL2)Value When (BearBat4 ، Tl2) + (ValueWhen (BearBat4 ، PH2) - ValueWhen (BearBat4 ، TL2)) * Batdmin و بالاترین (BearBat4 ، H)= ValueWhen( BearBat4, tl1 ) AND HighestSince( BearBat4, H ) == H ), True, False ); BearBat = BearBat AND HighestSince( BearBat4, H )> ValueWhen( BearBat4, ph1 );>if (dbut و be)Btbmin و (PH1 - TL2) / (PH2 - TL2)btcmin و (ph1 - tl1) / (ph1 - tl2)Value When (BearButterfly4 ، Tl2) + (ValueWhen (BearButterfly4 ، PH2) - ValueWhen (BearButterfly4 ، TL2)) * Btdmin و بالاترین (BearButterfly4 ، H)= ValueWhen( BearButterfly4, tl1 ) AND HighestSince( BearButterfly4, H ) == H, True, False ); BearButterfly = BearButterfly AND HighestSince( BearButterfly4, H )> ValueWhen( BearButterfly4, ph2 );>if (dcrab و be)CBMIN و (PH1 - TL2) / (PH2 - TL2)CCMIN و (PH1 - TL1) / (PH1 - TL2)Value When (BearCrab4 ، Tl2) + (ValueWhen (Bearcrab4 ، PH2) - ValueWhen WHEN (BearCrab4 ، TL2)) * cdmin و بالاترین (BearCrab4 ، H)= ValueWhen( BearCrab4, tl1 ) AND HighestSince( BearCrab4, H ) == H, True, False ); BearCrab = BearCrab AND HighestSince( BearCrab4, H )> ValueWhen( BearCrab4, ph2 );>Bearhar4 = beargartley4 یا bearbutterfly4 یا bearbat4 یا bearcrab4 ؛Bearhar = Beargartley یا Bearbutterfly یا Bearbat یا Bearcrab ؛bexy = value when (bearhar4 ، ph2) ؛bexx = valueWhen (bearhar4 ، px2) ؛Beay = Value WHEN (Bearhar4 ، TL2) ؛Beax = ValueWhen (Bearhar4 ، Tx2) ؛beby = ارزش WHEN (bearhar4 ، ph1) ؛bebx = valueWhen (bearhar4 ، px1) ؛BECY = VALUETHEN (BEARHAR4 ، TL1) ؛BECX = ValueWhen (Bearhar4 ، Tx1) ؛Bedy = Value When (Bearhar ، H) ؛Bedx = Value When (Bearhar ، BI) ؛beabdxa = (beby - beay) / (bexy - beay) ؛bebcdab = (beby - becy) / (beby - beay) ؛beaddxa = (بستر - بیو) / (بکی - بیو) ؛bebcdcd = (بستر - becy) / (beby - becy) ؛عملکرد ترسیم شده>عملکرد ترسیم شدهFVB ؛من-- )دیگری اگر (Bearcrab [i] و Be و dcrab)دیگری اگر (Bearbat [i] و Be و DBAT)دیگری اگر (Beargartley [i] و Be و Dgart)>if (bearhar4 [i] و flag2)>>ترسیم Pattes () ؛تابع drawpivotlabels ()FVB ؛من-- )<>>if (platlabels) drawpivotlabels () ؛if (showpattedevelopmentspoints)اگر (باشد)>