أقوى مؤشر لبلخياط

[ahmed5]

ارجوكم يا اخواني من استطاع ان يحول لى mq4 مؤشر لبلخياط " BAM_ATZ_TIMECORRIDOR"
وجزكم الله الف خير

و ها هو الكود :




{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);

[ahmed5]

هنا ألصورة في ألرابط

[rash_ali21]

جزاك الله خير

[The Samurai]

اين اخونا مستر دولار بارك الله فيه

[MR.dollar]

الكود بهذه الطريقه لن يفهمه إلا من له خلفيه بلغة البرمجه وبرنامج التداول الخاص بالمؤشر والذي تم تصميم هذه المعادلات ليعمل عليه فإن كنت تفهم المعادلات القائمه عليها أو تفهم الأكواد التي تم كتابة المعادلات بها إشرحها وسنحاول تحويلها إلى مؤشر بلغة mq4

[ahmed5]

السلام عليكم ورحمة الله وبركاته أخي الحبيب MR.dollar
لفهم ألكود أرافق ماوصل إليه أخي بلال
-مؤشر يعطي نصف ساعة أفضل من التداول
-مؤشر يعمل استنادا إلى السنوات العشر الماضية

[ahmed5]

http://translate.google.fr/translate...61&sl=fr&tl=ar

[ahmed5]

أعتذر عن عنوان
المرفقة إلى المكان الصحيح **********

[MR.dollar]

السلام عليكم ورحمة الله وبركاته أخي الحبيب MR.dollar
لفهم ألكود أرافق ماوصل إليه أخي بلال
-مؤشر يعطي نصف ساعة أفضل من التداول
-مؤشر يعمل استنادا إلى السنوات العشر الماضية

حسب المؤشر المرفق فهو يحسب الفرق بين الهاي واللو مع ضربهم في عدد أيام السنه ثم جمع الناتج لجميع هذه الشمعات
ثم يقوم بحساب الفوليوم ويجمع الناتج

لكن حسب ما أعتقد أنه موجود في الرابط السابق فهو يعتمد على مؤشر ATR
إذا كنت قد فهمت الترجمه في الرابط السابق قم بشرح المعادلات الموجوده فيه وسوف نصمم المؤشر

[ahmed5]

ماهي المعادلات التي لا تفهم فى ألكود أخي MR.دوللار جزاك الله خير

[MR.dollar]

ماهي المعادلات التي لا تفهم فى ألكود أخي MR.دوللار جزاك الله خير

إذا كان عندك خلفية ولو بسيطه في البرمجه فسوف تعرف أن لكل لغة برمجة كلمات محجوزه خاصة بها لن يفهمها إلا من تعامل مع هذه اللغة ودرسها
على سبيل المثال هذه الكلمات
symbolMax SymFldmax lbmax end;{Dat#} barstatus
هذا ما أقصده لذلك إن كنت تعلم ما هي المعادلات الأساسيه القائمه على المؤشر وعلى ماذا يعتمد المؤشر إشرح لنا الطريقه
مع العلم أنه تم فتح أكثر من موضوع لنفس هذا المؤشر ونفس الرد قام أكثر من مبرمج بالرد عليه وهو شرح المعادلات الأساسيه وليس كتابة الكود الخاص بالمؤشر الآخر

[coolhero]

اخى mr.dollar
هذه اللغه خاصه بالبرمجه ببرنامج TRADESTATION
وبالطبع لا افقه عنها شئ ولكنى ذكرتها للأفاده
فهى معلومه قديمه فى ذهنى
بارك الله فيكم ووفقكم الى ما يحبه ويرضاه

[MR.dollar]

اخى mr.dollar
هذه اللغه خاصه بالبرمجه ببرنامج TRADESTATION
وبالطبع لا افقه عنها شئ ولكنى ذكرتها للأفاده
فهى معلومه قديمه فى ذهنى
بارك الله فيكم ووفقكم الى ما يحبه ويرضاه

نعم ولذلك أعتقد أن المعادلات الأساسيه للمؤشر موجوده أيضا وإلا فكيف قام برنامج التريد ستيشن ببرمجتها ولكن تحتاج إلى البحث حتى نجدها