GG River Flow

1. //+------------------------------------------------------------------+
   
2. //|                                                 GG-RiverFlow.mq4 |
   
3. //|                                         Copyright ?2009, GGekko |
   
4. //|                                         http://www.fx-ggekko.com |
   
5. //+------------------------------------------------------------------+
   
6. #property copyright "Copyright ?2009, GGekko"
   
7. #property link      "http://www.fx-ggekko.com"
   
8. 
   
9. #property indicator_chart_window
   
10. 
    
11. extern string   ___IndicatorSetup___   = ">>> Indicator Setup:<<<";
    
12. extern string   Help_for_TFNumbers     = "Maximum: 7";
    
13. extern int      TFNumbers              = 7; // max 7
    
14. extern int      MA_Shift               = 1;
    
15. extern string   ___DisplaySetup___     = ">>> Display Setup:<<<";
    
16. extern color    UpColor                = YellowGreen;
    
17. extern color    DownColor              = Tomato;
    
18. extern color    FlatColor              = Gold;
    
19. extern color    TextColor              = CadetBlue;
    
20. extern string   Help_for_Corner        = "LeftTop:0, RightTop:1, Not used:2,3!";
    
21. extern int      Corner                 = 0;
    
22. extern int      PosX                   = 0;
    
23. extern int      PosY                   = 0;
    
24. extern int      Unique_Id              = 52725;  
    
25. 
    
26. int tframe[]={1,5,15,30,60,240,1440};
    
27. string tf[]={"1","5","15","30","H1","H4","D1"};
    
28. int ma_period[]={2,3,5,8,13,21,34,55,89,144};
    
29. 
    
30. string ind[10];
    
31. double ma0_1[],ma0_2[];
    
32. double ma1_1[],ma1_2[];
    
33. double ma2_1[],ma2_2[];
    
34. double ma3_1[],ma3_2[];
    
35. double ma4_1[],ma4_2[];
    
36. double ma5_1[],ma5_2[];
    
37. double ma6_1[],ma6_2[];
    
38. double ma7_1[],ma7_2[];
    
39. double ma8_1[],ma8_2[];
    
40. double ma9_1[],ma9_2[];
    
41. 
    
42. double IndVal[10][7];
    
43. 
    
44. 
    
45. //+------------------------------------------------------------------+
    
46. //| Custom indicator initialization function                         |
    
47. //+------------------------------------------------------------------+
    
48. int init()
    
49.   {
    
50. //----
    
51.    if(Corner==0)
    
52.    {
    
53.    for(int w=0;w<TFNumbers;w++)
    
54.       {
    
55.          ObjectCreate(Unique_Id+tf[w],OBJ_LABEL,0,0,0,0,0);
    
56.          ObjectSet(Unique_Id+tf[w],OBJPROP_CORNER,Corner);
    
57.          ObjectSet(Unique_Id+tf[w],OBJPROP_XDISTANCE,w*17+PosX+19);
    
58.          ObjectSet(Unique_Id+tf[w],OBJPROP_YDISTANCE,PosY+20);
    
59.          ObjectSetText(Unique_Id+tf[w],tf[w],8,"Tahoma",TextColor);
    
60.       }
    
61. 
    
62.    for(int x=0;x<7;x++) //
    
63.    for(w=0;w<10;w++)
    
64.       {
    
65.          ObjectCreate(Unique_Id+"Ind"+x+w,OBJ_LABEL,0,0,0,0,0);
    
66.          ObjectSet(Unique_Id+"Ind"+x+w,OBJPROP_CORNER,Corner);
    
67.          ObjectSet(Unique_Id+"Ind"+x+w,OBJPROP_XDISTANCE,x*17+PosX+15);
    
68.          ObjectSet(Unique_Id+"Ind"+x+w,OBJPROP_YDISTANCE,w*6+PosY);
    
69.          ObjectSetText(Unique_Id+"Ind"+x+w,"-",42,"Arial",TextColor);
    
70.       }
    
71.    }
    
72.    
    
73.    if(Corner==1)
    
74.    {
    
75.    for(w=0;w<TFNumbers;w++)
    
76.       {
    
77.          ObjectCreate(Unique_Id+tf[TFNumbers-1-w],OBJ_LABEL,0,0,0,0,0);
    
78.          ObjectSet(Unique_Id+tf[TFNumbers-1-w],OBJPROP_CORNER,Corner);
    
79.          ObjectSet(Unique_Id+tf[TFNumbers-1-w],OBJPROP_XDISTANCE,w*17+PosX+19);
    
80.          ObjectSet(Unique_Id+tf[TFNumbers-1-w],OBJPROP_YDISTANCE,PosY+20);
    
81.          ObjectSetText(Unique_Id+tf[TFNumbers-1-w],tf[TFNumbers-1-w],8,"Tahoma",TextColor);
    
82.       }
    
83. 
    
84.    for(x=0;x<7;x++) //
    
85.    for(w=0;w<10;w++)
    
86.       {
    
87.          ObjectCreate(Unique_Id+"Ind"+(TFNumbers-1-x)+w,OBJ_LABEL,0,0,0,0,0);
    
88.          ObjectSet(Unique_Id+"Ind"+(TFNumbers-1-x)+w,OBJPROP_CORNER,Corner);
    
89.          ObjectSet(Unique_Id+"Ind"+(TFNumbers-1-x)+w,OBJPROP_XDISTANCE,x*17+PosX+15);
    
90.          ObjectSet(Unique_Id+"Ind"+(TFNumbers-1-x)+w,OBJPROP_YDISTANCE,w*6+PosY);
    
91.          ObjectSetText(Unique_Id+"Ind"+(TFNumbers-1-x)+w,"-",42,"Arial",TextColor);
    
92.       }
    
93.    }
    
94.    
    
95.    if(Corner==0 || Corner==1)
    
96.    {
    
97.    ObjectCreate(Unique_Id+"LineTop0",OBJ_LABEL,0,0,0,0,0);
    
98.    ObjectSet(Unique_Id+"LineTop0",OBJPROP_CORNER,Corner);
    
99.    ObjectSet(Unique_Id+"LineTop0",OBJPROP_XDISTANCE,PosX+13);
    
100.    ObjectSet(Unique_Id+"LineTop0",OBJPROP_YDISTANCE,PosY+12);
     
101.    ObjectSetText(Unique_Id+"LineTop0","          ----------------          ",8,"Tahoma",TextColor);
     
102.    
     
103.    ObjectCreate(Unique_Id+"LineTop",OBJ_LABEL,0,0,0,0,0);
     
104.    ObjectSet(Unique_Id+"LineTop",OBJPROP_CORNER,Corner);
     
105.    ObjectSet(Unique_Id+"LineTop",OBJPROP_XDISTANCE,PosX+13);
     
106.    ObjectSet(Unique_Id+"LineTop",OBJPROP_YDISTANCE,PosY+14);
     
107.    ObjectSetText(Unique_Id+"LineTop","-------------------------------",8,"Tahoma",TextColor);
     
108.    
     
109.    ObjectCreate(Unique_Id+"LineHigh",OBJ_LABEL,0,0,0,0,0);
     
110.    ObjectSet(Unique_Id+"LineHigh",OBJPROP_CORNER,Corner);
     
111.    ObjectSet(Unique_Id+"LineHigh",OBJPROP_XDISTANCE,PosX+13);
     
112.    ObjectSet(Unique_Id+"LineHigh",OBJPROP_YDISTANCE,PosY+26);
     
113.    ObjectSetText(Unique_Id+"LineHigh","-------------------------------",8,"Tahoma",TextColor);
     
114.       
     
115.    ObjectCreate(Unique_Id+"LineLow",OBJ_LABEL,0,0,0,0,0);
     
116.    ObjectSet(Unique_Id+"LineLow",OBJPROP_CORNER,Corner);
     
117.    ObjectSet(Unique_Id+"LineLow",OBJPROP_XDISTANCE,PosX+13);
     
118.    ObjectSet(Unique_Id+"LineLow",OBJPROP_YDISTANCE,PosY+90);
     
119.    ObjectSetText(Unique_Id+"LineLow","-------------------------------",8,"Tahoma",TextColor);
     
120.    
     
121.    ObjectCreate(Unique_Id+"IndName",OBJ_LABEL,0,0,0,0,0);
     
122.    ObjectSet(Unique_Id+"IndName",OBJPROP_CORNER,Corner);
     
123.    ObjectSet(Unique_Id+"IndName",OBJPROP_XDISTANCE,PosX+43);
     
124.    ObjectSet(Unique_Id+"IndName",OBJPROP_YDISTANCE,PosY+6);
     
125.    ObjectSetText(Unique_Id+"IndName","GG-RiverFlow",8,"Tahoma",TextColor);
     
126.    
     
127.    ObjectCreate(Unique_Id+"Copyright",OBJ_LABEL,0,0,0,0,0);
     
128.    ObjectSet(Unique_Id+"Copyright",OBJPROP_CORNER,Corner);
     
129.    ObjectSet(Unique_Id+"Copyright",OBJPROP_XDISTANCE,PosX+28);
     
130.    ObjectSet(Unique_Id+"Copyright",OBJPROP_YDISTANCE,PosY+96);
     
131.    ObjectSetText(Unique_Id+"Copyright","GG-RiverFlow",8,"Tahoma",TextColor);
     
132.    }
     
133.                            
     
134.    ArrayResize(ma0_1,TFNumbers);ArrayResize(ma0_2,TFNumbers);
     
135.    ArrayResize(ma1_1,TFNumbers);ArrayResize(ma1_2,TFNumbers);
     
136.    ArrayResize(ma2_1,TFNumbers);ArrayResize(ma2_2,TFNumbers);
     
137.    ArrayResize(ma3_1,TFNumbers);ArrayResize(ma3_2,TFNumbers);
     
138.    ArrayResize(ma4_1,TFNumbers);ArrayResize(ma4_2,TFNumbers);
     
139.    ArrayResize(ma5_1,TFNumbers);ArrayResize(ma5_2,TFNumbers);
     
140.    ArrayResize(ma6_1,TFNumbers);ArrayResize(ma6_2,TFNumbers);
     
141.    ArrayResize(ma7_1,TFNumbers);ArrayResize(ma7_2,TFNumbers);
     
142.    ArrayResize(ma8_1,TFNumbers);ArrayResize(ma8_2,TFNumbers);
     
143.    ArrayResize(ma9_1,TFNumbers);ArrayResize(ma9_2,TFNumbers);
     
144.    
     
145. //----
     
146.    return(0);
     
147.   }
     
148. //+------------------------------------------------------------------+
     
149. //| Custom indicator deinitialization function                       |
     
150. //+------------------------------------------------------------------+
     
151. int deinit()
     
152.   {
     
153. //----
     
154.    for(int w=0;w<TFNumbers;w++)
     
155.       {
     
156.          ObjectDelete(Unique_Id+tf[w]);
     
157.       }   
     
158.          
     
159.    for(int x=0;x<TFNumbers;x++)
     
160.    for(w=0;w<10;w++)
     
161.       {
     
162.          ObjectDelete(Unique_Id+"Ind"+x+w);
     
163.       }
     
164.    
     
165.    ObjectDelete(Unique_Id+"LineTop0");   
     
166.    ObjectDelete(Unique_Id+"LineTop");
     
167.    ObjectDelete(Unique_Id+"LineHigh");
     
168.    ObjectDelete(Unique_Id+"LineLow");
     
169.    ObjectDelete(Unique_Id+"IndName");
     
170.    ObjectDelete(Unique_Id+"Copyright");
     
171.    
     
172.    
     
173. //----
     
174.    return(0);
     
175.   }
     
176. //+------------------------------------------------------------------+
     
177. //| Custom indicator iteration function                              |
     
178. //+------------------------------------------------------------------+
     
179. int start()
     
180.   {
     
181.    
     
182.    
     
183.    for(int x=0;x<TFNumbers;x++)
     
184.    {
     
185.       ma0_1[x]=iMA(NULL,tframe[x],ma_period[0],0,MODE_EMA,PRICE_CLOSE,0);
     
186.       ma0_2[x]=iMA(NULL,tframe[x],ma_period[0],MA_Shift,MODE_EMA,PRICE_CLOSE,0);
     
187.       ma1_1[x]=iMA(NULL,tframe[x],ma_period[1],0,MODE_EMA,PRICE_CLOSE,0);
     
188.       ma1_2[x]=iMA(NULL,tframe[x],ma_period[1],MA_Shift,MODE_EMA,PRICE_CLOSE,0);
     
189.       ma2_1[x]=iMA(NULL,tframe[x],ma_period[2],0,MODE_EMA,PRICE_CLOSE,0);
     
190.       ma2_2[x]=iMA(NULL,tframe[x],ma_period[2],MA_Shift,MODE_EMA,PRICE_CLOSE,0);
     
191.       ma3_1[x]=iMA(NULL,tframe[x],ma_period[3],0,MODE_EMA,PRICE_CLOSE,0);
     
192.       ma3_2[x]=iMA(NULL,tframe[x],ma_period[3],MA_Shift,MODE_EMA,PRICE_CLOSE,0);
     
193.       ma4_1[x]=iMA(NULL,tframe[x],ma_period[4],0,MODE_EMA,PRICE_CLOSE,0);
     
194.       ma4_2[x]=iMA(NULL,tframe[x],ma_period[4],MA_Shift,MODE_EMA,PRICE_CLOSE,0);
     
195.       ma5_1[x]=iMA(NULL,tframe[x],ma_period[5],0,MODE_EMA,PRICE_CLOSE,0);
     
196.       ma5_2[x]=iMA(NULL,tframe[x],ma_period[5],MA_Shift,MODE_EMA,PRICE_CLOSE,0);
     
197.       ma6_1[x]=iMA(NULL,tframe[x],ma_period[6],0,MODE_EMA,PRICE_CLOSE,0);
     
198.       ma6_2[x]=iMA(NULL,tframe[x],ma_period[6],MA_Shift,MODE_EMA,PRICE_CLOSE,0);
     
199.       ma7_1[x]=iMA(NULL,tframe[x],ma_period[7],0,MODE_EMA,PRICE_CLOSE,0);
     
200.       ma7_2[x]=iMA(NULL,tframe[x],ma_period[7],MA_Shift,MODE_EMA,PRICE_CLOSE,0);
     
201.       ma8_1[x]=iMA(NULL,tframe[x],ma_period[8],0,MODE_EMA,PRICE_CLOSE,0);
     
202.       ma8_2[x]=iMA(NULL,tframe[x],ma_period[8],MA_Shift,MODE_EMA,PRICE_CLOSE,0);
     
203.       ma9_1[x]=iMA(NULL,tframe[x],ma_period[9],0,MODE_EMA,PRICE_CLOSE,0);
     
204.       ma9_2[x]=iMA(NULL,tframe[x],ma_period[9],MA_Shift,MODE_EMA,PRICE_CLOSE,0);
     
205.     }  
     
206.       
     
207.       
     
208.     for(x=0;x<TFNumbers;x++)
     
209.     {  
     
210.       if(ma0_1[x]>ma0_2[x]) IndVal[0][x]=1;
     
211.       else if(ma0_1[x]<ma0_2[x]) IndVal[0][x]=-1;
     
212.       else IndVal[0][x]=0;
     
213.       
     
214.       if(ma1_1[x]>ma1_2[x]) IndVal[1][x]=1;
     
215.       else if(ma1_1[x]<ma1_2[x]) IndVal[1][x]=-1;
     
216.       else IndVal[1][x]=0;
     
217.       
     
218.       if(ma2_1[x]>ma2_2[x]) IndVal[2][x]=1;
     
219.       else if(ma2_1[x]<ma2_2[x]) IndVal[2][x]=-1;
     
220.       else IndVal[2][x]=0;
     
221.       
     
222.       if(ma3_1[x]>ma3_2[x]) IndVal[3][x]=1;
     
223.       else if(ma3_1[x]<ma3_2[x]) IndVal[3][x]=-1;
     
224.       else IndVal[3][x]=0;
     
225.       
     
226.       if(ma4_1[x]>ma4_2[x]) IndVal[4][x]=1;
     
227.       else if(ma4_1[x]<ma4_2[x]) IndVal[4][x]=-1;
     
228.       else IndVal[4][x]=0;
     
229.       
     
230.       if(ma5_1[x]>ma5_2[x]) IndVal[5][x]=1;
     
231.       else if(ma5_1[x]<ma5_2[x]) IndVal[5][x]=-1;
     
232.       else IndVal[5][x]=0;
     
233.       
     
234.       if(ma6_1[x]>ma6_2[x]) IndVal[6][x]=1;
     
235.       else if(ma6_1[x]<ma6_2[x]) IndVal[6][x]=-1;
     
236.       else IndVal[6][x]=0;
     
237.       
     
238.       if(ma7_1[x]>ma7_2[x]) IndVal[7][x]=1;
     
239.       else if(ma7_1[x]<ma7_2[x]) IndVal[7][x]=-1;
     
240.       else IndVal[7][x]=0;
     
241.       
     
242.       if(ma8_1[x]>ma8_2[x]) IndVal[8][x]=1;
     
243.       else if(ma8_1[x]<ma8_2[x]) IndVal[8][x]=-1;
     
244.       else IndVal[8][x]=0;
     
245.       
     
246.       if(ma9_1[x]>ma9_2[x]) IndVal[9][x]=1;
     
247.       else if(ma9_1[x]<ma9_2[x]) IndVal[9][x]=-1;
     
248.       else IndVal[9][x]=0;
     
249.     }
     
250.       
     
251.       for(int y=0;y<10;y++)
     
252.       for(int z=0;z<TFNumbers;z++)
     
253.       {
     
254.          if(IndVal[y][z]==-1) ObjectSetText(Unique_Id+"Ind"+z+y,"-",42,"Arial",DownColor);
     
255.          if(IndVal[y][z]==0) ObjectSetText(Unique_Id+"Ind"+z+y,"-",42,"Arial",FlatColor);
     
256.          if(IndVal[y][z]==1) ObjectSetText(Unique_Id+"Ind"+z+y,"-",42,"Arial",UpColor);
     
257.          
     
258.       }
     
259.    
     
260.    
     
261. //----
     
262.    return(0);
     
263.   }
     
264. //+------------------------------------------------------------------+

复制代码

GG-RiverFlow.mq4

2016-5-24 17:42

点击文件名下载附件

前排支持下分享

我是个凑数的。。。

帮你顶下哈！！

谢谢楼主分享

帮你顶下哈！！

谢谢楼主分享

谢谢