Parabolic_4cNK

//Version  October 1 , 2006     
//+------------------------------------------------------------------+
//|                                                 4c_Parabolic.mq4 |
//|                               Copyright © 2006, Nikolay Kositsin | 
//|                                Khabarovsk, farria@mail.redcom.ru | 
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, Nikolay Kositsin"
#property link      "farria@mail.redcom.ru"
//---- îòðèñîâêà èíäèêàòîðà â ãëàâíîì îêíå
#property indicator_chart_window 
//---- êîëè÷åñòâî èíäèêàòîðíûõ áóôôåðîâ
#property indicator_buffers 4
//---- öâåòà èíäèêàòîðà
#property indicator_color1 Lime  
#property indicator_color2 Red
#property indicator_color3 DarkGreen
#property indicator_color4 Maroon
//---- òîëùèíà èíäèêàòîðíûõ ëèíèé
#property indicator_width1 3
#property indicator_width2 3
#property indicator_width3 2 
#property indicator_width4 2
//---- ÂÕÎÄÍÛÅ ÏÀÐÀÌÅÒÐÛ ÈÍÄÈÊÀÒÎÐÀ þþþþþþææ+ 
extern double       Step = 0.02;
extern double    Maximum = 0.2;
extern int Trend_Minimum = 5; // ìèíèìàëüíàÿ ñêîðîñòü òðåíäà â ïóíêòàõ
//---- æææææææææææææææææææææææææææææææææææææ+
//---- èíäèêàòîðíûå áóôôåðû
double UpBuffer1[];
double DnBuffer1[];
double UpBuffer2[];
double DnBuffer2[];
double SarBuffer[];
//----+ Ââåäåíèå öåëûõ ãëîáàëüíûõ ïåðåìåííûõ 
int bar;
//---- Ââåäåíèå êîíñòàíò è ãëîáàëüíûõ ïåðåìåííûõ ñ ïëàâàþùåé òî÷êîé
double dT_min,low,low1,high,high1,SAR,ABS_trend,SAR1;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init() 
{  
//---- 5 èíäèêàòîðíûõ áóôôåðîâ èñïîëüçîâàíû äëÿ ñ÷¸òà 
IndicatorBuffers(5);
SetIndexBuffer(0,UpBuffer1); 
SetIndexBuffer(1,DnBuffer1); 
SetIndexBuffer(2,UpBuffer2);
SetIndexBuffer(3,DnBuffer2); 
SetIndexBuffer(4,SarBuffer);
//---- Ñòèëü èñïîëíåíèÿ ãðàôèêà â âèäå òî÷å÷íûõ îáúåêòîâ
SetIndexStyle(0,DRAW_ARROW); 
SetIndexStyle(1,DRAW_ARROW); 
SetIndexStyle(2,DRAW_ARROW); 
SetIndexStyle(3,DRAW_ARROW); 
SetIndexArrow(0,158); 
SetIndexArrow(1,158); 
SetIndexArrow(2,158); 
SetIndexArrow(3,158); 
//---- óñòàíîâêà çíà÷åíèé èíäèêàòîðà, êîòîðûå íå áóäóò âèäèìû íà ãðàôèêå
SetIndexEmptyValue(0,0.0);
SetIndexEmptyValue(1,0.0);
SetIndexEmptyValue(2,0.0);
SetIndexEmptyValue(3,0.0);
//---- èìÿ äëÿ îêîí äàííûõ è ëýéáà äëÿ ñóáúîêîí 
IndicatorShortName ("Parabolic( Step="+Step+", Maximum="+Maximum+")"); 
SetIndexLabel (0, "lower_Up_Trend");
SetIndexLabel (1, "lower_Down_Trend"); 
SetIndexLabel (2, "Up_Trend");
SetIndexLabel (3, "Down_Trend"); 
//---- Óñòàíîâêà ôîðìàòà òî÷íîñòè îòîáðàæåíèÿ èíäèêàòîðà
IndicatorDigits(Digits);
//---- èíèöèàëèçàöèÿ êîíñòàíòû 
dT_min=Trend_Minimum*Point;
//---- çàâåðøåíèå èíèöèàëèçàöèè
return(0); 
} 
//+------------------------------------------------------------------+
//| 4c_Parabolic                                                     |
//+------------------------------------------------------------------+
int start()
{
if(Bars-1<2) return(0);
//----+ Ââåäåíèå öåëûõ ïåðåìåííûõ è ïîëó÷åíèå óæå ïîäñ÷èòàííûõ áàðîâ
int MaxBar,limit,counted_bars=IndicatorCounted();
//---- ïðîâåðêà íà âîçìîæíûå îøèáêè
if (counted_bars<0)return(-1);
//---- ïîñëåäíèé ïîäñ÷èòàííûé áàð äîëæåí áûòü ïåðåñ÷èòàí
if (counted_bars>0) counted_bars--;
//---- îïðåäåëåíèå íîìåðà ñàìîãî ñòàðîãî áàðà, íà÷èíàÿ ñ êîòîðîãî áóäåò ïðîèçåä¸í ïåðåñ÷¸ò íîâûõ áàðîâ
MaxBar=Bars-1;
limit=MaxBar-counted_bars;
if (limit>MaxBar-1){limit=MaxBar-1; SarBuffer[MaxBar]=0; }
//----
for (bar=limit;bar>=0;bar--)
   {
     SarBuffer[bar]=iSAR(NULL,0,Step,Maximum,bar);
     //----  
     SAR=SarBuffer[bar];
     SAR1=SarBuffer[bar+1];
     //----
     low=Low[bar];
     high=High[bar];
     low1=Low[bar+1];
     high1=High[bar+1];
     //----
     Ind_SAR();
     //----
     if((SAR1>=high1)&&(SAR<high)&&(SAR>low )){SAR=low-Point ;SarBuffer[bar]=SAR;Ind_SAR();}
     if((SAR1<=low1 )&&(SAR>low )&&(SAR<high)){SAR=high+Point;SarBuffer[bar]=SAR;Ind_SAR();}
   }
//----
return(0);
}
//+--------------------------------------------------------------------+
void Ind_SAR()
  {
     //----
     UpBuffer1[bar]=0.0;
     DnBuffer1[bar]=0.0;
     UpBuffer2[bar]=0.0;
     DnBuffer2[bar]=0.0; 
     //----  
     if(((SAR>=high)&&(SAR1>=high1))||((SAR<=low)&&(SAR1<=low1)))
     ABS_trend=MathAbs(SAR-SAR1);else ABS_trend=0.0;
     //----
     if(SAR>=high)if(ABS_trend<dT_min)DnBuffer1[bar]=SAR;else DnBuffer2[bar]=SAR;                
     if(SAR<=low )if(ABS_trend<dT_min)UpBuffer1[bar]=SAR;else UpBuffer2[bar]=SAR;
  }