Navigation:Home > Content >

8376-better-murray-math-mm-levels.mq4

Time: 2014-04-28 | Download file:8376-better-murray-math-mm-levels.mq4

//+------------------------------------------------------------------+
//|                                            Murrey_Math_MT_VG.mq4 |
//|                      Copyright © 2004, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Vladislav Goshkov (VG)."
#property link      "4vg@mail.ru"

#property indicator_chart_window

// ============================================================================================
// * Лcнcc 8/8 c 0/8 (Оeончrnlльноl nоddоncвлlнcl).
// * Эnc лcнcc nreul ncльнul c оerзuвrtn ncльнlйrcl nоddоncвлlнc? c dоддldceу.
// ============================================================================================
//* Лcнc? 7/8  (Nлrбr?, elnnо дл? оnnrновec c drзвоdоnr). Weak, Stall and Reverse
//* Эnr лcнc? nлrбr. Lnлc цlнr зrrлr nлcreоe дrлleо c nлcreоe бunndо c lnлc онr оnnrновcлrnь оeоло эnой лcнcc, 
//* знrчcn онr drзвldнlnn? бunndо внcз. Lnлc цlнr нl оnnrновcлrnь оeоло эnой лcнcc, онr ddодолccn двcclнcl ввldo e 8/8.
// ============================================================================================
//* Лcнc? 1/8  (Nлrбr?, elnnо дл? оnnrновec c drзвоdоnr). Weak, Stall and Reverse
//* Эnr лcнc? nлrбr. Lnлc цlнr зrrлr nлcreоe дrлleо c nлcreоe бunndо c lnлc онr оnnrновcлrnь оeоло эnой лcнcc, 
//* знrчcn онr drзвldнlnn? бunndо ввldo. Lnлc цlнr нl оnnrновcлrnь оeоло эnой лcнcc, онr ddодолccn двcclнcl внcз e 0/8.
// ============================================================================================
//* Лcнcc 6/8 c 2/8 (Вdrulнcl, drзвоdоn). Pivot, Reverse
//* Эnc двl лcнcc уnnуdrtn в nвоlй ncлl nольeо 4/8 в nвоlй ndоnобноnnc dолноnnьt drзвldнуnь цlновоl двcclнcl.
// ============================================================================================
//* Лcнc? 5/8 (Вldo nоdaовоaо дcrdrзонr). Top of Trading Range
//* Цlнu вnlo duнeов ndrn?n 40% вdlelнc, нr двcclнcl elcду 5/8 c 3/8 лcнc?ec. 
//* Lnлc цlнr двcarlnn? оeоло лcнcc 5/8 c оnnrlnn? оeоло нll в nlчlнcc 10-12 днlй, duноe nerзrл чnо nлlдуln 
//* ddодrвrnь в эnой «ddlecrльной зонl», чnо c дlлrtn нleоnоdul лtдc, но lnлc цlнr nоodrн?ln nlндlнцct оnnrвrnьn? 
//* вurl 5/8, nо онr c оnnrнlnn? вurl нll. Lnлc, однreо, цlнr drдrln нccl 5/8, nо онr neоdll вnlaо ddодолccn 
//* drдrnь дrлll до nлlдуtulaо уdовн? nоddоncвлlнc?.
// ============================================================================================
//* Лcнc? 3/8 (Дно nоdaовоaо дcrdrзонr). Bottom of Trading Range
//* Lnлc цlнu нccl эnой лcнc c двcartnn? ввldo, nо цlнl будln nлоcно ddобcnь эnоn уdовlнь. 
//* Lnлc ddобcвrtn ввldo эnу лcнct c оnnrtnn? вurl нll в nlчlнcc 10-12 днlй, знrчcn цlнu оnnrнуnn? вurl эnой лcнcc 
//* c dоndrn?n 40% вdlelнc двcar?nь elcду эnой лcнclй c 5/8 лcнclй.
// ============================================================================================
//* Лcнc? 4/8 (Aлrвнr? лcнc? nоddоncвлlнc?/dоддldcec). Major Support/Resistance
//* Эnr лcнc? обlndlчcвrln нrcбольrll nоddоncвлlнcl/dоддldceу. Эnоn уdовlнь ?вл?lnn? лучrce дл? новой dоeуdec cлc ddодrcc. 
//* Lnлc цlнr нroодcnn? вurl 4/8, nо эnо ncльнuй уdовlнь dоддldcec. Lnлc цlнr нroодcnn? нccl 4/8, nо эnо ddledrnнuй уdовlнь 
//* nоddоncвлlнc?.
// ============================================================================================
extern int P = 64;
extern int StepBack = 0;

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,
        mml[13];

string  ln_txt[13],        
        buff_str = "";
        
int     
        bn_v1   = 0,
        bn_v2   = 0,
        OctLinesCnt = 13,
        mml_thk = 8,
        mml_clr[13],
        mml_shft = 3,
        nTime = 0,
        CurPeriod = 0,
        nDigits = 0,
        i = 0;

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init() {
//---- indicators
   
   ln_txt[0]  = "[-2/8]P";// "extremely overshoot [-2/8]";// [-2/8]
   ln_txt[1]  = "[-1/8]P";// "overshoot [-1/8]";// [-1/8]
   ln_txt[2]  = "[0/8]P";// "Ultimate Support - extremely oversold [0/8]";// [0/8]
   ln_txt[3]  = "[1/8]P";// "Weak, Stall and Reverse - [1/8]";// [1/8]
   ln_txt[4]  = "[2/8]P";// "Pivot, Reverse - major [2/8]";// [2/8]
   ln_txt[5]  = "[3/8]P";// "Bottom of Trading Range - [3/8], if 10-12 bars then 40% Time. BUY Premium Zone";//[3/8]
   ln_txt[6]  = "[4/8]P";// "Major Support/Resistance Pivotal Point [4/8]- Best New BUY or SELL level";// [4/8]
   ln_txt[7]  = "[5/8]P";// "Top of Trading Range - [5/8], if 10-12 bars then 40% Time. SELL Premium Zone";//[5/8]
   ln_txt[8]  = "[6/8]P";// "Pivot, Reverse - major [6/8]";// [6/8]
   ln_txt[9]  = "[7/8]P";// "Weak, Stall and Reverse - [7/8]";// [7/8]
   ln_txt[10] = "[8/8]P";// "Ultimate Resistance - extremely overbought [8/8]";// [8/8]
   ln_txt[11] = "[+1/8]P";// "overshoot [+1/8]";// [+1/8]
   ln_txt[12] = "[+2/8]P";// "extremely overshoot [+2/8]";// [+2/8]

   mml_shft = 3;
   mml_thk  = 3;

   // Нrчrльнr? уnnrновer цвlnов уdовнlй оenrв 
   mml_clr[0]  = DarkBlue;    // [-2]/8
   mml_clr[1]  = DarkViolet;  // [-1]/8
   mml_clr[2]  = Aqua;        //  [0]/8
   mml_clr[3]  = Yellow;      //  [1]/8
   mml_clr[4]  = Red;         //  [2]/8
   mml_clr[5]  = DarkGreen;   //  [3]/8
   mml_clr[6]  = Blue;        //  [4]/8
   mml_clr[7]  = DarkGreen;   //  [5]/8
   mml_clr[8]  = Red;         //  [6]/8
   mml_clr[9]  = Yellow;      //  [7]/8
   mml_clr[10] = Aqua;        //  [8]/8
   mml_clr[11] = DarkViolet;  // [+1]/8
   mml_clr[12] = DarkBlue;    // [+2]/8
//----
   return(0);
  }

//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
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;

    for( i=0; i        

Recommend