Time: 2011-06-20 | Download file:Equity_v7_600.mq4
//+------------------------------------------------------------------+
//| Equity_v7.mq4 |
//| Copyright © 2009, Xupypr |
//| http://www.mql4.com/ru/users/Xupypr |
//| Версия от 09.09.2009 |
//| http://codebase.mql4.com/ru/4455 |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2009, Xupypr"
#property link "http://www.mql4.com/ru/users/Xupypr"
#property indicator_separate_window
#property indicator_buffers 4
#property indicator_color1 SteelBlue
#property indicator_color2 OrangeRed
#property indicator_color3 SlateGray
#property indicator_color4 ForestGreen
#property indicator_width1 1
#property indicator_width2 2
#property indicator_width3 1
#property indicator_width4 1
//------------- Фильтр истории торгов
extern bool Only_Trade=true; // Учитывать только позиции, исключив пополнение/снятие средств
extern string Only_Magics=""; // Учитывать только позиции с магическими номерами (через любой разделитель)
extern string Only_Symbols=""; // Учитывать только позиции по инструментам (через любой разделитель)
extern string Only_Comment=""; // Учитывать только позиции с наличием комментария (например [sl] или [tp])
extern bool Only_Current=true; // Учитывать только позиции по текущему инструменту
extern bool Only_Buys=true; // Учитывать только позиции на покупку
extern bool Only_Sells=true; // Учитывать только позиции на продажу
//------------- Внешний вид индикатора
extern bool Show_Balance=true; // Отображать баланс
extern bool Show_Margin=true; // Отображать залог (только в режиме реального времени)
extern bool Show_Free=true; // Отображать свободные средства (только в режиме реального времени)
extern bool Show_Info=true; // Отображать дополнительную информацию о просадках, включая ФВ
//------------- Настройка сигналов о просадке
extern double Alert_Drawdown=0; // Предупреждать о просадке средств в процентах за период (0 - отключить)
extern double Max_Drawdown=25; // Максимально допустимая просадка в процентах за период ("красная зона")
extern bool Current_Day=false; // Просадка будет наблюдаться только за текущий день
extern datetime Begin_Monitoring=D'2014.01.01 00:00'; // Начало наблюдения за просадкой (если Current_Day=false)
//------------- Другие параметры
extern bool File_Write=false; // Запись данных о эквити и балансе в файл
extern datetime Draw_Begin=D'2014.01.01 00:00'; // Начальная дата отрисовки индикатора
int DrawBeginBar,Window;
string ShortName,Unique;
double Equity[],Balance[],Margin[],Free[];
double StartBalance,CurrentBalance,MaxPeak,MaxProfit;
double AbsDrawdown,MaxDrawdown,RelDrawdown,Drawdown,RecoveryFactor;
datetime OpenTime_Ticket[][2]; // время открытия и номер тикета
int OpenBar[]; // номер бара открытия
int CloseBar[]; // номер бара закрытия
int Type[]; // тип операции
string Instrument[]; // инструмент
double Lots[]; // количество лотов
double OpenPrice[]; // цена открытия
double ClosePrice[]; // цена закрытия
double Commission[]; // комиссия
double Swap[]; // накопленный своп
double CurSwap[]; // текущий своп
double DaySwap[]; // дневной своп
double Profit[]; // чистая прибыль
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
if (Only_Magics=="" && Only_Symbols=="" && Only_Comment=="" && !Only_Current && !Only_Buys && !Only_Sells) ShortName="Total";
else
{
if (Only_Magics!="") ShortName=Only_Magics; else ShortName="";
if (Only_Symbols!="") ShortName=StringConcatenate(ShortName," ",Only_Symbols);
else if (Only_Current) ShortName=StringConcatenate(ShortName," ",Symbol());
if (Only_Comment!="") ShortName=StringConcatenate(ShortName," ",Only_Comment);
if (Only_Sells) Only_Buys=false;
if (Only_Buys) ShortName=StringConcatenate(ShortName," Buys");
if (Only_Sells) ShortName=StringConcatenate(ShortName," Sells");
}
if (Only_Trade) ShortName=StringConcatenate(ShortName," Zero");
SetIndexBuffer(0,Equity);
SetIndexLabel(0,ShortName+" Equity");
SetIndexStyle(0,DRAW_LINE);
SetIndexBuffer(1,Balance);
SetIndexLabel(1,ShortName+" Balance");
SetIndexStyle(1,DRAW_LINE);
SetIndexBuffer(2,Margin);
SetIndexLabel(2,ShortName+" Margin");
SetIndexStyle(2,DRAW_LINE);
SetIndexBuffer(3,Free);
SetIndexLabel(3,ShortName+" Free");
SetIndexStyle(3,DRAW_LINE);
ShortName=StringConcatenate(ShortName," Equity");
if (Show_Balance) ShortName=StringConcatenate(ShortName," Balance");
if (Show_Margin) ShortName=StringConcatenate(ShortName," Margin");
if (Show_Free) ShortName=StringConcatenate(ShortName," Free");
Unique=DoubleToStr(GetTickCount()+MathRand(),0);
DrawBeginBar=iBarShift(NULL,0,Draw_Begin);
IndicatorDigits(2);
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
DeleteAll();
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
static bool first;
static string minfosymbols;
string filename,text,date,time;
double profitloss,spread,lotsize;
int handle,bar,i,j,start,total,historytotal,opentotal;
{
DeleteAll();
IndicatorShortName(Unique);
Window=WindowFind(Unique);
IndicatorShortName(ShortName);
ArrayInitialize(Balance,EMPTY_VALUE);
ArrayInitialize(Equity,EMPTY_VALUE);
ArrayInitialize(Margin,EMPTY_VALUE);
ArrayInitialize(Free,EMPTY_VALUE);
minfosymbols="";
first=true;
}
if (!OrderSelect(0,SELECT_BY_POS,MODE_HISTORY)) return(0);
if (first)
{
first=false;
MaxPeak=0.0;
MaxProfit=0.0;
AbsDrawdown=0.0;
MaxDrawdown=0.0;
RelDrawdown=0.0;
if (Period()>PERIOD_D1)
{
Alert("Период не может быть больше D1");
return(0);
}
historytotal=OrdersHistoryTotal();
opentotal=OrdersTotal();
total=historytotal+opentotal;
ArrayResize(OpenTime_Ticket,total);
for (i=0;i0)
{
for (i=0;i=0;i--)
{
profitloss=0.0;
for (j=start;ji) start++;
if (CloseBar[j]==i && ClosePrice[j]!=0) CurrentBalance+=Swap[j]+Commission[j]+Profit[j];
else if (OpenBar[j]>=i && CloseBar[j]<=i)
{
if (Type[j]>5)
{
CurrentBalance+=Profit[j];
if (i==OpenBar[0]) StartBalance=Profit[j];
if (!Only_Trade && i<=DrawBeginBar)
{
text=StringConcatenate(Instrument[j],": ",DoubleToStr(Profit[j],2)," ",AccountCurrency());
LineCreate("Balance "+TimeToStr(OpenTime_Ticket[j][0]),OBJ_VLINE,2,OrangeRed,text,Time[i],0);
}
continue;
}
if (i>DrawBeginBar) continue;
if (MarketInfo(Instrument[j],MODE_POINT)==0)
{
if (StringFind(minfosymbols,Instrument[j])==-1)
{
Alert("В обзоре рынка не хватает "+Instrument[j]);
minfosymbols=StringConcatenate(minfosymbols," ",Instrument[j]);
}
continue;
}
bar=iBarShift(Instrument[j],0,Time[i]);
int mode=MarketInfo(Instrument[j],MODE_PROFITCALCMODE);
if (TimeDayOfWeek(iTime(Instrument[j],0,bar))!=TimeDayOfWeek(iTime(Instrument[j],0,bar+1)) && OpenBar[j]!=bar)
{
switch (mode)
{
case 0:
{
if (TimeDayOfWeek(iTime(Instrument[j],0,bar))==4) CurSwap[j]+=3*DaySwap[j];
else CurSwap[j]+=DaySwap[j];
} break;
case 1:
{
if (TimeDayOfWeek(iTime(Instrument[j],0,bar))==1) CurSwap[j]+=3*DaySwap[j];
else CurSwap[j]+=DaySwap[j];
}
}
}
lotsize=LotSize(Instrument[j],Time[i]);
if (Type[j]==OP_BUY) profitloss+=Commission[j]+CurSwap[j]+(iClose(Instrument[j],0,bar)-OpenPrice[j])*Lots[j]*lotsize;
else
{
spread=MarketInfo(Instrument[j],MODE_POINT)*MarketInfo(Instrument[j],MODE_SPREAD);
profitloss+=Commission[j]+CurSwap[j]+(OpenPrice[j]-iClose(Instrument[j],0,bar)-spread)*Lots[j]*lotsize;
}
}
}
if (i>DrawBeginBar) continue;
Equity[i]=NormalizeDouble(CurrentBalance+profitloss,2);
if (Show_Balance) Balance[i]=NormalizeDouble(CurrentBalance,2);
if (Show_Info) Drawdown(CurrentBalance+profitloss);
if (File_Write && handle>0)
{
date=TimeToStr(Time[i],TIME_DATE);
time=TimeToStr(Time[i],TIME_MINUTES);
if (FileWrite(handle,date,time,CurrentBalance+profitloss,CurrentBalance)) Print("Ошибка #",GetLastError()," при записи в файл");
}
}
ArrayResize(OpenTime_Ticket,opentotal);
if (opentotal>0) for (i=0;i0) FileClose(handle);
}
else
{
if (Only_Magics=="" && Only_Symbols=="" && Only_Comment=="" && !Only_Current && !Only_Buys && !Only_Sells && !Only_Trade)
{
Equity[0]=AccountEquity();
if (Show_Balance) Balance[0]=AccountBalance();
if (Show_Margin) Margin[0]=AccountMargin();
if (Show_Free) Free[0]=AccountFreeMargin();
if (Show_Info) Drawdown(AccountEquity());
}
else
{
opentotal=ArraySize(OpenTime_Ticket);
if (opentotal>0)
{
for (i=0;i0)
{
for (i=0;i0) for (i=0;i0)
{
RecoveryFactor=(Equity[0]-StartBalance)/MaxDrawdown;
text=StringConcatenate(": ",DoubleToStr(RecoveryFactor,2));
LabelCreate("Recovery Factor",text,10);
}
text=StringConcatenate(": ",DoubleToStr(AbsDrawdown,2)," ",AccountCurrency());
LabelCreate("Absolute Drawdown",text,30);
if (MaxPeak>0)
{
text=StringConcatenate(": ",DoubleToStr(MaxDrawdown,2)," ",AccountCurrency()," (",DoubleToStr(100*MaxDrawdown/MaxPeak,2),"%)");
LabelCreate("Maximal Drawdown",text,50);
}
text=StringConcatenate(": ",DoubleToStr(RelDrawdown,2),"% (",DoubleToStr(Drawdown,2)," ",AccountCurrency(),")");
LabelCreate("Relative Drawdown",text,70);
}
if (Alert_Drawdown>0) AlertDrawdown();
//Print("Calculating - ",GetTickCount()-tick," ms");
return(0);
}
//+------------------------------------------------------------------+
//| Создание текстовой метки |
//+------------------------------------------------------------------+
void LabelCreate(string name, string str, int y)
{
string objectname=StringConcatenate(name," ",Unique);
if (ObjectFind(objectname)==-1)
{
ObjectCreate(objectname,OBJ_LABEL,Window,0,0);
ObjectSet(objectname,OBJPROP_XDISTANCE,10);
ObjectSet(objectname,OBJPROP_YDISTANCE,y);
ObjectSet(objectname,OBJPROP_CORNER,1);
ObjectSet(objectname,OBJPROP_COLOR,SlateGray);
}
ObjectSetText(objectname,name+str);
}
//+------------------------------------------------------------------+
//| Создание линии |
//+------------------------------------------------------------------+
void LineCreate(string name, int type, int width, color clr, string str, datetime time1, double price1, datetime time2=0, double price2=0)
{
string objectname=StringConcatenate(name," ",Unique);
if (ObjectFind(objectname)==-1)
{
ObjectCreate(objectname,type,Window,time1,price1,time2,price2);
ObjectSet(objectname,OBJPROP_WIDTH,width);
if (type==OBJ_TREND) ObjectSet(objectname,OBJPROP_RAY,false);
if (type==OBJ_HLINE) ObjectSet(objectname,OBJPROP_STYLE,STYLE_DOT);
}
ObjectSetText(objectname,str);
ObjectSet(objectname,OBJPROP_COLOR,clr);
ObjectSet(objectname,OBJPROP_TIME1,time1);
ObjectSet(objectname,OBJPROP_PRICE1,price1);
ObjectSet(objectname,OBJPROP_TIME2,time2);
ObjectSet(objectname,OBJPROP_PRICE2,price2);
}
//+------------------------------------------------------------------+
//| Удаление объектов по признаку |
//+------------------------------------------------------------------+
void DeleteAll()
{
int total=ObjectsTotal()-1;
for (int i=total;i>=0;i--)
{
string name=ObjectName(i);
if (StringFind(name,Unique)!=-1) ObjectDelete(name);
}
}
//+------------------------------------------------------------------+
//| Чтение данных ордера |
//+------------------------------------------------------------------+
void ReadOrder(int n)
{
OpenBar[n]=iBarShift(NULL,0,OrderOpenTime());
Type[n]=OrderType();
if (OrderType()>5) Instrument[n]=OrderComment();
else Instrument[n]=OrderSymbol();
Lots[n]=OrderLots();
OpenPrice[n]=OrderOpenPrice();
if (OrderCloseTime()!=0)
{
CloseBar[n]=iBarShift(NULL,0,OrderCloseTime());
ClosePrice[n]=OrderClosePrice();
}
else
{
CloseBar[n]=0;
ClosePrice[n]=0.0;
}
Commission[n]=OrderCommission();
Swap[n]=OrderSwap();
Profit[n]=OrderProfit();
if (OrderType()>5 && Only_Trade) Profit[n]=0.0;
CurSwap[n]=0.0;
int swapdays=0;
for (int b=OpenBar[n]-1;b>=CloseBar[n];b--)
{
if (TimeDayOfWeek(iTime(NULL,0,b))!=TimeDayOfWeek(iTime(NULL,0,b+1)))
{
int mode=MarketInfo(Instrument[n],MODE_PROFITCALCMODE);
switch (mode)
{
case 0:
{
if (TimeDayOfWeek(iTime(NULL,0,b))==4) swapdays+=3;
else swapdays++;
} break;
case 1:
{
if (TimeDayOfWeek(iTime(NULL,0,b))==1) swapdays+=3;
else swapdays++;
}
}
}
}
if (swapdays>0) DaySwap[n]=Swap[n]/swapdays; else DaySwap[n]=0.0;
if (Lots[n]==0)
{
string ticket=StringSubstr(OrderComment(),StringFind(OrderComment(),"#")+1);
if (OrderSelect(StrToInteger(ticket),SELECT_BY_TICKET,MODE_HISTORY)) Lots[n]=OrderLots();
}
}
//+------------------------------------------------------------------+
//| Расчёт просадки на всей истории счёта |
//+------------------------------------------------------------------+
int Drawdown(double equity)
{
double relative;
if (equity<0) return(-1);
if (AbsDrawdownMaxProfit) MaxProfit=equity;
if (MaxDrawdown0)
{
relative=100*MaxDrawdown/MaxPeak;
if (RelDrawdown=0;i--)
{
if (Equity[i]<0) return(-1);
high=Equity[i];
if (high>maxprofit)
{
timemaxprofit=Time[i];
maxprofit=high;
maxdrawdown=0.0;
reldrawdown=0.0;
maxDD=Alert_Drawdown;
}
if (Show_Balance && balanceDD0)
{
relative=NormalizeDouble(100*maxdrawdown/maxpeak,1);
if (reldrawdown0)
{
if (ObjectGet("up",OBJPROP_PRICE1)0)
{
if (ObjectGet("down",OBJPROP_PRICE1)>Equity[0])
{
Alert("Эквити ниже минимального уровня");
ObjectSet("down",OBJPROP_PRICE1,Equity[0]);
}
}
if (reldrawdown>maxDD)
{
maxDD=reldrawdown;
if (maxDD>Max_Drawdown)
{
text=StringConcatenate("Внимание! Превышен уровень допустимой просадки на ",DoubleToStr(maxDD-Max_Drawdown,1),"%\n");
text=StringConcatenate(text,"Допустимая просадка задана на уровне ",DoubleToStr(Max_Drawdown,1),"%\n");
}
else
{
text=StringConcatenate("Превышен уровень сигнальной просадки на ",DoubleToStr(maxDD-Alert_Drawdown,1),"%\n");
text=StringConcatenate(text,"Сигнальная просадка задана на уровне ",DoubleToStr(Alert_Drawdown,1),"%\n");
}
drawdownstr=StringConcatenate(DoubleToStr(reldrawdown,1),"% (",DoubleToStr(drawdown,2)," ",AccountCurrency(),")");
text=StringConcatenate(text,"Просадка в средствах за текущий период составила ",drawdownstr,"\n");
if (balanceDD>0) text=StringConcatenate(text,"Просадка от баланса - ",DoubleToStr(balanceDD,2)," ",AccountCurrency(),"\n");
text=StringConcatenate(text,"Название индикатора: ",ShortName);
Alert(text);
if (maxDD>Max_Drawdown) clr=Red;
else clr=DarkOrange;
LineCreate("Drawdown Line",OBJ_TREND,2,clr," "+drawdownstr,timehigh,maxpeak,timelow,maxpeak-drawdown);
}
LineCreate("Begin Monitoring",OBJ_VLINE,1,SlateGray,"Begin Monitoring",time,0);
level=NormalizeDouble(maxprofit,2);
LineCreate("Max Profit",OBJ_TREND,1,DodgerBlue,"Max Profit",timemaxprofit,level,Time[0],level);
level=NormalizeDouble(maxprofit*(1-Alert_Drawdown/100),2);
LineCreate("Alert Drawdown",OBJ_TREND,1,DarkOrange,"Alert Drawdown "+DoubleToStr(Alert_Drawdown,1)+"%",timemaxprofit,level,Time[0],level);
level=NormalizeDouble(maxprofit*(1-Max_Drawdown/100),2);
LineCreate("Max Drawdown",OBJ_TREND,1,Red,"Max Drawdown "+DoubleToStr(Max_Drawdown,1)+"%",timemaxprofit,level,Time[0],level);
if (Show_Info)
{
curdrawdown=maxprofit-Equity[0];
text=StringConcatenate(": ",DoubleToStr(curdrawdown,2)," ",AccountCurrency()," (",DoubleToStr(100*curdrawdown/maxprofit,2),"%)");
LabelCreate("Current Drawdown",text,90);
}
return(curdrawdown);
}
//+------------------------------------------------------------------+
//| Определение размера контракта |
//+------------------------------------------------------------------+
double LotSize(string symbol, datetime tbar)
{
double size,close1,close2;
string BQ,currency=AccountCurrency();
int mode=MarketInfo(symbol,MODE_PROFITCALCMODE);
switch (mode)
{
case 0:
{
int sbar=iBarShift(symbol,0,tbar);
size=MarketInfo(symbol,MODE_LOTSIZE);
if (StringSubstr(symbol,3,3)=="USD") break;
if (StringSubstr(symbol,0,3)=="USD")
{
close1=iClose(symbol,0,sbar);
if (close1>0) size=size/close1;
}
else
{
BQ=StringSubstr(symbol,0,3)+"USD";
if (iClose(BQ,0,0)==0) BQ="USD"+StringSubstr(symbol,0,3);
if (iClose(BQ,0,0)==0) break;
int BQbar=iBarShift(BQ,0,tbar);
close1=iClose(symbol,0,sbar);
close2=iClose(BQ,0,BQbar);
if (close1>0 && close2>0)
{
if (StringSubstr(BQ,0,3)=="USD") size=size/close2/close1;
else size=size*close2/close1;
}
}
} break;
case 1: size=MarketInfo(symbol,MODE_LOTSIZE); break;
case 2: size=MarketInfo(symbol,MODE_TICKVALUE)/MarketInfo(symbol,MODE_TICKSIZE);
}
if (currency!="USD")
{
BQ=currency+"USD";
if (iClose(BQ,0,0)==0)
{
BQ="USD"+currency;
close1=iClose(BQ,0,iBarShift(BQ,0,tbar));
if (close1>0) size*=close1;
}
else
{
close1=iClose(BQ,0,iBarShift(BQ,0,tbar));
if (close1>0) size/=close1;
}
}
return(size);
}
//+------------------------------------------------------------------+
//| Выбор ордера по критериям |
//+------------------------------------------------------------------+
bool Select()
{
if (OrderType()>5) return(true);
if (OrderType()>1) return(false);
if (Only_Magics!="" && StringFind(Only_Magics,DoubleToStr(OrderMagicNumber(),0))==-1) return(false);
if (Only_Symbols!="" && StringFind(Only_Symbols,OrderSymbol())==-1) return(false);
else if (Only_Current && OrderSymbol()!=Symbol()) return(false);
if (Only_Comment!="" && StringFind(OrderComment(),Only_Comment)==-1) return(false);
if (Only_Buys && OrderType()!=OP_BUY) return(false);
if (Only_Sells && OrderType()!=OP_SELL) return(false);
return(true);
}
//+------------------------------------------------------------------+