此種指標(biāo)適用于MT4和MT5平臺。

Murrey Math Line X MetaTrader 指標(biāo) — a一種樞軸線指標(biāo)，可幫助交易商了解如何使用支撐、阻力和樞軸線進(jìn)行交易。它在主圖表上顯示8種不同的線（使用附加線），可幫您找出最佳的賣、買點(diǎn)和離場位置。

輸入?yún)?shù)：

P (默認(rèn) = 64) — 用以計(jì)算此線的天數(shù)或其它時(shí)段（通過MMPeriod設(shè)置）。此數(shù)字越小，更新越快，但計(jì)算的準(zhǔn)確性越低。

MMPeriod (默認(rèn) = 1440) — 以分鐘計(jì)算的一種基本時(shí)段（60 —小時(shí)樞軸點(diǎn)，1440 —日樞軸點(diǎn)，10080 —周樞軸點(diǎn)，43200 —月樞軸點(diǎn)）；如果大于零，指標(biāo)將使用MMPeriod分鐘的總數(shù)P計(jì)算此線。如果等于零，那么指標(biāo)將使用當(dāng)前圖表天數(shù)的總數(shù)P計(jì)算此線。

StepBack (默認(rèn) = 0) — 一種向后的偏移，用以計(jì)算此線（在當(dāng)前天數(shù)或在MMPeriod（如果設(shè)置了）分鐘的數(shù)值）。

其它參數(shù) — 僅能影響此線的可視化參數(shù)。

Murrey Math Line X指標(biāo)簡單易用。0/8P和8/8P線是最后的阻力和支撐線 — 很難被突破。1/8P和7/8P線是較弱的支撐和阻力線，但如果價(jià)格在止于其附近，則會(huì)反轉(zhuǎn)，更改方向。2/8P和6/8P線是很強(qiáng)的反轉(zhuǎn)點(diǎn)。3/8P和5/8P分別是平均交易范圍的底部和頂部；價(jià)格很可能會(huì)快速刺穿這一范圍或仍長時(shí)間在范圍內(nèi)波動(dòng)。4/8P是一個(gè)主要的支撐和阻力線；當(dāng)價(jià)格穿過一定程度的時(shí)候可賣或買。藍(lán)色箭頭標(biāo)記的是最終的計(jì)算日。

標(biāo)簽:MT4 MT5指標(biāo)源碼

MT4源碼：
//+------------------------------------------------------------------+ //| Murrey_Math_Line_X.mq4 | //| Copyright ? 2004, Vladislav Goshkov (VG).| //| www.kzuj.com.cn | //| code change by Alex.Piech.FinGeR | //+------------------------------------------------------------------+ #property copyright "Vladislav Goshkov (VG) && Alex.Piech.FinGeR" #property link "4vg@mail.ru && regnif@gmx.net" #property indicator_chart_window // ============================================================================================ // * Line 8/8 ? 0/8 (Ultimate Support and Ultimate Resistance). // * Those lines are the most strong concerning Support and esistance. // ============================================================================================ //* Line 7/8 (Weak, Place to Stop and Reverse). //* This line is weak. If suddenly the price was going too fast and too far and stops around this line //* it means the price will reverse down very soon. If the price did not stop near this line this price //* will continue the movement to the line 8/8. // ============================================================================================ //* Line 1/8 (Weak, Place to Stop and Reverse). //* This line is weak. If suddenly the price was going too fast and too far and stops around this line //* it means the price will reverse up very soon. If the price did not stop near this line this price //* will continue the movement down to the line 0/8. // ============================================================================================ //* Line 2/8 and 6/8 (Pivot, Reverse) //* Those two lines yield the line 4/8 only to the strength to reverse the price movement. // ============================================================================================ //* Line 5/8 (Top of Trading Range) //* The price is spending the about 40% of the time on the movement between the lines 5/8 and 3/8. //* If the price is moving near line 5/8 and stopping near the line during the 10 - 12 days so it means //* that it is necessary to sell in this "bonus zone" (some people are doing like this) but if the price is keeping the tendency to stay above //* 5/8 line, so it means that the price will be above. But if the price is droping below 5/8 line it means that the price will continue //* falling to the next level of resistance. // ============================================================================================ //* Line 3/8 (Bottom of Trading Range). //* If the price is below this line and in uptrend it means that it will be very difficult for the price to break this level. //* If the price broke this line during the uptrend and staying above during the 10 12 days it means that the price will be above this line //* during the 40% of its time moving between this line and 5/8 line. // ============================================================================================ //* Line 4/8 (Major Support/Resistance Line). //* It is the major line concerning support and resistance. This leve is the better for the new sell or buy. //* It is the strong level of support of the price is above 4/8. It is the fine resistance line if the price is below this 4/8 line. //* 耦鑣鋏椏脲龕. // ============================================================================================ extern int P = 64; extern int MMPeriod = 1440; extern int StepBack = 0; extern color mml_clr_m_2_8 = White; // [-2]/8 extern color mml_clr_m_1_8 = White; // [-1]/8 extern color mml_clr_0_8 = Aqua; // [0]/8 extern color mml_clr_1_8 = Yellow; // [1]/8 extern color mml_clr_2_8 = Red; // [2]/8 extern color mml_clr_3_8 = Green; // [3]/8 extern color mml_clr_4_8 = Blue; // [4]/8 extern color mml_clr_5_8 = Green; // [5]/8 extern color mml_clr_6_8 = Red; // [6]/8 extern color mml_clr_7_8 = Yellow; // [7]/8 extern color mml_clr_8_8 = Aqua; // [8]/8 extern color mml_clr_p_1_8 = White; // [+1]/8 extern color mml_clr_p_2_8 = White; // [+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 = 1; // [0]/8 extern int mml_wdth_1_8 = 1; // [1]/8 extern int mml_wdth_2_8 = 1; // [2]/8 extern int mml_wdth_3_8 = 1; // [3]/8 extern int mml_wdth_4_8 = 1; // [4]/8 extern int mml_wdth_5_8 = 1; // [5]/8 extern int mml_wdth_6_8 = 1; // [6]/8 extern int mml_wdth_7_8 = 1; // [7]/8 extern int mml_wdth_8_8 = 1; // [8]/8 extern int mml_wdth_p_1_8 = 1; // [+1]/8 extern int mml_wdth_p_2_8 = 2; // [+2]/8 extern color MarkColor = Blue; extern int MarkNumber = 217; 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_wdth[13], mml_shft = 35, nTime = 0, CurPeriod = 0, nDigits = 0, i = 0; int NewPeriod=0; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { //---- indicators if(MMPeriod>0) NewPeriod = P*MathCeil(MMPeriod/Period()); else NewPeriod = P; 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, Place to Stop 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, Place to Stop 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; // 襪鬣朦磬 簣蜞眍悵? 鱺弳鉬 箴鉬礤? 鈮蜞? ? 蠑膣檜? 腓龕? 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 //---- return(0); } //+------------------------------------------------------------------+ //| Custor indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { //---- TODO: add your code here Comment(" "); for(i=0;i<OctLinesCnt;i++) { buff_str = "mml"+i; ObjectDelete(buff_str); buff_str = "mml_txt"+i; ObjectDelete(buff_str); buff_str = "MML_LatestCulcBar"; ObjectDelete(buff_str); } //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { //---- TODO: add your code here if( (nTime != Time[0]) || (CurPeriod != Period()) ) { //price bn_v1 = Lowest(NULL,0,MODE_LOW,NewPeriod+StepBack,StepBack); bn_v2 = Highest(NULL,0,MODE_HIGH,NewPeriod+StepBack,StepBack); v1 = Low[bn_v1]; v2 = High[bn_v2]; //determine fractal..... if( v2<=250000 && v2>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; for( i=0; i<OctLinesCnt; i++) { mml[i] = 0; } dmml = (finalH-finalL)/8; mml[0] =(finalL-dmml*2); //-2/8 for( i=1; i<OctLinesCnt; i++) { mml[i] = mml[i-1] + dmml; } for( i=0; i<OctLinesCnt; i++ ){ buff_str = "mml"+i; if(ObjectFind(buff_str) == -1) { ObjectCreate(buff_str, OBJ_HLINE , 0,Time[0], mml[i]); ObjectSet(buff_str, OBJPROP_STYLE, STYLE_SOLID); ObjectSet(buff_str, OBJPROP_COLOR, mml_clr[i]); ObjectSet(buff_str, OBJPROP_WIDTH, mml_wdth[i]); ObjectMove(buff_str, 0, Time[0], mml[i]); } else { ObjectMove(buff_str, 0, Time[0], mml[i]); } buff_str = "mml_txt"+i; if(ObjectFind(buff_str) == -1) { ObjectCreate(buff_str, OBJ_TEXT, 0, Time[mml_shft], mml_shft); ObjectSetText(buff_str, ln_txt[i], 8, "Arial", mml_clr[i]); ObjectMove(buff_str, 0, Time[mml_shft], mml[i]); } else { ObjectMove(buff_str, 0, Time[mml_shft], mml[i]); } } // for( i=1; i<=OctLinesCnt; i++ ){ nTime = Time[0]; CurPeriod= Period(); string buff_str = "MML_LatestCulcBar"; if(ObjectFind(buff_str) == -1) { ObjectCreate(buff_str, OBJ_ARROW,0, Time[StepBack], Low[StepBack]-2*Point ); ObjectSet(buff_str, OBJPROP_ARROWCODE, MarkNumber); ObjectSet(buff_str, OBJPROP_COLOR, MarkColor); } else { ObjectMove(buff_str, 0, Time[StepBack], Low[StepBack]-2*Point ); } } //---- End Of Program return(0); } //+------------------------------------------------------------------+
點(diǎn)擊復(fù)制上述代碼粘貼到到公式管理器

MT5源碼：//+------------------------------------------------------------------+ //| Murrey_Math_Line_X.mq5 | //| Copyright ? 2010, EarnForex.com | //| http://www.kzuj.com.cn/ | //+------------------------------------------------------------------+ #property copyright "www.kzuj.com.cn" #property link "http://www.kzuj.com.cn" #property version "1.02" #property description "Murrey Math Line X - support and resistance lines according to Murrey Math rules." #property description "" #property description "Please, read the commentary in the code for detailed description of each line." #property indicator_chart_window // ============================================================================================ // * Line 8/8 ? 0/8 (Ultimate Support and Ultimate Resistance). // * Those lines are the most strong concerning Support and esistance. // ============================================================================================ //* Line 7/8 (Weak, Place to Stop and Reverse). //* This line is weak. If suddenly the price was going too fast and too far and stops around this line //* it means the price will reverse down very soon. If the price did not stop near this line this price //* will continue the movement to the line 8/8. // ============================================================================================ //* Line 1/8 (Weak, Place to Stop and Reverse). //* This line is weak. If suddenly the price was going too fast and too far and stops around this line //* it means the price will reverse up very soon. If the price did not stop near this line this price //* will continue the movement down to the line 0/8. // ============================================================================================ //* Line 2/8 and 6/8 (Pivot, Reverse) //* Those two lines yield the line 4/8 only to the strength to reverse the price movement. // ============================================================================================ //* Line 5/8 (Top of Trading Range) //* The price is spending the about 40% of the time on the movement between the lines 5/8 and 3/8. //* If the price is moving near line 5/8 and stopping near the line during the 10 - 12 days so it means //* that it is necessary to sell in this "bonus zone" (some people are doing like this) but if the price is keeping the tendency to stay above //* 5/8 line, so it means that the price will be above. But if the price is droping below 5/8 line it means that the price will continue //* falling to the next level of resistance. // ============================================================================================ //* Line 3/8 (Bottom of Trading Range). //* If the price is below this line and in uptrend it means that it will be very difficult for the price to break this level. //* If the price broke this line during the uptrend and staying above during the 10 12 days it means that the price will be above this line //* during the 40% of its time moving between this line and 5/8 line. // ============================================================================================ //* Line 4/8 (Major Support/Resistance Line). //* It is the major line concerning support and resistance. This leve is the better for the new sell or buy. //* It is the strong level of support of the price is above 4/8. It is the fine resistance line if the price is below this 4/8 line. // ============================================================================================ input int P = 64; input int MMPeriod = 1440; input int StepBack = 0; input color mml_clr_m_2_8 = White; // [-2]/8 input color mml_clr_m_1_8 = White; // [-1]/8 input color mml_clr_0_8 = Aqua; // [0]/8 input color mml_clr_1_8 = Yellow; // [1]/8 input color mml_clr_2_8 = Red; // [2]/8 input color mml_clr_3_8 = Green; // [3]/8 input color mml_clr_4_8 = Blue; // [4]/8 input color mml_clr_5_8 = Green; // [5]/8 input color mml_clr_6_8 = Red; // [6]/8 input color mml_clr_7_8 = Yellow; // [7]/8 input color mml_clr_8_8 = Aqua; // [8]/8 input color mml_clr_p_1_8 = White; // [+1]/8 input color mml_clr_p_2_8 = White; // [+2]/8 input int mml_wdth_m_2_8 = 2; // [-2]/8 input int mml_wdth_m_1_8 = 1; // [-1]/8 input int mml_wdth_0_8 = 1; // [0]/8 input int mml_wdth_1_8 = 1; // [1]/8 input int mml_wdth_2_8 = 1; // [2]/8 input int mml_wdth_3_8 = 1; // [3]/8 input int mml_wdth_4_8 = 1; // [4]/8 input int mml_wdth_5_8 = 1; // [5]/8 input int mml_wdth_6_8 = 1; // [6]/8 input int mml_wdth_7_8 = 1; // [7]/8 input int mml_wdth_8_8 = 1; // [8]/8 input int mml_wdth_p_1_8 = 1; // [+1]/8 input int mml_wdth_p_2_8 = 2; // [+2]/8 input color MarkColor = Blue; input int MarkNumber = 217; 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_wdth[13], mml_shft = 35, i = 0; datetime nTime; int NewPeriod = 0; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ void OnInit() { if (MMPeriod > 0) { NewPeriod = P * MathCeil(MMPeriod / (PeriodSeconds(Period()) / 60)); } else { NewPeriod = P; } 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, Place to Stop 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, Place to Stop 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_thk = 3; // Initial setting of the lines' colors and width 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 } //+------------------------------------------------------------------+ //| Custor indicator deinitialization function | //+------------------------------------------------------------------+ void OnDeinit(const int reason) { for(i = 0; i < OctLinesCnt; i++) { buff_str = "mml" + i; ObjectDelete(0, buff_str); buff_str = "mml_txt" + i; ObjectDelete(0, buff_str); buff_str = "MML_LatestCulcBar"; ObjectDelete(0, buff_str); } } //+------------------------------------------------------------------+ //| Custom Murrey Math Line X | //+------------------------------------------------------------------+ int OnCalculate(const int rates_total, const int prev_calculated, const datetime &Time[], const double &open[], const double &High[], const double &Low[], const double &close[], const long &tick_volume[], const long &volume[], const int &spread[]) { ArraySetAsSeries(High, true); ArraySetAsSeries(Low, true); ArraySetAsSeries(Time, true); if (nTime == Time[0]) return(0); // Price bn_v1 = ArrayMinimum(Low, StepBack, NewPeriod + StepBack); bn_v2 = ArrayMaximum(High, StepBack, NewPeriod + StepBack); v1 = Low[bn_v1]; v2 = High[bn_v2]; // Determine fractal if ((v2 <= 250000) && (v2 > 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 X's // 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 Y's // 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 < OctLinesCnt; i++) mml[i] = 0; dmml = (finalH - finalL) / 8; mml[0] = (finalL - dmml * 2); //-2/8 for (i = 1; i < OctLinesCnt; i++) mml[i] = mml[i-1] + dmml; for (i = 0; i < OctLinesCnt; i++) { buff_str = "mml" + i; if (ObjectFind(0, buff_str) == -1) { ObjectCreate(0, buff_str, OBJ_HLINE , 0,Time[0], mml[i]); ObjectSetInteger(0, buff_str, OBJPROP_STYLE, STYLE_SOLID); ObjectSetInteger(0, buff_str, OBJPROP_COLOR, mml_clr[i]); ObjectSetInteger(0, buff_str, OBJPROP_WIDTH, mml_wdth[i]); } ObjectMove(0, buff_str, 0, Time[0], mml[i]); buff_str = "mml_txt" + i; if (ObjectFind(0, buff_str) == -1) { ObjectCreate(0, buff_str, OBJ_TEXT, 0, Time[mml_shft], mml_shft); ObjectSetString(0, buff_str, OBJPROP_TEXT, ln_txt[i]); ObjectSetInteger(0, buff_str, OBJPROP_FONTSIZE, 8); ObjectSetString(0, buff_str, OBJPROP_FONT, "Arial"); ObjectSetInteger(0, buff_str, OBJPROP_COLOR, mml_clr[i]); } ObjectMove(0, buff_str, 0, Time[mml_shft], mml[i]); } // END for string buff_str = "MML_LatestCulcBar"; if (ObjectFind(0, buff_str) == -1) { ObjectCreate(0, buff_str, OBJ_ARROW, 0, Time[StepBack], Low[StepBack] - 2 * _Point); ObjectSetInteger(0, buff_str, OBJPROP_ARROWCODE, MarkNumber); ObjectSetInteger(0, buff_str, OBJPROP_COLOR, MarkColor); } else { ObjectMove(0, buff_str, 0, Time[StepBack], Low[StepBack] - 2 * _Point); } nTime = Time[0]; return(0); } //+------------------------------------------------------------------+
點(diǎn)擊復(fù)制上述代碼粘貼到到公式管理器