et voici le code également
// + ----------------------------------------------- ------------------- +
// | Day Trader Market Dans Profile.mq4 |
// | Copyright © 2010, MetaQuotes Software Corp. |
// | http://www.metaquotes.net |
// + ----------------------------------------------- ------------------- + copyright
# propriété "Copyright © 2010, Eng \ Bassam El-Faramawi."
#property link "bmaamoon@yahoo.com"
#property indicator_chart_window
// + ---------------------------------- -------------------------------- +
// | Fonction d'initialisation d'indicateur personnalisé |
// + ----------------------------------------------- ------------------- +
extern int Étape = 4 ;
extern int NumberOfDays = 10 ;
extern int SessionHalfHours = 48 ;
extern bool ViewTPOs = true ; bool
externe TPOs_as_Letters = true ; extern int TPOs_Shift = 0 ; extern int Letter_Size = 6 ; couleur externe TPO_Color = DarkGray; bool externe
ViewOpenFlag = true ; couleur
externe OpenColor = LightSteelBlue; extern int OpenFlagShift = 0 ; bool externe View_Pointer = true ; couleur externe PointerColor = Magenta; extern int PointerShift = 2 ; bool externe ViewrangeLine = false ; couleur externe RangeLineColor = LightSteelBlue; extern int rangeLine_Shift = 1 ; extern bool ViewInitialBalanceLine = Vrai
; couleur
externe IBLineColor = SteelBlue; extern int IBLineWidth = 2 ; extern int IBLine_Shift = 1 ; extern bool ViewValueArea = true ; double externe Persent_Of_TPO_ValueArea = 0.7 ; extern int ValueArea_Shift = 1 ; couleur externe TopLine_Color = Rouge; extern int TopLine_Width = 1 ; extern int TopLine_Start = 1 ; externe
int TopLine_End = 1 ; couleur
externe BottomLine_Color = Rouge; extern int BottomLine_Width = 1 ; extern int BottomLine_Start = 1 ; extern int BottomLine_End = 1 ; bool externe ViewPocLine = true ; extern int PocLine_shift = 1 ; couleur externe PocColor = Bleu; extern int PocLine_Start = 1 ; extern int PocLine_Width = 1
;
extern int PocLine_End = 1 ;
extern bool ViewInformationText = false ;
extern int InformationTextSize = 7 ; couleur
externe InformationTextColor = DarkTurquoise; extern int InformationTextShift = 12 ; chaîne Texte [ 50 ]; int init () { DeleteAllObjects (NumberOfDays); // ---- indicateurs Texte [ 1 ] = "A" ; Texte [ 2 ] = "B" ; Texte[
3 ] = "C" ; Texte [ 4 ] = "D" ; Texte [ 5 ] = "E" ;
Texte [ 6 ] = "F" ; Texte [ 7 ] = "G" ; Texte [ 8 ] = "H" ; Texte [ 9 ] = "I" ; Texte [ 10 ] = "J" ;
Texte [ 11 ] = "K" ; Texte [ 12 ] = "L" ; Texte [ 13 ] = "M" ;; Texte [ 15 ] = "O" ;
Texte [ 16 ] = "P" ; Texte [ 17 ] = "Q" ; Texte [ 18 ] = "R" ; Texte [ 19 ] = "S" ; Texte [ 20 ] = "T" ;
Texte [ 21 ] = "U" ; Texte [ 22 ] = "V" ; Texte [ 23 ] = "W" ; Texte [ 24 ] = "X" ; Texte [ 25 ] = "a" ;
] = "b" ; Texte [ 27 ] = "c" ; Texte [ 28 ] = "d" ; Texte [ 29 ] = "e" ; Texte [ 30 ] = "f" ;
Texte [ 31 ] = "g" ; Texte [ 32 ] = "h" ; Texte [ 33 ] = "i" ; Texte [ 34 ] = "j" ; Texte [ 35 ] = "k" ;
Texte [ 36 ] = "l" ; Texte [ 37 ] = "m" ; Texte[38 ] = "n" ; Texte [ 39 ] = "o" ; Texte [ 40 ] = "p" ;
Texte [ 41 ] = "q" ; Texte [ 42 ] = "r" ; Texte [ 43 ] = "s" ; Texte [ 44 ] = "t" ; Texte [ 45 ] = "u" ;
Texte [ 46 ] = "v" ; Texte [ 47 ] = "w" ; Texte [ 48 ] = "x" ;
// ----
Createobjects ();
Commentaire( "" );
// ----
return ( 0 );
}
// + ---------------------------------------------- -------------------- +
// | Fonction de désinitialisation d'indicateur personnalisé |
// + ----------------------------------------------- ------------------- +
int deinit ()
{
// ----
DeleteAllObjects (NumberOfDays);
Commentaire ( "" );
// ----
return ( 0 );
}
// + ---------------------------------------------- -------------------- +
// | Fonction d'itération d'indicateur personnalisé |
// + ----------------------------------------------- ------------------- +
int start ()
{
Commentaires ( "" , "\ n" , "Eng.Bassam Market Profile V1.0" , "\ n" , "" , "\ n" , "Par: Eng \ Bassam El-Faramawi" , "\ n" , "" , "\ n" , "bmaamoon@yahoo.com" );
int counted_bars = IndicatorCounted ();
int m, H, t, n, i, Ymax, Ymin;
double h, TickVolume;
// ----
t = 48 / SessionHalfHours;
if ( MathMod ( 48 , SessionHalfHours)> 0 ) t ++;
if ( MathMod (SessionHalfHours, 2 )> 0 ) m = 1 ;
// ----
t0 = StrToTime ( TimeYear (dt) + "." + TimeMonth (dt) + "." + TimeDay (dt) + "" + "00" + ":" + "00" );
Ymax = iBarShift ( NULL ,30 , t0);
TickVolume = iVolume ( NULL , 1440 , 0 );
pour (n = 1 ; n <= t; n ++)
{
h = (( HeureHeure (dt) * 2 ) + m) / SessionHalfHours;
si (h <n- 1 )
continue ;
Ymin = Ymax-SessionHalfHours + 1 ;
drawobjects (Ymax, Ymin, TickVolume);
Ymax = Ymax-SessionHalfHours;
}
// ----
return ( 0 );
}
// + ---------------------- // // ------------------ | \\ ---------------------- +
// + --------------------- /// | | \\\ --------------------- +
// + --------------------- \ ** | Fonctions personnalisées | ** / --------------------- +
// + ------------------- --- \\ | | // ---------------------- +
// + --------------------- - \ | ------------------ | / ----------------------- +
void Createobjects ()
{
int m, H, t, n, i, y0, Ymax, Ymin;
double h, TickVolume;
t = 48 / SessionHalfHours;
if ( MathMod ( 48 , SessionHalfHours)> 0 ) t ++;
if ( MathMod (SessionHalfHours, 2 )> 0 ) m =1 ;
datetime dt = TimeCurrent (), t0;
t0 = StrToTime ( TimeYear (dt) + "." + TimeMonth (dt) + "." + TimeDay (dt) + "" + "00" + ":" + "00" );
y0 = iBarShift ( NULL , 0 , t0);
// ----
pour (i = 1 ; i <NumberOfDays; i ++)
{
dt = iTime ( NULL , 0 , y0 + 1 );
t0 =StrToTime ( TimeYear (dt) + "." + TimeMonth (dt) + "." + TimeDay (dt) + "" + "00" + ":" + "00" );
TickVolume = iVolume ( NULL , 1440 , i);
Ymax = iBarShift ( NULL , 30 , t0);
pour (n = 1 ; n <= t; n ++)
{
Ymin = Ymax-SessionHalfHours + 1 ;
if (n == t)
Ymin = iBarShift ( NULL, 30 , StrToTime ( TimeYear (dt) + "." + TimeMonth (dt) + "." + TimeDay (dt) + "" + "23" + ":" + "30" ));
drawobjects (Ymax, Ymin, TickVolume);
Ymax = Ymax-SessionHalfHours;
}
y0 = iBarShift ( NULL , 0 , t0);
}
}
// + --------------------------------------------- --------------------- +
void drawobjects ( int Ymax, int Ymin, doubleTickVolume)
{
int , s, fac, y, Yt, espace, POC, AllTicks, ValueArea, i, imax, imin, ValueRange, TPO [ 1000 ];
double x, Mid, PocTick;
if ( Chiffres == 2 || Chiffres == 4 ) fac = 1 ;
if ( Chiffres == 3 || Chiffres == 5 ) fac = 10 ;
double Max = Haut [ iHighest ( NULL , 30 , MODE_HIGH , (Ymax-Ymin + 1), Ymin)],
Min = Faible [ iLowest ( NULL , 30 , MODE_LOW , (Ymax-Ymin + 1 ), Ymin)],
IBmax = Élevé [ iHighest ( NULL , 30 , MODE_HIGH , 2 , Ymax- 1 )],
IBmin = Faible [ iLowest ( NULL , 30 , MODE_LOW , 2 , Ymax- 1 )],
STEP = Étape * fac * Point ;
Mid = (Max-Min) *0,5 + Min;
Yt = iBarShift ( NULL , 0 , iTime ( NULL , 30 , Ymax), faux );
u = 0 ;
pour (y = Ymax; y> = Ymin; y--)
{
pour (s = 1 ; s <= (Max-Min) / STEP; s ++)
{
ObjectDelete ( TimeToStr ( iTime ( NULL , 0 , y + (TPOs_Shift * SessionHalfHours)), TIME_DATE | TIME_MINUTES ) + "" + DoubleToStr (s,0 ));
}
}
pour (x = Max; x> = Min; x = x-STEP)
{
Espace = 0 ;
i = (Max-x) / STEP;
u ++;
pour (y = Ymax; y> = Ymin; y--)
{
double opentick = iOuvre ( symbole (), 30 , Ymax),
maximum = iHigh ( symbole (), 30 , y),
minimum = iLow ( symbole ()) , 30 , y);
if (Maximum <x || Minimum> x)
continue ;
Espace ++;
// -------------
chaîne TPOName = TimeToStr ( iTime ( NULL , 0 , Ymax-Espace + 1 + (TPOs_Shift * SessionHalfHours)), TIME_DATE | TIME_MINUTES ) + "" + DoubleToStr (u, 0 );
si (ViewTPOs)
{
si (TPOs_as_Letters == true )
{
ObjectDelete (TPOName);
ObjectCreate (TPOName, OBJ_TEXT , 0 , iTime ( NULL , 0, Yt-Space + 1 + (TPOs_Shift * SessionHalfHours)), x);
ObjectSetText (TPOName, Texte [Ymax-y + 1 ], Letter_Size, "Arial" , TPO_Color);
}
else
{
ObjectDelete (TPOName);
ObjectCreate (TPOName, OBJ_ARROW , 0 , iTime ( NULL , 0 , Yt-Espace + 1 + (TPOs_Shift * SessionHalfHours)), x);
ObjectSet (TPOName, OBJPROP_ARROWCODE , 167 );
ObjectSet (TPOName, OBJPROP_COLOR , TPO_Color);
ObjectSet(TPOName, OBJPROP_BACK , True );
}
}
}
// --------------
chaîne ouverte = "ouvert" + TimeToStr ( iTime ( NULL , 0 , Ymax + OpenFlagShift + (TPOs_Shift * SessionHalfHours)), TIME_DATE | TIME_MINUTES );
if (ViewOpenFlag)
{
ObjectDelete (ouvert);
ObjectCreate (open, OBJ_ARROW , 0 , iTime ( NULL , 0, Yt + OpenFlagShift + (TPOs_Shift * SessionHalfHours)), opentick);
ObjectSet (open, OBJPROP_ARROWCODE , 161 );
ObjectSet (ouvert, OBJPROP_COLOR , OpenColor);
ObjectSet (open, OBJPROP_BACK , True );
}
// --------------
double POCShift = MathAbs (PocTick-Mid),
SpaceShift = MathAbs (x-Mid);
if (Espace> POC)
{
POC = Espace;
PocTick = x;
}
if (Space == POC && SpaceShift <POCShift)
PocTick = x;
// --------------
chaîne Poc = "POC" + TimeToStr ( iTime ( NULL , 0 , Ymax + (TPOs_Shift * SessionHalfHours)), TIME_DATE | TIME_MINUTES );
int Poc_start = Yt + PocLine_Start- (PocLine_shift * SessionHalfHours) + (TPOs_Shift * SessionHalfHours),
Poc_end = Yt-POC + PocLine_End- (PocLine_shift * SessionHalfHours) + (TPOs_Shift * SessionHalfHours);
if (ViewPocLine)
{
ObjectDelete (Poc);
ObjectCreate (Poc, OBJ_TREND , 0 , iTime ( NULL ,0 , Poc_start), PocTick, iTime ( NULL , 0 , Poc_end), PocTick);
ObjectSet (Poc, OBJPROP_COLOR , PocColor);
ObjectSet (Poc, OBJPROP_WIDTH , PocLine_Width);
ObjectSet (Poc, OBJPROP_RAY , false );
ObjectSet (Poc, OBJPROP_BACK , True );
}
// --------------
AllTicks = AllTicks + Space;
TPO [i] = espace;
}
ValueArea = AllTicks * Persent_Of_TPO_ValueArea;
imax = (Max-PocTick) / STEP;
imin = imax;
ValueRange = TPOs [imax];
while (ValueRange <ValueArea)
{
if (TPO [imax- 1 ] == TPO [imin + 1 ])
{
ValueRange = ValueRange + ( 2 * TPO [imax- 1 ]);
imax--;
imin ++;
}
if (TPO [imax- 1 ]> TPO [imin + 1 ])
{
ValueRange = ValueRange + TPO [imax- 1 ];
imax--;
}
if (TPO [imax- 1 ] <TPO [imin + 1 ])
{
ValueRange = ValueRange + TPO [imin + 1 ];
imin ++;
}
}
chaîne Range = "Plage" + TimeToStr ( iTime ( NULL , 0 , Ymax + (TPOs_Shift * SessionHalfHours)), TIME_DATE | TIME_MINUTES ),
ValueAreaRange = "ValueAreaRange" + TimeToStr ( iTime ( NULL , 0 , Ymax + (TPOs_Shift * SessionHalfHours) ), TIME_DATE | TIME_MINUTES ),
TVolume = "TVolume" + TimeToStr ( iTime ( NULL, 0 , Ymax + (TPOs_Shift * SessionHalfHours)), TIME_DATE | TIME_MINUTES ),
ValueTop = "ValueTop" + TimeToStr ( iTime ( NULL , 0 , Ymax + (TPOs_Shift * SessionHalfHours)), TIME_DATE | TIME_MINUTES ),
ValueBottom = "ValueBottom" + TimeToStr ( iTime ( NULL , 0 , Ymax + (TPOs_Shift * SessionHalfHours)) ), TIME_DATE | TIME_MINUTES ),
RangeLine = "RangeLine" +TimeToStr ( iTime ( NULL , 0 , Ymax + (TPOs_Shift * SessionHalfHours)), TIME_DATE | TIME_MINUTES ),
IBLine = "IBLine" + TimeToStr ( iTime ( NULL , 0 , Ymax + (TPOs_Shift * SessionHalfHours)), TIME_DATE | TIME_MINUTES );
int Yvt_start = Yt + TopLine_Start- (ValueArea_Shift * SessionHalfHours) + (TPOs_Shift * SessionHalfHours),
Yvt_end = Yt-TPOs [imax] + TopLine_End- (ValueArea_Shift * SessionHalfHours) + (TPOs_Shift * SessionHalfHours),
Yvb_start = Yt + BottomLine_Start- (ValueArea_Shift * SessionHalfHours) + (TPOs_Shift * SessionHalfHours),
Yvb_end = Yt-TPOs [imin] + BottomLine_End- (ValueArea_Shift * SessionHalfHours) + (TPOs_Shift * SessionHalfHours);
if (ViewValueArea)
{
ObjectDelete (ValueTop);
ObjectCreate (ValueTop, OBJ_TREND , 0 , iTime ( NULL , 0 , Yvt_start), Max- (imax * STEP), iTime ( NULL , 0 , Yvt_end), Max- (imax * STEP));
ObjectSet (ValueTop, OBJPROP_COLOR , TopLine_Color);
ObjectSet (ValueTop,OBJPROP_WIDTH , TopLine_Width);
ObjectSet (ValueTop, OBJPROP_RAY , false );
ObjectSet (ValueTop, OBJPROP_BACK , True );
ObjectDelete (ValueBottom);
ObjectCreate (ValueBottom, OBJ_TREND , 0 , iTime ( NULL , 0 , Yvb_start), Max- (imin * STEP), iTime ( NULL , 0 , Yvb_end), Max- (imin * STEP));
ObjectSet (ValueBottom, OBJPROP_COLOR , BottomLine_Color);
ObjectSet (ValueBottom,OBJPROP_WIDTH , BottomLine_Width);
ObjectSet (ValueBottom, OBJPROP_RAY , false );
ObjectSet (ValueBottom, OBJPROP_BACK , True );
}
if (ViewInformationText)
{
ObjectDelete (Range);
ObjectCreate (Range, OBJ_TEXT , 0 , iTime ( NULL , 0 , Yt-SessionHalfHours + InformationTextShift + (TPOs_Shift * SessionHalfHours)), PocTick);
ObjectSetText (Range, "Range =" + DoubleToStr ((Max-Min), 4) + "Pip" , InformationTextSize, "Arial" , InformationTextColor);
ObjectDelete (ValueAreaRange);
ObjectCreate (ValueAreaRange, OBJ_TEXT , 0 , iTime ( NULL , 0 , Yt-SessionHalfHours + InformationTextShift + (TPOs_Shift * SessionHalfHours)), PocTick- ( 2 * STEP));
ObjectSetText (ValueAreaRange, "TPO ValueArea =" + DoubleToStr ((imin-imax) * STEP, 4 ) + "Pip" , InformationTextSize, "Arial" , InformationTextColor);
ObjectDelete (TVolume);
ObjectCreate (TVolume, OBJ_TEXT , 0 , iTime ( NULL , 0 , Yt-SessionHalfHours + InformationTextShift + (TPOs_Shift * SessionHalfHours)), PocTick- ( 4 * STEP));
ObjectSetText (TVolume, "Tick Volume =" + DoubleToStr (TickVolume, 0 ), InformationTextSize, "Arial" , InformationTextColor);
}
if (ViewrangeLine)
{
ObjectDelete (RangeLine);
ObjectCreate (RangeLine, OBJ_TREND , 0 , iTime ( NULL, 0 , Yt- (rangeLine_Shift * SessionHalfHours) + 1 + (TPOs_Shift * SessionHalfHours)), Max, iTime ( NULL , 0 , Yt- (rangeLine_Shift * SessionHalfHours) + 1 + (TPOs_Shift * SessionHalfHours), Min);
ObjectSet (RangeLine, OBJPROP_COLOR , RangeLineColor);
ObjectSet (RangeLine, OBJPROP_STYLE , STYLE_DOT );
ObjectSet (RangeLine, OBJPROP_RAY , false );
}
if (ViewInitialBalanceLine)
{
ObjectDelete (IBLine);
ObjectCreate(IBLine, OBJ_TREND , 0 , iTime ( NULL , 0 , Yt + IBLine_Shift + (TPOs_Shift * SessionHalfHours)), IBmax, iTime ( NULL , 0 , Yt + IBLine_Shift + (TPOs_Shift * SessionHalfHours)), IBmin);
ObjectSet (IBLine, OBJPROP_COLOR , IBLineColor);
ObjectSet (IBLine, OBJPROP_STYLE , STYLE_SOLID );
ObjectSet (IBLine, OBJPROP_WIDTH , IBLineWidth);
ObjectSet (IBLine, OBJPROP_RAY , false );
}
si(View_Pointer)
{
int Pointer = (Max- Fermé [ 0 ]) / STEP;
if (Max- (Pointeur * STEP) - Fermer [ 0 ]> Fermer [ 0 ] -Max + ((Pointeur + 1 ) * STEP))
Pointeur ++;
int Pointr = Yt-TPOs [Pointeur] -PointerShift;
si (Pointr < 0 )
Pointr = 0 ;
ObjectDelete ( "Pointeur" );
if ( ObjectFind ( "Pointeur" )! = 0 )
{
ObjectCreate( "Pointeur" , OBJ_ARROW , 0 , iTime ( NULL , 0 , Pointr + (TPOs_Shift * SessionHalfHours), Fermer [ 0 ] + STEP);
ObjectSet ( "Pointer" , OBJPROP_ARROWCODE , 239 );
ObjectSet ( "Pointer" , OBJPROP_COLOR , PointerColor);
ObjectSet ( "Pointer" , OBJPROP_BACK , false );
}
else
{
ObjectMove ( "Pointeur", 0 , iTime ( NULL , 0 , Pointr + (TPOs_Shift * SessionHalfHours)), Fermer [ 0 ] + STEP);
}
}
}
// + -------------------------------------------- ---------------------- +
void DeleteAllObjects ( int NumberOfDays)
{
datetime dt, t0;
int y, u, Ymax;
chaîne TPOName;
dt = iTime ( NULL , 0 , 0 );
t0 = StrToTime ( TimeYear (dt) + "." +TimeMonth (dt) + "." + TimeDay (dt) + "" + "00" + ":" + "00" );
Ymax = iBarShift ( NULL , 0 , t0);
pour (y = 0 ; y <= NumberOfDays + 6 ; y ++)
{
dt = iTime ( NULL , 0 , Ymax + 1 );
t0 = StrToTime ( TimeYear (dt) + "." + TimeMonth (dt) + "."+ "00" + ":" + "00" );
Ymax = iBarShift ( NULL , 0 , t0);
}
pour (y = 0 ; y <= Ymax; y ++)
{
TPOName = TimeToStr ( iTime ( NULL , 0 , y), TIME_DATE | TIME_MINUTES );
if ( ObjectFind ( "ouvert" + TPOName) == 0 )
ObjectDelete ( "ouvert" + TPOName);
if ( ObjectFind ("Pointeur" ) == 0 )
ObjectDelete ( "Pointeur" );
if ( ObjectFind ( "POC" + TPOName) == 0 )
ObjectDelete ( "POC" + TPOName);
if ( ObjectFind ( "ValueTop" + TPOName) == 0 )
ObjectDelete ( "ValueTop" + TPOName);
if ( ObjectFind ( "ValueBottom" + TPOName) == 0 )
ObjectDelete ( "ValueBottom" + TPOName);
( ObjectFind ( "Range" + TPOName) == 0 )
ObjectDelete ( "Plage" + TPOName);
if ( ObjectFind ( "ValueAreaRange" + TPOName) == 0 )
ObjectDelete ( "ValueAreaRange" + TPOName);
if ( ObjectFind ( "TVolume" + TPOName) == 0 )
ObjectDelete ( "TVolume" + TPOName);
if ( ObjectFind ( "RangeLine"
( "RangeLine" + TPOName);
if ( ObjectFind ( "IBLine" + TPOName) == 0 )
ObjectDelete ( "IBLine" + TPOName);
pour (u = 0 ; u <= 1000 ; u ++)
{
if ( ObjectFind (TPOName + "" + DoubleToStr (u, 0 )) == 0 )
ObjectDelete (TPOName + "" + DoubleToStr (u, 0 ));
}
}
}
// + ----------------------------------------------- ------------------- +
