Shved Supply and Demand

#property description "edited by eevviill"
#property description "on-off zones,build 600+,nearest zones in buffers"

#property indicator_chart_window
#property indicator_buffers 8
#property indicator_color1  clrRed
#property indicator_color2  clrRed
#property indicator_color3  clrDodgerBlue
#property indicator_color4  clrDodgerBlue

enum enTimeFrames
{
         tf_cu  = 0,                                                 // Current time frame
         tf_m1  = PERIOD_M1,                                         // 1 minute
         tf_m5  = PERIOD_M5,                                         // 5 minutes
         tf_m15 = PERIOD_M15,                                        // 15 minutes
         tf_m30 = PERIOD_M30,                                        // 30 minutes
         tf_h1  = PERIOD_H1,                                         // 1 hour
         tf_h4  = PERIOD_H4,                                         // 4 hours
         tf_d1  = PERIOD_D1,                                         // Daily
         tf_w1  = PERIOD_W1,                                         // Weekly
         tf_mn1 = PERIOD_MN1,                                        // Monthly
         tf_n1  = -1,                                                // First higher time frame
         tf_n2  = -2,                                                // Second higher time frame
         tf_n3  = -3,                                                // Third higher time frame
         tf_cus = 12345678                                           // Custom time frame
      };
input enTimeFrames inpTimeFrame      = tf_cu;                 // Time frame to use
input int         inpTimeFrameCustom = 0;                     // Custom time frame to use (if custom time frame used)  
extern int    BackLimit              = 1000;
extern bool   zone_show_weak         = true;
extern bool   zone_show_untested     = true;
extern bool   zone_show_turncoat     = false;
extern double zone_fuzzfactor        = 0.75;
extern bool   fractals_show          = false;
extern double fractal_fast_factor    = 3.0;
extern double fractal_slow_factor    = 6.0;
extern bool   SetGlobals             = true;
extern bool   zone_solid             = true;
extern int    zone_linewidth         = 1;
extern int    zone_style             = 0;
extern bool   zone_show_info         = true;
extern int    zone_label_shift       = 4;
extern bool   zone_merge             = true;
extern bool   zone_extend            = true;
extern bool   zone_show_alerts       = false;
extern bool   zone_alert_popups      = true;
extern bool   zone_alert_sounds      = true;
extern int    zone_alert_waitseconds = 300;
extern int    Text_size              = 8;
extern string Text_font              = "Courier New";
extern color  Text_color             = clrWhite;
extern string sup_name               = "Sup";
extern string res_name               = "Res";
extern string test_name              = "Retests";
extern color  color_support_weak     = clrDarkSlateGray;
extern color  color_support_untested = clrSeaGreen;
extern color  color_support_verified = clrGreen;
extern color  color_support_proven   = clrLimeGreen;
extern color  color_support_turncoat = clrOliveDrab;
extern color  color_resist_weak      = clrIndigo;
extern color  color_resist_untested  = clrOrchid;
extern color  color_resist_verified  = clrCrimson;
extern color  color_resist_proven    = clrRed;
extern color  color_resist_turncoat  = clrDarkOrange;

double FastDnPts[],FastUpPts[],SlowDnPts[],SlowUpPts[],count[];
double ner_lo_zone_P1[],ner_lo_zone_P2[],ner_hi_zone_P1[],ner_hi_zone_P2[];

double zone_hi[1000],zone_lo[1000];
int    zone_start[1000],zone_hits[1000],zone_type[1000],zone_strength[1000],zone_count=0;
bool   zone_turn[1000];

#define ZONE_SUPPORT 1
#define ZONE_RESIST  2

#define ZONE_WEAK      0
#define ZONE_TURNCOAT  1
#define ZONE_UNTESTED  2
#define ZONE_VERIFIED  3
#define ZONE_PROVEN    4

#define UP_POINT 1
#define DN_POINT -1

int time_offset=0;
struct sGlobalStruct
{
   string indicatorFileName;
   int    indicatorTimeFrame;
   int    tfcustom;
};
sGlobalStruct global;
#define _mtfCall(_buff,_ind) iCustom(_Symbol,global.indicatorTimeFrame,global.indicatorFileName,tf_cu,0,BackLimit,zone_show_weak,zone_show_untested,zone_show_turncoat,zone_fuzzfactor,fractals_show,fractal_fast_factor,fractal_slow_factor,SetGlobals,zone_solid,zone_linewidth,zone_style,zone_show_info,zone_label_shift,zone_merge,zone_extend,zone_show_alerts,zone_alert_popups,zone_alert_sounds,zone_alert_waitseconds,Text_size,Text_font,Text_color,sup_name,res_name,test_name,color_support_weak,color_support_untested,color_support_verified,color_support_proven,color_support_turncoat,color_resist_weak,color_resist_untested,color_resist_verified,color_resist_proven,color_resist_turncoat,_buff,_ind)

int init()
{
      // код доступен только после оплаты
   }

int deinit()
  {
   DeleteZones();
   DeleteGlobalVars();
   return(0);
  }

int start()
{
      // код доступен только после оплаты
   }

void CheckAlerts()
  {
   static int lastalert=0;

   if(zone_show_alerts==false)
      return;

   if(Time[0]-lastalert>zone_alert_waitseconds)
      if(CheckEntryAlerts()==true)
         lastalert=Time[0];
  }

bool CheckEntryAlerts()
  {

   for(int i=0; i<zone_count; i++)
     {
      if(Close[0]>=zone_lo[i] && Close[0]<zone_hi[i])
        {
         if(zone_show_alerts==true)
           {
            if(zone_alert_popups==true)
              {
               if(zone_type[i]==ZONE_SUPPORT)
                  Alert(_Symbol+timeFrameToString(_Period)+": Support Zone Entered");
               else
                  Alert(_Symbol+timeFrameToString(_Period)+": Resistance Zone Entered");
              }

            if(zone_alert_sounds==true)
               PlaySound("alert_wav");
           }

         return(true);
        }
     }

   return(false);
  }

void DeleteGlobalVars()
  {
   if(SetGlobals==false)
      return;

   GlobalVariableDel("SSSR_Count_"+Symbol()+Period());
   GlobalVariableDel("SSSR_Updated_"+Symbol()+Period());

   int old_count=zone_count;
   zone_count=0;
   DeleteOldGlobalVars(old_count);
  }

void DeleteOldGlobalVars(int old_count)
  {
   if(SetGlobals==false)
      return;

   for(int i=zone_count; i<old_count; i++)
     {
      GlobalVariableDel("SSSR_HI_"+Symbol()+Period()+i);
      GlobalVariableDel("SSSR_LO_"+Symbol()+Period()+i);
      GlobalVariableDel("SSSR_HITS_"+Symbol()+Period()+i);
      GlobalVariableDel("SSSR_STRENGTH_"+Symbol()+Period()+i);
      GlobalVariableDel("SSSR_AGE_"+Symbol()+Period()+i);
     }
  }

void FindZones()
  {
   int i,j,shift,bustcount=0,testcount=0;
   double hival,loval;
   bool turned=false,hasturned=false;

   double temp_hi[1000],temp_lo[1000];
   int    temp_start[1000],temp_hits[1000],temp_strength[1000],temp_count=0;
   bool   temp_turn[1000],temp_merge[1000];
   int merge1[1000],merge2[1000],merge_count=0;

   for(shift=MathMin(Bars-1,BackLimit); shift>5; shift--)
     {
      double atr= iATR(NULL,0,7,shift);
      double fu = atr/2 * zone_fuzzfactor;
      bool isWeak;
      bool touchOk= false;
      bool isBust = false;

      if(FastUpPts[shift]>0.001)
        {

         isWeak=true;
         if(SlowUpPts[shift]>0.001)
            isWeak=false;

         hival=High[shift];
         if(zone_extend==true)
            hival+=fu;

         loval=MathMax(MathMin(Close[shift],High[shift]-fu),High[shift]-fu*2);
         turned=false;
         hasturned=false;
         isBust=false;

         bustcount = 0;
         testcount = 0;

         for(i=shift-1; i>=0; i--)
           {
            if((turned==false && FastUpPts[i]>=loval && FastUpPts[i]<=hival) || 
               (turned==true && FastDnPts[i]<=hival && FastDnPts[i]>=loval))
              {

               touchOk=true;
               for(j=i+1; j<i+11; j++)
                 {
                  if((turned==false && FastUpPts[j]>=loval && FastUpPts[j]<=hival) || 
                     (turned==true && FastDnPts[j]<=hival && FastDnPts[j]>=loval))
                    {
                     touchOk=false;
                     break;
                    }
                 }

               if(touchOk==true)
                 {

                  bustcount=0;
                  testcount++;
                 }
              }

            if((turned==false && High[i]>hival) || 
               (turned==true && Low[i]<loval))
              {

               bustcount++;

               if(bustcount>1 || isWeak==true)
                 {

                  isBust=true;
                  break;
                 }

               if(turned == true)
                  turned = false;
             

Показано первые 50% кода (символов: 18054)