Salon de l'analyse technique paris 2010 - Nouvel indicateur Mr belkhayate

[mzz9]

السلام عليكم

ارجوكم يا اخواني من لديه مؤشر BAM_ATZ_TIMECORRIDOR فهو مؤشر لبلخياط

ان يمدني به وجزكم الله الف خير

ومن استطاع من الاخوة ان يحوله الى MQ4 ها هو الكود :


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

[jberanto]

Si on regarde ce lien, le rsi avec canaux était déjà là, ainsi que son interprétation, avant que Monsieur Belkahate ne livre son approche inédite, non ?

Relative Strength Index, outil d’analyse technique, indicateur de tendance - Trader forex

[JaYQC12]

Il y aurais t'il moyen de regarder dans la programmation du RSI BELK parce que le canal en rouge ou vert ne s'update jamais :P je sais que si je change de timeframe sa revient, mais c est juste une proposition de meme!

[NANARD42570]

bonjour

les indicateurs sont endommagés comment pui je faire pour les avoirs ?? et k donne cette methode pour ceux ki l ont tester?????
merci a vous

[AHMED]

pheniksss; tu pourra m'expliquer les fonctions dans le code bam atz corridor?

[AHMED]

et surtout les fonctions suivant:


symbolMax, SymFldmax, lbmax, end;{Dat#} barstatus

[b.khali]

السلام عليكم

ارجوكم يا اخواني من لديه مؤشر bam_atz_timecorridor فهو مؤشر لبلخياط

ان يمدني به وجزكم الله الف خير

ومن استطاع من الاخوة ان يحوله الى mq4 ها هو الكود :


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

اخي الكريم. لقد تم وضع هدا المؤشر من طرف احد اعضاء هدا المنتدئ
وفقك الله

[loyd2006]

bonjour à tous et merci pour ces indicateurs ainsi que le travail effectuer dessus.encore merci aussi pour le partage.

[Nico25]

Bonsoir à tous !

félicitation pour le travail surtout toi pheniksss !

belkhayate forever <3

bonne soirée