_SuppRes_1_1

//+------------------------------------------------------------------+
//|  Åñëè èíòåðåñíû ïîäðîáíîñòè, ïèøèòå íà faza9109@mail.ru          |
//+------------------------------------------------------------------+
#property show_inputs
//+------------------------------------------------------------------+
extern int     Per=8000,                               //Êîëè÷åñòâî áàðîâ äëÿ ðàñ÷åòà
               Sft=1000,                               //Èíäåêñ ïîñëåäíåãî áàðà
               Color=3,                                //Öâåòà. 1-ñèíèé, 2-çåëåíûé, 3-êðàñíûé.
               Contrast=1;                             //Êîýôôèöèåíò êîíòðàñòíîñòè.îò 1 äî 7.
extern bool    ONLY_DELETE=false;                      //åñëè true, òî òîëüêî óäàëÿåò ñòàðîå.
//+------------------------------------------------------------------+
int       Count,                                       //Ñ÷åò÷èê êîëè÷åñòâà ðàç, êîãäà âñòðå÷àåòñÿ êîíêðåòíàÿ êîòèðîâêà j
          i;                                           //Ñ÷åò÷èê
double    Hg,Lw,                                       //Ìàêñèìóì è ìèíèìóì ðàñ÷åòíîãî ïåðèîäà
          j;                                           //Êîòèðîâêà
string    name;                                        //Èìÿ îáúåêòà
color     clr;                                         //Öâåò ïîëîñû
//+------------------------------------------------------------------+
int start()
     {
     ObjectsDeleteAll();
     if(ONLY_DELETE)
          return;
     if(Color>3 || Color<1)
          {
          Alert("Color ä.á. îò 1 äî 3. Ñêðèïò íå ðàáîòàåò.");
          return;
          }
     if(Contrast>7 || Contrast<1)
          {
          Alert("Contrast ä.á. îò 1 äî 7. Ñêðèïò íå ðàáîòàåò.");
          return;
          }
     if(Bars<(Per+Sft))
          {
          Alert("Èçìåíèòå âõîäíûå ïàðàìåòðû, íåäîñòàòî÷íî áàðîâ íà ãðàôèêå");
          return;
          }
     ObjectCreate("gr",0,0,Time[Sft],0);               //Ðèñóåì âåðòèêàëüíóþ ëèíèþ,
     ObjectSet   ("gr",6,Green);                       //îãðàíè÷èâàþùóþ îáëàñòü ðàñ÷åòà ñëåâà.
     ObjectSet   ("gr",8,2);                           //È îïðåäåëÿåì åé öâåò è òîëùèíó.
     Hg=High[iHighest(NULL,0,MODE_HIGH,Per,Sft)];      //Èùåì ìàêñèìóì ðàñ÷åòíîãî ïåðèîäà
     Lw=Low [iLowest (NULL,0,MODE_HIGH,Per,Sft)];      //Èùåì ìèíèìóì ðàñ÷åòíîãî ïåðèîäà
     for(j=Lw; j<=Hg; j+=Point)                        //Öèêë ïî êîòèðîâêàì ìåæäó Lw è Hg
          {
          Count=0;
          for(i=Per+Sft; i>=Sft; i--)                  //Öèêë ïî âñåì áàðàì ðàñ÷åòíîãî ïåðèîäà
               {
               if(j>=Low [i] && j<=High[i])            //Îïðåäåëÿåì, âõîäèò ëè íàøà êîòèðîâêà j â áàð i
               Count++;                                //Ñ÷èòàåì, ñêîëüêî ðàç äàííàÿ êîòèðîâêà âñòðå÷àåòñÿ â ðàñ÷åòíîì ïåðèîäå
               }
          name="price="+j;
          switch(Color)
               {
               case 1:   clr=255-Contrast*Count;
                         if(clr>255)         clr=255;
                         if(clr<0)           clr=0;
                         break;
               case 2:   clr=65280-256*Contrast*Count;
                         if(clr>65280)       clr=65280;
                         if(clr<0)           clr=0;
                         break;
               case 3:   clr=16711680-65536*Contrast*Count;
                         if(clr>16711680)    clr=16711680;
                         if(clr<0)           clr=0;
                         break;
               }
          ObjectCreate(name,16,0,Time[Per+Sft],j+Point,Time[0],j);    //Ðèñóåì ïîëîñó
          ObjectSet   (name,6,clr);                    //È îïðåäåëÿåì åé öâåò
          }
return;
     }
//+------------------------------------------------------------------+