VolScript

//+------------------------------------------------------------------+
//|                                                    VolScript.mq4 |
//|                                         âåðñèÿ îò 25 íîÿáðÿ 2009 |
//|                                   Copyright © 2009, Mike Zhitnev |
//|                                           http://Forex-Robots.ru |
//|                                            admin@forex-robots.ru |
//|                             ñîçäàíèå òîðãîâûõ ýêñïåðòîâ íà çàêàç |
//+------------------------------------------------------------------+

// Äàííûé ñêðèïò ïðåäíàçíà÷åí äëÿ îòîáðàæåíèÿ ñðåäíèõ çíà÷åíèé ÷àñîâîé âîëàòèëüíîñòè.
// Ðàáîòàåò íà ÷àñîâûõ ãðàôèêàõ.
// Ïàðàìåòð N - îáùåå êîëè÷åñòâî äíåé, çà êîòîðîå ïðîèçâîäèòñÿ ïîäñ÷åò âîëàòèëüíîñòè
// Äëÿ êîððåêòíîé ðàáîòû ñêðèïò íåîáõîäèìî ïîìåñòèòü â ïîääèðåêòîðèþ òåðìèíàëà ..\Experts\Scripts

#property copyright "Copyright © 2009, Mike Zhitnev"
#property link      "http://Forex-Robots.ru"
#include <stdlib.mqh>
#include <WinUser32.mqh>
#property show_inputs

extern string st0="Ñêðèïò êîððåêòíî ðàáîòàåò íà ÷àñîâîì ãðàôèêå (h1)";
extern string st2="N - îáùåå êîëè÷åñòâî äíåé";
extern int N=0;  // êîë-âî äíåé

string st;


//+------------------------------------------------------------------+
//| Ôîðìàòèðîâàíèå ñòðîêè ñ äîïîëíèòåëüíûìè ïðîáåëàìè                |
//+------------------------------------------------------------------+
string FormatST(string st, int n)
  {
    int a = StringLen(st);
    if (a<n) 
    {
      while (a<n)
      {
        st = st + " ";
        a = StringLen(st);
      }  
    }
    return(st);
  }

//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
  {
   st = "÷àñû  îáù. ïîí.  âò.   ñð.    ÷ò.     ïò.  \n";    
   double cHeight, gHeight,  Max;
   int sat, sun, mon, thu, wen, ths, fri; //, NN;      
      
   int H = TimeHour(TimeCurrent());   // îïðåäåëèì òåêóùèé ÷àñ
   double NN = H + N*24;              // îïðåäåëèì ñìåùåíèå
   if (NN>Bars) NN=Bars;
   
   for (int t=0; t<24; t++)
   {
     int HeightZ = 0;  int z=0;    
     int Height1 = 0;  int h1=0;        
     int Height2 = 0;  int h2=0;             
     int Height3 = 0;  int h3=0;             
     int Height4 = 0;  int h4=0;             
     int Height5 = 0;  int h5=0;             
     int Height6 = 0;  int h6=0;                                
     int HeightM = 0;  int hM=0;                                
     
     for (int i=0; i<=NN; i++)
     {
       if (TimeHour(Time[i])==t) //ñâå÷à äëÿ îáùåãî ïîäñ÷åòà
       {
         HeightZ = MathAbs(High[i]-Low[i])/Point + HeightZ;
         z++;   
       } 
       
       if (TimeHour(Time[i])==t && TimeDayOfWeek(Time[i])==1) //ïí
       {
         Height1 = MathAbs(High[i]-Low[i])/Point + Height1;
         h1++;   
       }        
       
       if (TimeHour(Time[i])==t && TimeDayOfWeek(Time[i])==2) //ôò
       {
         Height2 = MathAbs(High[i]-Low[i])/Point + Height2;
         h2++;   
       }        
       
       if (TimeHour(Time[i])==t && TimeDayOfWeek(Time[i])==3) //ñð
       {
         Height3 = MathAbs(High[i]-Low[i])/Point + Height3;
         h3++;   
       }        
       
       if (TimeHour(Time[i])==t && TimeDayOfWeek(Time[i])==4) //÷ò
       {
         Height4 = MathAbs(High[i]-Low[i])/Point + Height4;
         h4++;   
       }        
       
       if (TimeHour(Time[i])==t && TimeDayOfWeek(Time[i])==5) //ïò
       {
         Height5 = MathAbs(High[i]-Low[i])/Point + Height5;
         h5++;   
       }               
     }          
     
     if (z!=0) HeightZ = HeightZ / z;
     if (h1!=0) Height1 = Height1 / h1;
     if (h2!=0) Height2 = Height2 / h2;
     if (h3!=0) Height3 = Height3 / h3;
     if (h4!=0) Height4 = Height4 / h4;
     if (h5!=0) Height5 = Height5 / h5;     
     int XX = t+1;
               
     st = st + FormatST(t,2) + "-" + FormatST(XX,2) + "  " + FormatST(HeightZ,5) + " " + FormatST(Height1,5) + " " + FormatST(Height2,5) + " " + 
         FormatST(Height3,5) + " " + FormatST(Height4,5) + " " + FormatST(Height5,5) + "\n";    
          
   }   
   st = st + "--------------" + "\n Îáðàáîòàíî " + DoubleToStr(NN/24,2) + " ïîëíûõ äíåé (" + DoubleToStr(NN,0) + " áàðîâ) \n";   

   Comment(st);
   return(0);
  }