返回
外汇指标
PSAR
回复:0  浏览:90
  • 楼主admin 圈主
  • 2019-05-05 05:06
GBPUSDH1.png


  2. #property copyright "Copyright ?2010, basisforex@gmail.com"
  3. #property link      "basisforex@gmail.com"
  4. //-----
  5. #property indicator_chart_window
  6. #property indicator_buffers 6
  7. #property indicator_color1 Yellow
  8. #property indicator_color2 RoyalBlue
  9. #property indicator_color3 Blue
  10. #property indicator_color4 Black
  11. #property indicator_color5 Lime
  12. #property indicator_color6 Red
  13. //-----
  14. extern bool       alertsEnabled  = true;
  15. extern bool       TF4            = false;
  16. extern bool       TF3            = false;
  17. extern bool       TF2            = true;
  18. //-----
  19. extern double     Step           = 0.02;
  20. extern double     Maximum        = 0.2;
  21. //-----
  22. double s1[];
  23. double s2[];
  24. double s3[];
  25. double s4[];
  26. double bullish[];
  27. double bearish[];
  28. double sarUp[];
  29. double sarDn[];
  30. double alertBar;
  31. bool sar4, sar3, sar2;
  32. //+------------------------------------------------------------------+
  33. int init()
  34. {
  35.    SetIndexBuffer(0, s1);
  36.    SetIndexBuffer(1, s2);
  37.    SetIndexBuffer(2, s3);
  38.    SetIndexBuffer(3, s4);
  39.    //-----
  40.    SetIndexStyle(0, DRAW_ARROW);
  41.    SetIndexArrow(0, 159);
  42.    SetIndexStyle(1, DRAW_ARROW);
  43.    SetIndexArrow(1, 159);
  44.    SetIndexStyle(2, DRAW_ARROW);
  45.    SetIndexArrow(2, 159);
  46.    SetIndexStyle(3, DRAW_ARROW);
  47.    SetIndexArrow(3, 159);
  48.    //------
  49.    SetIndexStyle(4, DRAW_ARROW,OBJPROP_WIDTH,2);// UP___UP___UP
  50.    SetIndexArrow(4, 233);
  51.    SetIndexBuffer(4, bullish);
  52.    //-----
  53.    SetIndexStyle(5, DRAW_ARROW,OBJPROP_WIDTH,2);// DOWN____DOWN
  54.    SetIndexArrow(5, 234);      
  55.    SetIndexBuffer(5, bearish);
  56.    //-----
  57.    return(0);
  58. }
  59. //+------------------------------------------------------------------+
  60. void GetBool()
  61. {
  62.    if(TF4 == true)
  63.     {
  64.       sar4 = true; sar3 = true; sar2 = true;
  65.     }
  66.    else if(TF3 == true && TF4 == false)
  67.     {
  68.       sar4 = false; sar3 = true; sar2 = true;
  69.     }
  70.    else if(TF2 == true && TF4 == false && TF3 == false)
  71.     {
  72.       sar4 = false; sar3 = false; sar2 = true;
  73.     }
  74.    else if(TF2 == false && TF4 == false && TF3 == false)
  75.     {
  76.       sar4 = false; sar3 = false; sar2 = false;
  77.     }
  78. }
  79. //+------------------------------------------------------------------+
  80. string GetNextTF(int curTF)
  81. {
  82.    switch(curTF)
  83.     {
  84.       case 1:
  85.         return("5=15#30");
  86.         break;
  87.       case 5:
  88.         return("15=30#60");
  89.         break;
  90.       case 15:
  91.         return("30=60#240");
  92.         break;
  93.       case 30:
  94.         return("60=240#1440");
  95.         break;
  96.       case 60:
  97.         return("240=1440#10080");
  98.         break;
  99.       case 240:
  100.         return("1440=10080#43200");
  101.         break;        
  102.     }
  103. }
  104. //+------------------------------------------------------------------+
  105. void alertDn(double sar)
  106. {
  107.    int limit;
  108.    int counted_bars=IndicatorCounted();
  109.    if(counted_bars < 0) counted_bars = 0;
  110.    if(counted_bars > 0) counted_bars--;
  111.    limit = Bars - counted_bars;
  112.    //----
  113.    for(int i = 0; i < limit ;i++)
  114.     {
  115.       if(sar >= iHigh(Symbol(),0,i))
  116.        {
  117.          if(alertsEnabled == true && sarUp[i] == 0 && Bars > alertBar)
  118.           {
  119.             alert("PSAR Going Down on ", Symbol(), " - ", Period(), " min");
  120.             alertBar = Bars;
  121.           }
  122.          sarUp[i] = sar;  
  123.          sarDn[i] = 0;
  124.        }
  125.     }
  126. }
  127. //+------------------------------------------------------------------+
  128. void alertUp(double sar)
  129. {
  130.    int limit;
  131.    int counted_bars = IndicatorCounted();
  132.    if(counted_bars < 0) counted_bars = 0;
  133.    if(counted_bars > 0) counted_bars--;
  134.    limit = Bars - counted_bars;
  135.    //----
  136.    for(int i = 0; i<limit ;i++)
  137.     {
  138.       if(sar <= iLow(Symbol(), 0, i))
  139.        {
  140.          if(alertsEnabled == true && sarDn[i] == 0 && Bars > alertBar)
  141.           {
  142.             alert("PSAR Going Up on ",Symbol(), " - ", Period(), " min");
  143.             alertBar = Bars;
  144.           }
  145.          sarUp[i] = 0;
  146.          sarDn[i] = sar;
  147.        }
  148.     }
  149. }
  150. //+------------------------------------------------------------------+
  151. int start()
  152. {
  153.    int limit;
  154.    int counted_bars = IndicatorCounted();
  155.    if(counted_bars < 0) return(-1);
  156.    if(counted_bars > 0) counted_bars--;
  157.    limit = Bars - counted_bars;
  158.    //-----
  159.    string T = GetNextTF(Period());
  160.    int tf1 = StrToDouble(StringSubstr(T, 0, StringFind(T, "=", 0)));
  161.    int tf2 = StrToDouble(StringSubstr(T, StringFind(T, "=", 0) + 1, StringFind(T, "#", 0)));
  162.    int tf3 = StrToDouble(StringSubstr(T, StringFind(T, "#", 0) + 1, StringLen(T)));
  163.    //-----
  164.    GetBool();
  165.    //-----
  166.    for(int i = limit - 1; i >= 0; i--)
  167.     {
  168.          //===============================================         __________________________________________________   sar1  &  sar2  &  sar3  & sar4
  169.          if(sar2 == true && sar3 == true && sar4 == true)
  170.           {
  171.             Comment(Period(), " White", "n", tf1, " Yellow", "n", tf2, " Blue", "n", tf3, " Black");
  172.             s1[i]  = iSAR(NULL, Period(), Step, Maximum, i);
  173.             s2[i]  = iSAR(NULL, tf1, Step, Maximum, i / (tf1 / Period()));
  174.             s3[i]  = iSAR(NULL, tf2, Step, Maximum, i / (tf2 / Period()));
  175.             s4[i]  = iSAR(NULL, tf3, Step, Maximum, i / (tf3 / Period()));
  176.             //============================================================
  177.             if((s1[i] > High[i] && s2[i] > High[i] && s3[i] > High[i] && s4[i + 1] < Low[i + 1] && s4[i] > High[i]) ||
  178.                (s1[i] > High[i] && s2[i] > High[i] && s3[i + 1] < Low[i + 1] && s3[i] > High[i] && s4[i] > High[i]) ||
  179.                (s1[i] > High[i] && s2[i + 1] < Low[i + 1] && s2[i] > High[i] && s3[i] > High[i] && s4[i] > High[i]) ||
  180.                (s1[i + 1] < Low[i + 1] && s1[i] > High[i] && s2[i] > High[i] && s3[i] > High[i] && s4[i] > High[i]))
  181.              {
  182.                 bearish[i] = s1[i] + 5 * Point;//       SELL__SELL__SELL
  183.                 alertDn(s1[i]);
  184.              }
  185.             //-----
  186.             if((s1[i] < Low[i] && s2[i] < Low[i] && s3[i] < Low[i] && s4[i + 1] > High[i + 1] && s4[i] < Low[i]) ||
  187.                (s1[i] < Low[i] && s2[i] < Low[i] && s3[i + 1] > High[i + 1] && s3[i] < Low[i] && s4[i] < Low[i]) ||
  188.                (s1[i] < Low[i] && s2[i + 1] > High[i + 1] && s2[i] < Low[i] && s3[i] < Low[i] && s4[i] < Low[i]) ||
  189.                (s1[i + 1] > High[i + 1] && s1[i] < Low[i] && s2[i] < Low[i] && s3[i] < Low[i] && s4[i] < Low[i]))
  190.              {
  191.                bullish[i] =  s1[i] - 5 * Point;//      BUY___BUY___BUY
  192.                alertUp(s1[i]);
  193.              }
  194.           }
  195.           //===============================================         __________________________________________________   sar1  &  sar2  &  sar3
  196.          else if(sar2 == true && sar3 == true && sar4 == false)
  197.           {     
  198.             Comment(Period(), " White", "n", tf1, " Yellow  ", "n", tf2, " Blue");
  199.             s1[i]  = iSAR(NULL, Period(), Step, Maximum, i);
  200.             s2[i]  = iSAR(NULL, tf1, Step, Maximum, i / (tf1 / Period()));
  201.             s3[i]  = iSAR(NULL, tf2, Step, Maximum, i / (tf2 / Period()));
  202.             //============================================================
  203.             if((s1[i] > High[i] && s2[i] > High[i] && s3[i + 1] < Low[i + 1] && s3[i] > High[i]) ||
  204.                (s1[i] > High[i] && s2[i + 1] < Low[i + 1] && s2[i] > High[i] && s3[i] > High[i]) ||
  205.                (s1[i + 1] < Low[i + 1] && s1[i] > High[i] && s2[i] > High[i] && s3[i] > High[i]))
  206.              {
  207.                bearish[i] = s1[i] + 5 * Point;//       SELL__SELL__SELL
  208.                alertDn(s1[i]);
  209.              }
  210.             //-----
  211.             if((s1[i] < Low[i] && s2[i] < Low[i] && s3[i + 1] > High[i + 1] && s3[i] < Low[i]) ||
  212.                (s1[i] < Low[i] && s2[i + 1] > High[i + 1] && s2[i] < Low[i] && s3[i] < Low[i]) ||
  213.                (s1[i + 1] > High[i + 1] && s1[i] < Low[i] && s2[i] < Low[i] && s3[i] < Low[i]))
  214.              {
  215.                bullish[i] =  s1[i] - 5 * Point;//      BUY___BUY___BUY
  216.                alertUp(s1[i]);
  217.              }
  218.           }
  219.          //===============================================          __________________________________________________   sar1  &  sar2
  220.          else if(sar2 == true && sar3 == false && sar4 == false)
  221.           {     
  222.             Comment(Period(), " White", "n", tf1, " Yellow");
  223.             s1[i]  = iSAR(NULL, Period(), Step, Maximum, i);
  224.             s2[i]  = iSAR(NULL, tf1, Step, Maximum, i / (tf1 / Period()));
  225.             //============================================================
  226.             if((s1[i] > High[i] && s2[i + 1] < Low[i + 1] && s2[i] > High[i]) ||
  227.                (s1[i + 1] < Low[i + 1] && s1[i] > High[i] && s2[i] > High[i]))
  228.              {
  229.                bearish[i] = s1[i] + 5 * Point;//       SELL__SELL__SELL
  230.                alertDn(s1[i]);
  231.              }
  232.             //-----
  233.             if((s1[i] < Low[i] && s2[i + 1] > High[i + 1] && s2[i] < Low[i]) ||
  234.                (s1[i + 1] > High[i + 1] && s1[i] < Low[i] && s2[i] < Low[i]))
  235.              {
  236.                bullish[i] =  s1[i] - 5 * Point;//      BUY___BUY___BUY
  237.                alertUp(s1[i]);
  238.              }
  239.           }
  240.          //===============================================          __________________________________________________   sar1
  241.          else if(sar2 == false && sar3 == false && sar4 == false)
  242.           {
  243.             Comment(Period(), " White");
  244.             s1[i]  = iSAR(NULL, Period(), Step, Maximum, i);
  245.             //============================================================
  246.             if(s1[i + 1] < Low[i + 1] && s1[i] > High[i])
  247.              {
  248.                bearish[i] = s1[i] + 5 * Point;//       SELL__SELL__SELL
  249.                alertDn(s1[i]);
  250.              }
  251.             //-----
  252.             if(s1[i + 1] > High[i + 1] && s1[i] < Low[i])
  253.              {
  254.                bullish[i] =  s1[i] - 5 * Point;//      BUY___BUY___BUY
  255.                alertUp(s1[i]);
  256.              }
  257.           }        
  258.     }  
  259.    //==============================================================================================================================================
  260.    return(0);
  261. }

打赏