MAMA.mq4

1. //+------------------------------------------------------------------+
   
2. //|                                                #MAMA.mq4 |
   
3. //|                                                                  |
   
4. //|                                       http://forex.kbpauk.ru/    |
   
5. //+------------------------------------------------------------------+
   
6. 
   
7. #property link      "http://forex.kbpauk.ru/"
   
8. 
   
9. #property indicator_chart_window
   
10. #property indicator_buffers 2
    
11. #property indicator_color1 Aqua
    
12. #property indicator_color2 Chocolate
    
13. 
    
14. //---- input parameters
    
15. extern double FastLimit=0.5;
    
16. extern double SlowLimit=0.05;
    
17. 
    
18. //---- buffers
    
19. double FABuffer[];
    
20. double MABuffer[];
    
21. 
    
22. //+------------------------------------------------------------------+
    
23. //| Custom indicator initialization function                         |
    
24. //+------------------------------------------------------------------+
    
25. int init()
    
26.   {
    
27.    string short_name;
    
28. //---- indicator line
    
29.    SetIndexStyle(0,DRAW_LINE);
    
30.    SetIndexStyle(1,DRAW_LINE);
    
31.    SetIndexBuffer(0,FABuffer);
    
32.    SetIndexBuffer(1,MABuffer);
    
33. 
    
34. //---- name for DataWindow and indicator subwindow label
    
35.    short_name="#MAMA";
    
36.    IndicatorShortName(short_name);
    
37.    SetIndexLabel(0,"#FAMA");
    
38.    SetIndexLabel(1,"#MAMA");
    
39. 
    
40. //----
    
41.    SetIndexDrawBegin(0,50);
    
42.    SetIndexDrawBegin(1,50);
    
43. 
    
44. //----
    
45.    return(0);
    
46.   }
    
47. //+------------------------------------------------------------------+
    
48. //| #MAMA                                                            |
    
49. //+------------------------------------------------------------------+
    
50. int start()
    
51.   {
    
52.    int i,counted_bars=IndicatorCounted();
    
53. 
    
54. 
    
55. double jI, jQ, DeltaPhase, alpha, ttime;
    
56. double Price[5],Smooth[8],Detrender[8],Q1[8],I1[8],I2[3],Q2[3];
    
57. double Re[3],Im[3],SmoothPeriod[3],Period_[3],Phase[3],MAMA[3],FAMA[3];
    
58. //----
    
59.    if(Bars<=5) return(0);
    
60. 
    
61. //----
    
62.    i=(Bars-counted_bars)+50;
    
63.    while(i>=0)
    
64.      {
    
65. Price[1]=((High[i]+Low[i])/2); Price[2]=((High[i+1]+Low[i+1])/2);
    
66. Price[3]=((High[i+2]+Low[i+2])/2); Price[4]=((High[i+3]+Low[i+3])/2);
    
67. 
    
68. Smooth[1] = (4*Price[1] + 3*Price[2] + 2*Price[3] + Price[4]) / 10;
    
69. Detrender[1] = (0.0962*Smooth[1] + 0.5769*Smooth[3] - 0.5769*Smooth[5] - 0.0962*Smooth[7])*(0.075*Period_[2] + 0.54);
    
70. 
    
71. // {Compute InPhase and Quadrature components}
    
72. Q1[1] = (0.0962*Detrender[1] + 0.5769*Detrender[3] - 0.5769*Detrender[5] - 0.0962*Detrender[7])*(0.075*Period_[2] + 0.54);
    
73. I1[1] = Detrender[4];
    
74. 
    
75. // {Advance the phase of I1 and Q1 by 90 degrees}
    
76. jI = (0.0962*I1[1] + 0.5769*I1[3] - 0.5769*I1[5] - 0.0962*I1[7])*(0.075*Period_[2] + 0.54);
    
77. jQ = (0.0962*Q1[1] + 0.5769*Q1[3] - 0.5769*Q1[5] - 0.0962*Q1[7])*(0.075*Period_[2] + 0.54);
    
78. 
    
79. // {Phasor addition for 3 bar averaging)}
    
80. I2[1] = I1[1] - jQ;
    
81. Q2[1] = Q1[1] + jI;
    
82. 
    
83. // {Smooth the I and Q components before applying the discriminator}
    
84. I2[1] = 0.2*I2[1] + 0.8*I2[2];
    
85. Q2[1] = 0.2*Q2[1] + 0.8*Q2[2];
    
86. 
    
87. // {Homodyne Discriminator}
    
88. Re[1] = I2[1]*I2[2] + Q2[1]*Q2[2];
    
89. Im[1] = I2[1]*Q2[2] - Q2[1]*I2[2];
    
90. Re[1] = 0.2*Re[1] + 0.8*Re[2];
    
91. Im[1] = 0.2*Im[1] + 0.8*Im[2];
    
92. if (Im[1]!=0 && Re[1]!=0) Period_ [1]= 360/MathArctan(Im[1]/Re[1]);
    
93. if (Period_[1]>1.5*Period_[2]) Period_[1] = 1.5*Period_[2];
    
94. if (Period_[1]<0.67*Period_[2])Period_[1] = 0.67*Period_[2];
    
95. if (Period_[1]<6) Period_[1] = 6;
    
96. if (Period_[1]>50) Period_[1] = 50;
    
97. Period_[1] = 0.2*Period_[1] + 0.8*Period_[2];
    
98. SmoothPeriod[1] =0.33*Period_[1] + 0.67*SmoothPeriod[2];
    
99. 
    
100. if (I1[1] != 0) Phase[1] = (MathArctan(Q1[1] / I1[1]));
     
101. DeltaPhase = Phase[2] - Phase[1];
     
102. if (DeltaPhase < 1) DeltaPhase = 1;
     
103. alpha = FastLimit / DeltaPhase;
     
104. if (alpha < SlowLimit)  alpha = SlowLimit;
     
105. MAMA[1] = alpha*Price[1] + (1 - alpha)*MAMA[2];
     
106. FAMA[1] = 0.5*alpha*MAMA[1] + (1 - 0.5*alpha)*FAMA[2];
     
107. 
     
108. 
     
109. FABuffer[i]=MAMA[1];
     
110. MABuffer[i]=FAMA[1];
     
111. 
     
112. 
     
113. Smooth[7]=Smooth[5];Smooth[6]=Smooth[5];Smooth[5]=Smooth[4];Smooth[4]=Smooth[3];Smooth[3]=Smooth[2];Smooth[2]=Smooth[1];
     
114. Detrender[7]=Detrender[6];Detrender[6]=Detrender[5];Detrender[5]=Detrender[4];Detrender[4]=Detrender[3];Detrender[3]=Detrender[2];Detrender[2]=Detrender[1];
     
115. Q1[7]=Q1[6];Q1[6]=Q1[5];Q1[5]=Q1[4];Q1[4]=Q1[3];Q1[3]=Q1[2];Q1[2]=Q1[1];
     
116. I1[7]=I1[6];I1[6]=I1[5];I1[5]=I1[4];I1[4]=I1[3];I1[3]=I1[2];I1[2]=I1[1];
     
117. Q2[2]=Q2[1];
     
118. I2[2]=I2[1];
     
119. Re[2]=Re[1];
     
120. Im[2]=Im[1];
     
121. SmoothPeriod[2]=SmoothPeriod[1];
     
122. Phase[2]=Phase[1];
     
123. Period_[2]=Period_[1];
     
124. MAMA[2]=MAMA[1];
     
125. FAMA[2]=FAMA[1];
     
126. 
     
127. 
     
128. 
     
129. 
     
130. i--;
     
131.      }
     
132.    return(0);
     
133.   }
     
134. //+------------------------------------------------------------------+

复制代码

MAMA.zip

2016-4-21 13:12 上传

点击文件名下载附件

过来看看的

LZ说的很不错

学习了，不错

帮你顶下哈！！

学习了，不错

谢谢楼主分享

谢谢楼主分享

支持下

支持下