ShowCandleSize

//+------------------------------------------------------------------+
//|                                               ShowCandleSize.mq4 |
//|                                  Vladislav Shurkin, 10 nov. 2013 |
//|Ñêðèïò îòîáðàæàåò íà ãðàôèêå ðàçìåðû ñâå÷åé ñîãëàñíî çàäàíèþ.     |
//+------------------------------------------------------------------+
#property copyright "Vladislav Shurkin, 10 nov. 2013"
#property link      "vlad-755@mail.ru"
#property show_inputs
//+------------------------------------------------------------------+
//|ÐÓÊÎÂÎÄÑÒÂÎ ÏÎËÜÇÎÂÀÒÅËß.                                         |
//+------------------------------------------------------------------+
/*
Ñêðèïò ðàáîòàåò íà òåêóùåì ãðàôèêå.
 îêíå "Âõîäíûå ïàðàìåòðû" â ñòðîêå "×èñëîÌàðêèðóåìûõÑâå÷åéÎò0Äî50" 
çàäàéòå ÷èñëî ñâå÷åé äëÿ ìàðêèðîâàíèÿ (ïî óìîë÷àíèþ çàäàíî 5) è íàæìè-
òå êíîïêó ÎÊ, ïîä êàæäîé ñâå÷îé, íà÷èíàÿ ñ ïåðâîé, îòîáðàçèòñÿ ìåòêà 
ðàçìåðà òîðãîâîãî äèàïàçîíà â ïóíêòàõ è áóäåò ðàññ÷èòàíî åãî ñðåäíåå
çíà÷åíèå, êîòîðîå óêàçûâàåòñÿ â îò÷¸òå è â êîììåíòàðèè.
Äëÿ îòîáðàæåíèÿ  ðàçìåðîâ âåðõíèõ òåíåé, òåëà ñâå÷åé è íèæíèõ òåíåé 
âêëþ÷èòå â çàäàíèå ñîîòâåòñòâóþùèå äîïîëíèòåëüíûå ïóíêòû, ìåòêè ýòèõ
ðàçìåðîâ îòîáðàçÿòñÿ ðàçíûì öâåòîì ïîä ìåòêîé òîðãîâîãî äèàïàçîíà.
Äëÿ ïðàâèëüíîãî îòîáðàæåíèÿ äîïîëíèòåëüíûõ ìåòîê íåîáõîäèìî âûáðàòü
ïðàâèëüíûé øàã èõ ñìåùåíèÿ. Íàèáîëåå ïðîñòîé ñïîñîá îïðåäåëåíèÿ øàãà
ñìåùåíèÿ - èçìåðåíèå ñ÷¸ò÷èêîì âûñîòû îòîáðàæ¸ííîé íà ãðàôèêå ìåòêè.
Äëÿ îòîáðàæåíèÿ ìåòîê òîðãîâîãî äèàïàçîíà íà êîíêðåòíîì èíòåðâàëå ãðà-
ôèêà âêëþ÷èòå ïóíêò "ÂðåìåííîéÈíòåðâàëÌàðêèðîâêè", íà ãðàôèêå ïîÿâèòñÿ
îêíî ñîîáùåíèÿ è îòîáðàçèòñÿ èíòåðâàëüíàÿ ëèíèÿ êðàñíîãî öâåòà, íå çà-
êðûâàÿ îêíà ñîîáùåíèÿ óñòàíîâèòå è ïðèìàãíèòüòå ê ñâå÷àì ïåðâóþ è âòî-
ðóþ òî÷êè èíòåðâàëüíîé ëèíèè ñîîòâåòñòâåííî íà íà÷àëî è êîíåö çàäàííî-
ãî èíòåðâàëà è íàæìèòå êíîïêó ÎÊ, ïîä êàæäîé ñâå÷îé íà çàäàííîì èíòåð-
âàëå îòîáðàçèòñÿ ìåòêà ðàçìåðà òîðãîâîãî äèàïàçîíà â ïóíêòàõ.
Äëÿ îòîáðàæåíèÿ äîïîëíèòåëüíûõ ðàçìåðîâ óñòàíîâèòå ñîîòâåòñòâóþùèå äî-
ïîëíèòåëüíûå çàäàíèÿ.
Äëÿ ÓÄÀËÅÍÈß íàíåñ¸ííûõ ñêðèïòîì ìåòîê çàïóñòèòå ñêðèïò ñ çàäàííûì ÷è-
ñëîì ìàðêèðîâàííûõ ñâå÷åé ðàâíûì 0.
Êîìåíòàðèé óêàçûâàåò íà ìåñòî ðàñïîëîæåíèÿ îò÷¸òà è ñîäåðæèò äðóãóþ 
èíôîðìàöèþ î ðàáîòå ñêðèïòà.
Äëÿ àäàïòàöèè ñêðèïòà ê ò¸íîìó è ñâåòëîìó ôîíó ãðàôèêà çàäàéòå ñîîò-
âåòñòâóþùåå çíà÷åíèå ïåðåìåííîé Background è ïðè íåîáõîäèìîñòè ïåðå-
êîìïèëèðóéòå ñêðèïò.
Äëÿ ðàçðåøåíèÿ èëè çàïðåòà âûâîäà îêíà ñîîáùåíèé è ïîäà÷è çâóêîâîãî
ñèãíàëà âûáåðèòå ñîîòâåòñòâóþùåå çíà÷åíèå ïåðåìåííûõ Msg è Sgn, è ïðè
íåîáõîäèìîñòè ïåðåêîìïèëèðóéòå ñêðèïò.
*/
//+------------------------------------------------------------------+
//|Âíåøíèå ïåðåìåííûå (äîñòóïíû èç îêíà ñâîéñòâ ïðîãðàììû)           |
//+------------------------------------------------------------------+
extern string Çàäàòü=" :";//Çàãîëîâîê ðàçäåëà
extern int ×èñëîÌàðêèðóåìûõÑâå÷åéÎò0Äî50=5;//×èñëî ìàðêèðóåìûõ ñâå÷åé (îò 0 äî 50)
extern bool ÂðåìåííîéÈíòåðâàëÌàðêèðîâêè;//Çàäàíèå âðåìåííÎãî èíòåðâàëà ìàðêèðîâêè
extern string ÏîêàçàòüÄîïîëíèòåëüíî=" :";//Çàãîëîâîê ðàçäåëà
extern bool ÐàçìåðÂåðõíåéÒåíè;//Çàäàíèå íà íàíåñåíèå ðàçìåðîâ âåðõíèõ òåíåé
extern bool ÐàçìåðÒåëàÑâå÷è;//Çàäàíèå íà íàíåñåíèå ðàçìåðîâ òåëà ñâå÷åé
extern bool ÐàçìåðÍèæíåéÒåíè;//Çàäàíèå íà íàíåñåíèå ðàçìåðîâ íèæíèõ òåíåé
extern int ØàãÑìåùåíèÿ=300;//Øàã ñìåùåíèÿ ìåòîê
//+------------------------------------------------------------------+
//|Èçðåäêà íàñòðàèâàåìûå ïåðåìåííûå                                  |
//+------------------------------------------------------------------+
bool Background=1;//Öâåò ôîíà ãðàôèêà(0-ò¸ìíûé, 1-ñâåòëûé)
bool Msg=true;//Ðàçðåøåíèå íà âûâîä ñîîáùåíèÿ(false/true)
bool Sgn=true;//Ðàçðåøåíèå íà ïîäà÷ó çâóêîâûõ ñèãíàëîâ(false/true)
//+------------------------------------------------------------------+
//|Ïðî÷èå îáúÿâëåííûå ïåðåìåííûå                                     |
//+------------------------------------------------------------------+
int n=1;//Ïåðâàÿ ñâå÷à èíòåðâàëà ìàðêèðóåìûõ ñâå÷åé
int N;//Ïîñëåäíÿÿ ñâå÷à èíòåðâàëà ìàðêèðóåìûõ ñâå÷åé
int Nc;//Ñîõðàí¸ííîå çíà÷åíèå N
int i,j;//Ïîêàçàòåëè ñ÷¸ò÷èêîâ
int CntObj;//Ñ÷¸ò÷èê ìåòîê
int CntDltObj;//Ñ÷¸ò÷èê óäàë¸ííûõ ìåòîê
int CnSz[50];//Ìàññèâ ðàçìåðîâ ñâå÷åé
int HiSdwSz[50];//Ìàññèâ ðàçìåðîâ âåðõíèõ òåíåé
int BodySz[50];//Ìàññèâ ðàçìåðîâ òåëà ñâå÷åé
int LoSdwSz[50];//Ìàññèâ ðàçìåðîâ íèæíèõ òåíåé
int SumCnSz;//Íàðàñòàþùàÿ ñóììà ðàçìåðîâ ñâå÷åé
int StartMoment;//Ìîìåíò ñòàðòà ñêðèïòà
int SpanTm1;//Âðåìÿ1 ðàáîòû ñêðèïòà
int Err;//Íîìåð îøèáêè
int StepD;//Øàã ñìåùåíèÿ ìåòîê
int VrtDsp;//Âåðòèêàëüíîå ñìåùåíèå ìåòîê 
int DspHiSdw;//Ñìåùåíèå ìåòêè ðàçìåðîâ âåðõíèõ òåíåé
int DspBodyCn;//Ñìåùåíèå ìåòêè ðàçìåðîâ òåëà
int DspLoSdw;//Ñìåùåíèå ìåòêè ðàçìåðîâ íèæíèõ òåíåé
bool L;//Èíòåðâàë ìàðêèðîâêè ñâå÷åé
bool HiSdw;//Çàäàíèå íà íàíåñåíèå ðàçìåðîâ âåðõíèõ òåíåé
bool BodyCn;//Çàäàíèå íà íàíåñåíèå ðàçìåðîâ òåëà ñâå÷åé
bool LoSdw;//Çàäàíèå íà íàíåñåíèå ðàçìåðîâ íèæíèõ òåíåé
datetime TmLn1,TmLn2;//Çíà÷åíèå âðåìåíè â òî÷êå 0 è 1 ëèíèè SpanLn
double PrLevLn;//Çíà÷åíèå öåíû íà óðîâíå èíòåðâàëüíîé ëèíèè
double PrLb;//Çíà÷åíèå öåíû íà óðîâíå î÷åðåäíîé ìåòêè
string Txt;//Òåêñò
string Name;//Èìÿ îáúåêòà
color ClrS,ClrH,ClrB,ClrL;//Öâåò íàíîñèìûõ ìåòîê
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
  {
//====0=ÏÐÎËÎÃ=======================================================+
   StartMoment=GetTickCount();//Ìîìåíò ñòàðòà ñêðèïòà
   if(Background==0){ClrS=White;ClrH=Aqua;ClrB=Yellow;ClrL=Moccasin;}//Ïàëèòðà ò¸ìíîãî ôîíà
   else {ClrS=Black;ClrH=Blue;ClrB=Orange;ClrL=Brown;}//Ïàëèòðà ñâåòëîãî ôîíà
//====1=ÏÐÅÎÁÐÀÇÎÂÀÍÈÅ ÏÅÐÅÌÅÍÍÛÕ====================================+
   N=×èñëîÌàðêèðóåìûõÑâå÷åéÎò0Äî50;//×èñëî ìàðêèðóåìûõ ñâå÷åé (îò 0 äî 50)
   L=ÂðåìåííîéÈíòåðâàëÌàðêèðîâêè;//Èíòåðâàë ìàðêèðîâêè ñâå÷åé
   Nc=N;//Ñîõðàí¸ííîå çíà÷åíèå N
   HiSdw=ÐàçìåðÂåðõíåéÒåíè;//Çàäàíèå íà íàíåñåíèå ðàçìåðîâ âåðõíèõ òåíåé
   BodyCn=ÐàçìåðÒåëàÑâå÷è;//Çàäàíèå íà íàíåñåíèå ðàçìåðîâ òåëà
   LoSdw=ÐàçìåðÍèæíåéÒåíè;//Çàäàíèå íà íàíåñåíèå ðàçìåðîâ íèæíèõ òåíåé
   StepD=ØàãÑìåùåíèÿ;//Øàã ñìåùåíèÿ ìåòîê
//====2=ÊÎÍÒÐÎËÜ ÄÎÏÓÑÒÈÌÎÑÒÈ ÇÀÄÀÍÍÛÕ ÏÀÐÀÌÅÒÐÎÂ====================+
   if(N<0 || N>50)//Êîíòðîëü äîïóñòèìîñòè çàäàííûõ ïàðàìåòðîâ
   {
   PlaySound("Inform.wav");//Çâóêîâîé ñèãíàë
   Txt=StringConcatenate("×èñëî ïðîìàðêèðîâàííûõ ñâå÷åé â çàäàíèè ðàâíîå ",N,
   " íåäîïóñòèìî.\nÌàêñèìàëüíî äîïóñòèìîå ÷èñëî ïðîìàðêèðîâàííûõ ñâå÷åé ðàâíî 50.",
   "\nÈçìåíèòå çàäàíèå ñêðèïòó.");//Txt
   MessageBox(Txt,"Ñêðèïò ShowCandleSizeM");return(0);
   }//Çàêðûòî if(N<0 || N>50)
//====3=ÓÄÀËÅÍÈÅ ÌÅÒÎÊ ÏÐÅÄØÅÑÒÂÓÞÙÅÃÎ ÇÀÏÓÑÊÀ ÑÊÐÈÏÒÀ===============+
   for(i=ObjectsTotal();i>0;i--)//Ïåðåáîð ñïèñêà îò êîíöà ê íà÷àëó
   {
   Name=ObjectName(i);//Èìÿ îáúåêòà
   if(StringSubstr(Name,0,6)=="CnSize"//Ìåòêà òîðãîâîãî äèàïàçîíà
   || StringSubstr(Name,0,7)=="HiSdwSz"//Ìåòêà ðàçìåðà âåðõíåé òåíè
   || StringSubstr(Name,0,6)=="BodySz"//Ìåòêà ðàçìåðà òåëà ñâå÷è
   || StringSubstr(Name,0,7)=="LoSdwSz")//Ìåòêà ðàçìåðà íèæíåé òåíè
    {
   if(ObjectDelete(Name)!=true)//Óäàëåíèå îáúåêòà ñ óêàçàííûì èìåíåì
   Print("#3-ErrObjectDelete=",GetLastError());//Íîìåð îøèáêè
   else CntDltObj++;//Ïîäñ÷¸ò óäàëåííûõ ìåòîê
    }//Çàêðûòî if(StringSubstr(Name,0,6)=="CnSize")...
   if((StringSubstr(Name,0,6)=="SpanLn" && Nc==0)//×èñëî ìàðêèðóåìûõ ñâå÷åé = 0
   || (StringSubstr(Name,0,6)=="SpanLn" && L==0))//Èíòåðâàë ìàðêèðîâêè ñâå÷åé = 0
    {
   if(ObjectDelete(Name)!=true)//Óäàëåíèå îáúåêòà ñ óêàçàííûì èìåíåì
   Print("#4-ErrObjectDelete=",GetLastError());//Íîìåð îøèáêè   
    }//Çàêðûòî if(StringSubstr(Name,0,6)=="SpanLn" && Nc==0)...
   }//Çàêðûòî for(i=ObjectsTotal();i>0;i--)
//====4=ÎÏÐÅÄÅËÅÍÈÅ ÂÐÅÌÅÍÍÎÃÎ ÈÍÒÅÐÂÀËÀ ÌÀÐÊÈÐÎÂÊÈ==================+
   if(L==true)//Óñëîâèå
//----4-1-Ïîñòðîåíèå èíòåðâàëüíîé ëèíèè------------------------------+
   {
   TmLn1=iTime(NULL,0,WindowFirstVisibleBar()*2/3);//Çíà÷åíèå âðåìåíè 1
   TmLn2=iTime(NULL,0,WindowFirstVisibleBar()*1/3);//Çíà÷åíèå âðåìåíè 2
   PrLevLn=(WindowPriceMin(0)+(WindowPriceMax(0)-WindowPriceMin(0))*0.75);//Çíà÷åíèå öåíû
   Name=("SpanLn"+WindowExpertName());//Èìÿ îáúåêòà
   if(ObjectCreate(Name,OBJ_TREND,0,TmLn1,PrLevLn,TmLn2,PrLevLn)!=true)//Ëèíèÿ SpanLn
   Err=GetLastError();//Çàïðîñ îøèáêè
   if(Err==4200)//Îáúåêò c òàêèì èìåíåì óæå ñóùåñòâóåò
     {
   if(ObjectDelete(Name)!=true)//Óäàëåíèå îáúåêòà NmLn
   Print("#31-ErrObjectDelete=",GetLastError());//Íîìåð îøèáêè
   if(ObjectCreate(Name,OBJ_TREND,0,TmLn1,PrLevLn,TmLn2,PrLevLn)!=true)//Ëèíèÿ SpanLn
   Print("#31-ErrObjectCreate=",GetLastError());//Íîìåð îøèáêè
     }
//----4-2-Èçìåíåíèå ñâîéñòâ èíòåðâàëüíîé ëèíèè-----------------------+
   if(ObjectSet(Name,OBJPROP_RAY,0)!=true)//Îòìåíà ñâîéñòâà ëó÷ äëÿ îáúåêòà Name
   Print("#42-ErrSetRAY=",GetLastError());//Íîìåð îøèáêè
   if(ObjectSet(Name,OBJPROP_WIDTH,5)!=true)//Óñòàíîâêà øèðèíû ëèíèè îáúåêòà Name
   Print("#42-ErrSetWIDTH=",GetLastError());//Íîìåð îøèáêè
   Txt=("Èíòåðâàëüíàÿ ëèíèÿ ñêðèïòà "+WindowExpertName());//Txt
   if(ObjectSetText(Name,Txt,10,"Arial",CLR_NONE)!=true)//Èçìåíåíèå îïèñàíèÿ îáúåêòà
   Print("#42-ErrSetText=",GetLastError());//Íîìåð îøèáêè
   Comment("");//Óäàëåíèå êîììåíòàðèÿ
   WindowRedraw();//Ïåðåðèñîâêà òåêóùåãî ãðàôèêà
//----4-3-Çàäàíèå âðåìåííîãî èíòåðâàëà ñ ïîìîùüþ  èíòåðâàëüíîé ëèíèè-+
   Txt="Óñòàíîâèòå íà÷àëüíóþ è êîíå÷íóþ òî÷êè èíòåðâàëüíîé ëèíèè ñêðèïòà íà"+
   " íà÷àëî è êîíåö èíòåðâàëà ìàðêèðîâêè ñîîòâåòñòâåííî  è íàæìèòå OK.";//Txt
   if(Sgn==true)PlaySound("Inform.wav");//Çâóêîâîé ñèãíàë
   SpanTm1=StartMoment-GetTickCount();//Âðåìÿ1 ðàáîòû ñêðèïòà
   if(Msg==true)MessageBox(Txt,"Ñêðèïò ShowCandleSizeM");//Ñîîáùåíèå
   StartMoment=GetTickCount();//Ìîìåíò ñòàðòà ñêðèïòà
   TmLn1=ObjectGet(Name,OBJPROP_TIME1);//Ïåðåîïðåäåëåíèå TmLn1
   TmLn2=ObjectGet(Name,OBJPROP_TIME2);//Ïåðåîïðåäåëåíèå TmLn2
   N=iBarShift(NULL,0,TmLn1);//Îïðåäåëåíèå N
   n=iBarShift(NULL,0,TmLn2);//Îïðåäåëåíèå n
   }//Çàêðûòî if(L==true)   
//====5=ÂÛ×ÈÑËÅÍÈÅ ÐÀÇÌÅÐÀ ÑÌÅÙÅÍÈß ÄÎÏÎËÍÈÒÅËÜÍÛÕ ÌÅÒÎÊ=============+
   if(HiSdw==true || BodyCn==true || LoSdw==true)//Çàäàíèå óñòàíîâëåíî
   {
   if(HiSdw==true){VrtDsp=StepD;DspHiSdw=VrtDsp;}//Ñìåùåíèå ìåòêè HiSdw
   if(BodyCn==true){VrtDsp=VrtDsp+StepD;DspBodyCn=VrtDsp;}//Ñìåùåíèå ìåòêè BodyCn
   if(LoSdw==true){VrtDsp=VrtDsp+StepD;DspLoSdw=VrtDsp;}//Ñìåùåíèå ìåòêè BodyCn
   }//Çàêðûòî if(HiSdw==true || BodyCn==true || LoSdw==true}
//====6=ÂÛ×ÈÑËÅÍÈÅ ÐÀÇÌÅÐΠÑÂÅ×ÅÉ È ÍÀÍÅÑÅÍÈÅ ÍÎÂÛÕ ÌÅÒÎÊ===========+
   for(j=n; j<=N; j++)//Âû÷èñëåíèå çíà÷åíèé ìàññèâîâ
//----6-1-Âû÷èñëåíèå òîðãîâîãî äèàïàçîíà è íàíåñåíèå ìåòêè-----------+
   {     
   CnSz[j]=MathRound((High[j]-Low[j])*MathPow(10,Digits));//Ðàçìåð ñâå÷è [j] â ïóíêòàõ
   if(!ObjectCreate("CnSize"+j,OBJ_TEXT,0,Time[j],iLow(NULL,0,j)))//Ñîçäàíèå îáúåêòà CnSize
   Print("#51-ErrObjectCreate=",GetLastError());//Îøèáêà ObjectCreate
   else
    {
   SumCnSz=SumCnSz+CnSz[j];//Âû÷èñëåíèå ñóììû ðàçìåðîâ ñâå÷åé
   Txt=CnSz[j];//Txt
   ObjectSetText("CnSize"+j,Txt,10,"Arial",ClrS);//Èçìåíåíèå îïèñàíèÿ îáúåêòà
   CntObj++;//Ñ÷¸ò÷èê ìåòîê
    }//Çàêðûòî else  
//----6-2-Âû÷èñëåíèå ðàçìåðà âåðõíåé òåíè ñâå÷è è íàíåñåíèå ìåòêè----+
   if(HiSdw==true)
    {
   if(Open[j]-Close[j]<0)//Ñâå÷à áåëàÿ
   HiSdwSz[j]=MathRound((High[j]-Close[j])*MathPow(10,Digits));//Ðàçìåð âåðõíåé òåíè (ïï)
   else//Ñâå÷à ÷¸ðíàÿ
   HiSdwSz[j]=MathRound((High[j]-Open[j])*MathPow(10,Digits));//Ðàçìåð âåðõíåé òåíè (ïï)
   if(!ObjectCreate("HiSdwSz"+j,OBJ_TEXT,0,Time[j],
   iLow(NULL,0,j)-DspHiSdw/MathPow(10,Digits)))//Ñîçäàíèå îáúåêòà HiSdwSz
   Print("#62-ErrObjectCreate=",GetLastError());//Îøèáêà ObjectCreate
   else
     {
   Txt=HiSdwSz[j];//Txt
   ObjectSetText("HiSdwSz"+j,Txt,10,"Arial",ClrH);//Èçìåíåíèå îïèñàíèÿ îáúåêòà
   CntObj++;//Ñ÷¸ò÷èê ìåòîê
     }//Çàêðûòî else
    }//Çàêðûòî if(HiSdw==true)
//----6-3-Âû÷èñëåíèå ðàçìåðà òåëà ñâå÷è è íàíåñåíèå ìåòêè------------+
   if(BodyCn==true)
    {
   if(Open[j]-Close[j]<0)//Ñâå÷à áåëàÿ
   BodySz[j]=MathRound((Close[j]-Open[j])*MathPow(10,Digits));//Ðàçìåð âåðõíåé òåíè (ïï)
   else//Ñâå÷à ÷¸ðíàÿ
   BodySz[j]=MathRound((Open[j]-Close[j])*MathPow(10,Digits));//Ðàçìåð âåðõíåé òåíè (ïï)
   if(!ObjectCreate("BodySz"+j,OBJ_TEXT,0,Time[j],
   iLow(NULL,0,j)-DspBodyCn/MathPow(10,Digits)))//Ñîçäàíèå îáúåêòà BodySz
   Print("#63-ErrObjectCreate=",GetLastError());//Îøèáêà ObjectCreate
   else
     {
   Txt=BodySz[j];//Txt
   ObjectSetText("BodySz"+j,Txt,10,"Arial",ClrB);//Èçìåíåíèå îïèñàíèÿ îáúåêòà
   CntObj++;//Ñ÷¸ò÷èê ìåòîê
     }//Çàêðûòî else   
    }//Çàêðûòî if(BodyCn==true)
//----6-4-Âû÷èñëåíèå ðàçìåðà íèæíåé òåíè ñâå÷è è íàíåñåíèå ìåòêè----+
   if(LoSdw==true)
    {
   if(Open[j]-Close[j]<0)//Ñâå÷à áåëàÿ
   LoSdwSz[j]=MathRound((Open[j]-Low[j])*MathPow(10,Digits));//Ðàçìåð âåðõíåé òåíè (ïï)
   else//Ñâå÷à ÷¸ðíàÿ
   LoSdwSz[j]=MathRound((Close[j]-Low[j])*MathPow(10,Digits));//Ðàçìåð âåðõíåé òåíè (ïï)
   if(!ObjectCreate("LoSdwSz"+j,OBJ_TEXT,0,Time[j],
   iLow(NULL,0,j)-DspLoSdw/MathPow(10,Digits)))//Ñîçäàíèå îáúåêòà BodySz
   Print("#64-ErrObjectCreate=",GetLastError());//Îøèáêà ObjectCreate
   else
     {
   Txt=LoSdwSz[j];//Txt
   ObjectSetText("LoSdwSz"+j,Txt,10,"Arial",ClrL);//Èçìåíåíèå îïèñàíèÿ îáúåêòà
   CntObj++;//Ñ÷¸ò÷èê ìåòîê
     }//Çàêðûòî else   
    }//Çàêðûòî if(LoSdw==true)
   }//Çàêðûòî for(j=1; j<=N; j++)
//----6-5-Çàâåðøåíèå èçìåíåíèé íà ãðàôèêå----------------------------+
   Sleep(35);//Ïàóçà
   WindowRedraw();//Ïðèíóäèòåëüíî ïåðåðèñîâûâàåò òåêóùèé ãðàôèê
//====7=ÎÒרÒÛ È ÊÎÌÌÅÍÒÀÐÈÈ=========================================+
   if(N==0)
   {
   Print("Íà ãðàôèêå ",Symbol()," óäàëåíî ìåòîê ïðåäøåñòâóþùåãî çàïóñêà ñêðèïòà - ",
   CntDltObj,", íàíåñåíî íîâûõ - ",CntObj,".");//Îò÷¸ò1
   Print("Ïðîäîëæèòåëüíîñòü ðàáîòû ñêðèïòà, ìèëëèñåêóíä - ",
   GetTickCount()-StartMoment,". Ðàáîòà çàâåðøåíà.");//Îò÷¸ò3   
   Comment("");//Óäàëåíèå êîììåíòàðèÿ
   }//Çàêðûòî if(N==0)
   else
   {
   Comment("Íà ãðàôèê ",Symbol()," íàíåñåíû ìåòêè ðàçìåðîâ ñâå÷åé - ",CntObj,".",   
   "\n×èñëî öèôð ïîñëå äåñÿòè÷íîãî çíàêà â öåíå - ",Digits,".",
   "\nÑðåäíèé ðàçìåð ïðîìàðêèðîâàííûõ ñâå÷åé ~ ",SumCnSz/(N-(n-1))," ïï.",
   "\nÐàáîòà ñêðèïòà ",WindowExpertName(),
   " çàâåðøåíà.\nÎò÷¸ò ðàñïîëîæåí âî âêëàäêå Ýêñïåðòû.");//Êîììåíòàðèé   
   Print("Íà ãðàôèêå ",Symbol()," óäàëåíî ìåòîê ïðåäøåñòâóþùåãî çàïóñêà ñêðèïòà - ",
   CntDltObj,", íàíåñåíî íîâûõ - ",CntObj,".");//Îò÷¸ò1
   Print("×èñëî öèôð ïîñëå äåñÿòè÷íîãî çíàêà â öåíå - ",Digits,
   ". Ñðåäíèé ðàçìåð ïðîìàðêèðîâàííûõ ñâå÷åé ~ ",SumCnSz/(N-(n-1))," ïï. ");//Îò÷¸ò2
   Print("Ïðîäîëæèòåëüíîñòü ðàáîòû ñêðèïòà, ìèëëèñåêóíä - ",
   SpanTm1+GetTickCount()-StartMoment,". Ðàáîòà çàâåðøåíà.");//Îò÷¸ò3   
   }//Çàêðûòî else
//----
   return(0);
  }
//+------------------------------------------------------------------+