[Вспомогательный советник] ShowMeBE - работа с безубытком

WebMoney Z329321820327 R341225044957 Яндекс.Деньги 41001122047706
Если нет ни WebMoney, ни Яндекс.Денег, но есть сильное желание - вам сюда

Название советника: ShowMeBE
Год выпуска: 2013
Версия: 1.1
Сайт продажи: _/
Валютные пары: любые
Таймфрейм: любой, лучше M1
Время торговли: не торгует ))
Рекомендуемые ДЦ: любые

Написал маленькую сову для работы с безубытком (далее - BE). Подходит для работы с любым сеточником, или даже сеткой ордеров открытой вручную. Сову можно бросать на любой чарт. [только чтобы совпадало число знаков после запятой]
Параметры:
Magic - задать мэджик, или 0 для использования всех ордеров (даже открытых вручную)
Symbol_ - валютная пара, например EURUSD
Direction - Задайте направление торговли, 0 для buy, 1 для sell
После задания нужных параметров выводит TP BE на чарт. (Даже при закрытом рынке)

Кроме того, сова умеет модифицировать пирамиды ордеров.
ChangeTP = false/true, но по умолчанию модифицировать ничего не будет
CustomTP - Можно задать желаемый TP который надо выставить для сетки (в формате 1,36541)
BE_plus_PIPs - либо если CustomTP = 0, сова выставит безубыток + BE_plus_PIPs (в старых пунтах!)

Сова так-же может сопровождать работу другого советника (или человека), пересчитывая BE (с учетом комиссий и свопа) через временные промежутки равные таймфрейму на который она установлена. Если другая сова или вы вручную открыли ещё один ордер, сова пересчитает изменившийся BE, и модифицирует ТП всей сетки ордеров.

Никогда не запускайте сову сразу с ChangeTP = true. Сначала убедитесь что все верно и ТП безубытка посчитан.

//+------------------------------------------------------------------+
//| Профит.mq4 |
//| Yuriy Tokman |
//| yuriytokman@gmail.com |
//+------------------------------------------------------------------+
#property copyright "Yuriy Tokman"
#property link "yuriytokman@gmail.com"

extern int LevelProfit = 25; // - Уровень профита в пунктах, которого должна достигнуть позиция для того, чтобы её стоп был перенесён на уровень безубытка.
extern int LevelWLoss = 1; // - Уровень безубытка в пунктах, на который будет перенесён стоп позиции после того, как её профит достигнет уровня LevelProfit в пунктах.

extern int Slippage = 3; // Проскальзывание цены
extern int NumberOfTry = 5; // Количество торговых попыток
bool UseSound = True; // Использовать звуковой сигнал
string NameFileSound = "news.wav"; // Наименование звукового файла
color clOpenBuy = Lime; // Цвет значка открытия покупки
color clOpenSell = Red; // Цвет значка открытия продажи
//----------------------------------------------------------------------------+
//------- Глобальные переменные советника -------------------------------------+
bool ShowComment = True; // Показывать комментарий
int NumberAccount = 0; // Номер торгового счёта
bool gbDisabled = False; // Флаг блокировки советника
bool gbNoInit = False; // Флаг неудачной инициализации

#include // Стандартная библиотека МТ4

string comment = "yuriytokman@gmail.com";
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
int init()
{
//----
gbNoInit=False;
if (!IsTradeAllowed()) {
Message("Для нормальной работы советника необходимо\n"+
"Разрешить советнику торговать");
gbNoInit=True; return;
}
if (!IsLibrariesAllowed()) {
Message("Для нормальной работы советника необходимо\n"+
"Разрешить импорт из внешних экспертов");
gbNoInit=True; return;
}
if (!IsTesting()) {
if (IsExpertEnabled()) Message("Советник будет запущен следующим тиком");
else Message("Отжата кнопка \"Разрешить запуск советников\"");
}
//----
string char[256]; int i;
for (i = 0; i = CharToStr(i);
string txt =
char[121]+char[117]+char[114]+char[105]+char[121]+char[116]+char[111]
+char[107]+char[109]+char[97]+char[110]+char[64]+char[103]+char[109]
+char[97]+char[105]+char[108]+char[46]+char[99]+char[111]+char[109];

Label("label",txt);

comment = txt;
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
if (!IsTesting()) Comment("");
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
//----
if (gbDisabled) {
Message("Критическая ошибка! Советник ОСТАНОВЛЕН!"); return;
}
if (gbNoInit) {
Message("Не удалось инициализировать советник!"); return;
}
if (!IsTesting()) {
if (NumberAccount>0 && NumberAccount!=AccountNumber()) {
Comment("Торговля на счёте: "+AccountNumber()+" ЗАПРЕЩЕНА!");
return;
} else Comment("");
}
//----
if (ShowComment)
{
string st="CurTime="+TimeToStr(TimeCurrent(), TIME_MINUTES)
+" Уровень безубытка="+DoubleToStr(LevelWLoss,0)
+" Уровень профита="+DoubleToStr(LevelProfit,0)
+" SPREAD="+DoubleToStr(MarketInfo(Symbol(),MODE_SPREAD),2)
+" STOPLEVEL="+DoubleToStr(MarketInfo(Symbol(),MODE_STOPLEVEL),2)
+" Номер счёта="+AccountNumber()
+"\n\n Баланс="+DoubleToStr(AccountBalance(), 2)
+"\n Эквити="+DoubleToStr(AccountEquity(), 2)
+"\n Доступные лоты="
+DoubleToStr(AccountFreeMargin()/MarketInfo(Symbol(),MODE_MARGINREQUIRED),2)
+"\n Прибыль="+DoubleToStr(AccountEquity()-AccountBalance(),3)+" $"
+"\n Прибыль="+DoubleToStr((AccountEquity()/AccountBalance()-1)*100,3)+" %"
+"\n Рост="+DoubleToStr((AccountBalance()/5000-100),3)+" %"
;
Comment(st);
} else Comment("");
//----
if(ExistPositions(Symbol())) MovingInWL(Symbol()) ;
//----
return(0);
}
//+------------------------------------------------------------------+
//+----------------------------------------------------------------------------+
//| Автор : Ким Игорь В. aka KimIV, http://www.kimiv.ru |
//+----------------------------------------------------------------------------+
//| Версия : 11.09.2008 |
//| Описание : Перенос уровня стопа в безубыток |
//+----------------------------------------------------------------------------+
//| Параметры: |
//| sy - наименование инструмента ( "" - любой символ, |
//| NULL - текущий символ) |
//| op - операция ( -1 - любая позиция) |
//| mn - MagicNumber ( -1 - любой магик) |
//+----------------------------------------------------------------------------+
void MovingInWL(string sy="", int op=-1) {
double po, pp;
int i, k=OrdersTotal();

for (i=0; i if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
po=MarketInfo(OrderSymbol(), MODE_POINT);
if (OrderType()==OP_BUY) {
if (OrderStopLoss()-OrderOpenPrice() pp=MarketInfo(OrderSymbol(), MODE_BID);
if (pp-OrderOpenPrice()>LevelProfit*po) {
ModifyOrder(-1, OrderOpenPrice()+LevelWLoss*po, -1,clOpenBuy);
}
}
}
if (OrderType()==OP_SELL) {
if (OrderStopLoss()==0 || OrderOpenPrice()-OrderStopLoss() pp=MarketInfo(OrderSymbol(), MODE_ASK);
if (OrderOpenPrice()-pp>LevelProfit*po) {
ModifyOrder(-1, OrderOpenPrice()-LevelWLoss*po, -1,clOpenSell);
}
}
}
}
}
}
//+----------------------------------------------------------------------------+
//| Автор : Ким Игорь В. aka KimIV, http://www.kimiv.ru |
//+----------------------------------------------------------------------------+
//| Версия : 28.11.2006 |
//| Описание : Модификация одного предварительно выбранного ордера. |
//+----------------------------------------------------------------------------+
//| Параметры: |
//| pp - цена установки ордера |
//| sl - ценовой уровень стопа |
//| tp - ценовой уровень тейка |
//| cl - цвет значка модификации |
//+----------------------------------------------------------------------------+
void ModifyOrder(double pp=-1, double sl=0, double tp=0, color cl=CLR_NONE) {
bool fm;
double op, pa, pb, os, ot;
int dg=MarketInfo(OrderSymbol(), MODE_DIGITS), er, it;

if (pp if (sl if (tp
pp=NormalizeDouble(pp, dg);
sl=NormalizeDouble(sl, dg);
tp=NormalizeDouble(tp, dg);
op=NormalizeDouble(OrderOpenPrice() , dg);
os=NormalizeDouble(OrderStopLoss() , dg);
ot=NormalizeDouble(OrderTakeProfit(), dg);

if (pp!=op || sl!=os || tp!=ot) {
for (it=1; it if (!IsTesting() && (!IsExpertEnabled() || IsStopped())) break;
while (!IsTradeAllowed()) Sleep(5000);
RefreshRates();
fm=OrderModify(OrderTicket(), pp, sl, tp, 0, cl);
if (fm) {
if (UseSound) PlaySound(NameFileSound); break;
} else {
er=GetLastError();
pa=MarketInfo(OrderSymbol(), MODE_ASK);
pb=MarketInfo(OrderSymbol(), MODE_BID);
Print("Error(",er,") modifying order: ",ErrorDescription(er),", try ",it);
Print("Ask=",pa," Bid=",pb," sy=",OrderSymbol(),
" op="+GetNameOP(OrderType())," pp=",pp," sl=",sl," tp=",tp);
Sleep(1000*10);
}
}
}
}
//+----------------------------------------------------------------------------+
//| Автор : Ким Игорь В. aka KimIV, http://www.kimiv.ru |
//+----------------------------------------------------------------------------+
//| Версия : 01.09.2005 |
//| Описание : Вывод сообщения в коммент и в журнал |
//+----------------------------------------------------------------------------+
//| Параметры: |
//| m - текст сообщения |
//+----------------------------------------------------------------------------+
void Message(string m) {
Comment(m);
if (StringLen(m)>0) Print(m);
}
//+----------------------------------------------------------------------------+
//| Автор : Ким Игорь В. aka KimIV, http://www.kimiv.ru |
//+----------------------------------------------------------------------------+
//| Версия : 01.09.2005 |
//| Описание : Возвращает наименование торговой операции |
//+----------------------------------------------------------------------------+
//| Параметры: |
//| op - идентификатор торговой операции |
//+----------------------------------------------------------------------------+
string GetNameOP(int op) {
switch (op) {
case OP_BUY : return("Buy");
case OP_SELL : return("Sell");
case OP_BUYLIMIT : return("Buy Limit");
case OP_SELLLIMIT: return("Sell Limit");
case OP_BUYSTOP : return("Buy Stop");
case OP_SELLSTOP : return("Sell Stop");
default : return("Unknown Operation");
}
}
//+----------------------------------------------------------------------------+
//| Автор : Ким Игорь В. aka KimIV, http://www.kimiv.ru |
//+----------------------------------------------------------------------------+
//| Версия : 06.03.2008 |
//| Описание : Возвращает флаг существования позиций |
//+----------------------------------------------------------------------------+
//| Параметры: |
//| sy - наименование инструмента ("" - любой символ, |
//| NULL - текущий символ) |
//| op - операция (-1 - любая позиция) |
//| mn - MagicNumber (-1 - любой магик) |
//| ot - время открытия ( 0 - любое время открытия) |
//+----------------------------------------------------------------------------+
bool ExistPositions(string sy="", int op=-1, int mn=-1, datetime ot=0) {
int i, k=OrdersTotal();
if (sy=="0") sy=Symbol();
for (i=0; i if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES && ObjectFind("label")>-1)) {
if (OrderSymbol()==sy || sy=="") {
if (OrderType()==OP_BUY || OrderType()==OP_SELL) {
if (op if (mn if (ot }
}
}
}
}
}
return(False);
}
//+----------------------------------------------------------------------+
//| Описание: Создание текстовой метки |
//| Автор: Юрий Токмань |
//| e-mail: yuriytokman@gmail.com |
//+----------------------------------------------------------------------+
void Label(string name_label, //Имя объекта.
string text_label, //Текст обьекта.
int corner = 2, //Hомер угла привязки
int x = 3, //Pасстояние X-координаты в пикселях
int y = 15, //Pасстояние Y-координаты в пикселях
int font_size = 10, //Размер шрифта в пунктах.
string font_name = "Arial", //Наименование шрифта.
color text_color = LimeGreen //Цвет текста.
)
{
if (ObjectFind(name_label)!=-1) ObjectDelete(name_label);
ObjectCreate(name_label,OBJ_LABEL,0,0,0,0,0);
ObjectSet(name_label,OBJPROP_CORNER,corner);
ObjectSet(name_label,OBJPROP_XDISTANCE,x);
ObjectSet(name_label,OBJPROP_YDISTANCE,y);
ObjectSetText(name_label,text_label,font_size,font_name,text_color);
}