FiyatKesisme






#property indicator_separate_window
#property indicator_buffers 8
#property indicator_color1 Black
#property indicator_color2 Black
#property indicator_color3 Black
#property indicator_color4 Black
#property indicator_color5 Black
#property indicator_color6 Black
#property indicator_color7 Black
#property indicator_color8 Black

int gi_76 = 0;
extern string i_id = "--change Indicator_ID for more in the same window--";
extern int Indicator_ID = 1;
extern string TF = "TimeF: 1,15,30,60,240,1440,10080,43200";
extern string TF0 = "if TimeF = 0, it changhe on chart TF";
extern int TimeF = 0;
extern string m = "--Moving Average Types--";
extern string m0 = " 0 = SMA";
extern string m1 = " 1 = EMA";
extern string m2 = " 2 = SMMA";
extern string m3 = " 3 = LWMA";
extern string m4 = " 4 = LSMA";
extern int MA_Method = 3;
extern string p = "--Applied Price Types--";
extern string p0 = " 0 = close";
extern string p1 = " 1 = open";
extern string p2 = " 2 = high";
extern string p3 = " 3 = low";
extern string p4 = " 4 = median(high+low)/2";
extern string p5 = " 5 = typical(high+low+close)/3";
extern string p6 = " 6 = weighted(high+low+close+close)/4";
extern int Price = 6;
extern int Fast = 3;
extern int Slow = 5;
extern bool USD = FALSE;
extern bool EUR = FALSE;
extern bool GBP = FALSE;
extern bool CHF = FALSE;
extern bool JPY = FALSE;
extern bool AUD = FALSE;
extern bool CAD = FALSE;
extern bool NZD = FALSE;
extern color Color_USD = Green;
extern color Color_EUR = Aqua;
extern color Color_GBP = Red;
extern color Color_CHF = Chocolate;
extern color Color_JPY = Maroon;
extern color Color_AUD = DarkOrange;
extern color Color_CAD = Purple;
extern color Color_NZD = Teal;
extern int Line_Thickness = 3;
extern int All_Bars = 200;
extern int Last_Bars = 0;
extern int Y_Top = 14;
extern int Y_Step = 15;
extern int TxtSize = 10;
double g_ibuf_328[];
double g_ibuf_332[];
double g_ibuf_336[];
double g_ibuf_340[];
double g_ibuf_344[];
double g_ibuf_348[];
double g_ibuf_352[];
double g_ibuf_356[];
double gd_360;
string gs_368;

int init() {
// Burada Pariteyi Sec.
string IlkSembol=StringSubstr(Symbol(),0, 3);
string SonSembol=StringSubstr(Symbol(),3, 3);
//((Alert(IlkSembol," ",SonSembol);
if (IlkSembol=="USD") USD = TRUE;
if (IlkSembol=="EUR") EUR = TRUE;
if (IlkSembol=="GBP") GBP = TRUE;
if (IlkSembol=="JPY") JPY = TRUE;
if (IlkSembol=="AUD") AUD = TRUE;
if (IlkSembol=="CAD") CAD= TRUE; 
if (IlkSembol=="NZD") NZD = TRUE;
if (IlkSembol=="CHF") CHF = TRUE;

if (SonSembol=="USD") USD = TRUE;
if (SonSembol=="EUR") EUR = TRUE;
if (SonSembol=="GBP") GBP = TRUE;
if (SonSembol=="JPY") JPY = TRUE;
if (SonSembol=="AUD") AUD = TRUE;
if (SonSembol=="CAD") CAD= TRUE; 
if (SonSembol=="NZD") NZD = TRUE;
if (SonSembol=="CHF") CHF = TRUE;

/*
extern bool EUR = TRUE;
extern bool GBP = TRUE;
extern bool CHF = TRUE;
extern bool JPY = TRUE;
extern bool AUD = TRUE;
extern bool CAD = TRUE;
extern bool NZD = TRUE;

*/

//
   gs_368 = Indicator_ID;
   IndicatorShortName(gs_368);
   int li_0 = 0;
   if (StringFind(Symbol(), "USD", 0) < 0) li_0 = 1;
   else li_0 = Line_Thickness;
   SetIndexStyle(0, DRAW_LINE, STYLE_SOLID, li_0, Color_USD);
   SetIndexBuffer(0, g_ibuf_328);
   SetIndexLabel(0, "USD");
   if (StringFind(Symbol(), "EUR", 0) < 0) li_0 = 1;
   else li_0 = Line_Thickness;
   SetIndexStyle(1, DRAW_LINE, STYLE_SOLID, li_0, Color_EUR);
   SetIndexBuffer(1, g_ibuf_332);
   SetIndexLabel(1, "EUR");
   if (StringFind(Symbol(), "GBP", 0) < 0) li_0 = 1;
   else li_0 = Line_Thickness;
   SetIndexStyle(2, DRAW_LINE, STYLE_SOLID, li_0, Color_GBP);
   SetIndexBuffer(2, g_ibuf_336);
   SetIndexLabel(2, "GBP");
   if (StringFind(Symbol(), "CHF", 0) < 0) li_0 = 1;
   else li_0 = Line_Thickness;
   SetIndexStyle(3, DRAW_LINE, STYLE_SOLID, li_0, Color_CHF);
   SetIndexBuffer(3, g_ibuf_340);
   SetIndexLabel(3, "CHF");
   if (StringFind(Symbol(), "JPY", 0) < 0) li_0 = 1;
   else li_0 = Line_Thickness;
   SetIndexStyle(4, DRAW_LINE, STYLE_SOLID, li_0, Color_JPY);
   SetIndexBuffer(4, g_ibuf_344);
   SetIndexLabel(4, "JPY");
   if (StringFind(Symbol(), "AUD", 0) < 0) li_0 = 1;
   else li_0 = Line_Thickness;
   SetIndexStyle(5, DRAW_LINE, STYLE_SOLID, li_0, Color_AUD);
   SetIndexBuffer(5, g_ibuf_348);
   SetIndexLabel(5, "AUD");
   if (StringFind(Symbol(), "CAD", 0) < 0) li_0 = 1;
   else li_0 = Line_Thickness;
   SetIndexStyle(6, DRAW_LINE, STYLE_SOLID, li_0, Color_CAD);
   SetIndexBuffer(6, g_ibuf_352);
   SetIndexLabel(6, "CAD");
   if (StringFind(Symbol(), "NZD", 0) < 0) li_0 = 1;
   else li_0 = Line_Thickness;
   SetIndexStyle(7, DRAW_LINE, STYLE_SOLID, li_0, Color_NZD);
   SetIndexBuffer(7, g_ibuf_356);
   SetIndexLabel(7, "NZD");
   return (0);
}

int deinit() {
   for (int l_count_0 = 0; l_count_0 < gi_76; l_count_0++)
      if (!ObjectDelete(gs_368 + l_count_0)) Print("error: code #", GetLastError());
   return (0);
}

int start() {
   string ls_0;
   string ls_8;
   string ls_16;
   string ls_24;
   string ls_32;
   string ls_40;
   string ls_48;
   string ls_56;
   double ld_76;
   double ld_84;
   double ld_92;
   double ld_100;
   double ld_108;
   double ld_116;
   double ld_124;
   double ld_132;
   double ld_140;
   double ld_148;
   double ld_156;
   double ld_164;
   double ld_172;
   double ld_180;
   int li_68 = IndicatorCounted();
   if (li_68 < 0) return (-1);
   if (All_Bars < 1) All_Bars = Bars;
   if (li_68 > 0 && Last_Bars > 0) li_68 -= Last_Bars;
   int li_64 = All_Bars;
   if (StringLen(Symbol()) == 7) {
      ls_56 = StringSubstr(Symbol(), 6, 1);
      ls_0 = "AUDUSD" + ls_56;
      ls_8 = "EURUSD" + ls_56;
      ls_16 = "USDCHF" + ls_56;
      ls_24 = "NZDUSD" + ls_56;
      ls_32 = "GBPUSD" + ls_56;
      ls_40 = "USDJPY" + ls_56;
      ls_48 = "USDCAD" + ls_56;
   } else {
      ls_0 = "AUDUSD";
      ls_8 = "EURUSD";
      ls_16 = "USDCHF";
      ls_24 = "NZDUSD";
      ls_32 = "GBPUSD";
      ls_40 = "USDJPY";
      ls_48 = "USDCAD";
   }
   for (int l_index_72 = 0; l_index_72 < li_64; l_index_72++) {
      ld_76 = ma(ls_8, Fast, MA_Method, Price, l_index_72);
      ld_84 = ma(ls_8, Slow, MA_Method, Price, l_index_72);
      if (!ld_76 || !ld_84) break;
      ld_92 = ma(ls_32, Fast, MA_Method, Price, l_index_72);
      ld_100 = ma(ls_32, Slow, MA_Method, Price, l_index_72);
      if (!ld_92 || !ld_100) break;
      ld_108 = ma(ls_0, Fast, MA_Method, Price, l_index_72);
      ld_116 = ma(ls_0, Slow, MA_Method, Price, l_index_72);
      if (!ld_108 || !ld_116) break;
      ld_124 = ma(ls_24, Fast, MA_Method, Price, l_index_72);
      ld_132 = ma(ls_24, Slow, MA_Method, Price, l_index_72);
      if (!ld_124 || !ld_132) break;
      ld_140 = ma(ls_48, Fast, MA_Method, Price, l_index_72);
      ld_148 = ma(ls_48, Slow, MA_Method, Price, l_index_72);
      if (!ld_140 || !ld_148) break;
      ld_156 = ma(ls_16, Fast, MA_Method, Price, l_index_72);
      ld_164 = ma(ls_16, Slow, MA_Method, Price, l_index_72);
      if (!ld_156 || !ld_164) break;
      ld_172 = ma(ls_40, Fast, MA_Method, Price, l_index_72);
      ld_180 = ma(ls_40, Slow, MA_Method, Price, l_index_72);
      if (!ld_172 || !ld_180) break;
      if (USD) {
         g_ibuf_328[l_index_72] = 0;
         g_ibuf_328[l_index_72] += (ld_84 / ld_76 - 1.0);
         g_ibuf_328[l_index_72] += (ld_100 / ld_92 - 1.0);
         g_ibuf_328[l_index_72] += (ld_116 / ld_108 - 1.0);
         g_ibuf_328[l_index_72] += (ld_132 / ld_124 - 1.0);
         g_ibuf_328[l_index_72] += (ld_156 / ld_164 - 1.0);
         g_ibuf_328[l_index_72] += (ld_140 / ld_148 - 1.0);
         g_ibuf_328[l_index_72] += (ld_172 / ld_180 - 1.0);
      }
      if (EUR) {
         g_ibuf_332[l_index_72] = 0;
         g_ibuf_332[l_index_72] += (ld_76 / ld_84 - 1.0);
         g_ibuf_332[l_index_72] += (ld_76 / ld_92 / (ld_84 / ld_100) - 1.0);
         g_ibuf_332[l_index_72] += (ld_76 / ld_108 / (ld_84 / ld_116) - 1.0);
         g_ibuf_332[l_index_72] += (ld_76 / ld_124 / (ld_84 / ld_132) - 1.0);
         g_ibuf_332[l_index_72] += (ld_76 * ld_156 / (ld_84 * ld_164) - 1.0);
         g_ibuf_332[l_index_72] += (ld_76 * ld_140 / (ld_84 * ld_148) - 1.0);
         g_ibuf_332[l_index_72] += (ld_76 * ld_172 / (ld_84 * ld_180) - 1.0);
      }
      if (GBP) {
         g_ibuf_336[l_index_72] = 0;
         g_ibuf_336[l_index_72] += (ld_92 / ld_100 - 1.0);
         g_ibuf_336[l_index_72] += (ld_84 / ld_100 / (ld_76 / ld_92) - 1.0);
         g_ibuf_336[l_index_72] += (ld_92 / ld_108 / (ld_100 / ld_116) - 1.0);
         g_ibuf_336[l_index_72] += (ld_92 / ld_124 / (ld_100 / ld_132) - 1.0);
         g_ibuf_336[l_index_72] += (ld_92 * ld_156 / (ld_100 * ld_164) - 1.0);
         g_ibuf_336[l_index_72] += (ld_92 * ld_140 / (ld_100 * ld_148) - 1.0);
         g_ibuf_336[l_index_72] += (ld_92 * ld_172 / (ld_100 * ld_180) - 1.0);
      }
      if (AUD) {
         g_ibuf_348[l_index_72] = 0;
         g_ibuf_348[l_index_72] += (ld_108 / ld_116 - 1.0);
         g_ibuf_348[l_index_72] += (ld_84 / ld_116 / (ld_76 / ld_108) - 1.0);
         g_ibuf_348[l_index_72] += (ld_100 / ld_116 / (ld_92 / ld_108) - 1.0);
         g_ibuf_348[l_index_72] += (ld_108 / ld_124 / (ld_116 / ld_132) - 1.0);
         g_ibuf_348[l_index_72] += (ld_108 * ld_156 / (ld_116 * ld_164) - 1.0);
         g_ibuf_348[l_index_72] += (ld_108 * ld_140 / (ld_116 * ld_148) - 1.0);
         g_ibuf_348[l_index_72] += (ld_108 * ld_172 / (ld_116 * ld_180) - 1.0);
      }
      if (NZD) {
         g_ibuf_356[l_index_72] = 0;
         g_ibuf_356[l_index_72] += (ld_124 / ld_132 - 1.0);
         g_ibuf_356[l_index_72] += (ld_84 / ld_132 / (ld_76 / ld_124) - 1.0);
         g_ibuf_356[l_index_72] += (ld_100 / ld_132 / (ld_92 / ld_124) - 1.0);
         g_ibuf_356[l_index_72] += (ld_116 / ld_132 / (ld_108 / ld_124) - 1.0);
         g_ibuf_356[l_index_72] += (ld_124 * ld_156 / (ld_132 * ld_164) - 1.0);
         g_ibuf_356[l_index_72] += (ld_124 * ld_140 / (ld_132 * ld_148) - 1.0);
         g_ibuf_356[l_index_72] += (ld_124 * ld_172 / (ld_132 * ld_180) - 1.0);
      }
      if (CAD) {
         g_ibuf_352[l_index_72] = 0;
         g_ibuf_352[l_index_72] += (ld_148 / ld_140 - 1.0);
         g_ibuf_352[l_index_72] += (ld_84 * ld_148 / (ld_76 * ld_140) - 1.0);
         g_ibuf_352[l_index_72] += (ld_100 * ld_148 / (ld_92 * ld_140) - 1.0);
         g_ibuf_352[l_index_72] += (ld_116 * ld_148 / (ld_108 * ld_140) - 1.0);
         g_ibuf_352[l_index_72] += (ld_132 * ld_148 / (ld_124 * ld_140) - 1.0);
         g_ibuf_352[l_index_72] += (ld_156 / ld_140 / (ld_164 / ld_148) - 1.0);
         g_ibuf_352[l_index_72] += (ld_172 / ld_140 / (ld_180 / ld_148) - 1.0);
      }
      if (CHF) {
         g_ibuf_340[l_index_72] = 0;
         g_ibuf_340[l_index_72] += (ld_164 / ld_156 - 1.0);
         g_ibuf_340[l_index_72] += (ld_84 * ld_164 / (ld_76 * ld_156) - 1.0);
         g_ibuf_340[l_index_72] += (ld_100 * ld_164 / (ld_92 * ld_156) - 1.0);
         g_ibuf_340[l_index_72] += (ld_116 * ld_164 / (ld_108 * ld_156) - 1.0);
         g_ibuf_340[l_index_72] += (ld_132 * ld_164 / (ld_124 * ld_156) - 1.0);
         g_ibuf_340[l_index_72] += (ld_164 / ld_148 / (ld_156 / ld_140) - 1.0);
         g_ibuf_340[l_index_72] += (ld_172 / ld_156 / (ld_180 / ld_164) - 1.0);
      }
      if (JPY) {
         g_ibuf_344[l_index_72] = 0;
         g_ibuf_344[l_index_72] += (ld_180 / ld_172 - 1.0);
         g_ibuf_344[l_index_72] += (ld_84 * ld_180 / (ld_76 * ld_172) - 1.0);
         g_ibuf_344[l_index_72] += (ld_100 * ld_180 / (ld_92 * ld_172) - 1.0);
         g_ibuf_344[l_index_72] += (ld_116 * ld_180 / (ld_108 * ld_172) - 1.0);
         g_ibuf_344[l_index_72] += (ld_132 * ld_180 / (ld_124 * ld_172) - 1.0);
         g_ibuf_344[l_index_72] += (ld_180 / ld_148 / (ld_172 / ld_140) - 1.0);
         g_ibuf_344[l_index_72] += (ld_180 / ld_164 / (ld_172 / ld_156) - 1.0);
      }
   }
   int li_188 = Y_Top;
   int li_192 = Y_Step;
   if (USD) {
      sl("USD", g_ibuf_328[0], g_ibuf_328[0] - g_ibuf_328[1], g_ibuf_328[1] - g_ibuf_328[2], "SymbUSD", li_188, Color_USD);
      li_188 += li_192;
   }
   if (EUR) {
      sl("EUR", g_ibuf_332[0], g_ibuf_332[0] - g_ibuf_332[1], g_ibuf_332[1] - g_ibuf_332[2], "SymbEUR", li_188, Color_EUR);
      li_188 += li_192;
   }
   if (GBP) {
      sl("GBP", g_ibuf_336[0], g_ibuf_336[0] - g_ibuf_336[1], g_ibuf_336[1] - g_ibuf_336[2], "SymbGBP", li_188, Color_GBP);
      li_188 += li_192;
   }
   if (CHF) {
      sl("CHF", g_ibuf_340[0], g_ibuf_340[0] - g_ibuf_340[1], g_ibuf_340[1] - g_ibuf_340[2], "SymbCHF", li_188, Color_CHF);
      li_188 += li_192;
   }
   if (AUD) {
      sl("AUD", g_ibuf_348[0], g_ibuf_348[0] - g_ibuf_348[1], g_ibuf_348[1] - g_ibuf_348[2], "SymbAUD", li_188, Color_AUD);
      li_188 += li_192;
   }
   if (CAD) {
      sl("CAD", g_ibuf_352[0], g_ibuf_352[0] - g_ibuf_352[1], g_ibuf_352[1] - g_ibuf_352[2], "SymbCAD", li_188, Color_CAD);
      li_188 += li_192;
   }
   if (JPY) {
      sl("JPY", g_ibuf_344[0], g_ibuf_344[0] - g_ibuf_344[1], g_ibuf_344[1] - g_ibuf_344[2], "SymbJPY", li_188, Color_JPY);
      li_188 += li_192;
   }
   if (NZD) {
      sl("NZD", g_ibuf_356[0], g_ibuf_356[0] - g_ibuf_356[1], g_ibuf_356[1] - g_ibuf_356[2], "SymbNZD", li_188, Color_NZD);
      li_188 += li_192;
   }
   return (0);
}

double LSMA(string a_symbol_0, int a_timeframe_8, int ai_12, int ai_16, int ai_20) {
   int li_28;
   double ld_40;
   double ld_52;
   double ld_60;
   int li_48 = ai_12;
   gd_360 = SetPoint(a_symbol_0);
   double ld_32 = 0;
   for (int li_24 = li_48; li_24 >= 1; li_24--) {
      ld_52 = li_48 + 1;
      ld_52 /= 3.0;
      ld_60 = 0;
      li_28 = li_48 - li_24 + ai_20;
      switch (ai_16) {
      case 0:
         ld_40 = iClose(a_symbol_0, a_timeframe_8, li_28);
         break;
      case 1:
         ld_40 = iOpen(a_symbol_0, a_timeframe_8, li_28);
         break;
      case 2:
         ld_40 = iHigh(a_symbol_0, a_timeframe_8, li_28);
         break;
      case 3:
         ld_40 = iLow(a_symbol_0, a_timeframe_8, li_28);
         break;
      case 4:
         ld_40 = (iHigh(a_symbol_0, a_timeframe_8, li_28) + iLow(a_symbol_0, a_timeframe_8, li_28)) / 2.0;
         break;
      case 5:
         ld_40 = (iHigh(a_symbol_0, a_timeframe_8, li_28) + iLow(a_symbol_0, a_timeframe_8, li_28) + iClose(a_symbol_0, a_timeframe_8, li_28)) / 3.0;
         break;
      case 6:
         ld_40 = (iHigh(a_symbol_0, a_timeframe_8, li_28) + iLow(a_symbol_0, a_timeframe_8, li_28) + iClose(a_symbol_0, a_timeframe_8, li_28) + iClose(a_symbol_0, a_timeframe_8, li_28)) / 4.0;
      }
      ld_60 = (li_24 - ld_52) * ld_40;
      ld_32 += ld_60;
   }
   double ld_ret_68 = 6.0 * ld_32 / (li_48 * (li_48 + 1));
   ld_ret_68 = MathFloor(ld_ret_68 / gd_360) * gd_360;
   return (ld_ret_68);
}

double ma(string a_symbol_0, int ai_8, int a_ma_method_12, int a_applied_price_16, int ai_20) {
   double ld_ret_24 = 0;
   int li_32 = 1;
   int li_36 = 0;
   if (TimeF == 0) TimeF = Period();
   if (a_ma_method_12 == 4) {
      switch (TimeF) {
      case 1:
         ld_ret_24 += LSMA(a_symbol_0, TimeF, ai_8 * li_32, a_applied_price_16, ai_20);
         li_32 += 5;
      case 5:
         ld_ret_24 += LSMA(a_symbol_0, TimeF, ai_8 * li_32, a_applied_price_16, ai_20);
         li_32 += 3;
      case 15:
         ld_ret_24 += LSMA(a_symbol_0, TimeF, ai_8 * li_32, a_applied_price_16, ai_20);
         li_32 += 2;
      case 30:
         ld_ret_24 += LSMA(a_symbol_0, TimeF, ai_8 * li_32, a_applied_price_16, ai_20);
         li_32 += 2;
      case 60:
         ld_ret_24 += LSMA(a_symbol_0, TimeF, ai_8 * li_32, a_applied_price_16, ai_20);
         li_32 += 4;
      case 240:
         ld_ret_24 += LSMA(a_symbol_0, TimeF, ai_8 * li_32, a_applied_price_16, ai_20);
         li_32 += 6;
      case 1440:
         ld_ret_24 += LSMA(a_symbol_0, TimeF, ai_8 * li_32, a_applied_price_16, ai_20);
         li_32 += 4;
      case 10080:
         ld_ret_24 += LSMA(a_symbol_0, TimeF, ai_8 * li_32, a_applied_price_16, ai_20);
         li_32 += 4;
      case 43200:
         ld_ret_24 += LSMA(a_symbol_0, TimeF, ai_8 * li_32, a_applied_price_16, ai_20);
      }
   } else {
      switch (TimeF) {
      case 1:
         ld_ret_24 += iMA(a_symbol_0, TimeF, ai_8 * li_32, li_36, a_ma_method_12, a_applied_price_16, ai_20);
         li_32 += 5;
      case 5:
         ld_ret_24 += iMA(a_symbol_0, TimeF, ai_8 * li_32, li_36, a_ma_method_12, a_applied_price_16, ai_20);
         li_32 += 3;
      case 15:
         ld_ret_24 += iMA(a_symbol_0, TimeF, ai_8 * li_32, li_36, a_ma_method_12, a_applied_price_16, ai_20);
         li_32 += 2;
      case 30:
         ld_ret_24 += iMA(a_symbol_0, TimeF, ai_8 * li_32, li_36, a_ma_method_12, a_applied_price_16, ai_20);
         li_32 += 2;
      case 60:
         ld_ret_24 += iMA(a_symbol_0, TimeF, ai_8 * li_32, li_36, a_ma_method_12, a_applied_price_16, ai_20);
         li_32 += 4;
      case 240:
         ld_ret_24 += iMA(a_symbol_0, TimeF, ai_8 * li_32, li_36, a_ma_method_12, a_applied_price_16, ai_20);
         li_32 += 6;
      case 1440:
         ld_ret_24 += iMA(a_symbol_0, TimeF, ai_8 * li_32, li_36, a_ma_method_12, a_applied_price_16, ai_20);
         li_32 += 4;
      case 10080:
         ld_ret_24 += iMA(a_symbol_0, TimeF, ai_8 * li_32, li_36, a_ma_method_12, a_applied_price_16, ai_20);
         li_32 += 4;
      case 43200:
         ld_ret_24 += iMA(a_symbol_0, TimeF, ai_8 * li_32, li_36, a_ma_method_12, a_applied_price_16, ai_20);
      }
   }
   return (ld_ret_24);
}

void sl(string as_0, double ad_8, double ad_16, double ad_24, string as_32, int a_y_40, color a_color_44) {
   int l_window_48 = WindowFind(gs_368);
   string ls_52 = gs_368 + gi_76;
   string l_name_60 = Indicator_ID + as_32;
   int li_76 = a_y_40 + 10;
   gi_76++;
   string l_text_68 = as_0 + "      " + DoubleToStr(10000.0 * ad_8, 2) + "      " + DoubleToStr(10000.0 * ad_16, 2) + "      " + DoubleToStr(10000.0 * ad_24, 2);
   if (ObjectFind(l_name_60) == -1) {
      if (ObjectCreate(l_name_60, OBJ_LABEL, l_window_48, 0, 0)) {
         ObjectSet(l_name_60, OBJPROP_XDISTANCE, 10);
         ObjectSet(l_name_60, OBJPROP_YDISTANCE, a_y_40);
         ObjectSetText(l_name_60, l_text_68, TxtSize, "Arial Black", a_color_44);
      }
   } else {
      ObjectSet(l_name_60, OBJPROP_XDISTANCE, 10);
      ObjectSet(l_name_60, OBJPROP_YDISTANCE, a_y_40);
      ObjectSetText(l_name_60, l_text_68, TxtSize, "Arial Black", a_color_44);
   }
}

double SetPoint(string a_symbol_0) {
   double ld_ret_8;
   double l_digits_16 = MarketInfo(a_symbol_0, MODE_DIGITS);
   if (l_digits_16 < 4.0) ld_ret_8 = 0.01;
   else ld_ret_8 = 0.0001;
   return (ld_ret_8);
}



Sample





Analysis



Market Information Used:

Series array that contains close prices for each bar
Series array that contains open prices of each bar
Series array that contains the highest prices of each bar
Series array that contains the lowest prices of each bar


Indicator Curves created:

Implements a curve of type DRAW_LINE


Indicators Used:

Moving average indicator


Custom Indicators Used:

Order Management characteristics:

Other Features: