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