//TENGRI советник торгует на парe Евро доллар, и Доллар швейцарец, вешать на две пары сразу, с разными MagicNumber = 12345; //для работы советника не обходим индикатор Silence2_02 должен находится в папке индикаторов, вешать советник на М1, //индикатор на график вешать не обязательно, торгует советник в две стороны сразу //Добавлено нормализация ордеров, открытие - при реинвестировании первого ордера по эквити, настройки по ТФ теперь можно //оптимизировать таймфреймы по порядку очередности ТФ, выведены все настройки по индюкам во внешние переменные. extern string af4 = " fx.09@mail.ru novakazahi@yandex.ru"; //таймфреймы исчисляются в порядке очередности, если TF =1; то это 1-M1, 2-M5, 3-M15, 4-M30, 5-H1, 6-H4, 7-D1 итд //спасибо программисту runik, за кусок кода по ТФ extern string a = "-------по бару 1-го ордера -------"; extern int TF_Op1 = 4; //таймфрейм для бара, направление для открытия 1-го ордера, если 1-М1, 2-М5, 3-М15...итд extern string b = "-------Silence 1-го ордера -------"; extern int TFSilence1 = 2; //таймфрейм 1-го ордера индикатор Silence, если 1-М1, 2-М5, 3-М15...итд extern int PerSilence1 = 11; //период Silence 1-го ордера extern int BuffSilence1= 220; //BuffSize Silence 1-го ордера extern int Sil_Level1 = 80; //уровень Level индикатора Silence 1-го ордера extern string с = "-------Silence колен -------"; extern int TFSilence2 = 3; //таймфрейм колен индикатор Silence, если 1-М1, 2-М5, 3-М15...итд extern int PerSilence2 = 12; //период Silence колен extern int BuffSilence2= 96; //BuffSize Silence колен extern int Sil_Level2 = 80; //уровень Level индикатора Silence колен extern string k = "------- МА колен -------"; extern int TF_MA2 = 3; //таймфрейм колен индикатора МА, если 1-М1, 2-М5, 3-М15...итд extern int Per_MA2 = 30; //период MA колен extern string Block = "-------Параметры -------"; extern double PipStepExponent = 1; //если нужен прогрессивный шаг extern double LotExponent1 = 1.70; //прогрессивный лот до StepX extern double LotExponent2 = 2.08; //прогрессивный лот после StepX extern int StepX = 5; //Step=5, до 5шага увеличивает по экспоненто1, после 5 по экспоненто2 extern double LotSize = 0.01; //размер лота 1-го ордера если FixLot = true; extern bool FixLot = false; //true - фиксированный лот, если false - то тогда смотрим LotStep extern int LotStep = 2000; //шаг увеличения лота. т.е. сколько в депозите LotStep востолько увеличится LotSize. если депо 2000 то лот 0.01, если станет 4000 то лот 0.02 extern int PipStep = 10; //шаг между доливками. каждый шаг увиличивается в PipStepExponent раз если Silence ниже Level. extern int PipStep2 = 20; //шаг между доливками. каждый шаг увиличивается в PipStepExponent раз если Silence выше Level. extern int TP = 10; //тэйкпрофит extern int MaxTrades=10; //максимальное кол-во колен extern string GeneralBlock = "-------Общие параметры-------"; extern bool Ostanov=true; //Включение закрытия Лока всех ордеров по достижении заданного лимита extern double Limit = 50; //Лимит на закрытие ордеров(в единицах валюты) extern int OpenNewTF = 1; //таймфрем для открытия новых ордеров, если 1-М1, 2-М5, 3-М15...итд extern int OpenNextTF = 1; //таймфрейм для открытия колен ордеров, если 1-М1, 2-М5, 3-М15...итд extern int Povtor = 1; //таймфрейм для повтора запросов extern string d = "работа советника в пятницу до"; extern bool CloseFriday=true; // использовать ограничение по времени в пятницу true, не использовать false extern int CloseFridayHour=19; // время в пятницу после которого не выставляется первый ордер extern string OfficialVariable = "-------Служебные переменые-------"; extern string InformationOnChartString = "InformationOnChart - отключить для тестера (замедляет)"; extern bool InformationOnChart = true; //выводить ли информацию на график, отключить для тестера (замедляет) extern int MagicNumber = 12345; //по этому номеру происходит идентификация ордеров на пренадлежность советнику extern string af5 = "-===Kazakstan treider==- "; extern int LotDecimal = 0; datetime timeprevMIN=0; datetime timeprevMAX=0; int total, ticket, CountTrades; int mper[10]={0,1,5,15,30,60,240,1440,10080,43200}; bool LongTradeNew, ShortTradeNew; double Buy_NextLot,Sell_NextLot, Buy_NewLot, Sell_NewLot, Buy_LastLot, Sell_LastLot, Prof; string CommentTrades; //=========================== int init(){ LotDecimal = LotDecimal(); return(0);} //=========================== int deinit(){ return(0);} //============= направление = int ind_iOP; int ind_iOP2; //============= Старт ======= int start(){ //== Бары открытие цены 1-го ордера ==================================================== double i_OP = iOpen (Symbol(), mper[TF_Op1], 0); // условие направления для первого ордера if (i_OP < Bid) ind_iOP = 1; // условие для бай else if (i_OP > Bid) ind_iOP = - 1; // условие для селл //====================================================================================== if (LotDecimal==0) LotDecimal = LotDecimal(); Information(); LongTradeNew=true; ShortTradeNew=true; //========= Закрытие локов при профите ================================================= if ((Ostanov)&&CountTrades("buy")>0&&CountTrades("sell")>0&&(Balance("buy","Balance")+Balance("sell", "Balance"))>=AccountEquity()/Limit){ int slippage=3; for (int i=OrdersTotal()-1; i>=0; i--) { if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) break; if (OrderType()==OP_BUY ) OrderClose (OrderTicket(),OrderLots(),MarketInfo(OrderSymbol(),MODE_BID),slippage); if (OrderType()==OP_SELL) OrderClose (OrderTicket(),OrderLots(),MarketInfo(OrderSymbol(),MODE_ASK),slippage); } } //====================================================================================== if(timeprevMIN!=iTime(NULL,mper[OpenNewTF],0)) { ticket=0; CountTrades = CountTrades("buy"); if(CloseFriday==true&&DayOfWeek()==5&&TimeCurrent()>=StrToTime(CloseFridayHour+":00"))return(0); // запрет в пятницу if (ind_iOP > 0) // условие для первого ордера бай если цена ниже уровня открытия бара, то ордер бай не открывается { if (iRSI(NULL, PERIOD_H1, 14, PRICE_CLOSE, 0) < 70.0) { if (iCustom(NULL, mper[TFSilence1], "Silence2_02", PerSilence1, BuffSilence1, 2, 0) < Sil_Level1) { if (CountTrades==0 && LongTradeNew==true) { CommentTrades = "TENGRI "+Symbol()+" - Buy "+(CountTrades+1); Buy_NewLot = NewLot("buy"); while(ticket<1) { Prof = Prof("buy"); Print("Покупаем. Новый. Параметры. символ="+Symbol()+", лот="+DoubleToStr(Buy_NewLot,2)+", цена="+DoubleToStr(Ask,4)+" профит="+DoubleToStr(Prof,4)+", коммент="+CommentTrades+" маджик="+MagicNumber); ticket = OrderSend(Symbol(),OP_BUY,Buy_NewLot,NormalizeDouble(Ask,Digits),3,0,Prof,CommentTrades,MagicNumber,0,Blue); if(ticket<1) {Print("Ошибка: ",GetLastError()," Новая попытка покупки через "+(Povtor*60)+" секунд");Sleep(Povtor*60*1000);} RefreshRates(); } } } } } CountTrades = CountTrades("sell"); if(CloseFriday==true&&DayOfWeek()==5&&TimeCurrent()>=StrToTime(CloseFridayHour+":00"))return(0); //запрет в пятницу if (ind_iOP < 0) // условие для первого ордера селл если цена выше уровня открытия бара, то ордер селл не открывается { if (iRSI(NULL, PERIOD_H1, 14, PRICE_CLOSE, 0) > 30.0) { if (iCustom(NULL, mper[TFSilence1], "Silence2_02", PerSilence1, BuffSilence1, 2, 0) < Sil_Level1) { if (CountTrades==0 && ShortTradeNew==true) { CommentTrades = "TENGRI "+Symbol()+" - Sell "+(CountTrades+1); Sell_NewLot = NewLot("sell"); while(ticket<1) { Prof = Prof("sell"); Print("Продаем. Новый. Параметры. символ="+Symbol()+", лот="+DoubleToStr(Sell_NewLot,2)+", цена="+DoubleToStr(Bid,4)+" профит="+DoubleToStr(Prof,4)+", коммент="+CommentTrades+" маджик="+MagicNumber); ticket = OrderSend(Symbol(),OP_SELL,Sell_NewLot,NormalizeDouble(Bid,Digits),3,0,Prof,CommentTrades,MagicNumber,0,Red); if(ticket<1) {Print("Ошибка: ",GetLastError()," Новая попытка покупки через "+(Povtor*60)+" секунд");Sleep(Povtor*60*1000);} RefreshRates(); } } } } } timeprevMIN=iTime(NULL,mper[OpenNewTF],0); } if(timeprevMAX!=iTime(NULL,mper[OpenNextTF],0)) { ticket=0; CountTrades = CountTrades("buy"); if (CountTrades>0 && NextOrder("buy")) { CommentTrades = "TENGRI "+Symbol()+" - Buy "+(CountTrades+1); Buy_NextLot = NextLot("buy"); while(ticket<1) { Print("Покупаем. Следующий. Параметры. символ:"+Symbol()+", лот="+DoubleToStr(Buy_NextLot,2)+", цена ="+DoubleToStr(Ask,4)+", коммент="+CommentTrades+", маджик="+MagicNumber); ticket = OrderSend(Symbol(),OP_BUY,Buy_NextLot,NormalizeDouble(Ask,Digits),3,0,0,CommentTrades,MagicNumber,0,Blue); if(ticket<1) {Print("Ошибка: ",GetLastError()," Новая попытка покупки через "+(Povtor*60)+" секунд");Sleep(Povtor*60*1000);} else Сorrect("buy"); RefreshRates(); } } CountTrades = CountTrades("sell"); if (CountTrades>0 && NextOrder("sell")) { CommentTrades = "TENGRI "+Symbol()+" - Sell "+(CountTrades+1); Sell_NextLot = NextLot("sell"); while(ticket<1) { Print("Продаем. Следующий. Параметры. символ:"+Symbol()+", лот="+DoubleToStr(Sell_NextLot,2)+", цена="+DoubleToStr(Bid,4)+", коммент="+CommentTrades+", маджик="+MagicNumber); ticket = OrderSend(Symbol(),OP_SELL,Sell_NextLot,NormalizeDouble(Bid,Digits),3,0,0,CommentTrades,MagicNumber,0,Red); if(ticket<1) {Print("Ошибка: ",GetLastError()," Новая попытка продажи через "+(Povtor*60)+" секунд");Sleep(Povtor*60*1000);} else Сorrect("sell"); RefreshRates(); } } timeprevMAX=iTime(NULL,mper[OpenNextTF],0); } return(0); } //+------------------------------------------------------------------+ double Prof(string OrdType) { double Zena=0; if (TP=0;trade--) { OrderSelect(trade, SELECT_BY_POS, MODE_TRADES); if(OrderSymbol()!=Symbol()||OrderMagicNumber()!=MagicNumber) continue; if(OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber) { //----- if (OrdType=="buy") { if(OrderType()==OP_BUY) { TP_all = AveragePrice+TP*Point; if (OrderTakeProfit() != TP_all) { Print("Модифицируем покупку. Безубыток = "+DoubleToStr(AveragePrice,4)+", ТР = "+DoubleToStr(TP,4)+" Новый уровень = "+DoubleToStr(TP_all,4)); OrderModify(OrderTicket(), AveragePrice, OrderStopLoss(), TP_all, 0, Yellow); } } } //---- if (OrdType=="sell") { if(OrderType()==OP_SELL) { TP_all = AveragePrice-TP*Point; if (OrderTakeProfit() != TP_all) { Print("Модифицируем продажу. Безубыток = "+DoubleToStr(AveragePrice,4)+", ТР = "+DoubleToStr(TP,4)+" Новый уровень = "+DoubleToStr(TP_all,4)); OrderModify(OrderTicket(), AveragePrice, OrderStopLoss(), TP_all, 0, Yellow); } } } //---- } } } //+------------------------------------------------------------------+ //Вычисляем размер первого лота double NewLot(string OrdType) { double tLots; double minlot = MarketInfo(Symbol(), MODE_MINLOT); if (OrdType=="buy") { if (FixLot) tLots = LotSize; else tLots = NormalizeDouble(LotSize * NormalizeDouble(AccountEquity()/LotStep,0), LotDecimal); } if (OrdType=="sell") { if (FixLot) tLots = LotSize; else tLots = NormalizeDouble(LotSize * NormalizeDouble(AccountEquity()/LotStep,0), LotDecimal); } if(tLots < minlot) tLots = minlot; return(tLots); } //+------------------------------------------------------------------+ //Вычисляем размер следующего лота double NextLot(string OrdType){ double tLots; int st_P=CountTrades(OrdType); if (OrdType=="buy"){ if (st_P >= StepX) tLots = NormalizeDouble(FindLastOrder(OrdType, "Lots") * LotExponent2, LotDecimal); else tLots = NormalizeDouble(FindLastOrder(OrdType, "Lots") * LotExponent1, LotDecimal); } if (OrdType=="sell"){ if (st_P >= StepX) tLots = NormalizeDouble(FindLastOrder(OrdType, "Lots") * LotExponent2, LotDecimal); else tLots = NormalizeDouble(FindLastOrder(OrdType, "Lots") * LotExponent1, LotDecimal); } return(tLots); } //+------------------------------------------------------------------+ //Проверяем нужно ли открывать следующий ордер bool NextOrder(string OrdType) { double MA_30 = iMA(Symbol(), mper[TF_MA2], Per_MA2, 0, 0, PRICE_CLOSE, 0); bool NextOrd = false; int PipStepEX; if (OrdType=="buy"&&MA_30= PipStepEX * Point && CountTrades(OrdType)Bid) { if(iCustom(NULL, mper[TFSilence2], "Silence2_02", PerSilence2, BuffSilence2, 2, 0) < Sil_Level2) PipStepEX = NormalizeDouble(PipStep*MathPow(PipStepExponent,CountTrades(OrdType)),0); else PipStepEX = NormalizeDouble(PipStep2*MathPow(PipStepExponent,CountTrades(OrdType)),0); if (Bid - FindLastOrder(OrdType, "Price") >= PipStepEX * Point && CountTrades(OrdType)=0;trade--) { OrderSelect(trade, SELECT_BY_POS, MODE_TRADES); if(OrderSymbol()!=Symbol()||OrderMagicNumber()!=MagicNumber) continue; if(OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber) { //---- if (OrdType=="buy") { if(OrderType()==OP_BUY) { if(OrderTicket()>oldticketnumber) { OrderPrice=OrderOpenPrice(); LastLot = OrderLots(); oldticketnumber=OrderTicket(); } } } //---- if (OrdType=="sell") { if(OrderType()==OP_SELL) { if(OrderTicket()>oldticketnumber) { OrderPrice=OrderOpenPrice(); LastLot = OrderLots(); oldticketnumber=OrderTicket(); } } } //---- } } if (inf=="Price") return(OrderPrice); if (inf=="Lots") return(LastLot); } //+------------------------------------------------------------------+ //Возвращает количество ордеров int CountTrades(string OrdType) { int count=0; int trade; for(trade=OrdersTotal()-1;trade>=0;trade--) { OrderSelect(trade,SELECT_BY_POS,MODE_TRADES); if(OrderSymbol()!=Symbol()||OrderMagicNumber()!=MagicNumber) continue; if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber) { //---- if (OrdType == "buy") { if(OrderType()==OP_BUY) count++; } //---- if (OrdType == "sell") { if(OrderType()==OP_SELL) count++; } //---- } } return(count); } //+------------------------------------------------------------------+ //Возвращает среднюю цену открытых поз по направлению double AveragePrice(string OrdType) { double AveragePrice=0; double Count=0; int trade; for(trade=OrdersTotal()-1;trade>=0;trade--) { OrderSelect(trade, SELECT_BY_POS, MODE_TRADES); if(OrderSymbol()!=Symbol()||OrderMagicNumber()!=MagicNumber) continue; if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber) { //----- if (OrdType == "buy") { if(OrderType()==OP_BUY) { AveragePrice=AveragePrice+OrderOpenPrice()*OrderLots(); Count=Count + OrderLots(); } } //---- if (OrdType == "sell") { if(OrderType()==OP_SELL) { AveragePrice=AveragePrice+OrderOpenPrice()*OrderLots(); Count=Count + OrderLots(); } } //---- } } AveragePrice=NormalizeDouble(AveragePrice/Count, Digits); return(AveragePrice); } //---------------------------------------------------------------------- //Процедура выводит информацию по торгам: void Information() { if (InformationOnChart) { Comment("" //+ "\n" + " TENGRI MARTINGEIL fx.09@mail.ru "+Symbol() + "\n" + " ------------------------------------------------" + "\n" + " Broker: " + AccountCompany()+". AccountLeverage: 1:"+ DoubleToStr(AccountLeverage(), 0) + "\n" + " ------------------------------------------------" + "\n" + " Buy open -> "+CountTrades("buy")+" MaxTrades -> "+MaxTrades + "\n" + " Open balance: " + DoubleToStr(Balance("buy", "Balance"), 2) + "\n" + " Open lot: " + DoubleToStr(Balance("buy", "Lot"), 2) + "\n" + " ------------------------------------------------" + "\n" + " Sell open -> "+CountTrades("sell")+" MaxTrades -> "+MaxTrades + "\n" + " Open balance: " + DoubleToStr(Balance("sell", "Balance"), 2) + "\n" + " Open lot: " + DoubleToStr(Balance("sell", "Lot"), 2) + "\n" + " ------------------------------------------------" + "\n" + " Close Lock: " + DoubleToStr ((AccountEquity() / (Limit)), 2) + "\n" + " Balance Buy && Sell: " + DoubleToStr((Balance("buy", "Balance")+Balance("sell", "Balance")), 2) ); } } //--------------------------------------------------- //функция расчета информации по текущим торгам double Balance(string OrdType, string inf) { double result=0; int trade; for(trade=OrdersTotal()-1;trade>=0;trade--) { OrderSelect(trade, SELECT_BY_POS, MODE_TRADES); if(OrderSymbol()!=Symbol()||OrderMagicNumber()!=MagicNumber) continue; if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber) { //----- if (OrdType == "buy") { if(OrderType()==OP_BUY) { if (inf=="Balance") result=result+OrderProfit()-OrderSwap()-OrderCommission(); if (inf=="Lot") result=result+OrderLots(); } } //---- if (OrdType == "sell") { if(OrderType()==OP_SELL) { if (inf=="Balance") result=result+OrderProfit()-OrderSwap()-OrderCommission(); if (inf=="Lot") result=result+OrderLots(); } } //---- } } return(result); } //--------------------------------------------------- double LotDecimal() { double steplot=MarketInfo(Symbol(), MODE_LOTSTEP); int LotsDigits = MathCeil(MathAbs(MathLog(steplot)/MathLog(10))); return(LotsDigits); } //=================================================== //Закрытие всех позиций