//+------------------------------------------------------------------+
//|                                                       i-NASA.mq4 |
//|                                                      Version 4.0 |
//|                                     Copyright © 2009, Goalkeeper |
//|                                   http://forum.forexpeoples.com/ |
//+------------------------------------------------------------------+
//| Индикатор выводит в дополнительное окно экрана информацию        |
//| о текущей валютной паре и рассчетные значения для принятия       |
//| правильных и своевременных решений при открытии позиций.         |
//+------------------------------------------------------------------+
//|                   Б Л А Г О Д А Р Н О С Т И :                    |
//+------------------------------------------------------------------+
//|                                         За основу взят индикатор |
//|                                                  spread swap.mq4 |
//|                      Copyright © 2007, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
//| В индикаторе использованы некоторые функции и элементы,          |
//| разработанные автором :                                          |
//|                                          Ким Игорь В. aka KimIV  |
//|                                             http://www.kimiv.ru  |
//+------------------------------------------------------------------+
#property copyright                   "Copyright © 2009, Goalkeeper"
#property link                      "http://forum.forexpeoples.com/"
#property indicator_separate_window
//==== внешние переменные индикатора ====
extern string   __     = "Размер лота от 0.1 до 8.0";
extern double   Lot_01 = 0.50;   // Размер используемого лота
extern double   Lot_02 = 1.00;   // Размер используемого лота
extern double   Lot_03 = 2.00;   // Размер используемого лота
extern double   Lot_04 = 3.00;   // Размер используемого лота
extern string   ___    = "Рисковый % депозита";
extern double   Risk   = 40.0;   // Рисковый % от депозита для расчета залога лота
extern string   ____   = "Планируемый % профита в день";
extern double   Plus   = 5.0;    // Планируемый % профита в день
extern string   _____  = "Пунктов прибыли для расчета";
extern int      PPips  = 20;     // Кол-во пунктов для расчета прибыли на лот
//==== координаты ====
int      X01      = 3;           // координата Х первой полосы
int      StepX01  = 60;          // смещение до столбца 1-й полосы
int      X02      = 115;         // координата Х второй полосы
int      StepX02  = 100;         // смещение до столбца 2-й полосы
int      X03      = 245;         // координата Х третьей полосы
int      StepX03  = 60;          // смещение до столбца 3-й полосы
int      X04      = 390;         // координата Х четвертой полосы
int      StepX04  = 110;         // смещение до столбца 4-й полосы
int      StepX05  = 95;          // смещение до столбца 5-й и т.д. полос
int      StepX06  = 45;          // смещение до столбца с процентами
int      Y01      = 20;          // координата Y первой строки
//==== цвета ====
color    Color1   = Gray;        // Цвет текста
color    Color2   = Lime;        // Цвет значений (+)
color    Color3   = Red;         // Цвет значений (-)
color    Color4   = Aqua;        // Цвет процентов
color    Color5   = Yellow;      // Цвет процентов планируемого профита (-)
color    Color6   = Magenta;     // Цвет процентов планируемого профита (+)
//==== шрифт ====
int      FontSize = 8;           // Размер шрифта
string   FontName = "Arial";     // Шрифт
string   ShortName = "NASA.";
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
   {
   DeleteObjects();
   IndicatorShortName(ShortName);
   return(0);
   }
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
   {
   DeleteObjects();
   return(0);
   }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
   {
   DeleteObjects();
//==== внутренние переменные ====
   double      swaplong, swapshort, dolg, profit, balance, depozit, free, BalPlus;
   double      percent_01, percent_02, percent_03, percent_04;
   double      pips_01, pips_02, pips_03, pips_04;
   double      PipsPlus_01, PipsPlus_02, PipsPlus_03, PipsPlus_04;
   double      Minus_01, Minus_02, Minus_03, Minus_04;
   double      PlusMinus_01, PlusMinus_02, PlusMinus_03, PlusMinus_04;
   int         spread, step, golova;
   color       ColorLot_01, ColorLot_02, ColorLot_03, ColorLot_04, ColorType, ColorProfit, ColorPips;
   string      type;
//==== вычисление значений ====
   int StepY   = MathCeil(1.5*FontSize);                                // интервал между строками
   spread      = MarketInfo(Symbol(),13);                               // спред в пунктах
   step        = MarketInfo(Symbol(),14);                               // минимально допустимый уровень стоп-лосса/тейк-профита в пунктах
   swaplong    = NormalizeDouble(MarketInfo(Symbol(),18),2);            // размер свопа для длинных позиций (ордер Buy)
   swapshort   = NormalizeDouble(MarketInfo(Symbol(),19),2);            // размер свопа для коротких позиций (ордер Sell)
   golova      = AccountLeverage();                                     // плечо счета
   balance     = AccountBalance();                                      // баланс счета
   depozit     = AccountEquity();                                       // средства счета
   free        = AccountFreeMargin();                                   // свободные средства счета

   datetime    d0 = StrToTime(TimeToStr(TimeCurrent(), TIME_DATE));
         while (TimeDayOfWeek(d0)<1 || TimeDayOfWeek(d0)>5) d0-=24*60*60;
   datetime    d1 = d0-24*60*60;
         while (TimeDayOfWeek(d1)<1 || TimeDayOfWeek(d1)>5) d1-=24*60*60;

   double      p0 = GetProfitFromDateInCurrency("", -1, -1, d0);        // профит за текущий день
   double      p1 = AccountProfit();                                    // профит всех открытых позиций
   double      b1 = balance-p0;                                         // баланс счета на начало текущего дня
   double      p0_per = p0*100/b1;                                      // профит за текущий день в процентах
   double      p1_per = p1*100/b1;                                      // профит всех открытых позиций в процентах

   dolg        = NormalizeDouble(MarketInfo(Symbol(),32),2);            // залог при лоте 1.0
   profit      = NormalizeDouble(MarketInfo(Symbol(),16),2);            // прибыль на 1 пункт при лоте 1.0
   percent_01  = NormalizeDouble((dolg*Lot_01*100/balance),1);          // процент залога от баланса для Lot_01
   percent_02  = NormalizeDouble((dolg*Lot_02*100/balance),0);          // процент залога от баланса для Lot_02
   percent_03  = NormalizeDouble((dolg*Lot_03*100/balance),0);          // процент залога от баланса для Lot_03
   percent_04  = NormalizeDouble((dolg*Lot_04*100/balance),0);          // процент залога от баланса для Lot_04

   pips_01     = (profit*Lot_01*100)/balance;                           // процент прибыли на 1 пункт от баланса для Lot_01
   pips_02     = (profit*Lot_02*100)/balance;                           // процент прибыли на 1 пункт от баланса для Lot_02
   pips_03     = (profit*Lot_03*100)/balance;                           // процент прибыли на 1 пункт от баланса для Lot_03
   pips_04     = (profit*Lot_04*100)/balance;                           // процент прибыли на 1 пункт от баланса для Lot_04

   BalPlus     = b1*Plus/100;                                           // сумма баланса на начало текущего дня, приходящаяся на план дневного профита (Plus)
   PipsPlus_01 = NormalizeDouble(((BalPlus/(profit*Lot_01)+1)),0);      // количество пунктов, необходимое для достижения дневного профита (Plus) для Lot_01
   PipsPlus_02 = NormalizeDouble(((BalPlus/(profit*Lot_02)+1)),0);      // количество пунктов, необходимое для достижения дневного профита (Plus) для Lot_02
   PipsPlus_03 = NormalizeDouble(((BalPlus/(profit*Lot_03)+1)),0);      // количество пунктов, необходимое для достижения дневного профита (Plus) для Lot_03
   PipsPlus_04 = NormalizeDouble(((BalPlus/(profit*Lot_04)+1)),0);      // количество пунктов, необходимое для достижения дневного профита (Plus) для Lot_04

   Minus_01    = NormalizeDouble((p0/(profit*Lot_01)),0);               // количество пунктов, оставшееся для достижения дневного профита (Plus) для Lot_01
   Minus_02    = NormalizeDouble((p0/(profit*Lot_02)),0);               // количество пунктов, оставшееся для достижения дневного профита (Plus) для Lot_02
   Minus_03    = NormalizeDouble((p0/(profit*Lot_03)),0);               // количество пунктов, оставшееся для достижения дневного профита (Plus) для Lot_03
   Minus_04    = NormalizeDouble((p0/(profit*Lot_04)),0);               // количество пунктов, оставшееся для достижения дневного профита (Plus) для Lot_04
//==== замена отрицательного значения оставшихся пунктов профита на ноль ====
   PlusMinus_01 = 0;
      if (PipsPlus_01>=Minus_01)    PlusMinus_01   = PipsPlus_01 - Minus_01;
            else                    PlusMinus_01   = 0;
   PlusMinus_02 = 0;
      if (PipsPlus_02>=Minus_02)    PlusMinus_02   = PipsPlus_02 - Minus_02;
            else                    PlusMinus_02   = 0;
   PlusMinus_03 = 0;
      if (PipsPlus_03>=Minus_03)    PlusMinus_03   = PipsPlus_03 - Minus_03;
            else                    PlusMinus_03   = 0;
   PlusMinus_04 = 0;
      if (PipsPlus_04>=Minus_04)    PlusMinus_04   = PipsPlus_04 - Minus_04;
            else                    PlusMinus_04   = 0;

//==== изменение цвета при превышении % риска ====
   double   RiskDepo = AccountBalance()*Risk/100;
   ColorLot_01 = Color2;
      if ((dolg*Lot_01)<RiskDepo)   ColorLot_01 = Color2;
            else                    ColorLot_01 = Color3;
   ColorLot_02 = Color2;
      if ((dolg*Lot_02)<RiskDepo)   ColorLot_02 = Color2;
            else                    ColorLot_02 = Color3;
   ColorLot_03 = Color2;
      if ((dolg*Lot_03)<RiskDepo)   ColorLot_03 = Color2;
            else                    ColorLot_03 = Color3;
   ColorLot_04 = Color2;
      if ((dolg*Lot_04)<RiskDepo)   ColorLot_04 = Color2;
            else                    ColorLot_04 = Color3;
//==== изменение цвета при увеличении/уменьшении средств ====
   ColorProfit = Color2;
      if (depozit>=balance)         ColorProfit = Color2;
            else                    ColorProfit = Color3;
//==== изменение цвета при достижении дневной прибыли ====
   ColorPips = Color5;
      if (p0_per<=Plus)             ColorPips   = Color5;
            else                    ColorPips   = Color6;
//==== определение типа счета и установка цвета ====
   if (IsDemo())  type = "DEMO";
      else        type = "REAL";
   if (IsDemo())  ColorType = Color3;
      else        ColorType = Color4;
//==== вычисление волатильности ====
   double   volotil_01, volotil_02, volotil_03;
   volotil_01  = (iHigh(NULL,1440,0)     - iLow(NULL,1440,0))      /Point;   // сегодня
   volotil_02  = (iHigh(NULL,1440*7,0)   - iLow(NULL,1440*7,0))    /Point;   // за текущую неделю
   volotil_03  = (iHigh(NULL,1440*30,0)  - iLow(NULL,1440*30,0))   /Point;   // за текущий месяц
//==== прорисовка символа ====
   ObjectCreate   ("i-NASA4_101", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_101", "Символ :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_101", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_101", OBJPROP_XDISTANCE, X01);
   ObjectSet      ("i-NASA4_101", OBJPROP_YDISTANCE, Y01);

   ObjectCreate   ("i-NASA4_102", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_102", Symbol(), FontSize, FontName, Color4);
   ObjectSet      ("i-NASA4_102", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_102", OBJPROP_XDISTANCE, X01+StepX01);
   ObjectSet      ("i-NASA4_102", OBJPROP_YDISTANCE, Y01);
//==== прорисовка спреда ====
   ObjectCreate   ("i-NASA4_201", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_201", "Спред/шаг:", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_201", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_201", OBJPROP_XDISTANCE, X01);
   ObjectSet      ("i-NASA4_201", OBJPROP_YDISTANCE, Y01+StepY);

   ObjectCreate   ("i-NASA4_202", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_202", DoubleToStr(spread ,0)+" / "+DoubleToStr(step ,0), FontSize, FontName, Color4);
   ObjectSet      ("i-NASA4_202", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_202", OBJPROP_XDISTANCE, X01+StepX01);
   ObjectSet      ("i-NASA4_202", OBJPROP_YDISTANCE, Y01+StepY);
//==== прорисовка свопа BUY ====
   ObjectCreate   ("i-NASA4_301", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_301", "Своп Buy :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_301", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_301", OBJPROP_XDISTANCE, X01);
   ObjectSet      ("i-NASA4_301", OBJPROP_YDISTANCE, Y01+2*StepY);

   ObjectCreate   ("i-NASA4_302", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_302", DoubleToStr(swaplong ,2), FontSize, FontName, ColorZero(swaplong));
   ObjectSet      ("i-NASA4_302", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_302", OBJPROP_XDISTANCE, X01+StepX01);
   ObjectSet      ("i-NASA4_302", OBJPROP_YDISTANCE, Y01+2*StepY);
//==== прорисовка свопа SELL ====
   ObjectCreate   ("i-NASA4_401", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_401", "Своп Sell :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_401", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_401", OBJPROP_XDISTANCE, X01);
   ObjectSet      ("i-NASA4_401", OBJPROP_YDISTANCE, Y01+3*StepY);

   ObjectCreate   ("i-NASA4_402", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_402", DoubleToStr(swapshort ,2), FontSize, FontName, ColorZero(swapshort));
   ObjectSet      ("i-NASA4_402", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_402", OBJPROP_XDISTANCE, X01+StepX01);
   ObjectSet      ("i-NASA4_402", OBJPROP_YDISTANCE, Y01+3*StepY);
//==== прорисовка типа и плеча счета ====
   ObjectCreate   ("i-NASA4_501", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_501", "Счет :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_501", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_501", OBJPROP_XDISTANCE, X01);
   ObjectSet      ("i-NASA4_501", OBJPROP_YDISTANCE, Y01+4*StepY);

   ObjectCreate   ("i-NASA4_502", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_502", type + "  1:" +DoubleToStr(golova, 0), FontSize, FontName, ColorType);
   ObjectSet      ("i-NASA4_502", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_502", OBJPROP_XDISTANCE, X01+StepX01/1.6);
   ObjectSet      ("i-NASA4_502", OBJPROP_YDISTANCE, Y01+4*StepY);
//==== прорисовка волатильности сегодня ====
   ObjectCreate   ("i-NASA4_103", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_103", "Hi - Lo сегодня :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_103", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_103", OBJPROP_XDISTANCE, X02);
   ObjectSet      ("i-NASA4_103", OBJPROP_YDISTANCE, Y01);

   ObjectCreate   ("i-NASA4_104", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_104", DoubleToStr(volotil_01, 0), FontSize, FontName, Color2);
   ObjectSet      ("i-NASA4_104", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_104", OBJPROP_XDISTANCE, X02+StepX02);
   ObjectSet      ("i-NASA4_104", OBJPROP_YDISTANCE, Y01);
//==== прорисовка волатильности за неделю ====
   ObjectCreate   ("i-NASA4_203", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_203", "Hi - Lo за неделю :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_203", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_203", OBJPROP_XDISTANCE, X02);
   ObjectSet      ("i-NASA4_203", OBJPROP_YDISTANCE, Y01+StepY);

   ObjectCreate   ("i-NASA4_204", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_204", DoubleToStr(volotil_02, 0), FontSize, FontName, Color2);
   ObjectSet      ("i-NASA4_204", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_204", OBJPROP_XDISTANCE, X02+StepX02);
   ObjectSet      ("i-NASA4_204", OBJPROP_YDISTANCE, Y01+StepY);
//==== прорисовка волатильности за месяц ====
   ObjectCreate   ("i-NASA4_303", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_303", "Hi - Lo за месяц :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_303", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_303", OBJPROP_XDISTANCE, X02);
   ObjectSet      ("i-NASA4_303", OBJPROP_YDISTANCE, Y01+2*StepY);

   ObjectCreate   ("i-NASA4_304", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_304", DoubleToStr(volotil_03, 0), FontSize, FontName, Color2);
   ObjectSet      ("i-NASA4_304", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_304", OBJPROP_XDISTANCE, X02+StepX02);
   ObjectSet      ("i-NASA4_304", OBJPROP_YDISTANCE, Y01+2*StepY);
//==== прорисовка риска депозита ====
   ObjectCreate   ("i-NASA4_403", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_403", "Риск, % от депо :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_403", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_403", OBJPROP_XDISTANCE, X02);
   ObjectSet      ("i-NASA4_403", OBJPROP_YDISTANCE, Y01+3*StepY);

   ObjectCreate   ("i-NASA4_404", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_404", DoubleToStr(Risk,1), FontSize, FontName, Color3);
   ObjectSet      ("i-NASA4_404", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_404", OBJPROP_XDISTANCE, X02+StepX02);
   ObjectSet      ("i-NASA4_404", OBJPROP_YDISTANCE, Y01+3*StepY);
//==== прорисовка планируемой прибыли ====
   ObjectCreate   ("i-NASA4_503", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_503", "План, % от депо :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_503", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_503", OBJPROP_XDISTANCE, X02);
   ObjectSet      ("i-NASA4_503", OBJPROP_YDISTANCE, Y01+4*StepY);

   ObjectCreate   ("i-NASA4_504", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_504", DoubleToStr(Plus,1), FontSize, FontName, ColorPips);
   ObjectSet      ("i-NASA4_504", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_504", OBJPROP_XDISTANCE, X02+StepX02);
   ObjectSet      ("i-NASA4_504", OBJPROP_YDISTANCE, Y01+4*StepY);
//==== прорисовка баланса счета ====
   ObjectCreate   ("i-NASA4_105", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_105", "Баланс :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_105", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_105", OBJPROP_XDISTANCE, X03);
   ObjectSet      ("i-NASA4_105", OBJPROP_YDISTANCE, Y01);

   ObjectCreate   ("i-NASA4_106", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_106", DoubleToStr(balance, 2), FontSize, FontName, Color2);
   ObjectSet      ("i-NASA4_106", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_106", OBJPROP_XDISTANCE, X03+StepX03);
   ObjectSet      ("i-NASA4_106", OBJPROP_YDISTANCE, Y01);
//==== прорисовка средств счета ====
   ObjectCreate   ("i-NASA4_205", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_205", "Средства :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_205", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_205", OBJPROP_XDISTANCE, X03);
   ObjectSet      ("i-NASA4_205", OBJPROP_YDISTANCE, Y01+StepY);

   ObjectCreate   ("i-NASA4_206", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_206", DoubleToStr(depozit, 2), FontSize, FontName, ColorProfit);
   ObjectSet      ("i-NASA4_206", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_206", OBJPROP_XDISTANCE, X03+StepX03);
   ObjectSet      ("i-NASA4_206", OBJPROP_YDISTANCE, Y01+StepY);
//==== прорисовка свободных средств ====
   ObjectCreate   ("i-NASA4_305", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_305", "Свободно :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_305", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_305", OBJPROP_XDISTANCE, X03);
   ObjectSet      ("i-NASA4_305", OBJPROP_YDISTANCE, Y01+2*StepY);

   ObjectCreate   ("i-NASA4_306", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_306", DoubleToStr(free, 2), FontSize, FontName, Color4);
   ObjectSet      ("i-NASA4_306", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_306", OBJPROP_XDISTANCE, X03+StepX03);
   ObjectSet      ("i-NASA4_306", OBJPROP_YDISTANCE, Y01+2*StepY);
//==== прорисовка прибыли за текущий день ====
   ObjectCreate   ("i-NASA4_405", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_405", "Сегодня :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_405", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_405", OBJPROP_XDISTANCE, X03);
   ObjectSet      ("i-NASA4_405", OBJPROP_YDISTANCE, Y01+3*StepY);

   ObjectCreate   ("i-NASA4_406", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_406", DoubleToStr(p0, 0)+" ("+DoubleToStr(p0_per, 1)+"%)", FontSize, FontName, ColorZero(p0_per));
   ObjectSet      ("i-NASA4_406", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_406", OBJPROP_XDISTANCE, X03+StepX03);
   ObjectSet      ("i-NASA4_406", OBJPROP_YDISTANCE, Y01+3*StepY);
//==== прорисовка прибыли по открытым позициям ====
   ObjectCreate   ("i-NASA4_505", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_505", "Сейчас :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_505", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_505", OBJPROP_XDISTANCE, X03);
   ObjectSet      ("i-NASA4_505", OBJPROP_YDISTANCE, Y01+4*StepY);

   ObjectCreate   ("i-NASA4_506", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_506", DoubleToStr(p1, 0)+" ("+DoubleToStr(p1_per, 1)+"%)", FontSize, FontName, ColorZero(p1_per));
   ObjectSet      ("i-NASA4_506", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_506", OBJPROP_XDISTANCE, X03+StepX03);
   ObjectSet      ("i-NASA4_506", OBJPROP_YDISTANCE, Y01+4*StepY);
//==== прорисовка размера лота ====
   ObjectCreate   ("i-NASA4_121", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_121", "Размер лота :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_121", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_121", OBJPROP_XDISTANCE, X04);
   ObjectSet      ("i-NASA4_121", OBJPROP_YDISTANCE, Y01);

   ObjectCreate   ("i-NASA4_122", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_122", DoubleToStr(Lot_01, 2), FontSize, FontName, ColorLot_01);
   ObjectSet      ("i-NASA4_122", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_122", OBJPROP_XDISTANCE, X04+StepX04);
   ObjectSet      ("i-NASA4_122", OBJPROP_YDISTANCE, Y01);

   ObjectCreate   ("i-NASA4_123", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_123", DoubleToStr(Lot_02, 2), FontSize, FontName, ColorLot_02);
   ObjectSet      ("i-NASA4_123", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_123", OBJPROP_XDISTANCE, X04+StepX04+StepX05);
   ObjectSet      ("i-NASA4_123", OBJPROP_YDISTANCE, Y01);

   ObjectCreate   ("i-NASA4_124", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_124", DoubleToStr(Lot_03, 2), FontSize, FontName, ColorLot_03);
   ObjectSet      ("i-NASA4_124", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_124", OBJPROP_XDISTANCE, X04+StepX04+2*StepX05);
   ObjectSet      ("i-NASA4_124", OBJPROP_YDISTANCE, Y01);

   ObjectCreate   ("i-NASA4_125", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_125", DoubleToStr(Lot_04, 2), FontSize, FontName, ColorLot_04);
   ObjectSet      ("i-NASA4_125", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_125", OBJPROP_XDISTANCE, X04+StepX04+3*StepX05);
   ObjectSet      ("i-NASA4_125", OBJPROP_YDISTANCE, Y01);
//==== прорисовка суммы залога ====
   ObjectCreate   ("i-NASA4_221", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_221", "Сумма залога :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_221", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_221", OBJPROP_XDISTANCE, X04);
   ObjectSet      ("i-NASA4_221", OBJPROP_YDISTANCE, Y01+StepY);

   ObjectCreate   ("i-NASA4_222", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_222", DoubleToStr(dolg*Lot_01, 2), FontSize, FontName, ColorLot_01);
   ObjectSet      ("i-NASA4_222", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_222", OBJPROP_XDISTANCE, X04+StepX04);
   ObjectSet      ("i-NASA4_222", OBJPROP_YDISTANCE, Y01+StepY);

   ObjectCreate   ("i-NASA4_223", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_223", DoubleToStr(dolg*Lot_02, 2), FontSize, FontName, ColorLot_02);
   ObjectSet      ("i-NASA4_223", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_223", OBJPROP_XDISTANCE, X04+StepX04+StepX05);
   ObjectSet      ("i-NASA4_223", OBJPROP_YDISTANCE, Y01+StepY);

   ObjectCreate   ("i-NASA4_224", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_224", DoubleToStr(dolg*Lot_03, 2), FontSize, FontName, ColorLot_03);
   ObjectSet      ("i-NASA4_224", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_224", OBJPROP_XDISTANCE, X04+StepX04+2*StepX05);
   ObjectSet      ("i-NASA4_224", OBJPROP_YDISTANCE, Y01+StepY);

   ObjectCreate   ("i-NASA4_225", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_225", DoubleToStr(dolg*Lot_04, 2), FontSize, FontName, ColorLot_04);
   ObjectSet      ("i-NASA4_225", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_225", OBJPROP_XDISTANCE, X04+StepX04+3*StepX05);
   ObjectSet      ("i-NASA4_225", OBJPROP_YDISTANCE, Y01+StepY);

   ObjectCreate   ("i-NASA4_322", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_322", " ("+DoubleToStr(percent_01, 1)+"%)", FontSize, FontName, ColorLot_01);
   ObjectSet      ("i-NASA4_322", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_322", OBJPROP_XDISTANCE, X04+StepX04+StepX06);
   ObjectSet      ("i-NASA4_322", OBJPROP_YDISTANCE, Y01+StepY);

   ObjectCreate   ("i-NASA4_323", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_323", " ("+DoubleToStr(percent_02, 1)+"%)", FontSize, FontName, ColorLot_02);
   ObjectSet      ("i-NASA4_323", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_323", OBJPROP_XDISTANCE, X04+StepX04+StepX05+StepX06);
   ObjectSet      ("i-NASA4_323", OBJPROP_YDISTANCE, Y01+StepY);

   ObjectCreate   ("i-NASA4_324", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_324", " ("+DoubleToStr(percent_03, 1)+"%)", FontSize, FontName, ColorLot_03);
   ObjectSet      ("i-NASA4_324", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_324", OBJPROP_XDISTANCE, X04+StepX04+2*StepX05+StepX06);
   ObjectSet      ("i-NASA4_324", OBJPROP_YDISTANCE, Y01+StepY);

   ObjectCreate   ("i-NASA4_325", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_325", " ("+DoubleToStr(percent_04, 1)+"%)", FontSize, FontName, ColorLot_04);
   ObjectSet      ("i-NASA4_325", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_325", OBJPROP_XDISTANCE, X04+StepX04+3*StepX05+StepX06);
   ObjectSet      ("i-NASA4_325", OBJPROP_YDISTANCE, Y01+StepY);

//==== прорисовка прибыли на 1 пипс ====
   ObjectCreate   ("i-NASA4_131", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_131", "+ / -  на 1 пункт :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_131", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_131", OBJPROP_XDISTANCE, X04);
   ObjectSet      ("i-NASA4_131", OBJPROP_YDISTANCE, Y01+2*StepY);

   ObjectCreate   ("i-NASA4_132", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_132", DoubleToStr(profit*Lot_01, 2), FontSize, FontName, Color2);
   ObjectSet      ("i-NASA4_132", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_132", OBJPROP_XDISTANCE, X04+StepX04);
   ObjectSet      ("i-NASA4_132", OBJPROP_YDISTANCE, Y01+2*StepY);

   ObjectCreate   ("i-NASA4_133", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_133", DoubleToStr(profit*Lot_02, 2), FontSize, FontName, Color2);
   ObjectSet      ("i-NASA4_133", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_133", OBJPROP_XDISTANCE, X04+StepX04+StepX05);
   ObjectSet      ("i-NASA4_133", OBJPROP_YDISTANCE, Y01+2*StepY);

   ObjectCreate   ("i-NASA4_134", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_134", DoubleToStr(profit*Lot_03, 2), FontSize, FontName, Color2);
   ObjectSet      ("i-NASA4_134", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_134", OBJPROP_XDISTANCE, X04+StepX04+2*StepX05);
   ObjectSet      ("i-NASA4_134", OBJPROP_YDISTANCE, Y01+2*StepY);

   ObjectCreate   ("i-NASA4_135", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_135", DoubleToStr(profit*Lot_04, 2), FontSize, FontName, Color2);
   ObjectSet      ("i-NASA4_135", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_135", OBJPROP_XDISTANCE, X04+StepX04+3*StepX05);
   ObjectSet      ("i-NASA4_135", OBJPROP_YDISTANCE, Y01+2*StepY);

   ObjectCreate   ("i-NASA4_232", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_232", " ("+DoubleToStr(pips_01, 2)+"%)", FontSize, FontName, Color4);
   ObjectSet      ("i-NASA4_232", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_232", OBJPROP_XDISTANCE, X04+StepX04+StepX06);
   ObjectSet      ("i-NASA4_232", OBJPROP_YDISTANCE, Y01+2*StepY);

   ObjectCreate   ("i-NASA4_233", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_233", " ("+DoubleToStr(pips_02, 2)+"%)", FontSize, FontName, Color4);
   ObjectSet      ("i-NASA4_233", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_233", OBJPROP_XDISTANCE, X04+StepX04+StepX05+StepX06);
   ObjectSet      ("i-NASA4_233", OBJPROP_YDISTANCE, Y01+2*StepY);

   ObjectCreate   ("i-NASA4_234", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_234", " ("+DoubleToStr(pips_03, 2)+"%)", FontSize, FontName, Color4);
   ObjectSet      ("i-NASA4_234", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_234", OBJPROP_XDISTANCE, X04+StepX04+2*StepX05+StepX06);
   ObjectSet      ("i-NASA4_234", OBJPROP_YDISTANCE, Y01+2*StepY);

   ObjectCreate   ("i-NASA4_235", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_235", " ("+DoubleToStr(pips_04, 2)+"%)", FontSize, FontName, Color4);
   ObjectSet      ("i-NASA4_235", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_235", OBJPROP_XDISTANCE, X04+StepX04+3*StepX05+StepX06);
   ObjectSet      ("i-NASA4_235", OBJPROP_YDISTANCE, Y01+2*StepY);
//==== прорисовка прибыли на PPips пипсов ====
   ObjectCreate   ("i-NASA4_141", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_141", "+ / -  на "+DoubleToStr(PPips, 0)+" пунктов :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_141", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_141", OBJPROP_XDISTANCE, X04);
   ObjectSet      ("i-NASA4_141", OBJPROP_YDISTANCE, Y01+3*StepY);

   ObjectCreate   ("i-NASA4_142", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_142", DoubleToStr(profit*PPips*Lot_01, 2), FontSize, FontName, Color2);
   ObjectSet      ("i-NASA4_142", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_142", OBJPROP_XDISTANCE, X04+StepX04);
   ObjectSet      ("i-NASA4_142", OBJPROP_YDISTANCE, Y01+3*StepY);

   ObjectCreate   ("i-NASA4_143", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_143", DoubleToStr(profit*PPips*Lot_02, 2), FontSize, FontName, Color2);
   ObjectSet      ("i-NASA4_143", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_143", OBJPROP_XDISTANCE, X04+StepX04+StepX05);
   ObjectSet      ("i-NASA4_143", OBJPROP_YDISTANCE, Y01+3*StepY);

   ObjectCreate   ("i-NASA4_144", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_144", DoubleToStr(profit*PPips*Lot_03, 2), FontSize, FontName, Color2);
   ObjectSet      ("i-NASA4_144", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_144", OBJPROP_XDISTANCE, X04+StepX04+2*StepX05);
   ObjectSet      ("i-NASA4_144", OBJPROP_YDISTANCE, Y01+3*StepY);

   ObjectCreate   ("i-NASA4_145", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_145", DoubleToStr(profit*PPips*Lot_04, 2), FontSize, FontName, Color2);
   ObjectSet      ("i-NASA4_145", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_145", OBJPROP_XDISTANCE, X04+StepX04+3*StepX05);
   ObjectSet      ("i-NASA4_145", OBJPROP_YDISTANCE, Y01+3*StepY);

   ObjectCreate   ("i-NASA4_242", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_242", " ("+DoubleToStr(pips_01*PPips, 2)+"%)", FontSize, FontName, Color4);
   ObjectSet      ("i-NASA4_242", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_242", OBJPROP_XDISTANCE, X04+StepX04+StepX06);
   ObjectSet      ("i-NASA4_242", OBJPROP_YDISTANCE, Y01+3*StepY);

   ObjectCreate   ("i-NASA4_243", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_243", " ("+DoubleToStr(pips_02*PPips, 2)+"%)", FontSize, FontName, Color4);
   ObjectSet      ("i-NASA4_243", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_243", OBJPROP_XDISTANCE, X04+StepX04+StepX05+StepX06);
   ObjectSet      ("i-NASA4_243", OBJPROP_YDISTANCE, Y01+3*StepY);

   ObjectCreate   ("i-NASA4_244", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_244", " ("+DoubleToStr(pips_03*PPips, 2)+"%)", FontSize, FontName, Color4);
   ObjectSet      ("i-NASA4_244", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_244", OBJPROP_XDISTANCE, X04+StepX04+2*StepX05+StepX06);
   ObjectSet      ("i-NASA4_244", OBJPROP_YDISTANCE, Y01+3*StepY);

   ObjectCreate   ("i-NASA4_245", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_245", " ("+DoubleToStr(pips_04*PPips, 2)+"%)", FontSize, FontName, Color4);
   ObjectSet      ("i-NASA4_245", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_245", OBJPROP_XDISTANCE, X04+StepX04+3*StepX05+StepX06);
   ObjectSet      ("i-NASA4_245", OBJPROP_YDISTANCE, Y01+3*StepY);
//==== прорисовка планируемой прибыли в пунктах ====
   ObjectCreate   ("i-NASA4_151", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_151", "Пунктов по плану :", FontSize, FontName, Color1);
   ObjectSet      ("i-NASA4_151", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_151", OBJPROP_XDISTANCE, X04);
   ObjectSet      ("i-NASA4_151", OBJPROP_YDISTANCE, Y01+4*StepY);

   ObjectCreate   ("i-NASA4_152", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_152", DoubleToStr(PipsPlus_01, 0)+" (остаток "+DoubleToStr((PlusMinus_01), 0)+")", FontSize, FontName, ColorPips);
   ObjectSet      ("i-NASA4_152", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_152", OBJPROP_XDISTANCE, X04+StepX04);
   ObjectSet      ("i-NASA4_152", OBJPROP_YDISTANCE, Y01+4*StepY);

   ObjectCreate   ("i-NASA4_153", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_153", DoubleToStr(PipsPlus_02, 0)+" (остаток "+DoubleToStr((PlusMinus_02), 0)+")", FontSize, FontName, ColorPips);
   ObjectSet      ("i-NASA4_153", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_153", OBJPROP_XDISTANCE, X04+StepX04+StepX05);
   ObjectSet      ("i-NASA4_153", OBJPROP_YDISTANCE, Y01+4*StepY);

   ObjectCreate   ("i-NASA4_154", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_154", DoubleToStr(PipsPlus_03, 0)+" (остаток "+DoubleToStr((PlusMinus_03), 0)+")", FontSize, FontName, ColorPips);
   ObjectSet      ("i-NASA4_154", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_154", OBJPROP_XDISTANCE, X04+StepX04+2*StepX05);
   ObjectSet      ("i-NASA4_154", OBJPROP_YDISTANCE, Y01+4*StepY);

   ObjectCreate   ("i-NASA4_155", OBJ_LABEL, WindowFind(ShortName), 0, 0);
   ObjectSetText  ("i-NASA4_155", DoubleToStr(PipsPlus_04, 0)+" (остаток "+DoubleToStr((PlusMinus_04), 0)+")", FontSize, FontName, ColorPips);
   ObjectSet      ("i-NASA4_155", OBJPROP_CORNER, 0);
   ObjectSet      ("i-NASA4_155", OBJPROP_XDISTANCE, X04+StepX04+3*StepX05);
   ObjectSet      ("i-NASA4_155", OBJPROP_YDISTANCE, Y01+4*StepY);
//====
   return(0);
   }
//+------------------------------------------------------------------+
//| Objects delete function                                          |
//+------------------------------------------------------------------+
void DeleteObjects()
   {
   for(int i=ObjectsTotal();i>=0;i--)
      {
      if(StringSubstr(ObjectName(i),0,6)=="i-NASA3_")
      ObjectDelete(ObjectName(i));
      }
   }
//+------------------------------------------------------------------+
//| Objects color modify function ( x < 0 < x )                      |
//+------------------------------------------------------------------+
color ColorZero(double bigg)
   {
   color ColorModify = Color1;
      if (bigg>0)    ColorModify = Color2;
      if (bigg<0)    ColorModify = Color3;
      if (bigg==0)   ColorModify = Color4;
   return(ColorModify);
   }
//+----------------------------------------------------------------------------+
//|  Автор    : Ким Игорь В. aka KimIV,  http://www.kimiv.ru                   |
//+----------------------------------------------------------------------------+
//|  Версия   : 19.02.2008                                                     |
//|  Описание : Возвращает суммарный профит в валюте депозита                  |
//|             закрытых с определённой даты позиций                           |
//+----------------------------------------------------------------------------+
//|  Параметры:                                                                |
//|    sy - наименование инструмента             (""   - любой символ,         |
//|                                               NULL - текущий символ)       |
//|    op - операция                             (-1   - любая позиция)        |
//|    mn - MagicNumber                          (-1   - любой магик)          |
//|    dt - Дата и время в секундах с 1970 года  ( 0   - с начала истории)     |
//+----------------------------------------------------------------------------+
double GetProfitFromDateInCurrency(string sy="", int op=-1, int mn=-1, datetime dt=0)
{
  double p=0;
  int    i, k=OrdersHistoryTotal();

  if (sy=="0") sy=Symbol();
  for (i=0; i<k; i++) {
    if (OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) {
      if ((OrderSymbol()==sy || sy=="") && (op<0 || OrderType()==op)) {
        if (OrderType()==OP_BUY || OrderType()==OP_SELL) {
          if (mn<0 || OrderMagicNumber()==mn) {
            if (dt<OrderCloseTime()) {
              p+=OrderProfit()+OrderCommission()+OrderSwap();
            }
          }
        }
      }
    }
  }
  return(p);
}
//+----------------------------------------------------------------------------+