返回
黄金
Market Price
回复:0  浏览:72
  • 楼主admin 圈主
  • 2019-05-05 05:12
marketprice-v1.4-mt4.png

  1. //+------------------------------------------------------------------+
  2. //|                                           #MarketPrice _v1_4.mq4 |
  3. //|                                                       ServerUang |
  4. //|                                    http://www.indofx-trader.net/ |
  5. //+------------------------------------------------------------------+
  6. #property copyright "ServerUang"
  7. #property link      "http://www.indofx-trader.net/"

  9. #property indicator_chart_window
  10. extern string Settings_n_1 = "--------------------------";
  11. extern int Side = 1;
  12. extern int MP_Y = 0;
  13. extern int MP_X = 0;

  15. //--------------------------------------------------------------------
  16. extern string Settings_n_2 = "--------------------------";
  17. extern string Colors_Setting ="Setting for Colors";
  18. extern color Highest_Color          = Blue;
  19. extern color Distance_from_Highest_Color = DodgerBlue;
  20. extern color Lowest_Color           = Red;
  21. extern color Distance_from_Lowest_Color  = OrangeRed;
  22. extern color Hi_to_Lo_Color         = Peru;
  23. extern color Daily_Av_Up_Color      = Blue;
  24. extern color Daily_Av_Dn_Color      = Red;
  25. extern color Time_n_Spread_Color    = LimeGreen;
  26. extern color PipsToOpen_Up_Color    = Blue;
  27. extern color PipsToOpen_Dn_Color    = Red;

  29. //--------------------------------------------------------------------
  30. extern string Settings_n_3 = "--------------------------";
  31. extern string Signals_Settings = "Settings for Signals";
  32. extern bool  Show_Signals      = true;

  34. // BuySeLL Variable
  35. extern string BuySeLL_Settings = "--------------------------";
  36. extern int MAFast_Period = 1;
  37. extern int MAFast_Method = 0;
  38. extern int MAFast_Apply_To = 0;
  39. extern int MAFast_Shift = 0;

  41. extern int MASlow_Period = 4;
  42. extern int MASlow_Method = 0;
  43. extern int MASlow_Apply_To = 1;
  44. extern int MASlow_Shift = 0;

  46. // Trend Variable
  47. extern string TRend_Settings = "--------------------------";
  48. extern int TMAFast_Period = 1;
  49. extern int TMAFast_Method = 0;
  50. extern int TMAFast_Apply_To = 0;
  51. extern int TMAFast_Shift = 0;

  53. extern int TMASlow_Period = 20;
  54. extern int TMASlow_Method = 0;
  55. extern int TMASlow_Apply_To = 0;
  56. extern int TMASlow_Shift = 0;

  58. // Strength Variable
  59. extern string Strength_Settings = "--------------------------";
  60. extern int RSI_Period = 5;
  61. extern int RSI_PRICE_TYPE = 0;

  63. extern int CCI_Period = 20;
  64. extern int CCI_PRICE_TYPE = 0;

  66. extern int STOCH_K_Period = 5;
  67. extern int STOCH_D_Period = 3;
  68. extern int STOCH_Slowing = 3;
  69. extern int STOCH_MA_MODE = 0;
  70. extern int STOCH_Price_Field = 0;

  72. //--------------------------------------------------------------------
  73. extern string Settings_n_4 = "--------------------------";
  74. extern color LegendColor = Gainsboro;
  75. extern color PriceColor_Up = Blue;
  76. extern color PriceColor_Dn = Red;
  77. extern color NeutralColor = LightGray;

  79. extern color Arrow_Up = Lime;
  80. extern color Arrow_Dn = Gold;
  81. extern color Arrow_Nt = White;

  83. //===================================================================+
  84. double vA, vB, vC, TFs, High_Lama, Low_Lama;
  85. int Timeframe, x, y, space, baris, fontsize, cTF, cCC, cX, cSTR, cTR;
  86. string text, fontname, Teks_Menit, Teks_Detik;
  87. string UpSymbol="?,  DnSymbol="?, NtSymbol="?, SignalSymbol;
  88. color SignalColor;

  90. // --- variabel Daili_Av --------------------------------------------+
  91. int    R1, R5, R10, R20, RAvg, n, i;
  92. string Teks_ReRata = "", Teks_Rerata_Kemarin ="";
  93. color  warna_ReRata, WarnaTeks;
  94. //-------------------------------------------------------------------+

  96. // --- Strength Variable ---
  97. double v_RSI, v_Stoch, v_CCI;
  98. //+------------------------------------------------------------------+
  99. //| Custom indicator initialization function                         |
  100. //+------------------------------------------------------------------+
  101. int init()
  102.   {
  103. //---- indicators
  104. //----
  105.    return(0);
  106.   }
  107. //+------------------------------------------------------------------+
  108. //| Custom indicator deinitialization function                       |
  109. //+------------------------------------------------------------------+
  110. int deinit()
  111.   {
  112. //----
  113.      for(int i = ObjectsTotal() - 1; i >= 0; i--)
  114.      {
  115.        string label = ObjectName(i);
  116.        if(StringSubstr(label, 0, 4) != "MP14")
  117.            continue;
  118.        ObjectDelete(label);   
  119.      }   //----
  120.    return(0);
  121.    
  122.    //ObjectsDeleteAll(0,OBJ_HLINE);
  123.    //ObjectsDeleteAll(0,OBJ_TEXT);
  124.    //ObjectsDeleteAll(0,OBJ_LABEL);
  125. //----
  126.    return(0);
  127.   }
  128. //+------------------------------------------------------------------+
  129. //| Custom indicator iteration function                              |
  130. //+------------------------------------------------------------------+
  131. int start()
  132.   {
  133.    int    counted_bars=IndicatorCounted();
  134. //----
  135.    // Price
  136.    Timeframe = 15;
  137.    vA = iMA(Symbol(),0,1,0,MODE_EMA,PRICE_CLOSE,0);
  138.    vB = iMA(Symbol(), Timeframe, MAFast_Period, MAFast_Shift, MAFast_Method, MAFast_Apply_To, 0);
  139.    vC = iMA(Symbol(), Timeframe, MASlow_Period, MASlow_Shift, MASlow_Method, MASlow_Apply_To, 0);
  140.    Write("MP14001", Side, MP_X+9, MP_Y+22, DoubleToStr(vA,Digits), 34, "Arial", CheckColor(vB, vC, PriceColor_Up, PriceColor_Dn) );

  142.    // Highest
  143.    vB=iHigh(NULL,1440,0); text=DoubleToStr(vB, Digits);
  144.    Write("MP14002", Side, MP_X+100, MP_Y+14, text, 10, "Tahoma Bold", Highest_Color);
  145.    
  146.    // Lowest
  147.    vC=iLow(NULL,1440,0); text=DoubleToStr(vC, Digits);
  148.    Write("MP14003", Side, MP_X+100, MP_Y+62, text, 10, "Tahoma Bold", Lowest_Color);
  149.    
  150.    //--- Distance from Highest ---
  151.    text=DoubleToStr((vA-vB)/Point,0);
  152.    Write("MP14004", Side, MP_X+56, MP_Y+14, text, 10, "Tahoma Bold", Distance_from_Highest_Color);
  153.    
  154.    //--- Distance from Lowest ---
  155.    text=DoubleToStr((vA-vC)/Point,0);
  156.    Write("MP14005", Side, MP_X+56, MP_Y+62, text, 10, "Tahoma Bold", Distance_from_Lowest_Color);
  157.    
  158.    //--- Hi to Lo ---
  159.    text=DoubleToStr((vB-vC)/Point,0);
  160.    Write("MP14006", Side, MP_X+10, MP_Y+14, text, 10, "Tahoma Bold", Hi_to_Lo_Color);
  161.    
  162.    //--- Daily Av ---
  163.    R1=0; R5=0; R10=0; R20=0; RAvg=0; i=0;
  164.    R1 =  (iHigh(NULL,PERIOD_D1,1)-iLow(NULL,PERIOD_D1,1))/Point;
  165.    for(i=1;i<=5;i++)   
  166.      R5  = R5  + (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point;
  167.    for(i=1;i<=10;i++)
  168.      R10 = R10 + (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point;
  169.    for(i=1;i<=20;i++)
  170.      R20 = R20 + (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point;

  172.    R5 = R5/5;
  173.    R10 = R10/10;
  174.    R20 = R20/20;
  175.    RAvg  =  (R1+R5+R10+R20)/4;   
  176.    
  177.    Teks_ReRata = (DoubleToStr(RAvg,Digits-4));
  178.    Teks_Rerata_Kemarin = (iHigh(NULL,PERIOD_D1,1)-iLow(NULL,PERIOD_D1,1))/Point;
  179.    
  180.    if (Teks_ReRata > Teks_Rerata_Kemarin) {warna_ReRata = Daily_Av_Up_Color;}
  181.       else {warna_ReRata = Daily_Av_Dn_Color;}
  182.       
  183.    Write("MP14007", Side, MP_X+10, MP_Y+62, Teks_ReRata, 10, "Tahoma Bold", warna_ReRata);
  184.    
  185.    //--- Time for Next Candle ---
  186.    vB = (Time[4]-Time[5])-MathMod(CurTime(),Time[4]-Time[5]);
  187.    vA = vB/60;
  188.    vB = (vA-MathFloor(vA))*60;
  189.    vA = MathFloor(vA);
  190.    Teks_Menit = DoubleToStr(vA,0);
  191.    Teks_Detik = DoubleToStr(vB,0);
  192.    text=Teks_Menit+":"+Teks_Detik;
  193.    Write("MP14008", Side, MP_X+100, MP_Y+74, text, 10, "Tahoma Bold", Time_n_Spread_Color);
  194.    
  195.    // --- Spread ---
  196.    vA = (Ask - Bid)/Point;
  197.    text = (DoubleToStr(vA, Digits-4));
  198.    Write("MP14009", Side, MP_X+56, MP_Y+74, text, 10, "Tahoma Bold", Time_n_Spread_Color);
  199.    
  200.    //--- Pips to Open ---
  201.    vA = iOpen(NULL,1440,0);
  202.    vB = iClose(NULL,1440,0);
  203.    SignalColor=CheckColor(vB, vA, PipsToOpen_Up_Color, PipsToOpen_Dn_Color);
  204.    text=DoubleToStr((vB-vA)/Point,0);
  205.    Write("MP14010", Side, MP_X+10, MP_Y+74, text, 10, "Tahoma Bold", SignalColor);
  206.    
  207.    //--- Show_Signals ---
  208.    if (Show_Signals)
  209.       {
  210.    
  211.        // Legend
  212.        //cTF=MP_X+127; cCC=MP_X+99; cX=MP_X+81; cSTR=MP_X+53; cTR=MP_X+25;
  213.        cTF=MP_X+127; cCC=MP_X+99; cX=MP_X+76; cSTR=MP_X+40; cTR=MP_X+10;
  214.        Write("MP14011", Side, MP_X+cTF,  MP_Y+90, "TF", 10, "Arial", LegendColor); //152
  215.        Write("MP14012", Side, MP_X+cCC,  MP_Y+90, "CC", 10, "Arial", LegendColor); //116
  216.        Write("MP14013", Side, MP_X+cX-5, MP_Y+90, "BS", 10, "Arial", LegendColor);  //086
  217.        Write("MP14014", Side, MP_X+cSTR, MP_Y+90, "Str", 10, "Arial", LegendColor); //048
  218.        Write("MP14015", Side, MP_X+cTR,  MP_Y+90, "TR", 10, "Arial", LegendColor); //012
  219.    
  220.        x=cTF; //154
  221.        y=MP_Y+106; space=12; fontname="Arial"; fontsize=8;
  222.        Write("MP14016", Side, x, y+(00*space), "MN", fontsize, fontname, LegendColor);
  223.        Write("MP14017", Side, x, y+(01*space), "W1", fontsize, fontname, LegendColor);
  224.        Write("MP14018", Side, x, y+(02*space), "D1", fontsize, fontname, LegendColor);
  225.    
  226.        Write("MP14019", Side, x, y+(04*space), "H4", fontsize, fontname, LegendColor);
  227.        Write("MP14020", Side, x, y+(05*space), "H1", fontsize, fontname, LegendColor);
  228.        Write("MP14021", Side, x, y+(06*space), "M30", fontsize, fontname, LegendColor);
  229.    
  230.        Write("MP14022", Side, x, y+(08*space), "M15", fontsize, fontname, LegendColor);
  231.        Write("MP14023", Side, x, y+(09*space), "M5", fontsize, fontname, LegendColor);
  232.        Write("MP14024", Side, x, y+(10*space), "M1", fontsize, fontname, LegendColor);
  233.    
  234.        // LOOP
  235.        n=1; y=MP_Y+106; space=12;
  236.        while (n<=9)
  237.              {
  238.               switch (n)
  239.                 {
  240.                  case 1: TFs = 43200;  baris=0;  break;
  241.                  case 2: TFs = 10080;  baris=1;  break;
  242.                  case 3: TFs =  1440;  baris=2;  break;
  243.               
  244.                  case 4: TFs =   240;  baris=4;  break;
  245.                  case 5: TFs =    60;  baris=5;  break;
  246.                  case 6: TFs =    30;  baris=6;  break;
  247.               
  248.                  case 7: TFs =    15;  baris=8;  break;
  249.                  case 8: TFs =     5;  baris=9;  break;
  250.                  case 9: TFs =     1;  baris=10; break;
  251.                 }//switch
  252.             
  253.                 // Trend;
  254.                 vA = iMA(Symbol(),TFs, TMAFast_Period, TMAFast_Shift, TMAFast_Method, TMAFast_Apply_To, 0);
  255.                 vB = iMA(Symbol(),TFs, TMASlow_Period, TMASlow_Shift, TMASlow_Method, TMASlow_Apply_To, 0);
  256.                 if (vA>vB)
  257.                    { SignalSymbol=UpSymbol; SignalColor=Arrow_Up; }
  258.                 else if  (vA<vB)
  259.                    { SignalSymbol=DnSymbol; SignalColor=Arrow_Dn; }
  260.                 else {SignalSymbol=NtSymbol; SignalColor=Arrow_Nt; }
  261.                 Write("MP14025"+DoubleToStr(n,0), Side, cTR, y+(baris*space), SignalSymbol, 10, "Wingdings", SignalColor );
  262.             
  263.                 // STR Signals
  264.                 v_RSI   = iRSI(Symbol(), TFs, RSI_Period , RSI_PRICE_TYPE, 0);
  265.                 v_Stoch = iStochastic(Symbol(), TFs, STOCH_K_Period,STOCH_D_Period,STOCH_Slowing, STOCH_MA_MODE, STOCH_Price_Field, MODE_MAIN, 0);
  266.                 v_CCI   = iCCI(Symbol(), TFs,CCI_Period , CCI_PRICE_TYPE, 0);
  267.                
  268.                 if ((v_RSI > 50) && (v_Stoch > 40) && (v_CCI > 0)) { SignalSymbol = UpSymbol; SignalColor = Arrow_Up ;}
  269.                 else if ((v_RSI < 50) && (v_Stoch < 60) && (v_CCI < 0)) { SignalSymbol = DnSymbol; SignalColor = Arrow_Dn ;}
  270.             
  271.                 //netral condition
  272.                 else if ((v_RSI < 50) && (v_Stoch > 40) && (v_CCI > 0)) { SignalSymbol = NtSymbol;  SignalColor = Arrow_Nt; }
  273.                 else if ((v_RSI > 50) && (v_Stoch < 60) && (v_CCI < 0)) { SignalSymbol = NtSymbol;  SignalColor = Arrow_Nt; }
  274.                 else if ((v_RSI < 50) && (v_Stoch > 40) && (v_CCI < 0)) { SignalSymbol = NtSymbol;  SignalColor = Arrow_Nt; }
  275.                 else if ((v_RSI > 50) && (v_Stoch < 60) && (v_CCI > 0)) { SignalSymbol = NtSymbol;  SignalColor = Arrow_Nt; }
  276.                 else if ((v_RSI > 50) && (v_Stoch > 40) && (v_CCI < 0)) { SignalSymbol = NtSymbol;  SignalColor = Arrow_Nt; }
  277.                 else if ((v_RSI > 50) && (v_Stoch < 60) && (v_CCI < 0)) { SignalSymbol = NtSymbol;  SignalColor = Arrow_Nt; }
  278.             
  279.                 Write("MP14026"+DoubleToStr(n,0), Side, cSTR, y+(baris*space), SignalSymbol, 10, "Wingdings", SignalColor );
  280.             
  281.             
  282.                 // BuySell Crossing
  283.                 vB = iMA(Symbol(), TFs, MAFast_Period, MAFast_Shift, MAFast_Method, MAFast_Apply_To, 0);
  284.                 vC = iMA(Symbol(), TFs, MASlow_Period, MASlow_Shift, MASlow_Method, MASlow_Apply_To, 0);
  285.                 if (vB>vC)
  286.                    { SignalSymbol=UpSymbol; SignalColor=Arrow_Up; }
  287.                 else { SignalSymbol=DnSymbol; SignalColor=Arrow_Dn; }
  288.                 Write("MP14027"+DoubleToStr(n,0), Side, cX-3, y+(baris*space), SignalSymbol, 10, "Wingdings", SignalColor);
  289.             
  290.             
  291.                 // CandleColor
  292.                 vC = iClose( NULL , TFs, 0) - iOpen( NULL , TFs, 0);
  293.                 if ( vC > 0 )
  294.                    { SignalColor = PriceColor_Up;  SignalSymbol="n"; }
  295.                 else if ( vC < 0 )  { SignalColor = PriceColor_Dn; SignalSymbol="n"; }
  296.                 else { SignalColor = NeutralColor; SignalSymbol="?; }
  297.                 Write("MP14028"+DoubleToStr(n,0), Side, cCC+2, y+(baris*space), SignalSymbol, 10, "Wingdings", SignalColor ); //x=120
  298.                
  299.                
  300.                 Write("MP14029", Side, cTR, y+((baris+1)*space), "Created by ServerUang", 7, "Tahoma Narrow", Gray);
  301.             
  302.                 n++;
  303.              } //end while
  304.          
  305.          }//Show
  306.          else Write("MP14030", Side, MP_X+10, MP_Y+90, "Created by ServerUang", 7, "Tahoma Narrow", Gray);

  308. //----
  309.    return(0);
  310.   }
  311. //+------------------------------------------------------------------+
  312. //+------------------------------------------------------------------+
  313. //+------------------------------------------------------------------+

  315. // Write Procedure
  316. void Write(string LBL, double side, int pos_x, int pos_y, string text, int fontsize, string fontname, color Tcolor=CLR_NONE)
  317.      {
  318.        ObjectCreate(LBL, OBJ_LABEL, 0, 0, 0);
  319.        ObjectSetText(LBL,text, fontsize, fontname, Tcolor);
  320.        ObjectSet(LBL, OBJPROP_CORNER, side);
  321.        ObjectSet(LBL, OBJPROP_XDISTANCE, pos_x);
  322.        ObjectSet(LBL, OBJPROP_YDISTANCE, pos_y);
  323.      }
  324.      
  325.      
  326. // CheckColor Function

  328. color CheckColor(double a, double b, color u, color d)
  329.       {
  330.         if (a>b) { return (u); } else { return (d); }
  331.       }

  333. //+------------------------------------------------------------------+
打赏