StochasticDiNapoli

//+------------------------------------------------------------------+
//|                                           StochasticDiNapoli.mq4 |
//|                                      Copyright © 2010, LenIFCHIK |
//|Èíäèêàòîð íàïèñàí â ñîîòâåòñòâèè ñ îïèñàíèåì, ïðèâåä¸ííûì â êíèãå |
//|Äæî ÄèÍàïîëè "Òîðãîâëÿ ñ èñïîëüçîâàíèåì óðîâíåé ÄèÍàïîëè".        |
//|Èñõîäíûé êîä ñîäåðæèò óðîâíè ïåðåêóïëåííîñòè è ïåðåïðîäàííîñòè,   |
//|íî ñ öåëüþ ïðèìåíåíèÿ èíäèêàòîðà äëÿ òåõíèêè ÄèÍàïîëè, äàííûå     |
//|óðîâíè îòêëþ÷åíû (îòìå÷åíû êàê êîììåíòàðèè çíàêîì "//"). Âêëþ÷åíèå|
//|îñóùåñòâëÿåòñÿ ïóò¸ì óäàëåíèÿ èç íà÷àëà ñîîòâåòñòâóþùèõ ñòðîê     |
//|ñèìâîëà "//".                                                     |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2010, LenIFCHIK"

#property indicator_separate_window       //â îòäåëüíîì îêíå
#property indicator_minimum 0             //çàêð¸ïë¸ííûé ìèíèìóì
#property indicator_maximum 100           //çàêðåïë¸ííûé ìàêñèìóì

#property indicator_buffers 2             //÷èñëî áóôåðîâ èíäèêàòîðà
#property indicator_color1 RoyalBlue      //öâåò ëèíèè %K
#property indicator_color2 FireBrick      //öâåò ëèíèè %D
//---- âõîäíûå ïàðàìåòðû
extern int FastK=8;                       //ïåðèîä ëèíèè %K
extern int SlowK=3;                       //ïåðèîä "ìåäëåííîé" %K
extern int SlowD=3;                       //ïðåèîä "ìåäëåííîé" %D
extern string Levels_display_mode="0 - off, 1 - on";
extern int Levels_ON_OFF=0;               //ðåæèì îòîáðàæåíèÿ óðîâíåé ïåðåêóïëåííîñòè/ïåðåïðîäàííîñòè
extern int OBLevel=80;                    //óðîâåíü ïåðåêóïëííîñòè (ïî óìîë÷àíèþ íå îòîáðàæàåòñÿ)
extern int OSLevel=20;                    //óðîâåíü ïåðåïðîäàííîñòè (ïî óìîë÷àíèþ íå îòîáðàæàåòñÿ) 
//---- áóôåðû èíäèêàòîðà
double StoBuffer[];                       //áóôåð ñòîõàñòè÷åñêîé ëèíèè
double SigBuffer[];                       //áóôåð ñèãíàëüíîé ëèíèè
//+------------------------------------------------------------------+
//| Èíèöèàëèçàöèÿ. Ôóíêöèÿ Init                                      |
//+------------------------------------------------------------------+
int init()
  {
   string short_name;
//---- îòðèñîâêà èíäèêàòîðà
   SetIndexStyle(0,DRAW_LINE,STYLE_SOLID,1); //îòðèñîâêà ñòîõàñòè÷åñêîé ëèíèè
   SetIndexStyle(1,DRAW_LINE,STYLE_SOLID,1); //îòðèñîâêà ñèãíàëüíîé ëèíèè
//---- ðàçìåòêà áóôåðîâ   
   SetIndexBuffer(0,StoBuffer);
   SetIndexBuffer(1,SigBuffer);
//---- èìÿ îêíà äàííûõ è îêíà èíäèêàòîðà
   short_name="Stochastic DiNapoli("+FastK+","+SlowK+","+SlowD+")";
   IndicatorShortName(short_name);
   SetIndexLabel(0,"Stoch");
   SetIndexLabel(1,"Signal");
//---- íà÷àëî îòðèñîâêè
   SetIndexDrawBegin(0,FastK);
   SetIndexDrawBegin(1,FastK);
//---- îïðåäåëåíèå óðîâíåé    
   switch(Levels_ON_OFF)                     //ðåæèì îòîáðàæåíèÿ óðîâíåé ïåðåêóïëåííîñòè/ïåðåïðîäàííîñòè
     {
     case 0 :                                //ÎÒÎÁÐÀÆÀÞÒÑß
       SetLevelValue(1,EMPTY_VALUE);         //óðîâåíü ïåðåêóïëåííîñòè 
       SetLevelValue(2,EMPTY_VALUE);         //óðîâåíü ïåðåïðîäàííîñòè  
       break;
     case 1 :                                //ÎÒÎÁÐÀÆÀÞÒÑß
       SetLevelValue(1,OBLevel);             //óðîâåíü ïåðåêóïëåííîñòè 
       SetLevelValue(2,OSLevel);             //óðîâåíü ïåðåïðîäàííîñòè 
//---- ñòèëü îòîáðàæåíèÿ óðîâíåé
       SetLevelStyle(STYLE_DOT,1,Silver);      
       break;
     default :
       Levels_ON_OFF=0;                      //ïî óìîë÷àíèþ ÍÅ ÎÒÎÁÐÀÆÀÞÒÑß
     }
//---- êîíåö èíèöèàëèçàöèè
   return(0);
  }
//+------------------------------------------------------------------+
//| Stochastic ïî DiNapoli                                           |
//+------------------------------------------------------------------+
int start()
  {
   int i,counted_bars=IndicatorCounted();
   double high,low;
//----
   if(Bars<=FastK) return(0);
//---- 
   if(counted_bars<1)
      for(i=1;i<=FastK;i++) 
      {StoBuffer[Bars-i]=0.0;SigBuffer[Bars-i]=0.0;}
//----
   i=Bars-FastK-1;
   if(counted_bars>=FastK) i=Bars-counted_bars-1;
   while(i>=0)
   {
       low=Low[Lowest(NULL,0,MODE_LOW,FastK,i)];                        //ìèíèìóì 
       high=High[Highest(NULL,0,MODE_HIGH,FastK,i)];                    //ìàêñèìóì     
       double Fast=(Close[i]-low)/(high-low)*100;                       //ðàñ÷¸ò ïåðâè÷íîé áûñòðîé ëèíèè %Ê
       StoBuffer[i]=StoBuffer[i+1]+(Fast-StoBuffer[i+1])/SlowK;         //ðàñ÷¸ò ñòîõàñòè÷åñêîé ëèíèè
       SigBuffer[i]=SigBuffer[i+1]+(StoBuffer[i]-SigBuffer[i+1])/SlowD; //ðàñ÷¸ò ñèãíàëüíîé ëèíèè
   i--;
   }
   return(0);
  }
//+------------------------------------------------------------------+