#property copyright "开发:阿强 一脉神剑 "
#property link      ""
extern string Comment1             = "货币资料 黄金分割 货币强弱 v8 ";
extern string Comment2             = "开发:阿强 一脉神剑 ";
extern string Comment3             = "QQ:154805 765681593";

#property indicator_chart_window

#include <stdlib.mqh>

extern bool Corner_Right_Top = TRUE;
extern bool 详细资料_Enabled = TRUE;
extern bool K线时间_Enabled = TRUE;
extern bool 黄金分割_Enabled = TRUE;
extern bool 货币强弱_Enabled = TRUE;
extern bool 货币强弱_On_Right = TRUE;
color Label_Color = SkyBlue;
bool gi_108;
int gia_112[18];
int gia_116[18];
int gia_120[18];
int gia_124[8];
int gia_128[8];
int gia_132[9] = {4, 10, 25, 40, 50, 60, 75, 90, 97};
string gsa_136[8] = {"NZD", "CAD", "CHF", "AUD", "JPY", "USD", "GBP", "EUR"};
string gsa_140[18] = {"EURUSD", "GBPUSD", "AUDUSD", "USDJPY", "USDCHF", "USDCAD", "EURJPY", "EURGBP", "EURCHF", "EURAUD", "GBPJPY", "GBPCHF", "CADJPY", "EURCAD", "AUDCAD", "AUDJPY", "AUDNZD", "NZDUSD"};
int gia_144[10] = {10495, 20735, 30975, 41215, 48895, 46280, 51350, 56420, 61490, 65280};

extern bool 昨天价值_Enabled = TRUE;
bool gi_100 = FALSE;
bool gi_104 = FALSE;
extern int Corner_lower_right = 3;
extern int 移动上下 = 10;
extern int 移动左右 = 15;
extern int iFrame = 1440;
extern int 昨天价值_Shift = 100;

extern color 开盘最高最低_color1 = SkyBlue;
extern color 开盘最高最低_color2 = Orange;

extern color 开盘涨跌_color1 = Lime;
extern color 开盘涨跌_color2 = Red;

extern color 统计_color1 = WhiteSmoke;
extern color 统计_color2 = Yellow;

extern color 平均_color1 = Orange;
extern color 平均_color2 = Lime;

extern color 点差_color1 = SkyBlue;
extern color 点差_color2 = Gold;

extern color Current_Price_color = Orange;

extern color K线时间_color = Yellow;

extern color cPivot = Yellow;
extern color cRS1 = Green;
extern color cRS2 = Green;
extern color cRS3 = Red;
int g_datetime_152;
string gsa_160[] = {"GBPJPY"};
string gsa_164[] = {"EURUSD", "GBPUSD", "AUDUSD", "USDJPY", "USDCHF", "USDCAD", "EURJPY", "EURGBP", "EURCHF", "EURAUD", "GBPJPY", "GBPCHF", "CADJPY", "EURCAD", "AUDCAD", "AUDJPY", "AUDNZD", "NZDUSD"};
string gsa_168[] = {"USD", "EUR", "GBP", "CHF", "CAD", "AUD", "JPY", "NZD"};
int gia_172[] = {115, 100, 85, 70, 55, 40, 25, 10};
int gi_184;
int gi_188;
double gda_192[];
double gda_196[];
double gda_200[];
double gda_204[];
double gda_208[];
double gda_212[];
double gda_216[];
double gda_220[];
double gda_224[];
int gia_228[];

int init() {
   gi_184 = ArrayRange(gsa_164, 0);
   gi_188 = ArrayRange(gsa_168, 0);
   int li_8 = ArrayRange(gia_172, 0);
   if (gi_188 != li_8) Print("The size of array aMajor is not equals to aMajorPos");
   ArrayResize(gda_192, gi_188);
   ArrayResize(gda_196, gi_184);
   ArrayResize(gda_200, gi_184);
   ArrayResize(gda_204, gi_184);
   ArrayResize(gda_208, gi_184);
   ArrayResize(gda_212, gi_184);
   ArrayResize(gda_216, gi_184);
   ArrayResize(gda_220, gi_184);
   ArrayResize(gda_224, gi_184);
   gi_108 = TRUE;   
   return (0);
}

int deinit() {
   ObjectDelete("P LINE");
   ObjectDelete("R1 LINE");
   ObjectDelete("R2 LINE");
   ObjectDelete("R3 LINE");
   ObjectDelete("S1 LINE");
   ObjectDelete("S2 LINE");
   ObjectDelete("S3 LINE");
   ObjectDelete("PIVOTTEXT");
   ObjectDelete("R1TEXT");
   ObjectDelete("R1TEXT");
   ObjectDelete("R3TEXT");
   ObjectDelete("S1TEXT");
   ObjectDelete("S2TEXT");
   ObjectDelete("S3TEXT");
   ObjectsDeleteAll(0, OBJ_LABEL);
   Print("shutdown error - ", ErrorDescription(GetLastError()));
   ObjectsDeleteAll(0, OBJ_TEXT);
  //  ObjectsDeleteAll();
   return (0);
}

int start() {
   PriceMeter();
   if (gi_108) gi_108 = FALSE;
   int li_unused_176;
   int li_180;
   string ls_unused_272;
   color l_color_304;
   color l_color_308;
   int l_ind_counted_0 = IndicatorCounted();
   int l_timeframe_4 = 0;
   double ld_8 = 0;
   double ld_16 = 0;
   double ld_24 = 0;
   double ld_32 = 0;
   double l_price_40 = 0;
   double l_price_48 = 0;
   double l_price_56 = 0;
   double l_price_64 = 0;
   double l_price_72 = 0;
   double l_price_80 = 0;
   double l_price_88 = 0;
   double l_iopen_96 = iOpen(NULL, PERIOD_D1, 0);
   double l_iclose_104 = iClose(NULL, PERIOD_D1, 0);
   double ld_112 = (Ask - Bid) / Point;
   double l_ihigh_120 = iHigh(NULL, PERIOD_D1, 0);
   double l_ilow_128 = iLow(NULL, PERIOD_D1, 0);
   if (gi_100) {
      ld_8 = High[1];
      ld_16 = Low[1];
      ld_24 = Close[1];
      ld_32 = Open[0];
   } else {
      switch (iFrame) {
      case 1:
         l_timeframe_4 = 1;
         break;
      case 5:
         l_timeframe_4 = 5;
         break;
      case 15:
         l_timeframe_4 = 15;
         break;
      case 30:
         l_timeframe_4 = 30;
         break;
      case 60:
         l_timeframe_4 = 60;
         break;
      case 240:
         l_timeframe_4 = 240;
         break;
      case 1440:
         l_timeframe_4 = 1440;
         break;
      case 10080:
         l_timeframe_4 = 10080;
         break;
      case 43200:
         l_timeframe_4 = 43200;
         break;
      default:
         l_timeframe_4 = 1440;
      }
      ld_8 = iHigh(NULL, l_timeframe_4, 1);
      ld_16 = iLow(NULL, l_timeframe_4, 1);
      ld_24 = iClose(NULL, l_timeframe_4, 1);
      ld_32 = iOpen(NULL, l_timeframe_4, 0);
   }
   l_price_40 = (ld_8 + ld_16 + ld_24) / 3.0;
   l_price_72 = 2.0 * l_price_40 - ld_16;
   l_price_48 = 2.0 * l_price_40 - ld_8;
   l_price_80 = l_price_40 + (l_price_72 - l_price_48);
   l_price_56 = l_price_40 - (l_price_72 - l_price_48);
   l_price_88 = ld_8 + 2.0 * (l_price_40 - ld_16);
   l_price_64 = ld_16 - 2.0 * (ld_8 - l_price_40);
   int li_148 = Time[0] + 60 * Period() - TimeCurrent();
   double ld_140 = li_148 / 60.0;
   int li_152 = li_148 % 60;
   li_148 = (li_148 - li_148 % 60) / 60;
   ObjectDelete("time");
   if (K线时间_Enabled == TRUE) {
      if (ObjectFind("time") != 0) {
         ObjectCreate("time", OBJ_TEXT, 0, Time[0], Close[0] + 0.0005);
         ObjectSetText("time", "                 <--" + li_148 + ":" + li_152, 11, "Verdana", K线时间_color);
      } else ObjectMove("time", 0, Time[0], Close[0] + 0.0005);
   }
   double l_ima_168 = iMA(Symbol(), 0, 1, 0, MODE_EMA, PRICE_CLOSE, 0);
   string l_dbl2str_160 = DoubleToStr(l_ima_168, Digits);
   if (StringFind(Symbol(), "JPY", 0) != -1) {
      li_unused_176 = 100;
      li_180 = Digits;
   } else {
      li_unused_176 = 10000;
      li_180 = Digits;
   }
   int li_184 = 0;
   int li_188 = 0;
   int li_192 = 0;
   int li_196 = 0;
   int li_unused_200 = 0;
   int li_204 = 0;
   bool li_208 = FALSE;
   int li_212 = 0;
   li_184 = (iHigh(NULL, PERIOD_D1, 1) - iLow(NULL, PERIOD_D1, 1)) / Point;
   for (li_212 = 1; li_212 <= 5; li_212++) li_188 = li_188 + (iHigh(NULL, PERIOD_D1, li_212) - iLow(NULL, PERIOD_D1, li_212)) / Point;
   for (li_212 = 1; li_212 <= 10; li_212++) li_192 = li_192 + (iHigh(NULL, PERIOD_D1, li_212) - iLow(NULL, PERIOD_D1, li_212)) / Point;
   for (li_212 = 1; li_212 <= 20; li_212++) li_196 = li_196 + (iHigh(NULL, PERIOD_D1, li_212) - iLow(NULL, PERIOD_D1, li_212)) / Point;
   li_188 /= 5;
   li_192 /= 10;
   li_196 /= 20;
   li_208 = li_184;
   li_204 = (li_184 + li_188 + li_192 + li_196) / 4;
   string ls_unused_216 = "";
   string ls_unused_224 = "";
   string l_dbl2str_232 = "";
   string l_dbl2str_240 = "";
   string l_dbl2str_248 = "";
   string l_dbl2str_256 = "";
   string l_dbl2str_264 = "";
   string ls_unused_280 = "";
   string ls_unused_288 = "";
   string ls_296 = "";
   l_dbl2str_240 = DoubleToStr((l_iclose_104 - l_iopen_96) / Point, 0);
   l_dbl2str_232 = DoubleToStr(ld_112, 0);
   l_dbl2str_256 = DoubleToStr(li_204, 0);
   l_dbl2str_248 = DoubleToStr(li_208, 0 - 4);
   ls_296 = (iHigh(NULL, PERIOD_D1, 1) - iLow(NULL, PERIOD_D1, 1)) / Point;
   l_dbl2str_264 = DoubleToStr((l_ihigh_120 - l_ilow_128) / Point, 0);
   if (l_iclose_104 >= l_iopen_96) {
      ls_unused_280 = "-";
      l_color_304 = 开盘涨跌_color1;
   }
   if (l_iclose_104 < l_iopen_96) {
      ls_unused_280 = "-";
      l_color_304 = 开盘涨跌_color2;
   }
   if (l_dbl2str_256 > ls_296) {
      ls_unused_288 = "-";
      l_color_308 = Lime;
   }
   if (l_dbl2str_256 < ls_296) {
      ls_unused_288 = "-";
      l_color_308 = OrangeRed;
   }
   g_datetime_152 = iTime(NULL, PERIOD_H4, 0) - 60 * Period();
   if (黄金分割_Enabled == TRUE) {
      ObjectCreate("P line", OBJ_TREND, 0, g_datetime_152, l_price_40, Time[0], l_price_40);
      ObjectSet("P line", OBJPROP_STYLE, STYLE_DOT);
      ObjectSet("P line", OBJPROP_WIDTH, 1);
      ObjectSet("P line", OBJPROP_COLOR, cPivot);
      ObjectCreate("P label", OBJ_TEXT, 0, g_datetime_152, l_price_40, Time[0], l_price_40);
      ObjectSetText("P label", "" + DoubleToStr(l_price_40, li_180), 9, "Arial", CLR_NONE);
      ObjectSet("P label", OBJPROP_COLOR, cPivot);
      ObjectCreate("R1 line", OBJ_TREND, 0, g_datetime_152, l_price_72, Time[0], l_price_72);
      ObjectSet("R1 line", OBJPROP_STYLE, STYLE_DOT);
      ObjectSet("R1 line", OBJPROP_WIDTH, 1);
      ObjectSet("R1 line", OBJPROP_COLOR, cRS1);
      ObjectCreate("R1 label", OBJ_TEXT, 0, g_datetime_152, l_price_72, Time[0], l_price_72);
      ObjectSetText("R1 label", "" + DoubleToStr(l_price_72, li_180), 8, "Arial", CLR_NONE);
      ObjectSet("R1 label", OBJPROP_COLOR, cRS1);
      ObjectCreate("S1 line", OBJ_TREND, 0, g_datetime_152, l_price_48, Time[0], l_price_48);
      ObjectSet("S1 line", OBJPROP_STYLE, STYLE_DOT);
      ObjectSet("S1 line", OBJPROP_WIDTH, 1);
      ObjectSet("S1 line", OBJPROP_COLOR, cRS1);
      ObjectCreate("S1 label", OBJ_TEXT, 0, g_datetime_152, l_price_48, Time[0], l_price_48);
      ObjectSetText("S1 label", "" + DoubleToStr(l_price_48, li_180), 8, "Arial", CLR_NONE);
      ObjectSet("S1 label", OBJPROP_COLOR, cRS1);
      ObjectCreate("R2 line", OBJ_TREND, 0, g_datetime_152, l_price_80, Time[0], l_price_80);
      ObjectSet("R2 line", OBJPROP_STYLE, STYLE_DOT);
      ObjectSet("R2 line", OBJPROP_WIDTH, 1);
      ObjectSet("R2 line", OBJPROP_COLOR, cRS2);
      ObjectCreate("R2 label", OBJ_TEXT, 0, g_datetime_152, l_price_80, Time[0], l_price_80);
      ObjectSetText("R2 label", "" + DoubleToStr(l_price_80, li_180), 8, "Arial", CLR_NONE);
      ObjectSet("R2 label", OBJPROP_COLOR, cRS2);
      ObjectCreate("S2 line", OBJ_TREND, 0, g_datetime_152, l_price_56, Time[0], l_price_56);
      ObjectSet("S2 line", OBJPROP_STYLE, STYLE_DOT);
      ObjectSet("S2 line", OBJPROP_WIDTH, 1);
      ObjectSet("S2 line", OBJPROP_COLOR, cRS2);
      ObjectCreate("S2 label", OBJ_TEXT, 0, g_datetime_152, l_price_56, Time[0], l_price_56);
      ObjectSetText("S2 label", "" + DoubleToStr(l_price_56, li_180), 8, "Arial", CLR_NONE);
      ObjectSet("S2 label", OBJPROP_COLOR, cRS2);
      ObjectCreate("R3 line", OBJ_TREND, 0, g_datetime_152, l_price_88, Time[0], l_price_88);
      ObjectSet("R3 line", OBJPROP_STYLE, STYLE_DOT);
      ObjectSet("R3 line", OBJPROP_WIDTH, 1);
      ObjectSet("R3 line", OBJPROP_COLOR, cRS3);
      ObjectCreate("R3 label", OBJ_TEXT, 0, g_datetime_152, l_price_88, Time[0], l_price_88);
      ObjectSetText("R3 label", "" + DoubleToStr(l_price_88, li_180), 8, "Arial", CLR_NONE);
      ObjectSet("R3 label", OBJPROP_COLOR, cRS3);
      ObjectCreate("S3 line", OBJ_TREND, 0, g_datetime_152, l_price_64, Time[0], l_price_64);
      ObjectSet("S3 line", OBJPROP_STYLE, STYLE_DOT);
      ObjectSet("S3 line", OBJPROP_WIDTH, 1);
      ObjectSet("S3 line", OBJPROP_COLOR, cRS3);
      ObjectCreate("S3 label", OBJ_TEXT, 0, g_datetime_152, l_price_64, Time[0], l_price_64);
      ObjectSetText("S3 label", "" + DoubleToStr(l_price_64, li_180), 8, "Arial", CLR_NONE);
      ObjectSet("S3 label", OBJPROP_COLOR, cRS3);
   }
   if (昨天价值_Enabled == TRUE) {
      ObjectCreate("昨高 Label", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("昨高 Label", "/ 昨高", 9, "Verdana", 开盘最高最低_color1);
      ObjectSet("昨高 Label", OBJPROP_XDISTANCE, 昨天价值_Shift + 150);
      ObjectSet("昨高 Label", OBJPROP_YDISTANCE, 2);
      ObjectCreate("昨高 Value", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("昨高 Value", " " + DoubleToStr(ld_8, li_180), 9, "Verdana", Red);
      ObjectSet("昨高 Value", OBJPROP_XDISTANCE, 昨天价值_Shift + 185);
      ObjectSet("昨高 Value", OBJPROP_YDISTANCE, 2);
      ObjectCreate("昨低 Label", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("昨低 Label", "/ 昨低", 9, "Verdana", 开盘最高最低_color1);
      ObjectSet("昨低 Label", OBJPROP_XDISTANCE, 昨天价值_Shift + 250);
      ObjectSet("昨低 Label", OBJPROP_YDISTANCE, 2);
      ObjectCreate("昨低 Value", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("昨低 Value", " " + DoubleToStr(ld_16, li_180), 9, "Verdana", Red);
      ObjectSet("昨低 Value", OBJPROP_XDISTANCE, 昨天价值_Shift + 280);
      ObjectSet("昨低 Value", OBJPROP_YDISTANCE, 2);
      ObjectCreate("收盘 Label", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("收盘 Label", "/ 收盘", 9, "Verdana", 开盘最高最低_color1);
      ObjectSet("收盘 Label", OBJPROP_XDISTANCE, 昨天价值_Shift + 345);
      ObjectSet("收盘 Label", OBJPROP_YDISTANCE, 2);
      ObjectCreate("收盘 Value", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("收盘 Value", " " + DoubleToStr(ld_24, li_180), 9, "Verdana", Red);
      ObjectSet("收盘 Value", OBJPROP_XDISTANCE, 昨天价值_Shift + 375);
      ObjectSet("收盘 Value", OBJPROP_YDISTANCE, 2);
   }
   if (详细资料_Enabled == TRUE) {
      ObjectCreate("开盘 Label", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("开盘 Label", "开盘", 9, "Verdana", 开盘最高最低_color1);
      ObjectSet("开盘 Label", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("开盘 Label", OBJPROP_XDISTANCE, 移动左右 + 62);
      ObjectSet("开盘 Label", OBJPROP_YDISTANCE, 移动上下 + 2);
      ObjectCreate("开盘 Value", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("开盘 Value", " " + DoubleToStr(ld_32, li_180), 9, "Verdana Bold", 开盘最高最低_color2);
      ObjectSet("开盘 Value", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("开盘 Value", OBJPROP_XDISTANCE, 移动左右 + 2);
      ObjectSet("开盘 Value", OBJPROP_YDISTANCE, 移动上下 + 2);
      ObjectCreate("最高 Label", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("最高 Label", "最高", 9, "Verdana", 开盘最高最低_color1);
      ObjectSet("最高 Label", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("最高 Label", OBJPROP_XDISTANCE, 移动左右 + 62);
      ObjectSet("最高 Label", OBJPROP_YDISTANCE, 移动上下 + 17);
      ObjectCreate("最高 Value", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("最高 Value", " " + DoubleToStr(l_ihigh_120, li_180), 9, "Verdana Bold", 开盘最高最低_color2);
      ObjectSet("最高 Value", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("最高 Value", OBJPROP_XDISTANCE, 移动左右 + 2);
      ObjectSet("最高 Value", OBJPROP_YDISTANCE, 移动上下 + 17);
      ObjectCreate("最低 Label", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("最低 Label", "最低", 9, "Verdana", 开盘最高最低_color1);
      ObjectSet("最低 Label", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("最低 Label", OBJPROP_XDISTANCE, 移动左右 + 62);
      ObjectSet("最低 Label", OBJPROP_YDISTANCE, 移动上下 + 32);
      ObjectCreate("最低 Value", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("最低 Value", " " + DoubleToStr(l_ilow_128, li_180), 9, "Verdana Bold", 开盘最高最低_color2);
      ObjectSet("最低 Value", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("最低 Value", OBJPROP_XDISTANCE, 移动左右 + 2);
      ObjectSet("最低 Value", OBJPROP_YDISTANCE, 移动上下 + 32);
      ObjectCreate("open", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("open", "开盘涨跌", 9, "Verdana", l_color_304);
      ObjectSet("open", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("open", OBJPROP_XDISTANCE, 移动左右 + 39);
      ObjectSet("open", OBJPROP_YDISTANCE, 移动上下 + 49);
      ObjectCreate("open1", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("open1", "" + l_dbl2str_240 + "", 9, "Verdana Bold", l_color_304);
      ObjectSet("open1", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("open1", OBJPROP_XDISTANCE, 移动左右 + 2);
      ObjectSet("open1", OBJPROP_YDISTANCE, 移动上下 + 49);
      ObjectCreate("today1", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("today1", "今高低", 9, "Verdana", 统计_color1);
      ObjectSet("today1", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("today1", OBJPROP_XDISTANCE, 移动左右 + 50);
      ObjectSet("today1", OBJPROP_YDISTANCE, 移动上下 + 66);
      ObjectCreate("today2", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("today2", "" + l_dbl2str_264 + "", 9, "Verdana", 统计_color2);
      ObjectSet("today2", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("today2", OBJPROP_XDISTANCE, 移动左右 + 2);
      ObjectSet("today2", OBJPROP_YDISTANCE, 移动上下 + 66);
      ObjectCreate("yesterday1", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("yesterday1", "昨高低", 9, "Verdana", 统计_color1);
      ObjectSet("yesterday1", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("yesterday1", OBJPROP_XDISTANCE, 移动左右 + 50);
      ObjectSet("yesterday1", OBJPROP_YDISTANCE, 移动上下 + 81);
      ObjectCreate("yesterday2", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("yesterday2", "" + l_dbl2str_248 + "", 9, "Verdana", 统计_color2);
      ObjectSet("yesterday2", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("yesterday2", OBJPROP_XDISTANCE, 移动左右 + 2);
      ObjectSet("yesterday2", OBJPROP_YDISTANCE, 移动上下 + 81);
      ObjectCreate("5_day", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("5_day", "5    天", 9, "Verdana", 统计_color1);
      ObjectSet("5_day", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("5_day", OBJPROP_XDISTANCE, 移动左右 + 50);
      ObjectSet("5_day", OBJPROP_YDISTANCE, 移动上下 + 96);
      ObjectCreate("5_day1", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("5_day1", DoubleToStr(li_188, 0), 9, "Verdana", 统计_color2);
      ObjectSet("5_day1", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("5_day1", OBJPROP_XDISTANCE, 移动左右 + 2);
      ObjectSet("5_day1", OBJPROP_YDISTANCE, 移动上下 + 96);
      ObjectCreate("10_day", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("10_day", "10  天", 9, "Verdana", 统计_color1);
      ObjectSet("10_day", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("10_day", OBJPROP_XDISTANCE, 移动左右 + 50);
      ObjectSet("10_day", OBJPROP_YDISTANCE, 移动上下 + 111);
      ObjectCreate("10_day1", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("10_day1", DoubleToStr(li_192, 0), 9, "Verdana", 统计_color2);
      ObjectSet("10_day1", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("10_day1", OBJPROP_XDISTANCE, 移动左右 + 2);
      ObjectSet("10_day1", OBJPROP_YDISTANCE, 移动上下 + 111);
      ObjectCreate("20_day", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("20_day", "20  天", 9, "Verdana", 统计_color1);
      ObjectSet("20_day", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("20_day", OBJPROP_XDISTANCE, 移动左右 + 50);
      ObjectSet("20_day", OBJPROP_YDISTANCE, 移动上下 + 126);
      ObjectCreate("20_day1", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("20_day1", DoubleToStr(li_196, 0), 9, "Verdana", 统计_color2);
      ObjectSet("20_day1", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("20_day1", OBJPROP_XDISTANCE, 移动左右 + 2);
      ObjectSet("20_day1", OBJPROP_YDISTANCE, 移动上下 + 126);
      ObjectCreate("average", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("average", "平   均", 9, "Verdana", 平均_color1);
      ObjectSet("average", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("average", OBJPROP_XDISTANCE, 移动左右 + 50);
      ObjectSet("average", OBJPROP_YDISTANCE, 移动上下 + 142);
      ObjectCreate("average1", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("average1", "" + l_dbl2str_256 + "", 9, "Verdana Bold", 平均_color2);
      ObjectSet("average1", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("average1", OBJPROP_XDISTANCE, 移动左右 + 2);
      ObjectSet("average1", OBJPROP_YDISTANCE, 移动上下 + 142);
      ObjectCreate("MMLEVELS1", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("MMLEVELS1", "点差", 9, "Arial", 点差_color1);
      ObjectSet("MMLEVELS1", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("MMLEVELS1", OBJPROP_XDISTANCE, 移动左右 + 62);
      ObjectSet("MMLEVELS1", OBJPROP_YDISTANCE, 移动上下 + 157);
      ObjectCreate("MMLEVELS2", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("MMLEVELS2", "" + l_dbl2str_232 + "", 12, "Arial Bold", 点差_color2);
      ObjectSet("MMLEVELS2", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("MMLEVELS2", OBJPROP_XDISTANCE, 移动左右 + 2);
      ObjectSet("MMLEVELS2", OBJPROP_YDISTANCE, 移动上下 + 157);
      ObjectCreate("Signalprice", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("Signalprice", "" + l_dbl2str_160 + "", 16, "Arial", Current_Price_color);
      ObjectSet("Signalprice", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("Signalprice", OBJPROP_XDISTANCE, 移动左右 + 12);
      ObjectSet("Signalprice", OBJPROP_YDISTANCE, 移动上下 + 173);
      ObjectCreate("line1", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("line1", "-----------------", 8, "Verdana", PeachPuff);
      ObjectSet("line1", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("line1", OBJPROP_XDISTANCE, 移动左右 + 2);
      ObjectSet("line1", OBJPROP_YDISTANCE, 移动上下 + 42);
      ObjectCreate("line2", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("line2", "-----------------", 8, "Verdana", PeachPuff);
      ObjectSet("line2", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("line2", OBJPROP_XDISTANCE, 移动左右 + 2);
      ObjectSet("line2", OBJPROP_YDISTANCE, 移动上下 + 58);
      ObjectCreate("line3", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("line3", "-----------------", 8, "Verdana", MediumTurquoise);
      ObjectSet("line3", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("line3", OBJPROP_XDISTANCE, 移动左右 + 2);
      ObjectSet("line3", OBJPROP_YDISTANCE, 移动上下 + 135);
      ObjectCreate("line4", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("line4", "-----------------", 8, "Verdana", MediumTurquoise);
      ObjectSet("line4", OBJPROP_CORNER, Corner_Right_Top);
      ObjectSet("line4", OBJPROP_XDISTANCE, 移动左右 + 2);
      ObjectSet("line4", OBJPROP_YDISTANCE, 移动上下 + 150);
   }
   return (0);
}

void SideLabel(string a_name_0, int a_x_8, int a_y_12, int a_corner_16 = 0) {
   if (ObjectFind(a_name_0) != 0) {
      ObjectCreate(a_name_0, OBJ_LABEL, 0, 0, 0);
      if (货币强弱_On_Right) a_corner_16++;
      ObjectSet(a_name_0, OBJPROP_CORNER, a_corner_16);
      ObjectSet(a_name_0, OBJPROP_XDISTANCE, a_x_8);
      ObjectSet(a_name_0, OBJPROP_YDISTANCE, a_y_12);
   }
}

void PriceMeter() {
   int li_4;
   double l_point_8;
   double ld_16;
   double ld_24;
   double ld_32;
   double l_low_40;
   string l_symbol_48;
   if (货币强弱_Enabled != FALSE) {
      if (gi_108) {
         for (int l_index_0 = 0; l_index_0 < 18; l_index_0++) {
            l_symbol_48 = gsa_140[l_index_0];
            l_point_8 = MarketInfo(l_symbol_48, MODE_POINT);
            if (l_point_8 == 0.0) {
               gia_112[l_index_0] = 0;
               gia_116[l_index_0] = 0;
               gia_120[l_index_0] = 0;
            } else gia_120[l_index_0] = 1;
         }
         gia_124[7] = gia_120[0] + gia_120[6] + gia_120[7] + gia_120[8] + gia_120[9];
         gia_124[6] = gia_120[1] + gia_120[10] + gia_120[11] + gia_120[7];
         gia_124[5] = gia_120[3] + gia_120[4] + gia_120[5] + gia_120[0] + gia_120[1] + gia_120[2] + gia_120[17];
         gia_124[4] = gia_120[3] + gia_120[6] + gia_120[10] + gia_120[12] + gia_120[15];
         gia_124[3] = gia_120[2] + gia_120[9] + gia_120[14] + gia_120[15] + gia_120[16];
         gia_124[2] = gia_120[4] + gia_120[8] + gia_120[11];
         gia_124[1] = gia_120[5] + gia_120[14] + gia_120[13] + gia_120[12];
         gia_124[0] = gia_120[16] + gia_120[17];
         li_4 = 12;
         for (l_index_0 = 0; l_index_0 < 8; l_index_0++) {
            if (gia_124[l_index_0] > 0) {
               l_symbol_48 = "lab" + gsa_136[l_index_0];
               SideLabel(l_symbol_48, 73, li_4, 2);
               ObjectSetText(l_symbol_48, gsa_136[l_index_0], 9, "Arial", Label_Color);
               li_4 += 15;
            }
         }
      }
      for (l_index_0 = 0; l_index_0 < 18; l_index_0++) {
         if (gia_120[l_index_0] != 0) {
            l_symbol_48 = gsa_140[l_index_0];
            l_point_8 = MarketInfo(l_symbol_48, MODE_POINT);
            ld_32 = MarketInfo(l_symbol_48, MODE_HIGH);
            l_low_40 = MarketInfo(l_symbol_48, MODE_LOW);
            ld_16 = MathMax((ld_32 - l_low_40) / l_point_8, 1);
            ld_32 = MarketInfo(l_symbol_48, MODE_BID);
            ld_24 = (ld_32 - l_low_40) / ld_16 / l_point_8;
            gia_112[l_index_0] = iLookup(100.0 * ld_24);
            gia_116[l_index_0] = 9 - gia_112[l_index_0];
         }
      }
      gia_128[5] = gia_112[3] + gia_112[4] + gia_112[5] + gia_116[0] + gia_116[1] + gia_116[2] + gia_116[17];
      gia_128[7] = gia_112[0] + gia_112[6] + gia_112[7] + gia_112[8] + gia_112[9];
      gia_128[6] = gia_112[1] + gia_112[10] + gia_112[11] + gia_116[7];
      gia_128[2] = gia_116[4] + gia_116[8] + gia_116[11];
      gia_128[1] = gia_116[5] + gia_116[14] + gia_116[13] + gia_112[12];
      gia_128[3] = gia_112[2] + gia_116[9] + gia_112[14] + gia_112[15] + gia_112[16];
      gia_128[4] = gia_116[3] + gia_116[6] + gia_116[10] + gia_116[12] + gia_116[15];
      gia_128[0] = gia_116[16] + gia_112[17];
      li_4 = 12;
      for (l_index_0 = 0; l_index_0 < 8; l_index_0++) {
         if (gia_124[l_index_0] > 0) {
            ld_32 = gia_128[l_index_0];
            ld_32 /= gia_124[l_index_0];
            PairBlock(gsa_136[l_index_0], ld_32, li_4);
            li_4 += 15;
         }
      }
   }
}

int iLookup(double ad_0) {
   for (int l_index_8 = 0; l_index_8 < 9; l_index_8++)
      if (ad_0 < gia_132[l_index_8]) break;
   return (l_index_8);
}

void PairDelete(string as_0) {
   string l_name_8;
   for (int li_16 = 1; li_16 <= 30; li_16++) {
      l_name_8 = as_0 + li_16;
      if (ObjectFind(l_name_8) < 0) break;
      ObjectDelete(l_name_8);
   }
}

void PairBlock(string as_0, double ad_8, int ai_16) {
   int li_20;
   string l_name_32;
   PairDelete(as_0);
   if (ad_8 >= 9.0) li_20 = 9;
   else {
      if (ad_8 >= 8.0) li_20 = 8;
      else {
         if (ad_8 >= 7.0) li_20 = 7;
         else {
            if (ad_8 >= 6.0) li_20 = 6;
            else {
               if (ad_8 >= 5.0) li_20 = 5;
               else {
                  if (ad_8 >= 4.0) li_20 = 4;
                  else {
                     if (ad_8 >= 3.0) li_20 = 3;
                     else {
                        if (ad_8 >= 2.0) li_20 = 2;
                        else {
                           if (ad_8 >= 1.0) li_20 = 1;
                           else li_20 = 0;
                        }
                     }
                  }
               }
            }
         }
      }
   }
   int li_24 = 58;
   ai_16 += 3;
   for (int l_index_40 = 0; l_index_40 < li_20; l_index_40++) {
      l_name_32 = as_0 + ((3 * l_index_40 + 1));
      SideLabel(l_name_32, li_24, ai_16, 2);
      ObjectSetText(l_name_32, "|", 6, "Arial Black", gia_144[l_index_40]);
      l_name_32 = as_0 + ((3 * l_index_40 + 2));
      SideLabel(l_name_32, li_24 - 1, ai_16, 2);
      ObjectSetText(l_name_32, "|", 6, "Arial Black", gia_144[l_index_40]);
      l_name_32 = as_0 + ((3 * l_index_40 + 3));
      SideLabel(l_name_32, li_24 - 2, ai_16, 2);
      ObjectSetText(l_name_32, "|", 6, "Arial Black", gia_144[l_index_40]);
      li_24 -= 5;
   }
   l_name_32 = as_0 + ((3 * li_20 + 1));
   SideLabel(l_name_32, li_24, ai_16, 2);
   ObjectSetText(l_name_32, "|", 6, "Arial Black", gia_144[li_20]);
   l_name_32 = as_0 + ((3 * li_20 + 2));
   SideLabel(l_name_32, li_24 - 1, ai_16, 2);
   ObjectSetText(l_name_32, "|", 6, "Arial Black", gia_144[li_20]);
   ad_8 -= li_20;
   if (ad_8 >= 0.5) {
      l_name_32 = as_0 + ((3 * li_20 + 3));
      SideLabel(l_name_32, li_24 - 2, ai_16, 2);
      ObjectSetText(l_name_32, "|", 6, "Arial Black", gia_144[li_20]);
   }
}