Обращайтесь если что, поможем чем сможем.
Это должны были Вы сами расписать в задании, чтобы не оставалось лишних вопросов и непонимания со стороны программиста. Чем точнее расписано задание, тем быстрее его будет выполнить, если конечно это легко реализуется как в Вашем случае.
double BuyOrderLossLess() //--- Расчет безубтка для ордеров на покупку
{
double boll;
int i;
double l=0,pl=0;
double tv=MarketInfo(Symbol(), MODE_TICKVALUE);
for(i=0;i<OrdersTotal();i++)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
if(OrderType()==OP_BUY)
{
l=l+OrderLots();
pl+=(OrderOpenPrice()-NormalizeDouble((OrderSwap()+OrderCommission())/OrderLots()/tv*Point,Digits))*OrderLots();
}
}
}
if(l>0 && pl>0) boll=NormalizeDouble(pl/l,Digits); else boll=0;
return(boll);
}
double SellOrderLossLess() //--- Расчет безубытка для ордеров на продажу
{
double soll;
int i;
double l=0,pl=0;
double tv=MarketInfo(Symbol(), MODE_TICKVALUE);
for(i=0;i<OrdersTotal();i++)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
if(OrderType()==OP_SELL)
{
l=l+OrderLots();
pl+=(OrderOpenPrice()+NormalizeDouble((OrderSwap()+OrderCommission())/OrderLots()/tv*Point,Digits))*OrderLots();
}
}
}
if(l>0 && pl>0) soll=NormalizeDouble(pl/l,Digits); else soll=0;
return(soll);
}
bool SetBuyOrderStopLoss(double sl) //--- Установка SL для открытых ордеров на покупку
{
bool sbosl=false;
int i;
for(i=0;i<OrdersTotal();i++)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
if(OrderType()==OP_BUY)
{
if(OrderStopLoss()!=sl && OrderStopLoss()<sl)
if(OrderModify(OrderTicket(),OrderOpenPrice(),sl,OrderTakeProfit(),0)) sbosl=true;
else { Print(OrderTicket(),": BUY SL OrderModify failed with error #",GetLastError()); }
}
}
}
return(sbosl);
}
bool SetSellOrderStopLoss(double sl) //--- Установка SL для открытых ордеров на продажу
{
bool ssosl=false;
int i;
for(i=0;i<OrdersTotal();i++)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
if(OrderType()==OP_SELL)
{
if(OrderStopLoss()!=sl && ((OrderStopLoss()>sl && OrderStopLoss()!=0) || OrderStopLoss()==0))
if(OrderModify(OrderTicket(),OrderOpenPrice(),sl,OrderTakeProfit(),0)) ssosl=true;
else { Print(OrderTicket(),": SELL SL OrderModify failed with error #",GetLastError()); }
}
}
}
return(ssosl);
}
//+------------------------------------------------------------------+
//| NumberOfOpenPars.mq4 |
//| Copyright © 2020, Andrei Vladimirovich Nosar |
//| mr.andrju81@gmail.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2020, Andrei Vladimirovich Nosar"
#property link "mr.andrju81@gmail.com"
#property version "1.00"
#property strict
#property indicator_chart_window
//--- input parameters
input int Magic=-1;
//------- Глобальные переменные индикатора ------------------------------------+
string sotOS[]; // пары ордеров OrderSymbol()
string sotS[]; // пары
bool sotFirstRun=True; // Флаг первого прогона
//+----------------------------------------------------------------------------+
//| Запоминает текущие операции в массиве. |
//+----------------------------------------------------------------------------+
void MemCurrOP()
{
int i, k=OrdersTotal();
ArrayResize(sotOS, k);
for (i=0; i<k; i++)
{
if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES) && OrderMagicNumber()==Magic)
{
sotOS[i]=OrderSymbol();
}
}
}
//+----------------------------------------------------------------------------+
//| Выполняет поиск элемента массива по значению |
//| Параметры: |
//| m - массив элементов |
//| e - значение элемента |
//+----------------------------------------------------------------------------+
bool ArraySearchStr(string& m[], string e)
{
for (int i=0; i<ArraySize(m); i++)
{
if (m[i]==e) return(true);
}
return(false);
}
//+----------------------------------------------------------------------------+
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
//--- indicator buffers mapping
sotFirstRun=True; // Флаг первого прогона
Comment("");
start();
//---
return(INIT_SUCCEEDED);
}
//+----------------------------------------------------------------------------+
//| Expert deinitialization function |
//+----------------------------------------------------------------------------+
void deinit() { Comment(""); }
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
void start()
{
if (sotFirstRun) { MemCurrOP(); sotFirstRun=False; }
ArrayResize(sotS,0);
int i, k=OrdersTotal();
for (i=0; i<k; i++)
{
if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES) && OrderMagicNumber()==Magic)
{
if(ArraySearchStr(sotOS,OrderSymbol())==true && ArraySearchStr(sotS,OrderSymbol())==false)
{
string para=OrderSymbol();
int sizePara = ArraySize(sotS); ArrayResize(sotS, sizePara+1);
sotS[sizePara] = para;
}
}
}
Comment("Количество открытых пар = "+IntegerToString(ArraySize(sotS)));
MemCurrOP();
}
//+------------------------------------------------------------------+
 kvashnin007 28 апреля 2024, 20:58 |
→ | Прошу реализовать советник "Волатильная свеча"
(35) в Стол заказов MQL
Я не тестировал и не смотрел код. Посмотреть количество... <>[Читать..] |
kvashnin007 28 апреля 2024, 08:16 |
→ | Шаман. Уходят лучшие.
(14) в Блог им. kvashnin007
Спасибо за подгон. <>[Читать..] |
 dreigzon 27 апреля 2024, 11:34 |
→ | Индикатор ADR
(7) в Стол заказов MQL
без открытого кода у этого индюка ничего не сделать. а декомпиляции... <>[Читать..] |
 serqww 27 апреля 2024, 10:34 |
→ | Редактировать уже готовый советник
(3) в Стол заказов MQL
Спасибо!!! <>[Читать..] |
 poker 26 апреля 2024, 20:25 |
→ | Помогите пожалуйста исправить советника с открытым кодом
(10) в Стол заказов MQL
Я не программист… <>[Читать..] |
dima0603 26 апреля 2024, 11:58 |
→ | ДОРАБОТКА СОВЕТНИКА
(18) в Стол заказов MQL
:: ОРДЕР 1 — открыт советником 2 — открыт советником 3... <>[Читать..] |
cesar781 25 апреля 2024, 14:41 |
→ | Простой индикатор пинбаров.
(5) в Стол заказов MQL
спасибо <>[Читать..] |
 darko 23 апреля 2024, 16:43 |
→ | Финансовый стриптиз российского портфеля
(2) в Блог им. darko
Дык это ж фонд денежного рынка) Удобно, что б не держать... <>[Читать..] |
 vis 23 апреля 2024, 16:00 |
→ | #2 МТС Банк IPO, ликер и водка
(2) в Блог им. vis
продажи от этого только увеличатся :: <>[Читать..] |
 igrun 22 апреля 2024, 16:57 |
→ | советник не пересечение рсай уровня 50 и сигнал стохастика на отбой с доливками и переворотами и тралом
(2) в Стол заказов MQL
б спасибо, от души. буду тестить <>[Читать..] |
Вот так будет правильно:
Andrju81