النتائج 1 إلى 6 من 6
  1. #1
    الصورة الرمزية azize
    azize غير متواجد حالياً عضو المتداول العربي
    تاريخ التسجيل
    Apr 2010
    المشاركات
    37

    افتراضي كود مؤشرات بلخياط الاصلية

    ارجوكم يا اخواني من يستطيع ان يحول هذه الاكواد الى مؤشرات فهذه المؤشرات التي يعتمد عليها بلخياط في الدخول و الخروج

    هدا الممؤشر يدعى BAM_ATZ TIME CORRIDOR


    {Title: _ggTimeChannels ()
    *******************************************
    Date Programmer Ref Description
    07-29-2007 A BRUNO Time channels to determine ranges by time
    04-21-2009 A BRUNO Converted to ATZ format or 48 zones
    10-22-2009 A BRUNO compare 4 datas by time zone 1,2,3,4,5,6,8,10,12,15,20,30,60
    BUILT FOR EXCHANGE TIME ONLY

    Last Update: 10-22-2009 10:39
    *******************************************}
    {the ideal indicateur would have a input Variable
    allowing one to define the start time corridor and its end time
    for example between 9h30 to 10h30
    and i can change manually to check all the time corridors ,
    another input could be the ATR, Volume, HPI }

    { this indicator averages the collection data over an extended period
    Change this input
    Input: UseFormula_12345 (?);
    2. {Range}
    3. {Longest Ray from Open or Close[1]}
    1. {ATR}
    4. {tick or Volume total}
    5. {tick or Volume difference}

    }
    Input: UseFormula_12345 (2);
    Input: Number_of_Datas (1);
    Input: Plot_Size (1);
    Input: __ (.);
    Input: Formula_1_ATR (.);
    Input: Formula_2_Range (.);
    Input: Formula_3_Ray (.);
    Input: Formula_4_tickTotal (.);
    Input: Formula_5_tickDifference(.);

    {input: EURUSD_Green (1);
    input: GBPJPY_DarkGreen (1);
    input: EURGBP_DarkRed (1);
    input: USDJPY_Red (1);}

    Var: IM(Text);IM = ("ATZ_TimeC," +numtostr(d,0)+ ", "+numtostr(t,0)+","+GetSymbolName+":"+numtostr(Bar interval,0)+", ");
    Var: IM2(Text);IM2 = ("ATZ_TimeC," +numtostr(d,0)+ ", "+numtostr(t,0)+", ");

    var: ATZ(0);
    var: f#(0);

    Array: intrabarpersist rng [4,2401,10] (0); {collection of raw values}
    Array: intrabarpersist sym [4,89,10] (0); {all symbol data}



    var: index (0); {circular array marker}
    var: Tindex (0); {time index marker}
    Var: dat# (0); {Data stream number}
    Var: symbolMax (0); {set high for max number of symbols}
    var: SymFldmax (10); {max field in circular array}
    var: lbmax (89); {lookback max field in circular array}


    {Input to var pass}
    f# = UseFormula_12345;
    symbolmax = Number_of_Datas;



    Array: ptx[4](0);
    var: pt(0), bpv(0), _FX(0), PS(0), bp(0);
    if currentbar = 1 then begin
    PS = pricescale;
    BP = bigpointvalue;
    pt = minmove/pricescale;{Determine smallest price increment i.e 1/10 or .25 }
    bpv = minmove/pricescale * bigpointvalue;

    for Dat# = 1 to symbolmax begin
    ptx[dat#] = (minmove/pricescale)data(dat#);
    end;
    end;{Currentbar = 1}

    var: color (0);
    var: ArrayTMax (0);

    if CurrentBar = 1 then begin
    Array: TimeC[2400,2] (0);
    Var: FldTMAX(0),barInt(0);
    Barint = barinterval;
    {Build array with select synthetic minutes}
    ArrayTMax = _ggTimeArray_Fn(TimeC,Barint,0,2401); {populate time array }
    FldTMAX = ((60 /Barint) * 24);
    end; {of currentbar = 1}


    array: Zone[2401,5](0);
    Var: intrabarpersist ATR (0);
    Var: intrabarpersist ATR1 (0);
    Var: intrabarpersist ATR2 (0);
    Var: intrabarpersist ATR3 (0);
    Var: intrabarpersist ATR4 (0);
    Var: intrabarpersist ATR5 (0);

    var: c_News (0);
    var: z (0);
    var: Switch_on (true);
    var: ATZZ (0);
    var: ATZZ2 (0);
    c_News = 0;

    {ATR Calculation~~~~~~~~~~~~~~~~~~~~~~~~~~~~ }

    array: p[3,10] (0);
    var: x(0);

    {convert to US Dollars}
    If barstatus(1) = 2 OR barstatus(1) = 1 then begin
    for dat# = 1 to symbolMax begin
    if dat# = 1 then begin {for circular arrays}
    index = index + 1;
    if index > lbMax then index = 1;
    end;
    If BarStatus(dat#) = 2 then begin
    sym[dat#,index,1] = profitCF Data(dat#)* 100000; {FX profitCF ALL DATA's each bar}
    end else begin
    break;
    End;
    end;
    End;


    {Get all data from symbols}
    If barstatus(1) = 2 or barstatus(1)= 2 then begin
    {sync Time}
    for z = 1 to FldTMax begin
    if z= 1 and T = timeC[tindex+1 ,1] then begin
    Tindex = Tindex+1; break;
    end;
    if T = timeC[Z,1] then begin
    Tindex = z; break;
    end;
    end;
    for dat# = 1 to symbolMax begin
    sym[dat#,index,2] =(D) Data(dat#);
    sym[dat#,index,3] =(T) Data(dat#);
    sym[dat#,index,4] =(O) Data(dat#);
    sym[dat#,index,5] =(H) Data(dat#);
    sym[dat#,index,6] =(L) Data(dat#);
    sym[dat#,index,7] =(C) Data(dat#);
    sym[dat#,index,8] =(upticks) Data(dat#);
    sym[dat#,index,9] =(downticks) Data(dat#);
    {ATR1 = maxlist (H-L, H-c[1], c[1]-L) *Fib_Factor; {ATR}
    ATR2 = absvalue(C-O) *Fib_Factor; {Range}
    ATR3 = maxlist (absvalue(O-L),H-O, H-c[1], c[1]-L) *Fib_Factor; {Longest Ray from Open or Close[1]}
    ATR4 = (upticks+ downticks); {tick or Volume total}
    ATR5 = absvalue(upticks-downticks); {tick or Volume difference}}
    {Standard}
    ATR1 = maxlist(sym[dat#,index,5]-sym[dat#,index,6],sym[dat#,index,5]-sym[dat#,index,6][1], sym[dat#,index,6][1]-sym[dat#,index,6]);
    ATR2 = absvalue(sym[dat#,index,7]-sym[dat#,index,4]);
    ATR3 = maxlist(absvalue(sym[dat#,index,7]-sym[dat#,index,6]),sym[dat#,index,5]-sym[dat#,index,7], sym[dat#,index,5]-sym[dat#,index,6][1], sym[dat#,index,6][1]-sym[dat#,index,6]);
    ATR4 = (sym[dat#,index,8] + sym[dat#,index,9]);
    ATR5 = absvalue(sym[dat#,index,8] - sym[dat#,index,9]);

    rng[dat#,Tindex,1] = rng[dat#,Tindex,1] + ATR1; {ATR}
    rng[dat#,Tindex,2] = rng[dat#,Tindex,2] + ATR2; {Range}
    rng[dat#,Tindex,3] = rng[dat#,Tindex,3] + ATR3; {Longest Ray from Open or Close[1]}
    rng[dat#,Tindex,4] = rng[dat#,Tindex,4] + ATR4; {tick or Volume total}
    rng[dat#,Tindex,5] = rng[dat#,Tindex,5] + ATR5; {tick or Volume difference}
    rng[dat#,Tindex,6] = rng[dat#,Tindex,6] + 1; {counter for division}

    end;{Dat#}
    for Dat# = 1 to symbolMax begin
    if F# = 1 then begin
    if dat# = 1 then Plot30( (rng[1,Tindex,f#]/rng[1,Tindex,6])/ptx[1] ,"data1",Green, 0,Plot_Size);
    if dat# = 2 then Plot31( (rng[2,Tindex,f#]/rng[2,Tindex,6])/ptx[2] ,"data2",DarkGreen,0,Plot_Size);
    if dat# = 3 then Plot32( (rng[3,Tindex,f#]/rng[3,Tindex,6])/ptx[3] ,"data3",Red, 0,Plot_Size);
    if dat# = 4 then Plot33( (rng[4,Tindex,f#]/rng[4,Tindex,6])/ptx[4] ,"data4",DarkRed, 0,Plot_Size);
    end;
    if F# = 2 then begin
    if dat# = 1 then Plot30( (rng[1,Tindex,f#]/rng[1,Tindex,6])/ptx[1] ,"data1",Green, 0,Plot_Size);
    if dat# = 2 then Plot31( (rng[2,Tindex,f#]/rng[2,Tindex,6])/ptx[2] ,"data2",DarkGreen,0,Plot_Size);
    if dat# = 3 then Plot32( (rng[3,Tindex,f#]/rng[3,Tindex,6])/ptx[3] ,"data3",Red, 0,Plot_Size);
    if dat# = 4 then Plot33( (rng[4,Tindex,f#]/rng[4,Tindex,6])/ptx[4] ,"data4",DarkRed, 0,Plot_Size);
    end;
    if F# = 3 then begin
    if dat# = 1 then Plot30( (rng[1,Tindex,f#]/rng[1,Tindex,6])/ptx[1] ,"data1",Green, 0,Plot_Size);
    if dat# = 2 then Plot31( (rng[2,Tindex,f#]/rng[2,Tindex,6])/ptx[2] ,"data2",DarkGreen,0,Plot_Size);
    if dat# = 3 then Plot32( (rng[3,Tindex,f#]/rng[3,Tindex,6])/ptx[3] ,"data3",Red, 0,Plot_Size);
    if dat# = 4 then Plot33( (rng[4,Tindex,f#]/rng[4,Tindex,6])/ptx[4] ,"data4",DarkRed, 0,Plot_Size);
    end;
    if F# = 4 then begin
    if dat# = 1 then Plot30( (rng[1,Tindex,f#]/rng[1,Tindex,6]) ,"data1",Green, 0,Plot_Size);
    if dat# = 2 then Plot31( (rng[2,Tindex,f#]/rng[2,Tindex,6]) ,"data2",DarkGreen,0,Plot_Size);
    if dat# = 3 then Plot32( (rng[3,Tindex,f#]/rng[3,Tindex,6]) ,"data3",Red, 0,Plot_Size);
    if dat# = 4 then Plot33( (rng[4,Tindex,f#]/rng[4,Tindex,6]) ,"data4",DarkRed, 0,Plot_Size);
    end;
    if F# = 5 then begin
    if dat# = 1 then Plot30( (rng[1,Tindex,f#]/rng[1,Tindex,6]) ,"data1",Green, 0,Plot_Size);
    if dat# = 2 then Plot31( (rng[2,Tindex,f#]/rng[2,Tindex,6]) ,"data2",DarkGreen,0,Plot_Size);
    if dat# = 3 then Plot32( (rng[3,Tindex,f#]/rng[3,Tindex,6]) ,"data3",Red, 0,Plot_Size);
    if dat# = 4 then Plot33( (rng[4,Tindex,f#]/rng[4,Tindex,6]) ,"data4",DarkRed, 0,Plot_Size);
    end;
    end;

    end;{barstatus}


    plot99(0,"0",darkbrown,0,0);


    ************************************************** ************************************************** ***************


    هدا الممؤشر يدعىBELKIYATTE Timer





    // ********** Timer}

    // Settings:

    // "B Indicateur : Histo

    // "B Timer : Point

    //



    Inputs:

    Prix((h+l)/2),

    Periode(20), { Periode pour calculer l'ATR et la DEVIATION STD }

    Fac_Keltner(1.5), { Facteur ATR pour les bandes Keltner }

    Fac_Bollinger(2),{ Facteur DEVIATION STD pour les bandes de Bollinger }

    AlertLine( 1 ), { Niveau d'alerte /cette version ne gre pas les alertes }

    Couleur_Alerte( Blue ),

    Couleur_Normale(Red) ;



    Variables:

    ATR(0), { Average True Range }

    StDev(0), { Deviation Standard }

    BBS_Ind(0), { l'indicateur }

    alertTextID(-1);

    if barnumber = 1 and alertTextID = -1 then

    alertTextID = Text_New(date,time,0,"dummy");







    //Calcul du Squeeze

    ATR = AvgTrueRange(Periode);

    StDev = StandardDev(Prix, Periode, 1);

    BBS_Ind = (Fac_Bollinger * StDev) / (Fac_Keltner * ATR);



    If BBS_Ind < Alertline then

    SetPlotColor(1, Couleur_Normale)

    else

    SetPlotColor(1, Couleur_Alerte);



    Plot1(0, "B indicateur");



    value2 = LinearRegValue(Prix-((Highest(H, Periode)+Lowest(L, Periode))/2

    +

    xAverage(c,Periode))/2,Periode,0);

    var:color(0); color = yellow;

    if value2>0 then

    if value2 > value2[1] then

    color = green

    else

    color = darkgreen;



    if value2<0 then

    if value2 < value2[1] then

    color = red

    else

    color = darkred;



    plot3(value2,"B timer",color)


    اويمكنكم زيارة الروابط التالية


    http://www.**********.ma/fr/index.ph...act&id_act=162


    http://www.**********.ma/fr/index.ph...act&id_act=161
    آخر تعديل بواسطة azize ، 20-04-2010 الساعة 12:26 AM

  2. #2
    الصورة الرمزية forex opera
    forex opera غير متواجد حالياً عضو المتداول العربي
    تاريخ التسجيل
    Jan 2012
    المشاركات
    356

    افتراضي

    up لنحاول وما شاء الله المبرمجين هنا نوابغ

  3. #3
    الصورة الرمزية zelenko
    zelenko غير متواجد حالياً عضو نشيط
    تاريخ التسجيل
    Dec 2010
    الإقامة
    مصر
    المشاركات
    1,711

    افتراضي

    upppppppppppppppppppp

  4. #4
    الصورة الرمزية Jmeel
    Jmeel غير متواجد حالياً عضو نشيط
    تاريخ التسجيل
    Sep 2008
    الإقامة
    في أرض الله
    المشاركات
    7,610

    افتراضي

    الروابط ماتفتح لأنها غير كاملة والكود فيه اخطاء كثيرة ، لو تقدر تنسخ الكود على ملف وورد او تيكست وكذلك الروابط وترفق الملف وإن شاء الله اقدر اساعدك

  5. #5
    الصورة الرمزية forex opera
    forex opera غير متواجد حالياً عضو المتداول العربي
    تاريخ التسجيل
    Jan 2012
    المشاركات
    356

    افتراضي

    اقتباس المشاركة الأصلية كتبت بواسطة Jmeel مشاهدة المشاركة
    الروابط ماتفتح لأنها غير كاملة والكود فيه اخطاء كثيرة ، لو تقدر تنسخ الكود على ملف وورد او تيكست وكذلك الروابط وترفق الملف وإن شاء الله اقدر اساعدك
    يا رب يكون صاحب الموضوع موجود او نحاول نوصل لتقريب للمعادلات دى حتى و لو نكمل عليها بأجتهادات ممكن تكون افيد من الاصلى ويبقى طلعنا بحاجه جديده مهجنه

  6. #6
    الصورة الرمزية forex opera
    forex opera غير متواجد حالياً عضو المتداول العربي
    تاريخ التسجيل
    Jan 2012
    المشاركات
    356

    افتراضي

    سبحان الله وبحمده سبحان الله العظيم

المواضيع المتشابهه

  1. مؤشرات بالخياط الاصلية
    By omda1 in forum برمجة المؤشرات واكسبرتات التداول - Experts Advisor EA
    مشاركات: 124
    آخر مشاركة: 20-11-2016, 10:18 PM
  2. مؤشرات مصطفى بلخياط
    By 3ammary in forum سوق تداول العملات الأجنبية والسلع والنفط والمعادن
    مشاركات: 20
    آخر مشاركة: 17-11-2013, 08:02 PM
  3. ##// .... مؤشرات مصطفى بلخياط .... // ##
    By last season in forum سوق تداول العملات الأجنبية والسلع والنفط والمعادن
    مشاركات: 52
    آخر مشاركة: 27-09-2010, 04:07 PM
  4. سؤال للخبراء:يعني أيه مؤشرات الارتداد,مؤشرات الترند,مؤشرات الفلتره ؟
    By magedology in forum برمجة المؤشرات واكسبرتات التداول - Experts Advisor EA
    مشاركات: 2
    آخر مشاركة: 13-10-2006, 12:03 AM
  5. سؤال للخبراء:يعني أيه مؤشرات الارتداد,مؤشرات الترند,مؤشرات الفلتره ؟
    By magedology in forum سوق تداول العملات الأجنبية والسلع والنفط والمعادن
    مشاركات: 2
    آخر مشاركة: 13-10-2006, 12:03 AM

الاوسمة لهذا الموضوع


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17