返回
外汇指标
Absolute Strenght Histo
回复:0  浏览:90
  • 楼主admin 圈主
  • 2019-05-05 05:06
USDJPYH1.png

  1. //+------------------------------------------------------------------+
  2. //|                                          AbsoluteStrength_v1.mq4 |
  3. //|                           Copyright ?2006, TrendLaboratory Ltd. |
  4. //|            http://finance.groups.yahoo.com/group/TrendLaboratory |
  5. //|                                       E-mail: igorad2004@list.ru |
  6. //+------------------------------------------------------------------+
  7. //| Modifications:                                                   |
  8. //| - AbsoluteStrengthHisto_v1, 2006/06/26:                          |
  9. //|   Put in Histogram form with 2 level lines                       |
  10. //|   ph_bresson@yahoo.com                                           |
  11. //+------------------------------------------------------------------+
  12. #property copyright "Copyright ?2006, TrendLaboratory Ltd."
  13. #property link      "http://finance.groups.yahoo.com/group/TrendLaboratory"

  15. #property indicator_separate_window
  16. #property indicator_maximum 0.0001
  17. #property indicator_minimum 0
  18. #property indicator_buffers   4
  19. #property indicator_color1    Lime
  20. #property indicator_width1    5
  21. #property indicator_color2    Red
  22. #property indicator_width2    5
  23. #property indicator_color3    CLR_NONE
  24. #property indicator_width3    2
  25. #property indicator_color4    CLR_NONE
  26. #property indicator_width4    2

  28. //---- input parameters
  29. extern int       Mode   =  0; // 0-RSI method; 1-Stoch method
  30. extern int       Length =  7; // Period
  31. extern int       Smooth =  7; // Period of smoothing
  32. extern int       Signal =  4; // Period of Signal Line
  33. extern int       Price  =  0; // Price mode : 0-Close,1-Open,2-High,3-Low,4-Median,5-Typical,6-Weighted
  34. extern int       ModeMA =  1; // Mode of Moving Average
  35. extern int       Mode_Histo  = 3;
  36. //---- buffers
  37. double Bulls[];
  38. double Bears[];
  39. double AvgBulls[];
  40. double AvgBears[];
  41. double SmthBulls[];
  42. double SmthBears[];
  43. double SigBulls[];
  44. double SigBears[];
  45. //+------------------------------------------------------------------+
  46. //| Custom indicator initialization function                         |
  47. //+------------------------------------------------------------------+
  48. int init()
  49.   {
  50. //---- indicators
  51.    IndicatorBuffers(8);
  52.    SetIndexStyle(0,DRAW_HISTOGRAM,EMPTY,2);
  53.    SetIndexBuffer(0,SmthBulls);
  54.    SetIndexStyle(1,DRAW_HISTOGRAM,EMPTY,2);
  55.    SetIndexBuffer(1,SmthBears);

  57.    SetIndexStyle(2,DRAW_LINE,EMPTY,2);
  58.    SetIndexBuffer(2,SigBulls);
  59.    SetIndexStyle(3,DRAW_LINE,EMPTY,2);
  60.    SetIndexBuffer(3,SigBears);

  62.    SetIndexBuffer(4,Bulls);
  63.    SetIndexBuffer(5,Bears);
  64.    SetIndexBuffer(6,AvgBulls);
  65.    SetIndexBuffer(7,AvgBears);
  66. //---- name for DataWindow and indicator subwindow label
  67.    string short_name="AbsoluteStrengthHistogram("+Mode+","+Length+","+Smooth+","+Signal+",,"+ModeMA+")";
  68.    IndicatorShortName(short_name);
  69.    SetIndexLabel(0,"Bulls");
  70.    SetIndexLabel(1,"Bears");
  71.    SetIndexLabel(2,"Bulls");
  72.    SetIndexLabel(3,"Bears");      

  74. //----
  75.    SetIndexDrawBegin(0,Length+Smooth+Signal);
  76.    SetIndexDrawBegin(1,Length+Smooth+Signal);
  77.    SetIndexDrawBegin(2,Length+Smooth+Signal);
  78.    SetIndexDrawBegin(3,Length+Smooth+Signal);

  80.    SetIndexEmptyValue(0,0.0);
  81.    SetIndexEmptyValue(1,0.0);
  82.    SetIndexEmptyValue(2,0.0);
  83.    SetIndexEmptyValue(3,0.0);
  84.    SetIndexEmptyValue(4,0.0);
  85.    SetIndexEmptyValue(5,0.0);
  86.    SetIndexEmptyValue(6,0.0);
  87.    SetIndexEmptyValue(7,0.0);



  91.    return(0);
  92.   }

  94. //+------------------------------------------------------------------+
  95. //| Custom indicator iteration function                              |
  96. //+------------------------------------------------------------------+
  97. int start()
  98.   {
  99.    int      shift, limit, counted_bars=IndicatorCounted();
  100.    double   Price1, Price2, smax, smin;
  101. //----
  102.    if ( counted_bars < 0 ) return(-1);
  103.    if ( counted_bars ==0 ) limit=Bars-Length+Smooth+Signal-1;
  104.    if ( counted_bars < 1 )
  105.    for(int i=1;i<Length+Smooth+Signal;i++)
  106.    {
  107.    Bulls[Bars-i]=0;   
  108.    Bears[Bars-i]=0;  
  109.    AvgBulls[Bars-i]=0;   
  110.    AvgBears[Bars-i]=0;  
  111.    SmthBulls[Bars-i]=0;   
  112.    SmthBears[Bars-i]=0;  
  113.    SigBulls[Bars-i]=0;   
  114.    SigBears[Bars-i]=0;  
  115.    }
  116.    
  117.    
  118.    
  119.    if(counted_bars>0) limit=Bars-counted_bars;
  120.    limit--;
  121.    
  122.    for( shift=limit; shift>=0; shift--)
  123.       {
  124.       Price1 = iMA(NULL,0,1,0,0,Price,shift);
  125.       Price2 = iMA(NULL,0,1,0,0,Price,shift+1);
  126.       
  127.          if (Mode==0)
  128.          {
  129.          Bulls[shift] = 0.5*(MathAbs(Price1-Price2)+(Price1-Price2));
  130.          Bears[shift] = 0.5*(MathAbs(Price1-Price2)-(Price1-Price2));
  131.          }
  132.         
  133.          if (Mode==1)
  134.          {
  135.          smax=High[Highest(NULL,0,MODE_HIGH,Length,shift)];
  136.          smin=Low[Lowest(NULL,0,MODE_LOW,Length,shift)];
  137.          
  138.          Bulls[shift] = Price1 - smin;
  139.          Bears[shift] = smax - Price1;
  140.          }
  141.       }
  142.       
  143.       for( shift=limit; shift>=0; shift--)
  144.       {
  145.       AvgBulls[shift]=iMAonArray(Bulls,0,Length,0,ModeMA,shift);     
  146.       AvgBears[shift]=iMAonArray(Bears,0,Length,0,ModeMA,shift);
  147.       }
  148.       
  149.       for( shift=limit; shift>=0; shift--)
  150.       {
  151.       SmthBulls[shift]=iMAonArray(AvgBulls,0,Smooth,0,ModeMA,shift);     
  152.       SmthBears[shift]=iMAonArray(AvgBears,0,Smooth,0,ModeMA,shift);
  153.       }

  155.       if(Mode_Histo == 1)
  156.       {
  157.          for( shift=limit; shift>=0; shift--)
  158.          {
  159.             if(SmthBulls[shift]-SmthBears[shift]>0)
  160.             {
  161.                SetIndexStyle(0,DRAW_HISTOGRAM,EMPTY,5);
  162.                SetIndexStyle(1,DRAW_LINE,EMPTY,2);
  163.                SmthBears[shift]= SmthBears[shift]/Point;
  164.                SmthBulls[shift]= SmthBulls[shift]/Point;
  165.             }
  166.             else
  167.             {
  168.                SetIndexStyle(1,DRAW_HISTOGRAM,EMPTY,5);
  169.                SetIndexStyle(0,DRAW_LINE,EMPTY,2);
  170.                SmthBears[shift]= SmthBears[shift]/Point;
  171.                SmthBulls[shift]= SmthBulls[shift]/Point;
  172.             }
  173.          }  //end for( shift=limit; shift>=0; shift--)
  174.       }     // end if(Mode_Histo == 1)
  175.       else
  176.       if(Mode_Histo == 2)
  177.       {
  178.          for( shift=limit; shift>=0; shift--)
  179.          {
  180.             if(SmthBulls[shift]-SmthBears[shift]>0)
  181.             {
  182.                SmthBears[shift]=-SmthBears[shift]/Point;
  183.                SmthBulls[shift]= SmthBulls[shift]/Point;
  184.             }
  185.             else
  186.             {
  187.                SmthBulls[shift]=-SmthBulls[shift]/Point;
  188.                SmthBears[shift]= SmthBears[shift]/Point;
  189.             }
  190.          }  //end for( shift=limit; shift>=0; shift--)      
  191.       }     //end if(Mode_Histo == 2)
  192.       else
  193.       if(Mode_Histo == 3)
  194.       {
  195.          for( shift=limit; shift>=0; shift--)
  196.          {
  197.             SigBulls[shift]=  SmthBulls[shift];
  198.             SigBears[shift]=  SmthBears[shift];            
  199.             if(SmthBulls[shift]-SmthBears[shift]>0)
  200.                SmthBears[shift]=0;
  201.             else
  202.                SmthBulls[shift]=0;  
  203.          }  //end for( shift=limit; shift>=0; shift--)      
  204.       }     //end if(Mode_Histo == 3)
  205.       else
  206.       if(Mode_Histo == 4)
  207.       {
  208.          for( shift=limit; shift>=0; shift--)
  209.          {
  210.             if(SmthBulls[shift]-SmthBears[shift]>0)
  211.             {
  212.                SigBears[shift]=  SmthBears[shift];
  213.                SmthBears[shift]=0;
  214.             }
  215.             else
  216.             {
  217.                SigBulls[shift]=  SmthBulls[shift];
  218.                SmthBulls[shift]=0;         
  219.             }
  220.          }  //end for( shift=limit; shift>=0; shift--)      
  221.       }     //end if(Mode_Histo == 4)
  222.       
  223.    return(0);
  224.   }
  225. //+------------------------------------------------------------------+
打赏