Hozzászólások
4 bejegyzés megtekintése - 1-4 / 4
-
SzerzőBejegyzés
-
Hozzászólás: Megbízáskor hibát ír ki. #1618
Szia Radu!
Felvettem veled a kapcsolatot a privát email- eden, ellenben még nem jött válasz.
Csak azt szeretném kérdezni, hogy sikerült e megkapni és elolvasni?
Köszi!Hozzászólás: Megbízáskor hibát ír ki. #1609Esetleg privát üzenetet tudok neked küldeni? Mert ha meg tudnád csinálni nekem, akkor megbeszélnénk a részleteket.
Előre is köszi!Hozzászólás: Megbízáskor hibát ír ki. #1608Szia Radu!
Köszi a választ!
Esetleg egy példát tudnál nekem írni(mutatni), ha nem túl nagy gond?Hozzászólás: Megbízáskor hibát ír ki. #1603Szia!
Köszönöm a gyors választ, de sajnos nem értek hozzá annyira.
Bemásolnám ide a kódot, ha nem probléma.
Meg tudnád nekem nézni?
Előre is köszi!//+------------------------------------------------------------------+ //| EM_VOL.mq4 | //| Copyright © 2011, AutomatiKForeX | //| http://www.automatikforex.blogspot.com | //+------------------------------------------------------------------+ //---- extern int MMType=1; extern bool UseClose=false; extern bool UseAdd=true; extern double LotExponent=1.2; extern double slip=3; extern double Lots=0.2; extern double LotsDigits=2; extern double TakeProfit=500; extern double Stoploss=500; extern double TrailStart=30; extern double TrailStop=50; extern double PipStep=30; extern int MaxTrades=30; extern bool UseEquityStop=false; extern double TotalEquityRisk=20; extern bool UseTrailingStop=true; extern bool UseTimeOut=false; extern double MaxTradeOpenHours=48; extern double MaximumRisk=0.008; //---- int MagicNumber=675; double PriceTarget, StartEquity, BuyTarget, SellTarget; double AveragePrice, SellPoint, BuyPoint; double LastBuyPrice, LastSellPrice, ClosePrice, Spread; int flag; string EAName="EM-VOL 1/1vs C"; datetime timeprev=0, expiration; int NumOfTrades=0; double iLots; int cnt=0, total; double Stopper=0; bool TradeNow=false, LongTrade=false, ShortTrade=false; int ticket; bool NewOrdersPlaced=false; //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int init() { Spread=MarketInfo(Symbol(), MODE_SPREAD)*Point; return(0); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int deinit() { return(0); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int start() { if (UseTrailingStop) { TrailingAlls(TrailStart, TrailStop, AveragePrice); } if (UseTimeOut){ if(CurTime()>=expiration) { CloseThisSymbolAll(); Print("Closed All due to TimeOut"); } } if(timeprev==Time[0]) { return(0); } timeprev=Time[0]; //---- double CurrentPairProfit=CalculateProfit(); if(UseEquityStop){ if(CurrentPairProfit(TotalEquityRisk/100)*AccountEquityHigh()) { CloseThisSymbolAll(); Print("Closed All due to Stop Out"); NewOrdersPlaced=false; } } total=CountTrades(); //---- if (total==0) { flag=0; } double LastBuyLots; double LastSellLots; for(cnt=OrdersTotal()-1;cnt>=0;cnt--){ OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES); if(OrderSymbol()!=Symbol()||OrderMagicNumber()!=MagicNumber)continue; if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber) if(OrderType()==OP_BUY) { LongTrade=true; ShortTrade=false; LastBuyLots=OrderLots(); break; } if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber) if(OrderType()==OP_SELL) { LongTrade=false; ShortTrade=true; LastSellLots=OrderLots(); break; } } double PivPnt=(iHigh(Symbol(),0,1)+iLow(Symbol(),0,1)+iClose(Symbol(),0,1)+iOpen(Symbol(),0,1))/4; double Res1=iHigh(Symbol(),0,1)+iATR(Symbol(),0,14,1); double Sup1=iLow(Symbol(),0,1)-iATR(Symbol(),0,14,1); double C1=iClose(Symbol(),0,1); double O1=iOpen(Symbol(),0,1); double L1=iLow(Symbol(),0,1); double H1=iHigh(Symbol(),0,1); double BandUP=iBands(Symbol(),0,20,2,0,PRICE_CLOSE,MODE_UPPER,0); double BandDown=iBands(Symbol(),0,20,2,0,PRICE_CLOSE,MODE_LOWER,0); double L2=iLow(Symbol(),0,2); double H2=iHigh(Symbol(),0,2); double C2=iClose(Symbol(),0,2); double ADX=iADX(NULL,0,14,PRICE_CLOSE,MODE_MAIN,1); if(total>0 && total=(PipStep*Point)) { TradeNow=true; } if(ShortTrade && (Bid - LastSellPrice)>=(PipStep*Point)) { TradeNow=true; } } if (total 0) {//# RefreshRates(); ticket=OpenPendingOrder(OP_SELL,iLots,Bid,slip,Ask,0,0,EAName+"-"+NumOfTrades,MagicNumber,0,Orange); if(ticket0) {//# ticket=OpenPendingOrder(OP_BUY,iLots,Ask,slip,Bid,0,0,EAName+"-"+NumOfTrades,MagicNumber,0,Blue); if(ticket<0) {Print("Error: ",GetLastError()); return(0);} LastBuyPrice=FindLastBuyPrice(); TradeNow=false; NewOrdersPlaced=true; }//# } } } if (TradeNow && total<1) { SellPoint=Sup1-(1*Point); BuyPoint=Res1+(1*Point); if(!ShortTrade) { NumOfTrades=total; if(ADX0) {//# ticket=OrderSend(Symbol(),OP_SELLSTOP,lots,SellPoint,slip,0,0,EAName+"-"+NumOfTrades,MagicNumber,0,Red); if(ticket<0){Print(iLots,"Error: ",GetLastError()); return(0); } LastBuyPrice=FindLastBuyPrice(); NewOrdersPlaced=true; }//# } if(!LongTrade) NumOfTrades=total; if(ADX0) {//# ticket=OrderSend(Symbol(),OP_BUYSTOP,lots,BuyPoint,slip,0,0,EAName+"-"+NumOfTrades,MagicNumber,0,Lime); if(ticket0) expiration=CurTime()+MaxTradeOpenHours*60*60; TradeNow=false; } //----------------------- CALCULATE AVERAGE OPENING PRICE total=CountTrades(); AveragePrice=0; double Count=0; for(cnt=OrdersTotal()-1;cnt>=0;cnt--) { OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES); if(OrderSymbol()!=Symbol()||OrderMagicNumber()!=MagicNumber) continue; if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber) if(OrderType()==OP_BUY || OrderType()==OP_SELL) { AveragePrice=AveragePrice+OrderOpenPrice()*OrderLots(); Count=Count + OrderLots(); } } if(total > 0) AveragePrice=NormalizeDouble(AveragePrice/Count, Digits); //----------------------- RECALCULATE STOPLOSS & PROFIT TARGET BASED ON AVERAGE OPENING PRICE if(NewOrdersPlaced) for(cnt=OrdersTotal()-1;cnt>=0;cnt--) { OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES); if(OrderSymbol()!=Symbol()||OrderMagicNumber()!=MagicNumber) continue; if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber) if(OrderType()==OP_BUY) // Calculate profit/stop target for long { PriceTarget=AveragePrice+(TakeProfit*Point); BuyTarget=PriceTarget; Stopper=AveragePrice-(Stoploss*Point); // Stopper=0; flag=1; } if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber) if(OrderType()==OP_SELL) // Calculate profit/stop target for short { PriceTarget=AveragePrice-(TakeProfit*Point); SellTarget=PriceTarget; Stopper=AveragePrice+(Stoploss*Point); // Stopper=0; flag=1; } } //----------------------- IF NEEDED CHANGE ALL OPEN ORDERS TO NEWLY CALCULATED PROFIT TARGET if(NewOrdersPlaced) if(flag==1)// check if average has really changed { for(cnt=OrdersTotal()-1;cnt>=0;cnt--) { // PriceTarget=total; OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES); if(OrderSymbol()!=Symbol()||OrderMagicNumber()!=MagicNumber) continue; if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber) // OrderModify(OrderTicket(),0,Stopper,PriceTarget,0,Yellow);// set all positions to averaged levels OrderModify(OrderTicket(),AveragePrice,OrderStopLoss(),PriceTarget,0,Yellow);// set all positions to averaged levels NewOrdersPlaced=false; } } } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ double ND(double v){return(NormalizeDouble(v,Digits));} //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int fOrderCloseMarket(bool aCloseBuy=true,bool aCloseSell=true) { int tErr=0; for(int i=OrdersTotal()-1;i>=0;i--) { if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) { if(OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber) { if(OrderType()==OP_BUY && aCloseBuy) { RefreshRates(); if(!IsTradeContextBusy()) { if(!OrderClose(OrderTicket(),OrderLots(),ND(Bid),5,CLR_NONE)) { Print("Error close BUY "+OrderTicket());//+" "+fMyErDesc(GetLastError())); tErr=-1; } } else { static int lt1=0; if(lt1!=iTime(NULL,0,0)) { lt1=iTime(NULL,0,0); Print("Need close BUY "+OrderTicket()+". Trade Context Busy"); } return(-2); } } if(OrderType()==OP_SELL && aCloseSell) { RefreshRates(); if(!IsTradeContextBusy()) { if(!OrderClose(OrderTicket(),OrderLots(),ND(Ask),digit,CLR_NONE)) { Print("Error close SELL "+OrderTicket());//+" "+fMyErDesc(GetLastError())); tErr=-1; } } else { static int lt2=0; if(lt2!=iTime(NULL,0,0)) { lt2=iTime(NULL,0,0); Print("Need close SELL "+OrderTicket()+". Trade Context Busy"); } return(-2); } } } } } return(tErr); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ double fGetLots(int aTradeType) { double tLots; switch(MMType) { case 0: tLots=Lots; break; case 1: tLots=NormalizeDouble(Lots*MathPow(LotExponent,NumOfTrades),LotsDigits); break; case 2: int LastClosedTime=0; tLots=Lots; for(int i=OrdersHistoryTotal()-1;i>=0;i--) { if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)) { if(OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber) { if(LastClosedTime<OrderCloseTime()) { LastClosedTime=OrderCloseTime(); if(OrderProfit()<0) { tLots=NormalizeDouble(OrderLots()*LotExponent,LotsDigits); } else { tLots=Lots; } } } } else { return(-3); } } break; } if(AccountFreeMarginCheck(Symbol(),aTradeType,tLots)=0;trade--) { OrderSelect(trade,SELECT_BY_POS,MODE_TRADES); if(OrderSymbol()!=Symbol()||OrderMagicNumber()!=MagicNumber) continue; if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber) if(OrderType()==OP_SELL || OrderType()==OP_BUY) count++; }//for return(count); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ void CloseThisSymbolAll() { int trade; for(trade=OrdersTotal()-1;trade>=0;trade--) { OrderSelect(trade,SELECT_BY_POS,MODE_TRADES); if(OrderSymbol()!=Symbol()) continue; if(OrderSymbol()==Symbol() && OrderMagicNumber()== MagicNumber) { if(OrderType()==OP_BUY) OrderClose(OrderTicket(),OrderLots(),Bid,slip,Blue); if(OrderType()==OP_SELL) OrderClose(OrderTicket(),OrderLots(),Ask,slip,Red); } Sleep(1000); } } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int OpenPendingOrder(int pType,double pLots,double pLevel,int sp, double pr, int sl, int tp,string pComment,int pMagic,datetime pExpiration,color pColor) { int ticket=0; int err=0; int c=0; int NumberOfTries=100; switch(pType) { case OP_BUYLIMIT: for(c=0;c < NumberOfTries;c++) { ticket=OrderSend(Symbol(),OP_BUYLIMIT,pLots,pLevel,sp,StopLong(pr,sl),TakeLong(pLevel,tp),pComment,pMagic,pExpiration,pColor); err=GetLastError(); if(err==0) { break; } else { if(err==4 || err==137 ||err==146 || err==136) //Busy errors { Sleep(1000); continue; } else //normal error { break; } } } break; case OP_BUYSTOP: for(c=0;c < NumberOfTries;c++) { ticket=OrderSend(Symbol(),OP_BUYSTOP,pLots,pLevel,sp,StopLong(pr,sl),TakeLong(pLevel,tp),pComment,pMagic,pExpiration,pColor); err=GetLastError(); if(err==0) { break; } else { if(err==4 || err==137 ||err==146 || err==136) //Busy errors { Sleep(5000); continue; } else //normal error { break; } } } break; case OP_BUY: for(c=0;c < NumberOfTries;c++) { RefreshRates(); ticket=OrderSend(Symbol(),OP_BUY,pLots,Ask,sp,StopLong(Bid,sl),TakeLong(Ask,tp),pComment,pMagic,pExpiration,pColor); err=GetLastError(); if(err==0) { break; } else { if(err==4 || err==137 ||err==146 || err==136) //Busy errors { Sleep(5000); continue; } else //normal error { break; } } } break; case OP_SELLLIMIT: for(c=0;c < NumberOfTries;c++) { ticket=OrderSend(Symbol(),OP_SELLLIMIT,pLots,pLevel,sp,StopShort(pr,sl),TakeShort(pLevel,tp),pComment,pMagic,pExpiration,pColor); err=GetLastError(); if(err==0) { break; } else { if(err==4 || err==137 ||err==146 || err==136) //Busy errors { Sleep(5000); continue; } else //normal error { break; } } } break; case OP_SELLSTOP: for(c=0;c < NumberOfTries;c++) { ticket=OrderSend(Symbol(),OP_SELLSTOP,pLots,pLevel,sp,StopShort(pr,sl),TakeShort(pLevel,tp),pComment,pMagic,pExpiration,pColor); err=GetLastError(); if(err==0) { break; } else { if(err==4 || err==137 ||err==146 || err==136) //Busy errors { Sleep(5000); continue; } else //normal error { break; } } } break; case OP_SELL: for(c=0;c =0;cnt--) { OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES); if(OrderSymbol()!=Symbol()||OrderMagicNumber()!=MagicNumber) continue; if(OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber) if(OrderType()==OP_BUY || OrderType()==OP_SELL) { Profit=Profit+OrderProfit(); } } return(Profit); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ void TrailingAlls(int start,int stop, double AvgPrice) { int profit; double stoptrade; double stopcal; if(stop==0) return; int trade; for(trade=OrdersTotal()-1;trade>=0;trade--) { if(!OrderSelect(trade,SELECT_BY_POS,MODE_TRADES)) continue; if(OrderSymbol()!=Symbol()||OrderMagicNumber()!=MagicNumber) continue; if(OrderSymbol()==Symbol()||OrderMagicNumber()==MagicNumber) { if(OrderType()==OP_BUY) { profit=NormalizeDouble((Bid-AvgPrice)/Point,0); if(profitstoptrade)) // OrderModify(OrderTicket(),OrderOpenPrice(),stopcal,OrderTakeProfit(),0,Blue); OrderModify(OrderTicket(),AvgPrice,stopcal,OrderTakeProfit(),0,Aqua); }//Long if(OrderType()==OP_SELL) { profit=NormalizeDouble((AvgPrice-Ask)/Point,0); if(profit<start) continue; stoptrade=OrderStopLoss(); stopcal=Ask+(stop*Point); if(stoptrade==0||(stoptrade!=0&&stopcal<stoptrade)) // OrderModify(OrderTicket(),OrderOpenPrice(),stopcal,OrderTakeProfit(),0,Red); OrderModify(OrderTicket(),AvgPrice,stopcal,OrderTakeProfit(),0,Red); }//Shrt } Sleep(1000); }//for } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ double AccountEquityHigh() { static double AccountEquityHighAmt,PrevEquity; if(CountTrades()==0) AccountEquityHighAmt=AccountEquity(); if(AccountEquityHighAmt =0;cnt--) { OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES); if(OrderSymbol()!=Symbol()||OrderMagicNumber()!=MagicNumber) continue; if(OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber && OrderType()==OP_BUY) { ticketnumber=OrderTicket(); if(ticketnumber>oldticketnumber) { orderprice=OrderOpenPrice(); oldorderopenprice=orderprice; oldticketnumber=ticketnumber; } } } return(orderprice); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ double FindLastSellPrice() { double oldorderopenprice=0, orderprice; int cnt, oldticketnumber=0, ticketnumber; for(cnt=OrdersTotal()-1;cnt>=0;cnt--) { OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES); if(OrderSymbol()!=Symbol()||OrderMagicNumber()!=MagicNumber) continue; if(OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber && OrderType()==OP_SELL) { ticketnumber=OrderTicket(); if(ticketnumber>oldticketnumber) { orderprice=OrderOpenPrice(); oldorderopenprice=orderprice; oldticketnumber=ticketnumber; } } } return(orderprice); } //+---------- -
SzerzőBejegyzés
4 bejegyzés megtekintése - 1-4 / 4