chanellonparabolic_v1

//+------------------------------------------------------------------+
//|                                               ChanellOnParabolic |
//|                                      Copyright © 2009, Svinozavr |
//|                                                                  |
//+------------------------------------------------------------------+
//---- àâòîðñòâî èíäèêàòîðà
#property copyright "Copyright © 2009, Svinozavr"
//---- ññûëêà íà ñàéò àâòîðà
#property link      ""
//---- íîìåð âåðñèè èíäèêàòîðà
#property version   "1.01"
#property description "Êàíàë, ïîñòðîåííûé íà ïàðàáîëëèêå"
//+----------------------------------------------+ 
//| Ïàðàìåòðû îòðèñîâêè èíäèêàòîðà               |
//+----------------------------------------------+ 
//---- îòðèñîâêà èíäèêàòîðà â ãëàâíîì îêíå
#property indicator_chart_window 
//---- äëÿ ðàñ÷åòà è îòðèñîâêè èíäèêàòîðà èñïîëüçîâàíî 3 áóôåðà
#property indicator_buffers 3
//---- èñïîëüçîâàíî âñåãî òðè ãðàôè÷åñêèõ ïîñòðîåíèÿ
#property indicator_plots   3
//---- â êà÷åñòâå èíäèêàòîðà èñïîëüçîâàí çíà÷åê
#property indicator_type1   DRAW_ARROW
//---- îòîáðàæåíèå ìåòêè èíäèêàòîðà
#property indicator_label1  " Parabolic Sar"
//---- â êà÷åñòâå öâåòà èíäèêàòîðà èñïîëüçîâàí
#property indicator_color1 clrDodgerBlue
//---- òîëùèíà èíäèêàòîðà ðàâíà 1
#property indicator_width1  1
//---- â êà÷åñòâå èíäèêàòîðà èñïîëüçîâàíà ëèíèÿ
#property indicator_type2   DRAW_LINE
//---- îòîáðàæåíèå ìåòêè èíäèêàòîðà
#property indicator_label2  "Chanell On Parabolic Upper"
//---- â êà÷åñòâå öâåòîâ ëèíèè èíäèêàòîðà èñïîëüçîâàí
#property indicator_color2 clrRed
//---- ëèíèÿ èíäèêàòîðà - ñïëîøíàÿ
#property indicator_style2  STYLE_SOLID
//---- òîëùèíà ëèíèè èíäèêàòîðà ðàâíà 2
#property indicator_width2  2
//---- â êà÷åñòâå èíäèêàòîðà èñïîëüçîâàíà ëèíèÿ
#property indicator_type3   DRAW_LINE
//---- îòîáðàæåíèå ìåòêè èíäèêàòîðà
#property indicator_label3  "Chanell On Parabolic Lower"
//---- â êà÷åñòâå öâåòîâ ëèíèè èíäèêàòîðà èñïîëüçîâàí
#property indicator_color3 clrMediumSeaGreen
//---- ëèíèÿ èíäèêàòîðà - ñïëîøíàÿ
#property indicator_style3  STYLE_SOLID
//---- òîëùèíà ëèíèè èíäèêàòîðà ðàâíà 2
#property indicator_width3  2
//+----------------------------------------------+ 
//| Îáúÿâëåíèå êîíñòàíò                          |
//+----------------------------------------------+ 
#define RESET 0 // êîíñòàíòà äëÿ âîçâðàòà òåðìèíàëó êîìàíäû íà ïåðåñ÷åò èíäèêàòîðà
//+----------------------------------------------+ 
//| Âõîäíûå ïàðàìåòðû èíäèêàòîðà                 |
//+----------------------------------------------+ 
input double Step=0.02; //SAR øàã
input double Maximum=0.2; //SAR ìàêñèìóì
input int Wide=0; // Ìèíèìàëüíî äîïóñòèìàÿ øèðèíà êàíàëà â ïóíêòàõ
//+----------------------------------------------+
//---- îáúÿâëåíèå äèíàìè÷åñêèõ ìàññèâîâ, êîòîðûå áóäóò â 
//---- äàëüíåéøåì èñïîëüçîâàíû â êà÷åñòâå èíäèêàòîðíûõ áóôåðîâ
double LowestBuffer[];
double HighestBuffer[];
double SarBuffer[];
//----
double wide;
//---- îáúÿâëåíèå öåëî÷èñëåííûõ ïåðåìåííûõ íà÷àëà îòñ÷åòà äàííûõ
int min_rates_total;
//---- îáúÿâëåíèå öåëî÷èñëåííûõ ïåðåìåííûõ äëÿ õåíäëîâ èíäèêàòîðîâ
int SAR_Handle;
//+------------------------------------------------------------------+ 
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+ 
void OnInit()
  {
//---- èíèöèàëèçàöèÿ ïåðåìåííûõ íà÷àëà îòñ÷åòà äàííûõ
   min_rates_total=1;
   wide=Wide*_Point;
//---- ïîëó÷åíèå õåíäëà èíäèêàòîðà SAR
   SAR_Handle=iSAR(NULL,0,Step,Maximum);
   if(SAR_Handle==INVALID_HANDLE)Print(" Íå óäàëîñü ïîëó÷èòü õåíäë èíäèêàòîðà SAR");
//---- ïðåâðàùåíèå äèíàìè÷åñêèõ ìàññèâîâ â èíäèêàòîðíûå áóôåðû
   SetIndexBuffer(0,SarBuffer,INDICATOR_DATA);
   SetIndexBuffer(1,LowestBuffer,INDICATOR_DATA);
   SetIndexBuffer(2,HighestBuffer,INDICATOR_DATA);
//---- çàïðåò íà îòðèñîâêó èíäèêàòîðîì ïóñòûõ çíà÷åíèé
   PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,0.0);
   PlotIndexSetDouble(1,PLOT_EMPTY_VALUE,0.0);
   PlotIndexSetDouble(2,PLOT_EMPTY_VALUE,0.0);
//---- èíäåêñàöèÿ ýëåìåíòîâ â áóôåðàõ êàê â òàéìñåðèÿõ   
   ArraySetAsSeries(LowestBuffer,true);
   ArraySetAsSeries(HighestBuffer,true);
   ArraySetAsSeries(SarBuffer,true);
//---- óñòàíîâêà ïîçèöèè, ñ êîòîðîé íà÷èíàåòñÿ îòðèñîâêà
   PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total);
   PlotIndexSetInteger(1,PLOT_DRAW_BEGIN,min_rates_total);
   PlotIndexSetInteger(2,PLOT_DRAW_BEGIN,min_rates_total);
//---- óñòàíîâêà ôîðìàòà òî÷íîñòè îòîáðàæåíèÿ èíäèêàòîðà
   IndicatorSetInteger(INDICATOR_DIGITS,_Digits);
//---- èìÿ äëÿ îêîí äàííûõ è ëýéáà äëÿ ñóáúîêîí 
   string shortname;
   StringConcatenate(shortname,"Chanell On Parabolic Sar(",DoubleToString(Step,2),", ",DoubleToString(Maximum,2),", ",Wide,")");
   IndicatorSetString(INDICATOR_SHORTNAME,shortname);
  }
//+------------------------------------------------------------------+ 
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+ 
int OnCalculate(const int rates_total,
                const int prev_calculated,
                const datetime &time[],
                const double &open[],
                const double &high[],
                const double &low[],
                const double &close[],
                const long &tick_volume[],
                const long &volume[],
                const int &spread[])
  {
//---- ïðîâåðêà êîëè÷åñòâà áàðîâ íà äîñòàòî÷íîñòü äëÿ ðàñ÷åòà
   if(BarsCalculated(SAR_Handle)<rates_total || rates_total<min_rates_total)return(RESET);
//---- îáúÿâëåíèÿ ëîêàëüíûõ ïåðåìåííûõ 
   int limit,to_copy,bar;
   double middleprice0,middleprice1,top,bot;
   static double prev_top,prev_bot;
//---- ðàñ÷åò ñòàðòîâîãî íîìåðà limit äëÿ öèêëà ïåðåñ÷åòà áàðîâ è ñòàðòîâàÿ èíèöèàëèçàöèÿ ïåðåìåííûõ
   if(prev_calculated>rates_total || prev_calculated<=0)// ïðîâåðêà íà ïåðâûé ñòàðò ðàñ÷åòà èíäèêàòîðà
     {
      limit=rates_total-1-min_rates_total; // ñòàðòîâûé íîìåð äëÿ ðàñ÷åòà âñåõ áàðîâ
      to_copy=limit+2;
     }
   else
     {
      limit=rates_total-prev_calculated; // ñòàðòîâûé íîìåð äëÿ ðàñ÷åòà íîâûõ áàðîâ
      to_copy=limit+1;
     }
//---- èíäåêñàöèÿ ýëåìåíòîâ â ìàññèâàõ êàê â òàéìñåðèÿõ 
   ArraySetAsSeries(high,true);
   ArraySetAsSeries(low,true);
//---- âîññòàíàâëèâàåì çíà÷åíèÿ ïåðåìåííûõ
   top=prev_top;
   bot=prev_bot;
//---- êîïèðóåì âíîâü ïîÿâèâøèåñÿ äàííûå â ìàññèâ
   if(CopyBuffer(SAR_Handle,0,0,to_copy,SarBuffer)<=0) return(RESET);
//---- ïåðâûé áîëüøîé öèêë ðàñ÷åòà èíäèêàòîðà
   for(bar=limit; bar>=0 && !IsStopped(); bar--)
     {
      middleprice0=(high[bar]+low[bar])/2; // ñðåäíÿÿ öåíà íà òåêóùåì áàðå
      middleprice1=(high[bar+1]+low[bar+1])/2; // ñðåäíÿÿ öåíà íà ïðåäûäóùåì áàðå
      //----
      if(SarBuffer[bar+1]>=middleprice1 && SarBuffer[bar]<middleprice0) // ïåðåâîðîò ââåðõ
         if(top-SarBuffer[bar]>wide) bot=SarBuffer[bar];
      //----
      if(SarBuffer[bar+1]<=middleprice1 && SarBuffer[bar]>middleprice0) // ïåðåâîðîò âíèç
         if(SarBuffer[bar]-bot>wide) top=SarBuffer[bar];
      //----
      HighestBuffer[bar]=top;
      LowestBuffer[bar]=bot;
      //---- çàïîìèíàåì çíà÷åíèÿ ïåðåìåííûõ ïåðåä ïðîãîíàìè íà òåêóùåì áàðå
      if(bar)
        {
         prev_top=top;
         prev_bot=bot;
        }
     }
//----     
   return(rates_total);
  }
//+------------------------------------------------------------------+