论坛全局菜单下方 - TICKMILL 285X70论坛全局菜单下方 - ThinkMarkets285X70论坛全局菜单下方 - 荔枝返现285X70论坛全局菜单下方 -  icmarkets285X70
查看:1662回复:3
草龙
注册时间2004-12-17
[MT4指标]TPO_OSC趋势
楼主发表于:2014-06-08 23:23只看该作者倒序浏览
1楼 电梯直达
电梯直达
主图指标 附图指标, mt4指标类型:趋势指标 是否能用在mt4手机版上:否 mt4指标类型:震荡指标 是否能用在mt4手机版上:否 是否含有未来函数:无 //+------------------------------------------------------------------+ //| J_TPO_OSC.mq4 | //| Copyright ? 2005, | //| | //+------------------------------------------------------------------+ // // This is the dual oscillator using J_TPO. // It uses two distinct timescales. If both are positive that is a trend buy, // if both are negative a trend sell, and mixed, neutral. // // Matt ([email protected]) // // This code is released under the terms of the GNU General Public License V2 // #property copyright "Copyright ? 2005" #property link "www.metatrader.org" #property indicator_separate_window #property indicator_buffers 4 #property indicator_color1 DodgerBlue #property indicator_color2 White #property indicator_color3 Green #property indicator_color4 Red #property indicator_maximum 100 #property indicator_minimum -100 //---- input parameters extern int LenShort=23; extern int LenLong=39; //---- buffers double ExtMapBuffer1; double ExtMapBuffer2; double ExtMapBuffer3; double ExtMapBuffer4; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { //---- indicators SetIndexStyle(0,DRAW_LINE); SetIndexBuffer(0, ExtMapBuffer1); SetIndexStyle(1,DRAW_LINE); SetIndexBuffer(1, ExtMapBuffer2); SetIndexStyle(2,DRAW_HISTOGRAM); SetIndexBuffer(2, ExtMapBuffer3); SetIndexStyle(3,DRAW_HISTOGRAM); SetIndexBuffer(3, ExtMapBuffer4); //---- return(0); } //+------------------------------------------------------------------+ //| J_TPO indicatop | //+------------------------------------------------------------------+ int start() { int limit; int counted_bars=IndicatorCounted(); //---- check for possible errors if(counted_bars<0) return(-1); //---- last counted bar will be recounted if(counted_bars>0) counted_bars--; limit=MathMin(Bars-counted_bars+1,Bars-LenLong-1); if ((LenLong < 3) || (LenShort <3)) { Print("J_TPO_CD: lengths must be at least 3"); return(0); // } double sqrtLenShort = MathSqrt(LenShort+0.0); double sqrtLenLong = MathSqrt(LenLong+0.0); for (int i=limit; i>=0; i--) { double J1, J2, diff; J1 = J_TPO_value(Close,LenShort,i); J2 = J_TPO_value(Close,LenLong,i); ExtMapBuffer1=J1*100.0; ExtMapBuffer2=J2*100.0; if (J1*J2 >= 0.0) { // same sign. if (J1 > 0.0) { ExtMapBuffer3 = 50.0; ExtMapBuffer4 = 0.0; } else if (J1 < 0.0) { ExtMapBuffer3 = 0.0; ExtMapBuffer4 = -50.0; } } else { ExtMapBuffer3 = 0.0; ExtMapBuffer4 = 0.0; } } //---- done return(0); } //+------------------------------------------------------------------+ double J_TPO_value(double input, int Len, int shift) { // // compute the J_TPO function on input[shift], looking back up to Len data previous // double value, normalization, Lenp1half; double accum, tmp, maxval; int j, maxloc, m; double arr1, arr2, arr3; bool flag; accum=0; ArrayResize(arr1,Len+1); ArrayResize(arr2,Len+1); ArrayResize(arr3,Len+1); for (m=1; m<=Len; m++) { arr2[m] = m; arr3[m] = m; arr1[m] = input[shift+Len-m]; } // sort arr1 in ascending order, arr2 is the permutation index // Note, this is a poor quadratic search, and will not scale well with Len for (m=1; m<=(Len-1); m++) { // // find max value & its location in arr1 [m..m+Len] // maxval = arr1[m]; maxloc = m; for (j=m+1; j<=Len; j++) { if (arr1[j] < maxval) { maxval = arr1[j]; maxloc = j; } } // // Swap arr1[m] with its max value // amd similarly for arr2. tmp = arr1[m]; arr1[m] = arr1[maxloc]; arr1[maxloc] = tmp; tmp = arr2[m]; arr2[m] = arr2[maxloc]; arr2[maxloc] = tmp; } // // arr3[1..Len] is nominally 1..m, but this here adjusts for // ties. m = 1; while (m < Len) { // Search for repeated values. j = m + 1; flag = true; accum = arr3[m]; while (flag) { if (arr1[m] != arr1[j]){ if ((j - m) > 1) { // a streak of repeated values was found // and so replace arr3 for those with // its average accum = accum/(j - m); for (int n=m; n<=(j-1); n++) arr3[n] = accum; } flag = false; } else { accum += arr3[j]; j++; } // if } // while flag m = j; } // while (Len > m) // This is the real guts of the J_TPO // it is a simple statistic to see if the ranks, when applied in sorted order are // "correlated" with 1..Len, a simple cross correlation of ranks. // so if they are sorted then this gives 1, and if they are anti-sorted they give -1 // and similarly for intermediate values. normalization = 12.0 / (Len*(Len-1)*(Len+1)); Lenp1half = (Len + 1) * 0.5; for (accum=0,m=1; m<=Len; m++) { // Print("m="+m+"Arr2[m] ="+arr2[m]+" arr3[m]="+arr3[m]); accum += (arr3[m] - Lenp1half) * (arr2[m] - Lenp1half); } value = normalization * accum; // Print("JTPO_B: accum = "+accum+" norm = "+normalization); return(value); }J_TPO_OSC.jpgJ_TPO_OSC.jpg
TK29帖子1楼右侧xm竖版广告90-240
个性签名

阅尽天下指标
搬砖开始,始于2014

广告
TK30+TK31帖子一樓廣告
TK30+TK31帖子一樓廣告
liufushunq
注册时间2014-03-22
Pzxzx
注册时间2017-08-06
发表于:2017-08-11 08:35只看该作者
3楼
阅尽天下指标
zhapeng
注册时间2020-12-12

本站免责声明:

1、本站所有广告及宣传信息均与韬客无关,如需投资请依法自行决定是否投资、斟酌资金安全及交易亏损风险;

2、韬客是独立的、仅为投资者提供交流的平台,网友发布信息不代表韬客的观点与意思表示,所有因网友发布的信息而造成的任何法律后果、风险与责任,均与韬客无关;

3、金融交易存在极高法律风险,未必适合所有投资者,请不要轻信任何高额投资收益的诱导而贸然投资;投资保证金交易导致的损失可能超过您投入的资金和预期。请您考虑自身的投资经验及风险承担能力,进行合法、理性投资;

4、所有投资者的交易帐户应仅限本人使用,不应交由第三方操作,对于任何接受第三方喊单、操盘、理财等操作的投资和交易,由此导致的任何风险、亏损及责任由投资者个人自行承担;

5、韬客不隶属于任何券商平台,亦不受任何第三方控制,韬客不邀约客户投资任何保证金交易,不接触亦不涉及投资者的任何资金及账户信息,不代理任何交易操盘行为,不向客户推荐任何券商平台,亦不存在其他任何推荐行为。投资者应自行选择券商平台,券商平台的任何行为均与韬客无关。投资者注册及使用韬客即表示其接受和认可上述声明,并自行承担法律风险。

版权所有:韬客外汇论坛 www.talkfx.com 联络我们:[email protected]