// Уровень безубытка.mq4
// Скрипт
#property copyright "mandorr@gmail.com"
#include <WinUser32.mqh>
void start()
{
double lots=0;
double sum=0;
for (int i=0; i<OrdersTotal(); i++)
{
if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) break;
if (OrderSymbol()!=Symbol()) continue;
if (OrderType()==OP_BUY)
{
lots=lots+OrderLots();
sum=sum+OrderLots()*OrderOpenPrice();
}
if (OrderType()==OP_SELL)
{
lots=lots-OrderLots();
sum=sum-OrderLots()*OrderOpenPrice();
}
}
double price=0;
if (lots!=0) price=sum/lots;
string title="Уровень безубытка";
string lossfree=" не существует";
if (price>0) lossfree=" = "+DoubleToStr(price,Digits);
string msg="Уровень безубытка для "+Symbol()+lossfree+" ";
MessageBox(msg,title,MB_OK|MB_ICONINFORMATION);
}
// End
|
