Time: 2011-03-07 | Download file:m_math.mq4
#property indicator_chart_window
//+------------------------------------------------------------------+
extern int P = 200;
extern int FW = 500;
extern int StepBack = 0;
//+------------------------------------------------------------------+
extern bool color.frame=true;
extern color MM2Color = LightPink;
extern color MM1Color = LightCyan;
extern color MM3Color = White;
//+------------------------------------------------------------------+
extern color mml_clr_m_2_8 = Red; //[-2]/8
extern color mml_clr_m_1_8 = Orange; //[-1]/8
extern color mml_clr_0_8 = DeepSkyBlue; //[0]/8
extern color mml_clr_1_8 = Gold; //[1]/8
extern color mml_clr_2_8 = HotPink; //[2]/8
extern color mml_clr_3_8 = Lime; //[3]/8
extern color mml_clr_4_8 = DeepSkyBlue; //[4]/8
extern color mml_clr_5_8 = Lime; //[5]/8
extern color mml_clr_6_8 = HotPink; //[6]/8
extern color mml_clr_7_8 = Gold; //[7]/8
extern color mml_clr_8_8 = DeepSkyBlue; //[8]/8
extern color mml_clr_p_1_8 = Orange; //[+1]/8
extern color mml_clr_p_2_8 = Red; //[+2]/8
extern int mml_wdth_m_2_8 = 2; // [-2]/8
extern int mml_wdth_m_1_8 = 1; // [-1]/8
extern int mml_wdth_0_8 = 2; // [0]/8
extern int mml_wdth_1_8 = 1; // [1]/8
extern int mml_wdth_2_8 = 2; // [2]/8
extern int mml_wdth_3_8 = 1; // [3]/8
extern int mml_wdth_4_8 = 2; // [4]/8
extern int mml_wdth_5_8 = 1; // [5]/8
extern int mml_wdth_6_8 = 2; // [6]/8
extern int mml_wdth_7_8 = 1; // [7]/8
extern int mml_wdth_8_8 = 2; // [8]/8
extern int mml_wdth_p_1_8 = 1; // [+1]/8
extern int mml_wdth_p_2_8 = 2; // [+2]/8
//+------------------------------------------------------------------+
#define FF1 "FF1"
#define FF2 "FF2"
#define FF3 "FF3"
#define FF4 "FF4"
#define FF5 "FF5"
//+------------------------------------------------------------------+
double DecNos;
double dmml = 0,
dvtl = 0,
sum = 0,
v1 = 0,
v2 = 0,
v4 = 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,
ip[9,13],
mml[13];
//+------------------------------------------------------------------+
string ln_txt[13], ln_tx[13], ln_txt1[13], tf_txt[9,13], tstr="",
sf_txt[9]={"M1","M5","M15","M30","H1","H4","D1","W1","MN1"},
buff_str = "", buff_str2 = "", buff_str3 = "", buff_str4 = "";
//+------------------------------------------------------------------+
int bn_v1=0, bn_v2=0, bn_v4=0, OctLinesCnt=13, mml_thk=8, mml_clr[13], mml_shft=3, nTime=0, CurPeriod=0,
nDigits=0, frametemp=0, i=0, gb=0, gb.T=0, mP=0, lperiod=0, d=0,ts=0, mml_wdth[13];
int iTF = 0, // счетчик по таймфреймам
iLC = 0, // счетчик по линиям
TF[9] = {PERIOD_M1,PERIOD_M5,PERIOD_M15,PERIOD_M30,PERIOD_H1,PERIOD_H4,PERIOD_D1,PERIOD_W1,PERIOD_MN1},
Lwidth[13],
j = 0,
nTF=9;
//+------------------------------------------------------------------+
int init() {
//---- indicators
ln_txt1[0] = "[-2/8] "; //extremely overshoot [-2/8]";// [-2/8]
ln_txt1[1] = "[-1/8] ";// "overshoot [-1/8]";// [-1/8]
ln_txt1[2] = "[0/8] ";
ln_txt1[3] = "[1/8] ";// "Weak, Stall and Reverse - [1/8]";// [1/8]
ln_txt1[4] = "[2/8] ";// "Pivot, Reverse - major [2/8]";// [2/8]
ln_txt1[5] = "[3/8] ";// "Bottom of Trading Range - [3/8], if 10-12 bars then 40% Time. BUY Premium Zone";//[3/8]
ln_txt1[6] = "[4/8] ";// "Major Support/Resistance Pivotal Point [4/8]- Best New BUY or SELL level";// [4/8]
ln_txt1[7] = "[5/8] ";// "Top of Trading Range - [5/8], if 10-12 bars then 40% Time. SELL Premium Zone";//[5/8]
ln_txt1[8] = "[6/8] ";// "Pivot, Reverse - major [6/8]";// [6/8]
ln_txt1[9] = "[7/8] ";// "Weak, Stall and Reverse - [7/8]";// [7/8]
ln_txt1[10] = "[8/8] ";
ln_txt1[11] = "[+1/8] ";// "overshoot [+1/8]";// [+1/8]
ln_txt1[12] = "[+2/8] ";// "extremely overshoot [+2/8]";// [+2/8]
//+------------------------------------------------------------------+
mml_clr[0] = mml_clr_m_2_8; mml_wdth[0] = mml_wdth_m_2_8; // [-2]/8
mml_clr[1] = mml_clr_m_1_8; mml_wdth[1] = mml_wdth_m_1_8; // [-1]/8
mml_clr[2] = mml_clr_0_8; mml_wdth[2] = mml_wdth_0_8; // [0]/8
mml_clr[3] = mml_clr_1_8; mml_wdth[3] = mml_wdth_1_8; // [1]/8
mml_clr[4] = mml_clr_2_8; mml_wdth[4] = mml_wdth_2_8; // [2]/8
mml_clr[5] = mml_clr_3_8; mml_wdth[5] = mml_wdth_3_8; // [3]/8
mml_clr[6] = mml_clr_4_8; mml_wdth[6] = mml_wdth_4_8; // [4]/8
mml_clr[7] = mml_clr_5_8; mml_wdth[7] = mml_wdth_5_8; // [5]/8
mml_clr[8] = mml_clr_6_8; mml_wdth[8] = mml_wdth_6_8; // [6]/8
mml_clr[9] = mml_clr_7_8; mml_wdth[9] = mml_wdth_7_8; // [7]/8
mml_clr[10] = mml_clr_8_8; mml_wdth[10]= mml_wdth_8_8; // [8]/8
mml_clr[11] = mml_clr_p_1_8; mml_wdth[11]= mml_wdth_p_1_8; // [+1]/8
mml_clr[12] = mml_clr_p_2_8; mml_wdth[12]= mml_wdth_p_2_8; // [+2]/8
//+------------------------------------------------------------------+
// mml_wdth[0] = 2;
// mml_wdth[1] = 1;
// mml_wdth[2] = 2;
// mml_wdth[3] = 1;
// mml_wdth[4] = 2;
// mml_wdth[5] = 1;
// mml_wdth[6] = 2;
// mml_wdth[7] = 1;
// mml_wdth[8] = 2;
// mml_wdth[9] = 1;
// mml_wdth[10] = 2;
// 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] = DeepSkyBlue;//Red; // [0]/8
// mml_clr[3] = Yellow;//C'60,60,60'; // [1]/8
// mml_clr[4] = HotPink;//DarkGreen; // [2]/8
// mml_clr[5] = Lime;//C'60,60,60'; // [3]/8
// mml_clr[6] = DeepSkyBlue;//Lavender; // [4]/8
// mml_clr[7] = Lime;//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] = DeepSkyBlue;//Red; // [8]/8
// mml_clr[11] = Orange;//C'60,60,60';//DarkViolet; // [+1]/8
// mml_clr[12] = Red;//Maroon;//LightSlateGray; // [+2]/8
//+------------------------------------------------------------------+
return(0);
}
//+------------------------------------------------------------------+
int deinit() {
//---- TODO: add your code here
Comment(" ");
//+------------------------------------------------------------------+
for(i=0;i=0; iTF--) { // со старших таймфреймов до текущего
Raschet(TF[iTF]);
for (iLC=0; iLC=0; iTF--){ // простановка надписей на уровни последнего расчитанного ТФ
for (iLC=0; iLC(mml[j]-(dmml/2))) ) {// попадание в диапазон
tstr=StringTrimLeft(StringTrimRight(ln_txt[j])+" ");
ln_txt[j]=StringConcatenate(tstr, tf_txt[iTF,iLC]);
if ( Lwidth[j]25000 )
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; 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
if( (v1>=(3*(mx-mn)/16+mn)) && (v2<=(9*(mx-mn)/16+mn))) x2=mn+(mx-mn)/2; else x2=0;
if( (v1>=(mn-(mx-mn)/8)) && (v2<=(5*(mx-mn)/8+mn)) && (x2==0)) x1=mn+(mx-mn)/2; else x1=0;
if( (v1>=(mn+7*(mx-mn)/16)) && (v2<=(13*(mx-mn)/16+mn))) x4=mn+3*(mx-mn)/4;else x4=0;
if( (v1>=(mn+3*(mx-mn)/8)) && (v2<=(9*(mx-mn)/8+mn))&& (x4==0)) x5=mx; else x5=0;
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;
if( (x1+x2+x3+x4+x5) ==0 ) x6=mx; else x6=0;
finalH = x1+x2+x3+x4+x5+x6;
// calculating yy
if( x1>0 ) y1=mn; else y1=0;
if( x2>0 ) y2=mn+(mx-mn)/4; else y2=0;
if( x3>0 ) y3=mn+(mx-mn)/4; else y3=0;
if( x4>0 ) y4=mn+(mx-mn)/2; else y4=0;
if( x5>0 ) y5=mn+(mx-mn)/2; else y5=0;
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