Daily_Research

//+------------------------------------------------------------------+
//|                                                DailyResearch.mq4 |
//|                                          Copyright © 2007, DRKNN |
//|                                                    drknn@mail.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2007, DRKNN"
#property link      "drknn@mail.ru"
#property show_inputs
extern int TakeProfit=10;
extern int TaimFame=1440;
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start(){
  
  string SMB;
  double SPR;
  int Bar=iBars(SMB,TaimFame);
  double Dlina=0,Dodzh=0,Bych=0,Medv=0,MezhduTenjami=0;
  double TenUp=0,TenDown=0;
  double Up=0,Down=0;
  double O,C,H,L,O1,C1,H1,L1;
  double TwooBych=0,TwooMedw=0,TwooDodzh=0;
  double Nesovpadenie=0;
  double Profit=0;
 
  // ---- Ïîäãîòîâêà äàííûõ -----------
  SMB=Symbol();
  SPR=MarketInfo(SMB,MODE_SPREAD);
  
  for(int i=Bar;i>0;i--){
    
    O=iOpen(SMB,TaimFame,i); 
    C=iClose(SMB,TaimFame,i);
    H=iHigh(SMB,TaimFame,i);
    L=iLow(SMB,TaimFame,i);
    
     
     
    //------ âñòðå÷è ñâå÷ îäíîãî öâåòà --------
    if(i<Bar){
      
      O1=iOpen(SMB,TaimFame,i+1); 
      C1=iClose(SMB,TaimFame,i+1);
      H1=iHigh(SMB,TaimFame,i+1);
      L1=iLow(SMB,TaimFame,i+1);
      
      if((O1-C1)>0 && (O-C)>0){// äâå ìåäâåæüèõ âïîäðÿä
        TwooMedw++;
         
      }
      if((C1-O1)>0 && (C-O)>0){// äâå áû÷üèõ âïîäðÿä
        TwooBych++;
      }
      if((C1==O1)&&(C==O)){ // äâà äîäæà âïîäðÿä
        TwooDodzh++;
      }
      if ( 
          ((O1-C1)>0 && (O-C)<0) || ((C1-O1)>0 && (C-O)<0) || ((C1==O1)&&(C<O)) || ((C1==O1)&&(C>O)) || ((C1<O1)&&(C==O))
          || ((C1>O1)&&(C==O))
         ){//íåñîâïàäåíèå öâåòà äâóõ ñîñåäíèõ ñâå÷
           Nesovpadenie++;
           if((O1-C1)>0 && (O-C)<0){ // Êîìáèíàöèÿ "÷åðíàÿ-áåëàÿ"
             if((O-L)>=(TakeProfit+SPR)*Point){//áåð¸ì íèæíþþ òåíü, òàê êàê îòêðûâàåì øîðò
              Profit++;
             }
           }
           
           if((O1-C1)<0 && (O-C)>0){// Êîìáèíàöèÿ "áåëàÿ-÷¸ðíàÿ"
             if((H-O)>=(TakeProfit+SPR)*Point){// èçìåðÿåì âåðõíþþ òåíü, òàê êàê îòêðûâàåì ëîíã
               Profit++;
             }
           }
           if((O1-C1)>0 && O==C){ // Êîìáèíàöèÿ "÷åðíàÿ-äîäæ"
             if((O-L)>=(TakeProfit+SPR)*Point){//áåð¸ì íèæíþþ òåíü, òàê êàê îòêðûâàåì øîðò
              Profit++;
             }
           }
           
           if((O1-C1)<0 && O==C){// Êîìáèíàöèÿ "áåëàÿ-Äîäæ"
             if((H-O)>=(10+SPR)*Point){// èçìåðÿåì âåðõíþþ òåíü, òàê êàê îòêðûâàåì ëîíã
               Profit++;
             }
           }
           
           
      }    
          
    }
    
   
    //----- òåëà ñâå÷ ---------
    if(O>C){
      Dlina=Dlina+(O-C)/Point;
      Medv++;
      TenUp=TenUp+(H-O)/Point;
      Up++;
      TenDown=TenDown+(C-L)/Point;
      Down++;
    }
    if(O<C){
      Dlina=Dlina+(C-O)/Point;
      Bych++;
      TenUp=TenUp+(H-C)/Point;
      Up++;
      TenDown=TenDown+(O-L)/Point;
      Down++;
      
    }
    if(O==C){
      Dodzh++;
      TenUp=TenUp+(H-C)/Point;
      Up++;
      TenDown=TenDown+(O-L)/Point;
      Down++;
       
    }  
    // ------ òåíè ñâå÷ -------
    MezhduTenjami=MezhduTenjami+(H-L)/Point;
  
  }
  // --------- Ìàíèïóëèðîâàíèå äàííûìè ---------
  Dlina=Dlina/(Bar);//ñðåäíÿÿ äëèíà ñâå÷è
  MezhduTenjami=MezhduTenjami/(Bar);//ñðåäíåå ðàññòîÿíèå ìåæäó õàé è ëîó ñâå÷è
  TenUp=TenUp/Up;
  TenDown=TenDown/Down;
  
  Alert("Äàííûì àíàëèçîì ïðîèãíîðèðîâàíà ïîñòàíîâêà ñòîï-ëîññà!!!!!");
  Alert("Åñëè ïðåäûäóùàÿ ñâå÷à - Äîäæ, òî íå òîðãóåì!");
  Alert("Ïðè íåñîâïàäåíèè öâåòà âåðîÿòíîñòü âçÿòèÿ ",TakeProfit," pt ïðîôèòà = ",Profit/Nesovpadenie*100," %  (ñ ó÷¸òîì ñïðåäà)"); 
  Alert("Íåñîâïàäåíèå öâåòà äâóõ ñîñåäíèõ ñâå÷ âûïàëî ",Nesovpadenie," ðàç. Âåðîÿòíîñòü ïîÿâëåíèÿ = ",Nesovpadenie/Bar*100," %");
  Alert("Êîìáèíàöèÿ *Äâà Äîäæà* âûïàëà ",TwooDodzh," ðàç. Âåðîÿòíîñòü ïîÿâëåíèÿ = ",TwooDodzh/Bar*100," %");
  Alert("Êîìáèíàöèÿ *Äâå ìåäâåæüè* âûïàëà ",TwooMedw," ðàç. Âåðîÿòíîñòü ïîÿâëåíèÿ = ",TwooMedw/Bar*100," %");
  Alert("Êîìáèíàöèÿ *Äâå áû÷üè* âûïàëà ",TwooBych," ðàç. Âåðîÿòíîñòü ïîÿâëåíèÿ = ",TwooBych/Bar*100," %");
  Alert("Ñðåäíÿÿ íèæíÿÿ òåíü = ",TenDown," pt");
  Alert("Ñðåäíÿÿ âåðõíÿÿ òåíü = ",TenUp," pt"); 
  Alert("Ñðåäíåå ðàññòîÿíèå ìåæäó xàé è ëîó ñâå÷è = ",MezhduTenjami," pt");
  Alert("Ñðåäíÿÿ äëèíà òåëà ñâå÷è = ",Dlina," pt"); 
  Alert("Äîäæåé = ",Dodzh,". Âåðîÿòíîñòü ïîÿâëåíèÿ = ",Dodzh/Bar*100," %");
  Alert("Ìåäâåæüèõ ñâå÷ = ",Medv,". Âåðîÿòíîñòü ïîÿâëåíèÿ = ",Medv/Bar*100," %");
  Alert("Áû÷üèõ ñâå÷ = ",Bych,". Âåðîÿòíîñòü ïîÿâëåíèÿ = ",Bych/Bar*100," %");
  Alert("Íà èíòåðâàëå ",TaimFame," ìèíóò ïðîàíàëèçèðîâàíî ",Bar," ñâå÷. Èç íèõ :"); 
  Alert("============  ",SMB,"  ============");
  return(0);
}
//+------------------------------------------------------------------+