Navigation:Home > Content >

M-MATH_v3~.mq4

Time: 2014-03-03 | Download file:M-MATH_v3~.mq4

// +----------------------------------------------------------------------------------------+ //
// |                                        !FT M-MATH v3  \¦/                              | //
// |                            Knowledge of the ancients (т у)                             | //
// |_________________________________________________o0o___(_)___o0o________________________| //
// |_____|_____|_____|_____|_____|_____|_____|_____|_____|_____|_____|_____|_____|____|_____| //
// |                                                                                   2011 | //
// |----------------------------------------------------------------------------------------| //
// | Programming language:     MQL4                                                         | //
// | Development platform:     MetaTrader 4                                                 | //
// |          End product:     Indicator for MetaTrader 4 designed                          | //
// |                           for Build 229 (current version)                              | //
// +----------------------------------------------------------------------------------------+ //

#property indicator_chart_window
//+------------------------------------------------------------------+ 
extern color midcol = DeepSkyBlue;

double s1[];
extern int P = 64;
extern int FW = 64;
extern int StepBack = 0;

extern bool   show_timeleft=false;
extern bool   show_symbol_price=false;
extern int win = 0;
extern int Adjust_Side_to_side = 10;
extern int Shift_UP_DN = 0;

extern bool   showcomments=true;
//+------------------------------------------------------------------+
extern bool       bml_25_lines=false;
extern color      bml_25_color=DarkSlateGray;
extern int        bml_25_style=0;
//+------
extern bool       bml_33_lines=false;
extern color      bml_33_color=DarkSlateGray;
extern int        bml_33_style=0;
//+------
extern bool       bml_50_lines=false;
extern color      bml_50_color=DarkSlateGray;
extern int        bml_50_style=1;
//+------------------------------------------------------------------+ 
extern bool color_frame=true;
color MM1Color = clrNONE;   //C'0,90,90';
color MM2Color = C'100,5,60'; //C'90,0,90';
color MM3Color = clrNONE;   //C'0,30,90';
color MM4Color = C'30,35,12';   //C'0,30,90';
//+------------------------------------------------------------------+
#define FF1 "FF1"
#define FF2 "FF2"
#define FF3 "FF3"
#define FF4 "FF4"
#define FF5 "FF5"
#define FF6 "FF6"
//+------------------------------------------------------------------+ 
int l996 = 0;
int l1004 = 0;
 

double  bml_25[26], bml_33[26], bml_50[12];
double  dmml = 0,
        dvtl = 0,
        sum  = 0,
        v1 = 0,
        v2 = 0,
        mn = 0,
        mx = 0,
        x1 = 0,
        x2 = 0,
        x3 = 0,
        x4 = 0,
        x5 = 0,
        x6 = 0,
        y1 = 0,
        y2 = 0,
        y3 = 0,
        y4 = 0,
        y5 = 0,
        y6 = 0,
        octave = 0,
        fractal = 0,
        range   = 0,
        finalH  = 0,
        finalL  = 0,
        DecNos,
        mml[13];
        

            
//+------------------------------------------------------------------+ 
string  ln_txt[13], ln_tx[13],       
        buff_str = "", buff_str2 = "", buff_str3 = "", buff_str4 = "";
//+------------------------------------------------------------------+         
int bn_v1=0, bn_v2=0, OctLinesCnt=13, mml_thk=8, mml_clr[13], mml_shft=3, nTime=0, CurPeriod=0, x33 = 0, x25 = 0, x50 = 0,
    nDigits=0, frametemp=0, i=0, gb=0, gb_T=0, mP=0, lperiod=0, d=0,ts=0, mml_wdth[13],
    bml_33_Cnt = 26, bml_25_Cnt = 38, bml_50_Cnt = 12;
//+------------------------------------------------------------------+
int init() {
//---- indicators
   ln_txt[0]  = "[-2/8]  ";
   ln_txt[1]  = "[-1/8]  ";
   ln_txt[2]  = "[0/8]  ";
   ln_txt[3]  = "[1/8]  ";
   ln_txt[4]  = "[2/8]  ";
   ln_txt[5]  = "[3/8]  ";
   ln_txt[6]  = "[4/8]  ";
   ln_txt[7]  = "[5/8]  ";
   ln_txt[8]  = "[6/8]  ";
   ln_txt[9]  = "[7/8]  ";
   ln_txt[10] = "[8/8]  ";
   ln_txt[11] = "[+1/8]  ";
   ln_txt[12] = "[+2/8]  ";
//+------------------------------------------------------------------+    
   mml_wdth[0] = 2;
   mml_wdth[1] = 1;
   mml_wdth[2] = 3;
   mml_wdth[3] = 1;
   mml_wdth[4] = 1;
   mml_wdth[5] = 1;
   mml_wdth[6] = 3;
   mml_wdth[7] = 1;
   mml_wdth[8] = 1;
   mml_wdth[9] = 1;
   mml_wdth[10] = 3;
   mml_wdth[11] = 1;
   mml_wdth[12] = 2;
//+------------------------------------------------------------------+   
   ln_tx[0]  = "";
   ln_tx[1]  = "";
   ln_tx[2]  = "";
   ln_tx[3]  = "";
   ln_tx[4]  = "";
   ln_tx[5]  = "";
   ln_tx[6]  = "";
   ln_tx[7]  = "";
   ln_tx[8]  = "";
   ln_tx[9]  = "";
   ln_tx[10] = "";
   ln_tx[11] = "";
   ln_tx[12] = "";
//+------------------------------------------------------------------+ 
   mml_shft = 0;//original was 3
   mml_thk  = 3;
//+------------------------------------------------------------------+  
   mml_clr[0]  = Red;//Maroon;    // [-2]/8
   mml_clr[1]  = Orange;//C'60,60,60';  // [-1]/8
   mml_clr[2]  = RoyalBlue;//Red;        //  [0]/8
   mml_clr[3]  = Yellow;//C'60,60,60';      //  [1]/8
   mml_clr[4]  = HotPink;//DarkGreen;         //  [2]/8
   mml_clr[5]  = Green;//C'60,60,60';   //  [3]/8
   mml_clr[6]  = midcol;//Lavender;        //  [4]/8
   mml_clr[7]  = Green;//C'60,60,60';   //  [5]/8
   mml_clr[8]  = HotPink;//DarkGreen;         //  [6]/8
   mml_clr[9]  = Yellow;//C'60,60,60';      //  [7]/8
   mml_clr[10] = RoyalBlue;//Red;        //  [8]/8
   mml_clr[11] = Orange;//C'60,60,60';//DarkViolet;  // [+1]/8
   mml_clr[12] = Red;//Maroon;//LightSlateGray;    // [+2]/8
//+------------------------------------------------------------------+ 
  bn_v1 = Lowest(NULL,0,MODE_LOW,0);
  bn_v2 = Highest(NULL,0,MODE_HIGH,0);

  v1 = Low[bn_v1];
  v2 = High[bn_v2];

   return(0);
  }
//+------------------------------------------------------------------+
int deinit() {
//---- TODO: add your code here
Comment(" ");   
//+------------------------------------------------------------------+ 
for(i=0;i25000 )
   fractal=100000;
   else
     if( v2<=25000 && v2>2500 )
     fractal=10000;
     else
       if( v2<=2500 && v2>250 )
       fractal=1000;
       else
         if( v2<=250 && v2>25 )
         fractal=100;
         else
           if( v2<=25 && v2>12.5 )
           fractal=12.5;
           else
             if( v2<=12.5 && v2>6.25)
             fractal=12.5;
             else
               if( v2<=6.25 && v2>3.125 )
               fractal=6.25;
               else
                 if( v2<=3.125 && v2>1.5625 )
                 fractal=3.125;
                 else
                   if( v2<=1.5625 && v2>0.390625 )
                   fractal=1.5625;
                   else
                     if( v2<=0.390625 && v2>0)
                     fractal=0.1953125;
//+------------------------------------------------------------------+       
   range=(v2-v1);
   sum=MathFloor(MathLog(fractal/range)/MathLog(2));
   octave=fractal*(MathPow(0.5,sum));
   mn=MathFloor(v1/octave)*octave;
   if( (mn+octave)>v2 )
   mx=mn+octave; 
   else
     mx=mn+(2*octave);
//+------------------------------------------------------------------+ 
// calculating xx
//x2
    if( (v1>=(3*(mx-mn)/16+mn)) && (v2<=(9*(mx-mn)/16+mn)) )
    x2=mn+(mx-mn)/2; 
    else x2=0;
//x1
    if( (v1>=(mn-(mx-mn)/8))&& (v2<=(5*(mx-mn)/8+mn)) && (x2==0) )
    x1=mn+(mx-mn)/2; 
    else x1=0;

//x4
    if( (v1>=(mn+7*(mx-mn)/16))&& (v2<=(13*(mx-mn)/16+mn)) )
    x4=mn+3*(mx-mn)/4; 
    else x4=0;

//x5
    if( (v1>=(mn+3*(mx-mn)/8))&& (v2<=(9*(mx-mn)/8+mn))&& (x4==0) )
    x5=mx; 
    else  x5=0;

//x3
    if( (v1>=(mn+(mx-mn)/8))&& (v2<=(7*(mx-mn)/8+mn))&& (x1==0) && (x2==0) && (x4==0) && (x5==0) )
    x3=mn+3*(mx-mn)/4; 
    else x3=0;

//x6
    if( (x1+x2+x3+x4+x5) ==0 )
    x6=mx; 
    else x6=0;

     finalH = x1+x2+x3+x4+x5+x6;
// calculating yy
//y1
    if( x1>0 )
    y1=mn; 
    else y1=0;

//y2
    if( x2>0 )
    y2=mn+(mx-mn)/4; 
    else y2=0;

//y3
    if( x3>0 )
    y3=mn+(mx-mn)/4; 
    else y3=0;

//y4
    if( x4>0 )
    y4=mn+(mx-mn)/2; 
    else y4=0;

//y5
    if( x5>0 )
    y5=mn+(mx-mn)/2; 
    else y5=0;

//y6
    if( (finalH>0) && ((y1+y2+y3+y4+y5)==0) )
    y6=mn; 
    else y6=0;

    finalL = y1+y2+y3+y4+y5+y6;
    
//+------------------------------------------------------------------+ 
  double xo = (finalH-finalL);
  double xmm = xo/8;
//+------------------------------------------------------------------+ 
    for( i=0; i        

Recommend