MS_ElliottWaveModel

Download script
Author: *
MS_ElliottWaveModel

This tool is designed to visually map out Elliott Wave theory on a financial chart. It automates the drawing of complex wave structures, allowing you to see how different price movements connect to form larger market trends.

Core Functionality

The script works by taking specific dates and prices that you provide as input. Instead of guessing where waves might be, it uses these "anchor points" to calculate and draw the primary structure of a market move. It identifies the standard 5-wave sequence (Waves 1 through 5) along with their subsequent corrections (A, B, C, D, E).

How the Logic Works

  • Dynamic Calculations: For every wave you define, the script calculates the "height" and "length" of that move. It then uses specific mathematical ratios (like the 0.618 or 1.618 Fibonacci levels) to project where the next part of the trend should realistically end.
  • Smart Scaling: The tool includes a sophisticated time-shifting logic. This ensures that when it projects a wave forward into the future, it correctly accounts for different timeframes (such as moving from minutes to hours or days) and handles complex calendar changes like leap years and varying month lengths.
  • Sub-Wave Detail: Beyond just showing the main big picture, the script can also break down individual waves into smaller components (e.g., Wave 3 can be shown as sub-waves 3-1 through 3-4). This helps in seeing the "micro" movements inside a "macro" trend.
  • Visual Customization: The logic includes several toggle switches that allow you to control what information appears on your screen. You can choose to show or hide:
    • The specific names of each wave.
    • The exact dates when price peaks/troughs occurred.
    • The actual price points and the distance (pips/points) moved between segments.

Summary for Users

Essentially, this script acts as a mathematical blueprint for Elliott Wave theory. You feed it the starting data of a trend, and it automatically constructs the rest of the geometric model on your chart, providing a clear visual path of where the market is likely heading based on established harmonic proportions.

8 Views
0 Downloads
0 Favorites
MS_ElliottWaveModel 
//+------------------------------------------------------------------+
//|   MS_ElliottWaveModel                                            |
//+------------------------------------------------------------------+
#property copyright "*"
#property link      "*"
#property indicator_chart_window
extern string EX_obj_id="ewm";
extern string d00="2010.06.07";
extern string d1z="2010.06.18";
extern double EX_2W=0.618;
extern double EX_3W=1.618;
extern double EX_4W=0.382;
extern double EX_5W=1.000;
extern double EX_AW=0.382;
extern double EX_BW=0.500;
extern double EX_CW=1.000;
extern double EX_DW=0.382;
extern double EX_EW=0.236;
extern double EX_shift=2.618;
extern bool EX_show_smallwave=true;
extern double EX_31ex=1.000;
extern double EX_33ex=1.000;
extern double EX_35ex=1.000;
extern double EX_2sW=0.618;
extern double EX_3sW=1.618;
extern double EX_4sW=0.382;
extern double EX_5sW=1.000;
extern double EX_bsW=0.500;
extern double EX_csW=1.000;
extern bool EX_op_5_diagonal=true;
extern bool EX_op_C_diagonal=false;
extern bool EX_op_Triangle=false;
extern string d2a="0000.00.00";
extern string d2b="0000.00.00";
extern string d2z="0000.00.00";
extern string d31="0000.00.00";
extern string d32="0000.00.00";
extern string d33="0000.00.00";
extern string d34="0000.00.00";
extern string d3z="0000.00.00";
extern string d4a="0000.00.00";
extern string d4b="0000.00.00";
extern string d4z="0000.00.00";
extern string d51="0000.00.00";
extern string d52="0000.00.00";
extern string d53="0000.00.00";
extern string d54="0000.00.00";
extern string d5z="0000.00.00";
extern string da1="0000.00.00";
extern string da2="0000.00.00";
extern string da3="0000.00.00";
extern string da4="0000.00.00";
extern string daa="0000.00.00";
extern string dab="0000.00.00";
extern string daz="0000.00.00";
extern string dba="0000.00.00";
extern string dbb="0000.00.00";
extern string dbz="0000.00.00";
extern string dc1="0000.00.00";
extern string dc2="0000.00.00";
extern string dc3="0000.00.00";
extern string dc4="0000.00.00";
extern string dcz="0000.00.00";
extern string dda="0000.00.00";
extern string ddb="0000.00.00";
extern string ddz="0000.00.00";
extern string dea="0000.00.00";
extern string deb="0000.00.00";
extern string dez="0000.00.00";
extern bool EX_show_name=false;
extern bool EX_show_date=false;
extern bool EX_show_price1=false;
extern bool EX_show_price2=false;
extern color EX_cl1=Blue;
extern color EX_cl2=Maroon;
extern color EX_cl3=Aqua;
string NA="0000.00.00";
string ND="2050.01.01";
datetime t00,t1z,t2a,t2b,t2z,t31,t32,t33,t34,t3z,t4a,t4b,t4z,t51,t52,t53,t54,t5z,
         ta1,ta2,ta3,ta4,taa,tab,taz,tba,tbb,tbz,tc1,tc2,tc3,tc4,tcz,tda,tdb,tdz,tea,teb,tez;
int      b00,b1z,b2a,b2b,b2z,b31,b32,b33,b34,b3z,b4a,b4b,b4z,b51,b52,b53,b54,b5z,
         ba1,ba2,ba3,ba4,baa,bab,baz,bba,bbb,bbz,bc1,bc2,bc3,bc4,bcz,bda,bdb,bdz,bea,beb,bez;
double   p00,p1z,p2a,p2b,p2z,p31,p32,p33,p34,p3z,p4a,p4b,p4z,p51,p52,p53,p54,p5z,
         pa1,pa2,pa3,pa4,paa,pab,paz,pba,pbb,pbz,pc1,pc2,pc3,pc4,pcz,pda,pdb,pdz,pea,peb,pez;
int X1,X2,X3,X4,X5,Xa,Xb,Xc,Xd,Xe,e;
double H1,H2,H3,H4,H5,Ha,Hb,Hc,Hd,He;
double f1=1.000,f2=0.500,f3=0.618,f4=0.236,f5=0.382;
bool uptrend;
string cid;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {IndicatorShortName("MS_ElliottWaveModel");
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int deinit()
  {DelObject();
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int start()
{  DelObject();
   if(Period()>=PERIOD_D1) {} else return(0);
   cid=EX_obj_id+"-"; e=0;
   SetTime();
   if(Close[b00]<Close[b1z]) uptrend=true; else uptrend=false;

   Wave1();
   Wave2();
   Wave3();
   Wave4();
   Wave5();
   WaveA();
   WaveB();
   WaveC();
   if(EX_op_Triangle)
     {WaveD();
      WaveE();
     }

   return(0);
}
//+------------------------------------------------------------------+
//|   Wave1                                                          |
//+------------------------------------------------------------------+
void Wave1()
{
   H1=mHigh(b1z)-mLow(b00); X1=(b00-b1z)*EX_shift;
   p00=mLow (b00);
   p1z=mHigh(b1z);
   DrawWave("1 wave",t00,p00,t1z,p1z,EX_cl1);
}
//+------------------------------------------------------------------+
//|   Wave2                                                          |
//+------------------------------------------------------------------+
void Wave2()
{
   if(d2z==NA)
     {H2=H1*EX_2W; X2=X1*EX_2W;
      p2z=p1z-H2; t2z=Shift(t1z,X2);}
   else
     {H2=mHigh(b1z)-mLow(b2z); X2=b1z-b2z;
      p2z=mLow(b2z); t2z=Time[b2z];}
   DrawWave("2 wave",t1z,p1z,t2z,p2z,EX_cl1);
   
   if(EX_show_smallwave) {} else return;
   if(d2z==NA) {}
   else if(d2a!=NA && d2b!=NA) {} else return;
   double fp=1.0-1.0*EX_bsW+1.0*EX_csW;
   double fx=1.0+1.0*EX_bsW+1.0*EX_csW;
   if(d2a==NA) {p2a=p1z-H2*1.0/fp; t2a=Shift(t1z,X2*1.0/fx);}
   else        {p2a=mLow (b2a);}
   if(d2b==NA) {p2b=p2a+H2*1.0*EX_bsW/fp; t2b=Shift(t2a,X2*1.0*EX_bsW/fx);}
   else        {p2b=mHigh(b2b);}
   DrawWave("2-a wave",t1z,p1z,t2a,p2a,EX_cl2);
   DrawWave("2-b wave",t2a,p2a,t2b,p2b,EX_cl2);
   DrawWave(" "       ,t2b,p2b,t2z,p2z,EX_cl2);
}
//+------------------------------------------------------------------+
//|   Wave3                                                          |
//+------------------------------------------------------------------+
void Wave3()
{
   if(d3z==NA)
     {double fp=1.0-1.0*EX_2sW+1.0*EX_3sW-(1.0*EX_3sW)*EX_4sW+1.0*EX_5sW;
      double fx=1.0+1.0*EX_2sW+1.0*EX_3sW+(1.0*EX_3sW)*EX_4sW+1.0*EX_5sW;
      double H=H1*EX_3W;
      double X=X1*EX_3W;
      double h1=(H*1.0/fp)*(EX_31ex-1.0);
      double h2=(H*1.0*EX_2sW/fp)*(EX_31ex-1.0);
      double h3=(H*1.0*EX_3sW/fp)*(EX_33ex-1.0);
      double h4=(H*1.0*EX_3sW/fp)*(EX_33ex-1.0)*EX_4sW;
      double h5=(H*1.0*EX_5sW/fp)*(EX_35ex-1.0);
      H3=H+h1-h2+h3-h4+h5;
      double x1=(X*1.0/fx)*(EX_31ex-1.0);
      double x2=(X*1.0*EX_2sW/fx)*(EX_31ex-1.0);
      double x3=(X*1.0*EX_3sW/fx)*(EX_33ex-1.0);
      double x4=(X*1.0*EX_3sW/fx)*(EX_33ex-1.0)*EX_4sW;
      double x5=(X*1.0*EX_5sW/fx)*(EX_35ex-1.0);
      X3=X+x1+x2+x3+x4+x5;
      p3z=p2z+H3; t3z=Shift(t2z,X3);
     }
   else 
     {H3=mHigh(b3z)-mLow(b2z); X3=b2z-b3z;
      p3z=mHigh(b3z); t3z=Time[b3z];}
   DrawWave("3 wave",t2z,p2z,t3z,p3z,EX_cl1);
   
   if(EX_show_smallwave) {} else return;
   if(d3z==NA) {}
   else if(d31!=NA && d32!=NA && d33!=NA && d34!=NA) {} else return;
   if(d31==NA) {p31=p2z+H*1.0/fp       +h1; t31=Shift(t2z,X*1.0/fx       +x1);}
   else        {p31=mHigh(b31);}
   if(d32==NA) {p32=p31-H*1.0*EX_2sW/fp-h2; t32=Shift(t31,X*1.0*EX_2sW/fx+x2);}
   else        {p32=mLow (b32);}
   if(d33==NA) {p33=p32+H*1.0*EX_3sW/fp+h3; t33=Shift(t32,X*1.0*EX_3sW/fx+x3);}
   else        {p33=mHigh(b33);}   
   if(d34==NA) {p34=p33-H*(1.0*EX_3sW)*EX_4sW/fp-h4; t34=Shift(t33,X*(1.0*EX_3sW)*EX_4sW/fx+x4);}
   else        {p34=mLow (b34);}   
   DrawWave("3-1 wave",t2z,p2z,t31,p31,EX_cl2);
   DrawWave("3-2 wave",t31,p31,t32,p32,EX_cl2);
   DrawWave("3-3 wave",t32,p32,t33,p33,EX_cl2);
   DrawWave("3-4 wave",t33,p33,t34,p34,EX_cl2);
   DrawWave(" "       ,t34,p34,t3z,p3z,EX_cl2);
}
//+------------------------------------------------------------------+
//|   Wave4                                                          |
//+------------------------------------------------------------------+
void Wave4()
{
   if(d4z==NA)
      {H4=H3*EX_4W; X4=X3*EX_4W;
       p4z=p3z-H4; t4z=Shift(t3z,X4);}
   else    
      {H4=mHigh(b3z)-mLow(b4z); X4=b3z-b4z;
       p4z=mLow(b4z); t4z=Time[b4z];}
   DrawWave("4 wave",t3z,p3z,t4z,p4z,EX_cl1);

   if(EX_show_smallwave) {} else return;
   if(d4z==NA) {}
   else if(d4a!=NA && d4b!=NA) {} else return;
   double fp=1.0-1.0*EX_bsW+1.0*EX_csW;
   double fx=1.0+1.0*EX_bsW+1.0*EX_csW;
   if(d4a==NA) {p4a=p3z-H4*1.0/fp; t4a=Shift(t3z,X4*1.0/fx);}
   else        {p4a=mLow (b4a);}
   if(d4b==NA) {p4b=p4a+H4*1.0*EX_bsW/fp; t4b=Shift(t4a,X4*1.0*EX_bsW/fx);}
   else        {p4b=mHigh(b4b);}
   DrawWave("4-a wave",t3z,p3z,t4a,p4a,EX_cl2);
   DrawWave("4-b wave",t4a,p4a,t4b,p4b,EX_cl2);
   DrawWave(" "       ,t4b,p4b,t4z,p4z,EX_cl2);
}
//+------------------------------------------------------------------+
//|   Wave5                                                          |
//+------------------------------------------------------------------+
void Wave5()
{
   if(d5z==NA)
     {H5=H1*EX_5W; X5=X1*EX_5W;
      p5z=p4z+H5; t5z=Shift(t4z,X5);}
   else
     {H5=mHigh(b5z)-mLow(b4z); X5=b4z-b5z;
      p5z=mHigh(b5z); t5z=Time[b5z];}
   DrawWave("5 wave",t4z,p4z,t5z,p5z,EX_cl1);

   if(EX_show_smallwave) {} else return;
   if(d5z==NA) {}
   else if(d51!=NA && d52!=NA && d53!=NA && d54!=NA) {} else return;
   double fp,fx;
   if(EX_op_5_diagonal)
     {fp=f1-f2+f3-f4+f5;
      fx=f1+f2+f3+f4+f5;
      if(d51==NA) {p51=p4z+H5*f1/fp; t51=Shift(t4z,X5*f1/fx);}
      else        {p51=mHigh(b51);}
      if(d52==NA) {p52=p51-H5*f2/fp; t52=Shift(t51,X5*f2/fx);}
      else        {p52=mLow (b52);}
      if(d53==NA) {p53=p52+H5*f3/fp; t53=Shift(t52,X5*f3/fx);}
      else        {p53=mHigh(b53);}   
      if(d54==NA) {p54=p53-H5*f4/fp; t54=Shift(t53,X5*f4/fx);}
      else        {p54=mLow (b54);}
     }
   else
     {fp=1.0-1.0*EX_2sW+1.0*EX_3sW-(1.0*EX_3sW)*EX_4sW+1.0*EX_5sW;
      fx=1.0+1.0*EX_2sW+1.0*EX_3sW+(1.0*EX_3sW)*EX_4sW+1.0*EX_5sW;
      if(d51==NA) {p51=p4z+H5*1.0/fp; t51=Shift(t4z,X5*1.0/fx);}
      else        {p51=mHigh(b51);}
      if(d52==NA) {p52=p51-H5*1.0*EX_2sW/fp; t52=Shift(t51,X5*1.0*EX_2sW/fx);}
      else        {p52=mLow (b52);}
      if(d53==NA) {p53=p52+H5*1.0*EX_3sW/fp; t53=Shift(t52,X5*1.0*EX_3sW/fx);}
      else        {p53=mHigh(b53);}   
      if(d54==NA) {p54=p53-H5*(1.0*EX_3sW)*EX_4sW/fp; t54=Shift(t53,X5*(1.0*EX_3sW)*EX_4sW/fx);}
      else        {p54=mLow (b54);}
     }
   DrawWave("5-1 wave",t4z,p4z,t51,p51,EX_cl2);
   DrawWave("5-2 wave",t51,p51,t52,p52,EX_cl2);
   DrawWave("5-3 wave",t52,p52,t53,p53,EX_cl2);
   DrawWave("5-4 wave",t53,p53,t54,p54,EX_cl2);
   DrawWave(" "       ,t54,p54,t5z,p5z,EX_cl2);
}
//+------------------------------------------------------------------+
//|   WaveA                                                          |
//+------------------------------------------------------------------+
void WaveA()
{
   if(daz==NA)
     {Ha=(H1-H2+H3-H4+H5)*EX_AW; Xa=(X1-X2+X3-X4+X5)*EX_AW;
      paz=p5z-Ha; taz=Shift(t5z,Xa);}
   else   
     {Ha=mHigh(b5z)-mLow(baz); Xa=b5z-baz;
      paz=mLow(baz); taz=Time[baz];}
   DrawWave("A wave",t5z,p5z,taz,paz,EX_cl1);

   if(EX_show_smallwave) {} else return;
   if(daz==NA) {}
   else if(da1!=NA && da2!=NA && da3!=NA && da4!=NA) {} 
   else if(daa!=NA && dab!=NA) {} else return;
   double fp,fx;
   if(daa!=NA || dab!=NA)
     {fp=1.0-1.0*EX_bsW+1.0*EX_csW;
      fx=1.0+1.0*EX_bsW+1.0*EX_csW;
      if(daa==NA) {paa=p5z-Ha*1.0/fp; taa=Shift(t5z,Xa*1.0/fx);}
      else        {paa=mLow (baa);}
      if(dab==NA) {pab=paa+Ha*1.0*EX_bsW/fp; tab=Shift(taa,Xa*1.0*EX_bsW/fx);}
      else        {pab=mHigh(bab);}
      DrawWave("A-a wave",t5z,p5z,taa,paa,EX_cl2);
      DrawWave("A-b wave",taa,paa,tab,pab,EX_cl2);
      DrawWave(" "       ,tab,pab,taz,paz,EX_cl2);
      return;
     }
   fp=1.0-1.0*EX_2sW+1.0*EX_3sW-(1.0*EX_3sW)*EX_4sW+1.0*EX_5sW;
   fx=1.0+1.0*EX_2sW+1.0*EX_3sW+(1.0*EX_3sW)*EX_4sW+1.0*EX_5sW;
   if(da1==NA) {pa1=p5z-Ha*1.0/fp; ta1=Shift(t5z,Xa*1.0/fx);}
   else        {pa1=mLow (ba1);}
   if(da2==NA) {pa2=pa1+Ha*1.0*EX_2sW/fp; ta2=Shift(ta1,Xa*1.0*EX_2sW/fx);}
   else        {pa2=mHigh(ba2);}
   if(da3==NA) {pa3=pa2-Ha*1.0*EX_3sW/fp; ta3=Shift(ta2,Xa*1.0*EX_3sW/fx);}
   else        {pa3=mLow (ba3);}   
   if(da4==NA) {pa4=pa3+Ha*(1.0*EX_3sW)*EX_4sW/fp; ta4=Shift(ta3,Xa*(1.0*EX_3sW)*EX_4sW/fx);}
   else        {pa4=mHigh(ba4);}
   DrawWave("A-1 wave",t5z,p5z,ta1,pa1,EX_cl2);
   DrawWave("A-2 wave",ta1,pa1,ta2,pa2,EX_cl2);
   DrawWave("A-3 wave",ta2,pa2,ta3,pa3,EX_cl2);
   DrawWave("A-4 wave",ta3,pa3,ta4,pa4,EX_cl2);
   DrawWave(" "       ,ta4,pa4,taz,paz,EX_cl2);
}
//+------------------------------------------------------------------+
//|   WaveB                                                          |
//+------------------------------------------------------------------+
void WaveB()
{
   if(dbz==NA)
     {Hb=Ha*EX_BW; Xb=Xa*EX_BW;
      pbz=paz+Hb; tbz=Shift(taz,Xb);}
   else
     {Hb=mHigh(bbz)-mLow(baz); Xb=baz-bbz;
      pbz=mHigh(bbz); tbz=Time[bbz];}
   DrawWave("B wave",taz,paz,tbz,pbz,EX_cl1);

   if(EX_show_smallwave) {} else return;
   if(dbz==NA) {}
   else if(dba!=NA && dbb!=NA) {} else return;
   double fp=1.0-1.0*EX_bsW+1.0*EX_csW;
   double fx=1.0+1.0*EX_bsW+1.0*EX_csW;
   if(dba==NA) {pba=paz+Hb*1.0/fp; tba=Shift(taz,Xb*1.0/fx);}
   else        {pba=mHigh(bba);}
   if(dbb==NA) {pbb=pba-Hb*1.0*EX_bsW/fp; tbb=Shift(tba,Xb*1.0*EX_bsW/fx);}
   else        {pbb=mLow (bbb);}
   DrawWave("B-a wave",taz,paz,tba,pba,EX_cl2);
   DrawWave("B-b wave",tba,pba,tbb,pbb,EX_cl2);
   DrawWave(" "       ,tbb,pbb,tbz,pbz,EX_cl2);
}
//+------------------------------------------------------------------+
//|   WaveC                                                          |
//+------------------------------------------------------------------+
void WaveC()
{
   if(dcz==NA)
     {Hc=Ha*EX_CW; Xc=Xa*EX_CW;
      pcz=pbz-Hc; tcz=Shift(tbz,Xc);}
   else 
     {Hc=mHigh(bbz)-mLow(bcz); Xc=bbz-bcz;
      pcz=mLow(bcz); tcz=Time[bcz];}
   DrawWave("C wave",tbz,pbz,tcz,pcz,EX_cl1);

   if(EX_show_smallwave) {} else return;
   if(dcz==NA) {}
   else if(dc1!=NA && dc2!=NA && dc3!=NA && dc4!=NA) {} else return;
   double fp,fx;
   if(EX_op_C_diagonal)
     {fp=f1-f2+f3-f4+f5;
      fx=f1+f2+f3+f4+f5;
      if(dc1==NA) {pc1=pbz-Hc*f1/fp; tc1=Shift(tbz,Xc*f1/fx);}
      else        {pc1=mLow (bc1);}
      if(dc2==NA) {pc2=pc1+Hc*f2/fp; tc2=Shift(tc1,Xc*f2/fx);}
      else        {pc2=mHigh(bc2);}
      if(dc3==NA) {pc3=pc2-Hc*f3/fp; tc3=Shift(tc2,Xc*f3/fx);}
      else        {pc3=mLow (bc3);}   
      if(dc4==NA) {pc4=pc3+Hc*f4/fp; tc4=Shift(tc3,Xc*f4/fx);}
      else        {pc4=mHigh(bc4);}
     }
   else
     {fp=1.0-1.0*EX_2sW+1.0*EX_3sW-(1.0*EX_3sW)*EX_4sW+1.0*EX_5sW;
      fx=1.0+1.0*EX_2sW+1.0*EX_3sW+(1.0*EX_3sW)*EX_4sW+1.0*EX_5sW;
      if(dc1==NA) {pc1=pbz-Hc*1.0/fp; tc1=Shift(tbz,Xc*1.0/fx);}
      else        {pc1=mLow (bc1);}
      if(dc2==NA) {pc2=pc1+Hc*1.0*EX_2sW/fp; tc2=Shift(tc1,Xc*1.0*EX_2sW/fx);}
      else        {pc2=mHigh(bc2);}
      if(dc3==NA) {pc3=pc2-Hc*1.0*EX_3sW/fp; tc3=Shift(tc2,Xc*1.0*EX_3sW/fx);}
      else        {pc3=mLow (bc3);}   
      if(dc4==NA) {pc4=pc3+Hc*(1.0*EX_3sW)*EX_4sW/fp; tc4=Shift(tc3,Xc*(1.0*EX_3sW)*EX_4sW/fx);}
      else        {pc4=mHigh(bc4);}
     }
   DrawWave("C-1 wave",tbz,pbz,tc1,pc1,EX_cl2);
   DrawWave("C-2 wave",tc1,pc1,tc2,pc2,EX_cl2);
   DrawWave("C-3 wave",tc2,pc2,tc3,pc3,EX_cl2);
   DrawWave("C-4 wave",tc3,pc3,tc4,pc4,EX_cl2);
   DrawWave(" "       ,tc4,pc4,tcz,pcz,EX_cl2);
}
//+------------------------------------------------------------------+
//|   WaveD                                                          |
//+------------------------------------------------------------------+
void WaveD()
{
   if(ddz==NA)
     {Hd=Ha*EX_DW; Xd=Xa*EX_DW;
      pdz=pcz+Hd; tdz=Shift(tcz,Xd);}
   else
     {Hd=mHigh(bdz)-mLow(bcz); Xd=bcz-bdz;
      pdz=mHigh(bdz); tdz=Time[bdz];}
   DrawWave("B wave",tcz,pcz,tdz,pdz,EX_cl1);

   if(EX_show_smallwave) {} else return;
   if(ddz==NA) {}
   else if(dda!=NA && ddb!=NA) {} else return;
   double fp=1.0-1.0*EX_bsW+1.0*EX_csW;
   double fx=1.0+1.0*EX_bsW+1.0*EX_csW;
   if(dda==NA) {pda=pcz+Hd*1.0/fp; tda=Shift(tcz,Xd*1.0/fx);}
   else        {pda=mHigh(bda);}
   if(ddb==NA) {pdb=pda-Hd*1.0*EX_bsW/fp; tdb=Shift(tda,Xd*1.0*EX_bsW/fx);}
   else        {pdb=mLow (bdb);}
   DrawWave("B-a wave",tcz,pcz,tda,pda,EX_cl2);
   DrawWave("B-b wave",tda,pda,tdb,pdb,EX_cl2);
   DrawWave(" "       ,tdb,pdb,tdz,pdz,EX_cl2);
}
//+------------------------------------------------------------------+
//|   WaveE                                                          |
//+------------------------------------------------------------------+
void WaveE()
{
   if(dez==NA)
     {He=Ha*EX_EW; Xe=Xa*EX_EW;
      pez=pdz-He; tez=Shift(tdz,Xe);}
   else 
     {He=mHigh(bdz)-mLow(bez); Xe=bdz-bez;
      pez=mLow(bez); tez=Time[bez];}
   DrawWave("C wave",tdz,pdz,tez,pez,EX_cl1);

   if(EX_show_smallwave) {} else return;
   if(dez==NA) {}
   else if(dea!=NA && deb!=NA) {} else return;
   double fp=1.0-1.0*EX_bsW+1.0*EX_csW;
   double fx=1.0+1.0*EX_bsW+1.0*EX_csW;
   if(dea==NA) {pea=pdz-He*1.0/fp; tea=Shift(tdz,Xe*1.0/fx);}
   else        {pea=mHigh(bea);}
   if(deb==NA) {peb=pea+He*1.0*EX_bsW/fp; teb=Shift(tea,Xe*1.0*EX_bsW/fx);}
   else        {peb=mLow (beb);}
   DrawWave("B-a wave",tdz,pdz,tea,pea,EX_cl2);
   DrawWave("B-b wave",tea,pea,teb,peb,EX_cl2);
   DrawWave(" "       ,teb,peb,tez,pez,EX_cl2);
}
//+------------------------------------------------------------------+
//|   DrawWave                                                       |
//+------------------------------------------------------------------+
void DrawWave(string n,datetime t1,double p1,datetime t2,double p2,color cl)
{
   DrawLine(cid+e,t1,p1,t2,p2,cl); e++;
   if(n!=" ")
     {string tx=" ";
      if(EX_show_name) tx=tx+n+" ";
      if(EX_show_date) tx=tx+TimeToStr(t2,TIME_DATE)+" ";
      if(EX_show_price1) tx=tx+DoubleToStr(p2,Digits)+" ";
      if(EX_show_price2) tx=tx+"("+DoubleToStr(p2-p1,Digits)+")";
      DrawText(cid+e,t2,tx,p2,EX_cl3);
      e++;
     }
}
//+------------------------------------------------------------------+
//|   DrawLine                                                       |
//+------------------------------------------------------------------+
void DrawLine(string no,datetime t1,double p1,datetime t2,double p2,color cl)
{
   ObjectCreate(no,OBJ_TREND,0,0,0,0,0);
   ObjectSet(no,OBJPROP_STYLE ,STYLE_SOLID);
   ObjectSet(no,OBJPROP_COLOR ,cl);
   ObjectSet(no,OBJPROP_WIDTH ,1);
   ObjectSet(no,OBJPROP_TIME1 ,t1);
   ObjectSet(no,OBJPROP_PRICE1,p1);
   ObjectSet(no,OBJPROP_TIME2 ,t2);
   ObjectSet(no,OBJPROP_PRICE2,p2);
   ObjectSet(no,OBJPROP_RAY,false);
   ObjectSet(no,OBJPROP_BACK,false);
}
//+------------------------------------------------------------------+
//|   DrawText                                                       |
//+------------------------------------------------------------------+
void DrawText(string no,datetime tb,string tx,double p,color cl) 
{  ObjectCreate(no,OBJ_TEXT,0,0,0);
   ObjectSet(no,OBJPROP_TIME1   ,tb);
   ObjectSet(no,OBJPROP_PRICE1  ,p);
   ObjectSet(no,OBJPROP_COLOR   ,cl);
   ObjectSet(no,OBJPROP_FONTSIZE,9);
   ObjectSetText(no,tx);
}
//+------------------------------------------------------------------+
//|   mHigh                                                          |
//+------------------------------------------------------------------+
double mHigh(int b)
{  double p;
   if(uptrend) p=High[b]; else p=Low[b];
   return(p);
}
//+------------------------------------------------------------------+
//|   mLow                                                           |
//+------------------------------------------------------------------+
double mLow(int b)
{  double p;
   if(uptrend) p=Low[b]; else p=High[b];
   return(p);
}
//+------------------------------------------------------------------+
//|   SetTime                                                        |
//+------------------------------------------------------------------+
void SetTime() 
{  
   t00=StrToTime(d00+" 00:00"); b00=iBarShift(NULL,0,t00);
   t1z=StrToTime(d1z+" 00:00"); b1z=iBarShift(NULL,0,t1z);
   t2a=StrToTime(d2a+" 00:00"); b2a=iBarShift(NULL,0,t2a);
   t2b=StrToTime(d2b+" 00:00"); b2b=iBarShift(NULL,0,t2b);
   t2z=StrToTime(d2z+" 00:00"); b2z=iBarShift(NULL,0,t2z);
   t31=StrToTime(d31+" 00:00"); b31=iBarShift(NULL,0,t31);
   t32=StrToTime(d32+" 00:00"); b32=iBarShift(NULL,0,t32);
   t33=StrToTime(d33+" 00:00"); b33=iBarShift(NULL,0,t33);
   t34=StrToTime(d34+" 00:00"); b34=iBarShift(NULL,0,t34);
   t3z=StrToTime(d3z+" 00:00"); b3z=iBarShift(NULL,0,t3z);
   t4a=StrToTime(d4a+" 00:00"); b4a=iBarShift(NULL,0,t4a);
   t4b=StrToTime(d4b+" 00:00"); b4b=iBarShift(NULL,0,t4b);
   t4z=StrToTime(d4z+" 00:00"); b4z=iBarShift(NULL,0,t4z);
   t51=StrToTime(d51+" 00:00"); b51=iBarShift(NULL,0,t51);
   t52=StrToTime(d52+" 00:00"); b52=iBarShift(NULL,0,t52);
   t53=StrToTime(d53+" 00:00"); b53=iBarShift(NULL,0,t53);
   t54=StrToTime(d54+" 00:00"); b54=iBarShift(NULL,0,t54);
   t5z=StrToTime(d5z+" 00:00"); b5z=iBarShift(NULL,0,t5z);
   ta1=StrToTime(da1+" 00:00"); ba1=iBarShift(NULL,0,ta1);
   ta2=StrToTime(da2+" 00:00"); ba2=iBarShift(NULL,0,ta2);
   ta3=StrToTime(da3+" 00:00"); ba3=iBarShift(NULL,0,ta3);
   ta4=StrToTime(da4+" 00:00"); ba4=iBarShift(NULL,0,ta4);
   taa=StrToTime(daa+" 00:00"); baa=iBarShift(NULL,0,taa);
   tab=StrToTime(dab+" 00:00"); bab=iBarShift(NULL,0,tab);
   taz=StrToTime(daz+" 00:00"); baz=iBarShift(NULL,0,taz);
   tba=StrToTime(dba+" 00:00"); bba=iBarShift(NULL,0,tba);
   tbb=StrToTime(dbb+" 00:00"); bbb=iBarShift(NULL,0,tbb);
   tbz=StrToTime(dbz+" 00:00"); bbz=iBarShift(NULL,0,tbz);
   tc1=StrToTime(dc1+" 00:00"); bc1=iBarShift(NULL,0,tc1);
   tc2=StrToTime(dc2+" 00:00"); bc2=iBarShift(NULL,0,tc2);
   tc3=StrToTime(dc3+" 00:00"); bc3=iBarShift(NULL,0,tc3);
   tc4=StrToTime(dc4+" 00:00"); bc4=iBarShift(NULL,0,tc4);
   tcz=StrToTime(dcz+" 00:00"); bcz=iBarShift(NULL,0,tcz);
   tda=StrToTime(dda+" 00:00"); bda=iBarShift(NULL,0,tda);
   tdb=StrToTime(ddb+" 00:00"); bdb=iBarShift(NULL,0,tdb);
   tdz=StrToTime(ddz+" 00:00"); bdz=iBarShift(NULL,0,tdz);
   tea=StrToTime(dea+" 00:00"); bea=iBarShift(NULL,0,tea);
   teb=StrToTime(deb+" 00:00"); beb=iBarShift(NULL,0,teb);
   tez=StrToTime(dez+" 00:00"); bez=iBarShift(NULL,0,tez);

}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int DelObject()
{  int i;
   for(i=0; i<=200; i++) ObjectDelete(cid+i);
}
//+------------------------------------------------------------------+
//   Shift                                                           |
//+------------------------------------------------------------------+
datetime Shift(datetime dt,int sf) {
   int ty=TimeYear(dt);
   int tm=TimeMonth(dt);
   int td=TimeDay(dt);
   int th=TimeHour(dt);
   int ti=TimeMinute(dt);
   int i;
   
   for(i=1; i<=sf; i++)
     {if     (Period()==PERIOD_M1 ) ti=ti+1;
      else if(Period()==PERIOD_M5 ) ti=ti+5;
      else if(Period()==PERIOD_M15) ti=ti+15;
      else if(Period()==PERIOD_M30) ti=ti+30;
      else if(Period()==PERIOD_H1 ) th=th+1;
      else if(Period()==PERIOD_H4 ) th=th+4;
      else if(Period()==PERIOD_D1 ) td=td+1;
      else if(Period()==PERIOD_W1 ) td=td+7;
      else if(Period()==PERIOD_MN1) tm=tm+1;

      if(ti>=60) {ti=ti-60; th++;}
      if(th>=24) {th=th-24; td++;}
      if(tm==1 || tm==3 || tm==5 || tm==7 || tm==8 || tm==10 || tm==12) {if(td>31) {tm++; td=td-31;}}
      else if(tm==2) {
                      if(MathMod(ty,4)==0)
                        {if(td>29) {tm++; td=td-29;}} 
                      else 
                        {if(td>28) {tm++; td=td-28;}}
                     }
      else if(tm==4 || tm==6 || tm==9 || tm==11) if(td>30) {tm++; td=td-30;}
      if(tm>12) {tm=1; ty++;}
     }
   return(StrToTime(ty+"."+tm+"."+td+" 00:00"));
}

Similar scripts

yourspace_ElliottWaveModel

A geometric charting tool that maps multi-degree Fibonacci retracements and sub-wave structures to visualize complex price cycles through user-defined anchor points.

MS_Pentagon_001

This indicator maps geometric price action patterns using Fibonacci-based spatial proportions while overlaying specific solar and lunar eclipse coordinates for astronomical market synchronization.

MS_PentagonW

This indicator synchronizes Fibonacci-based pentagonal geometric expansions with astronomical lunar and solar eclipse cycles to identify structural price pivots.

MS_PentagonS

This indicator identifies geometric price structures using Fibonacci-based proportions and overlays significant astronomical lunar and solar eclipse events on the chart.

MS_Pentagon_002

This indicator identifies price action structural breaks using a recursive pentagonal geometric expansion while overlaying historical solar and lunar eclipse data for astrological time-cycle correlation.

i-MorningRange_v1

This indicator dynamically projects horizontal price boundaries by identifying the session highs and lows between midnight and a user-defined time across multiple historical trading days.

Session Open V-Line Indi

This indicator automatically plots vertical visual markers and price range high-low boundaries for Asian, European, and American trading sessions across a historical timeframe.

i-ParamonWorkTime_v1

This indicator visualizes specific daily trading windows by overlaying shaded rectangular zones that highlight price boundaries and historical range dynamics.

i-MorningRange

This indicator identifies and projects the high and low price boundaries established during a specific opening morning session over a customizable historical period.

i-ParamonWorkTime_v2

This indicator visually projects distinct time-based zones onto the chart to identify specific periods of liquidity and volatility across historical dates.

MarketTime

This indicator projects visual rectangular zones on the chart to demarcate specific high-volatility windows for Asian, European, and American trading sessions over a historical multi-day period.

Comments