TestCandleSize

//+------------------------------------------------------------------+
//|                                               TestCandleSize.mq4 |
//|                           Vladislav Shurkin, 24 íîÿáðÿ 2012 ãîäà.|
//|Ñêðèïò íàíîñèò íà ãðàôèê ðàçìåðû òîðãîâûõ äèàïàçîíîâ (High-Low)   |
//| N-ïîñëåäíèõ ñâå÷åé.                                              |
//+------------------------------------------------------------------+
#property copyright "Vladislav Shurkin, 24 íîÿáðÿ 2012 ãîäà."
#property link "vlad-755@mail.ru"
#property show_inputs
/*
ÎÏÈÑÀÍÈÅ.
Ñêðèïò óñòàíàâëèâàåòñÿ íà ãðàôèê.
 îêíå "Âõîäíûå ïàðàìåòðû" çàäà¸òñÿ ÷èñëî ñâå÷åé äëÿ ìàðêèðîâàíèÿ (ïî
óìîë÷àíèþ çàäàíî 5) è öâåò íàíîñèìûõ íàäïèñåé (ïî óìîë÷àíèþ - White).
Äëÿ óäîáíîãî ÷òåíèÿ íàäïèñåé âûáèðàåòñÿ ìàêñèìàëüíûé ìàñøòàá ãðàôèêà.
Ìàêñèìàëüíî âîçìîæíîå ÷èñëî ïðîìàðêèðîâàííûõ ñâå÷åé - 50. Îá îøèáêå
â çàäàíèè ñêðèïò ïðåäóïðåæäàåò çâóêîâûì è âèçóàëüíûì ñèãíàëàìè.
Ïîñëå çàïóñêà ñêðèïòà ïîä êàæäîé ñâå÷îé ïîÿâëÿåòñÿ çíà÷åíèå òîðãîâîãî
äèàïàçîíà â ïóíêòàõ.
Êîììåíòàðèé óêàçûâàåò íà ìåñòî ðàñïîëîæåíèÿ îò÷¸òà î ðàáîòå ñêðèïòà.
Ïðè íåîáõîäèìîñòè óäàëåíèÿ íàíåñ¸ííûõ îòìåòîê è êîììåíòàðèÿ ñ ãðàôèêà 
ñêðèïò çàïóñêàåòñÿ åù¸ ðàç ñ çàäàííûì êîëè÷åñòâîì ìàðêèðîâàííûõ ñâå-
÷åé ðàâíûì 0.
*/
//+------------------------------------------------------------------+
//|Âíåøíèå ïåðåìåííûå (äîñòóïíû èç îêíà ñâîéñòâ ïðîãðàììû)           |
//+------------------------------------------------------------------+
extern int ÌàðêèðîâàòüÑâå÷åé=5;//×èñëî ìàðêèðóåìûõ ñâå÷åé (îò 1 äî 50)
extern color ÖâåòÍàäïèñåé=White;//Öâåò íàíîñèìûõ íàäïèñåé
//+------------------------------------------------------------------+
//|Èíûå îáúÿâëåííûå ïåðåìåííûå                                       |
//+------------------------------------------------------------------+
int i,n;//Ïîêàçàòåëè ñ÷¸ò÷èêîâ
int CntDelOb;//Ñ÷¸ò÷èê óäàë¸ííûõ ìåòîê
int CnSz[50];//Ìàññèâ ðàçìåðîâ ñâå÷åé
string Txt;  //Òåêñò íàíåñ¸ííîé ìåòêè
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
  {
   int N=ÌàðêèðîâàòüÑâå÷åé;//
   color TxtClr=ÖâåòÍàäïèñåé;//
//----0-Êîíòðîëü çàäàííûõ ïàðàìåòðîâ---------------------------------+
   if(N<0 || N>50)
   {
//   Alert("Ìàêñèìàëüíî âîçìîæíîå ÷èñëî ìàðêèðîâàííûõ ñâå÷åé - 50.\nÈçìåíèòå çàäàíèå ñêðèïòó.");//
   PlaySound("Inform.wav");//Çâóêîâîé ñèãíàë
   MessageBox("Ìàêñèìàëüíî âîçìîæíîå ÷èñëî ìàðêèðîâàííûõ ñâå÷åé - 50.\nÈçìåíèòå çàäàíèå ñêðèïòó.",
   "Ñêðèïò TestCndSize");return(0);
   }
//----1-Óäàëåíèå ìåòîê, íàíåñ¸ííûõ íà ãðàôèê ðàíåå-------------------+
   for(i=1; i<=50; i++)
   {
   if(ObjectDelete("CnSz"+i)==true)CntDelOb++;
   }
//----2-Âû÷èñëåíèå ðàçìåðîâ ñâå÷åé è íàíåñåíèå íîâûõ ìåòîê-----------+
   for(n=1; n<=N; n++)//
   {     
   CnSz[n]=MathRound((High[n]-Low[n])*MathPow(10,Digits));//
   if(!ObjectCreate("CnSz"+n,OBJ_TEXT,0,Time[n],iLow(NULL,0,n)))
   {
   Print("Îøèáêà ObjectCreate! êîä #",GetLastError());
   }   
   else
   {
   Txt=CnSz[n];
   ObjectSetText("CnSz"+n,Txt,12,"Arial",TxtClr); 
   }  
//Print("CnSz",n,"=",CnSz[n]);//Êñ     
  }
//----3-Îò÷¸òû è êîììåíòàðèè-----------------------------------------+
   Print("Íà ãðàôèêå ",Symbol()," óäàëåíî ñòàðûõ ìåòîê ðàçìåðîâ ñâå÷åé - ",CntDelOb,
   " è íàíåñåíî íîâûõ - ",N,".");//Ñîîáùåíèå   
   Print("Ñêðèïò TestCandleSize çàâåðøèë ðàáîòó.");//Ñîîáùåíèå
   if(N==0)Comment("");//Óäàëåíèå êîììåíòàðèÿ
   else
   Comment("Ñêðèïò TestCandleSize çàâåðøèë ðàáîòó.\nÎò÷¸ò ðàñïîëîæåí âî âêëàäêå Ýêñïåðòû.");//
//----
   return(0);
  }//
//+------------------------------------------------------------------+