返回
黄金
GG River Flow
回复:0  浏览:216
  • 楼主admin 圈主
  • 2019-05-05 05:15
gg-riverflow-mt4.png

  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"

  9. #property indicator_chart_window

  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;  

  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};

  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[];

  42. double IndVal[10][7];


  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.       }

  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.       }

  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. //+------------------------------------------------------------------+
打赏