النتائج 1 إلى 6 من 6
الموضوع: كود مؤشرات بلخياط الاصلية
- 20-04-2010, 12:09 AM #1
كود مؤشرات بلخياط الاصلية
ارجوكم يا اخواني من يستطيع ان يحول هذه الاكواد الى مؤشرات فهذه المؤشرات التي يعتمد عليها بلخياط في الدخول و الخروج
هدا الممؤشر يدعى 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
- 14-07-2012, 03:54 AM #2
up لنحاول وما شاء الله المبرمجين هنا نوابغ
- 15-07-2012, 04:39 PM #3
upppppppppppppppppppp
- 15-07-2012, 11:15 PM #4
الروابط ماتفتح لأنها غير كاملة والكود فيه اخطاء كثيرة ، لو تقدر تنسخ الكود على ملف وورد او تيكست وكذلك الروابط وترفق الملف وإن شاء الله اقدر اساعدك
- 16-07-2012, 05:11 AM #5
- 25-08-2012, 03:23 AM #6
سبحان الله وبحمده سبحان الله العظيم
المواضيع المتشابهه
-
مؤشرات بالخياط الاصلية
By omda1 in forum برمجة المؤشرات واكسبرتات التداول - Experts Advisor EAمشاركات: 124آخر مشاركة: 20-11-2016, 10:18 PM -
مؤشرات مصطفى بلخياط
By 3ammary in forum سوق تداول العملات الأجنبية والسلع والنفط والمعادنمشاركات: 20آخر مشاركة: 17-11-2013, 08:02 PM -
##// .... مؤشرات مصطفى بلخياط .... // ##
By last season in forum سوق تداول العملات الأجنبية والسلع والنفط والمعادنمشاركات: 52آخر مشاركة: 27-09-2010, 04:07 PM -
سؤال للخبراء:يعني أيه مؤشرات الارتداد,مؤشرات الترند,مؤشرات الفلتره ؟
By magedology in forum برمجة المؤشرات واكسبرتات التداول - Experts Advisor EAمشاركات: 2آخر مشاركة: 13-10-2006, 12:03 AM -
سؤال للخبراء:يعني أيه مؤشرات الارتداد,مؤشرات الترند,مؤشرات الفلتره ؟
By magedology in forum سوق تداول العملات الأجنبية والسلع والنفط والمعادنمشاركات: 2آخر مشاركة: 13-10-2006, 12:03 AM