EA modyfikacja

[marek8]

Witam programistów,
Poniżej jest EA "Reverse_Grid_martingale.mod" , które działa na zasadzie odwróconego Grida ,
czy może ktoś spróbować dopisać do tego EA funkcję przestawienia Stopów na BE po wejściu trzeciego zlecenia w danym kierunku " jak u Szwajcara" ?
Drugie EA "BE "przestawia właśnie tak Stopy na BE po wejściu trzeciego zlecenia, jednak
jak załączam te dwa EA w dwóch oknach to po zamknięciu na siatki na BE - EA Reverse_Grid , które ma stawiać nowe zlecenia głupieje i stawia je albo nie - nie wiem czemu.

Dziękuję

//+------------------------------------ ------------------------------+
//| Reverse_Grid_Martingale mod.mq4 |
//| Copyright 2008, Constin@ForexFactory // mod. 03.2014 fxdaytrader |
//+-------------------------------------------------------------------+
// !!! YOU MUST COMPILE THIS EA WITH THE BUILD 509 COMPILER, download the metaeditor for build 509 at http://www.forexfactory.com/showthread.php?t=470340 !!!
#property copyright "Copyright 2008, Constin@ForexFactory // mod. 03.2014 fxdaytrader"
#property link "http://ForexBaron.net"
extern string sbphi = "set to 0.0 to start immediately";
extern string sbphi1 = "0:bid>=price, 1:bid<=price";
extern int StartPriceMode = 0;
extern double StartBidPrice = 0.030; //0.00000;
bool StartEA=false;
extern int MaximumNumberOfOrdersToSend=8;
extern bool LongOnly=true;
extern bool ShortOnly=true;
extern bool Reverse=false;
extern double StepSizeInPips=12;
extern double ReversalStepSizeInPips=400;
extern int MagicNumber=10126;
extern int MaxSlippage=2;
int spread=0; // unused
extern double LotSize1=0.05;
extern double LotSize2=0.05;
extern double LotSize3=0.05;
extern double LotSize4=0.05;
extern double LotSize5=0.05;
extern double LotSize6=0.05;
extern double LotSize7=0.05;
extern double LotSize8=0.05;
extern double LotSize9=0.1;
extern double LotSize10=0.1;
extern double LotSize11=0.1;
extern double LotSize12=0.1;
extern double LotSize13=12;
extern double LotSize14=13;
extern double LotSize15=14;
extern double LotSize16=15;
extern double LotSize17=16;
extern double LotSize18=17;
extern double LotSize19=18;
extern double LotSize20=1;
extern double LotSize21=1;
extern double LotSize22=1;
extern double LotSize23=1;
extern double LotSize24=1;
extern double LotSize25=1;
extern double LotSize26=1;
extern double LotSize27=1;
extern double LotSize28=1;
extern double LotSize29=1;
extern double LotSize30=0.5;
double LotSizes[31];
int openLongs,openShorts;

int Multiplier; double pips2dbl;
//+------------------------------------ ------------------------------+
//| expert initialization function |
//+------------------------------------ ------------------------------+
int init()
{
BrokerDigitAdjust(Symbol());
StartBidPrice = MathAbs(StartBidPrice);
StartPriceMode = MathAbs(StartPriceMode);
LotSizes[1]=LotSize1;
LotSizes[2]=LotSize2;
LotSizes[3]=LotSize3;
LotSizes[4]=LotSize4;
LotSizes[5]=LotSize5;
LotSizes[6]=LotSize6;
LotSizes[7]=LotSize7;
LotSizes[8]=LotSize8;
LotSizes[9]=LotSize9;
LotSizes[10]=LotSize10;
LotSizes[11]=LotSize11;
LotSizes[12]=LotSize12;
LotSizes[13]=LotSize13;
LotSizes[14]=LotSize14;
LotSizes[15]=LotSize15;
LotSizes[16]=LotSize16;
LotSizes[17]=LotSize17;
LotSizes[18]=LotSize18;
LotSizes[19]=LotSize19;
LotSizes[20]=LotSize20;
LotSizes[21]=LotSize21;
LotSizes[22]=LotSize22;
LotSizes[23]=LotSize23;
LotSizes[24]=LotSize24;
LotSizes[25]=LotSize25;
LotSizes[26]=LotSize26;
LotSizes[27]=LotSize27;
LotSizes[28]=LotSize28;
LotSizes[29]=LotSize29;
LotSizes[30]=LotSize30;
Print("**** starting up");
//if(Reverse)
//{
//if(LongOnly) PlaceLongOrders(); if(ShortOnly) PlaceShortOrders();
//}
///else
//{
//if(LongOnly) PlaceLongOrders(); else PlaceShortOrders();
//}
//updatePositionCounts();
return(0);
}
//+------------------------------------ ------------------------------+
//| expert deinitialization function |
//+------------------------------------ ------------------------------+
int deinit()
{
//----
Comment("");
//----
return(0);
}
//+------------------------------------ ------------------------------+
//| expert start function |
//+------------------------------------ ------------------------------+
int start()
{
string sStartPrice="";
if (StartPriceMode==0) sStartPrice="bid >=";
if (StartPriceMode==1) sStartPrice="bid <=";
if (!StartEA) { Comment("Reverse Grid martingale by Constin@ForexFactory, mod. fxdaytrader *** http://ForexBaron.net --> EA is waiting for "+sStartPrice+DoubleToStr(StartBidPrice,Digits)+"\n"+"Longs: "+openLongs+" shorts: "+openShorts+" reported longs:"+openPositions(OP_BUY)+" reported shorts:"+openPositions(OP_SELL)); CheckForStartEA(); }
if (StartEA) {
Comment("Reverse Grid martingale"+"\n"+"Longs: "+openLongs+" shorts: "+openShorts+" reported longs:"+openPositions(OP_BUY)+" reported shorts:"+openPositions(OP_SELL));
check();
}
return(0);
}
//+------------------------------------ ------------------------------+
void updatePositionCounts(){
openLongs=openPositions(OP_BUY);
openShorts=openPositions(OP_SELL);
}

/*void initialOrders(){
//OrderSend(Symbol(),OP_BUY,LotSizes[1],Ask,MaxSlippage,NormalizeDouble(As k-StepSizeInPips*Point,Digits),0,"Lon g 1",MagicNumber,0);
//OrderSend(Symbol(),OP_SELL,LotSizes[1],Bid,MaxSlippage,NormalizeDouble(Bi d+StepSizeInPips*Point,Digits),0,"S hort 1",MagicNumber,0);
}
*/
void PlaceLongOrders()
{
OrderSend2Stage(Symbol(),OP_BUY,LotSizes[1],Ask,MaxSlippage,NormalizeDouble(Ask-ReversalStepSizeInPips*pips2dbl,Digits ),0,"Long 1",MagicNumber,0,CLR_NONE);
for(int c=1;c<=(MaximumNumberOfOrdersToSend-1);c++){
OrderSend2Stage(Symbol(),OP_BUYSTOP,LotSizes[c+1],NormalizeDouble(Ask+(StepSizeInPips*c*pips2dbl),Digits),MaxSlippage,
NormalizeDouble((Ask+(StepSizeInPips*c*pips2dbl))-(ReversalStepSizeInPips*pips2dbl),Digits),0,"Long "+DoubleToStr(c+1,0),MagicNumber,0,CLR_NONE);
}
updatePositionCounts();
}
void PlaceShortOrders()
{
OrderSend2Stage(Symbol(),OP_SELL,LotSizes[1],Bid,MaxSlippage,NormalizeDouble(Bid+ReversalStepSizeInPips*pips2dbl,Digits),0,"Short 1",MagicNumber,0,CLR_NONE);
for(int c=1;c<=(MaximumNumberOfOrdersToSend-1);c++){
OrderSend2Stage(Symbol(),OP_SELLSTOP,LotSizes[c+1],NormalizeDouble(Bid-(StepSizeInPips*c*pips2dbl),Digits),MaxSlippage,
NormalizeDouble((Bid-(StepSizeInPips*c*pips2dbl))+(ReversalStepSizeInPips*pips2dbl),Digits),0,"Short "+DoubleToStr(c+1,0),MagicNumber,0,CLR_NONE) ;
}
updatePositionCounts();
}

int openPositions(int type){
int Total = OrdersTotal();
int Long=0;int Short=0;
int ret = -1;
for (int i = 0; i < Total; i ++) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if(OrderSymbol() == Symbol() && OrderMagicNumber()==MagicNumber && (OrderType()==OP_BUY || OrderType()==OP_SELL ) ) {
if (OrderType()==OP_BUY) Long++;
if (OrderType()==OP_SELL) Short++;
}
}
if(type==OP_SELL) ret=Short;
if(type==OP_BUY) ret=Long;
return(ret);
}
int outstandingOrders(int type){
int Total = OrdersTotal();
int Long=0;int Short=0;
int ret = -1;
for (int i = 0; i < Total; i ++) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if(OrderSymbol() == Symbol() && OrderMagicNumber()==MagicNumber && (OrderType()==OP_BUYSTOP || OrderType()==OP_SELLSTOP ) ) {
if (OrderType()==OP_BUYSTOP) Long++;
if (OrderType()==OP_SELLSTOP) Short++;
}
}
if(type==OP_SELLSTOP) ret=Short;
if(type==OP_BUYSTOP) ret=Long;
return(ret);
}

/*void deletePending()
{
bool flag;
for(int cnt=OrdersTotal()-1; cnt>=0; cnt--)
{
flag=false;
if(OrderSelect(cnt,SELECT_BY_POS) && OrderSymbol()==Symbol())
{
if(OrderType()!=OP_SELL && OrderType()!=OP_BUY && OrderMagicNumber()==MagicNumber) { flag=true; OrderDelete(OrderTicket()); }
if(flag)
{
Sleep(500);
RefreshRates();
}
}
}
return(0);
}
void deletePendingOrdersOfType(int type)
{
bool flag;
for(int cnt=OrdersTotal()-1; cnt>=0; cnt--)
{
flag=false;
if(OrderSelect(cnt,SELECT_BY_POS) && OrderSymbol()==Symbol())
{
if(OrderType()==type && OrderMagicNumber()==MagicNumber) { flag=true;Print("Deleting:"+OrderTi cket()); OrderDelete(OrderTicket()); }
/*if(flag)
{
Sleep(500);
RefreshRates();
}
}
}
return(0);
}
*/
void deleteFirstPendingOrdersOfType(int type)
{
bool flag;
bool done=false;
int tot=OrdersTotal();
int i=0;
while(!done)
{
flag=false;
if(OrderSelect(i,SELECT_BY_POS) && OrderSymbol()==Symbol())
{
if(OrderType()==type && OrderMagicNumber()==MagicNumber) { flag=true;Print("Deleting:"+OrderTicket()); OrderDelete(OrderTicket());done=true; }
/*if(flag)
{
Sleep(500);
RefreshRates();
}*/
}
i++;
if (i==tot) {done=true;}
}
return(0);
}

void closeShorts()
{
int Total = OrdersTotal();
for (int i = 0; i < Total; i ++) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() == Symbol() && OrderMagicNumber()==MagicNumber && (OrderType()==OP_SELL ) ) {
OrderClose(OrderTicket(),OrderLots( ),Ask,MaxSlippage);
}
}
}
void closeLongs()
{
int Total = OrdersTotal();
for (int i = 0; i < Total; i ++) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() == Symbol() && OrderMagicNumber()==MagicNumber && (OrderType()==OP_BUY ) ) {
OrderClose(OrderTicket(),OrderLots( ),Bid,MaxSlippage);
}
}
}

void check()
{
if((openPositions(OP_BUY)<openLongs ))
{
//Print("*** e' stato chiuso un long");
while ( outstandingOrders(OP_BUYSTOP)>0 ) { deleteFirstPendingOrdersOfType(OP_BUYSTOP);}
//Print("*** Longs: "+openLongs+" shorts: "+openShorts+" reported longs:"+openPositions(OP_BUY)+" reported shorts:"+openPositions(OP_SELL));
closeLongs();
//Print("pare ci siano questo numero di sellstop:"+outstandingOrders(OP_SEL LSTOP));
if((Reverse) && (outstandingOrders(OP_SELLSTOP)==0) ) {Print("*** reversing");PlaceShortOrders(); }
if (!Reverse) {Print("*** restarting");PlaceLongOrders();}

}
if((openPositions(OP_SELL)<openShorts))
{
//Print("*** e' stato chiuso uno short");
while ( outstandingOrders(OP_SELLSTOP)>0 ) {deleteFirstPendingOrdersOfType(OP_SELLSTOP);}
//Print("*** Longs: "+openLongs+" shorts: "+openShorts+" reported longs:"+openPositions(OP_BUY)+" reported shorts:"+openPositions(OP_SELL));
closeShorts();
//Print("pare ci siano questo numero di buystop:"+outstandingOrders(OP_BUYS TOP));
if((Reverse) && (outstandingOrders(OP_BUYSTOP)==0)) {Print("*** reversing");PlaceLongOrders();}
if (!Reverse) {Print("*** restarting");PlaceShortOrders();}

}
updatePositionCounts();
}

bool OrderSend2Stage(string symbol,int type,double lots,double price,int slippage,double sl,double tp,string ocomment,int magic,datetime expiry,color col) {
while (IsTradeContextBusy()) Sleep(100);
bool result=true;
RefreshRates();
int ticket=OrderSend(symbol,type,lots,price,slippage,0,0,ocomment,magic,expiry,col);
if (!OrderSelect(ticket, SELECT_BY_TICKET)) return(false);
if (sl!=0.00000 && tp!=0.00000) result = OrderModify(OrderTicket(),OrderOpenPrice(),sl,tp,OrderExpiration(),CLR_NONE);
if (sl!=0.00000 && tp==0.00000) result = OrderModify(OrderTicket(),OrderOpenPrice(),sl,OrderTakeProfit(),OrderExpiration(),CLR_NONE);
if (sl==0.00000 && tp!=0.00000) result = OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),tp,OrderExpiration(),CLR_NONE);
return(result);
}

void BrokerDigitAdjust(string symbol) {
Multiplier = 1;
if (MarketInfo(symbol,MODE_DIGITS) == 3 || MarketInfo(symbol,MODE_DIGITS) == 5) Multiplier = 10;
if (MarketInfo(symbol,MODE_DIGITS) == 6) Multiplier = 100;
if (MarketInfo(symbol,MODE_DIGITS) == 7) Multiplier = 1000;
pips2dbl = Multiplier*MarketInfo(symbol,MODE_POINT);
MaxSlippage*=Multiplier;
}


void CheckForStartEA() {
RefreshRates();
if (StartPriceMode==0 && Bid>=StartBidPrice) StartEA=true;
else if (StartPriceMode==1 && Bid<=StartBidPrice) StartEA=true;
else if (StartBidPrice==0.0000) StartEA=true;
if (!StartEA) return(0);
if(LongOnly) PlaceLongOrders(); if(ShortOnly) PlaceShortOrders();
}

[z6yszko]

Drugie EA "BE "przestawia właśnie tak Stopy na BE po wejściu trzeciego zlecenia, jednak
jak załączam te dwa EA w dwóch oknach to po zamknięciu na siatki na BE - EA Reverse_Grid , które ma stawiać nowe zlecenia głupieje i stawia je albo nie - nie wiem czemu.

Po prostu drugie EA przestawia na stopy po wejściu czwartego zlecenia. Dodatkowo ustawia stop z marginesem 20 point, więc zlecenia mogą się nie załapać jeśli stop za blisko lub powyżej aktualnej ceny.
Poprawiłem BE, dodałem dwa parametry, spróbuj.

[marek8]

pokazuje u mnie 9 błędów przy kompilacji ,

a zwróć jeszcze uwagę na to : przy pracy obu EA w dwóch oknach zauwazyłem , że jak wytnie na BE ( czyli na stopach ustawionych przez EA BE ) to Reversed Grid nie ustawia nowych zleceń ponieważ nie usuwa zleceń BUYstop i Sellstop z starej rozłożonej siatki , czyli jakby nie widział że siatka się już zburzyła na BE
Jezeli natomiast wytnie pozycje na stopie ustawionym przez Reverse grid to Reverse Grid zamyka wszystkie czynne i oczekujące i ustawia od nowa siatke w wybitym kierunku, ale niestety te stopy nie zawsze pokrywają się z BE.
Gdybyś mógł spróbować do EA reverse grid wstawić opcję przestawiania na BE po 3 pozycjach w danym kierunku to byłby to kompletny EA

Zasada tego handlu jest opisana w dzienniku Szwajcara na forum : http://forum.comparic.pl/viewtopic.php?f=2&t=2365

[z6yszko]

Zapomniałem deklaracji, pisałem z ręki.
Tutaj jest poprawiony.
Ten EA przejrzę, ale chwilę potrwa.

[marek8]

....ewentualnie mógłbyś spróbować dołożyć do tego poprawionego EA BE funkcję, żeby przy zamykaniu na BE oprócz zamknięcia tych trzech pozycji usuwało wszystkie zlecenia oczekujące w tym samym kierunku co zamknięte - wtedy Reverse Grid powinien normalne otworzyc nową siatkę zleceń w tym kierunku i powinno być Ok.

PS. dziękuję Zbyszko za zainteresowanie tematem,

[z6yszko]

To już z domu wieczorkiem

[marek8]

Zapomniałem deklaracji, pisałem z ręki.
Tutaj jest poprawiony.
Ten EA przejrzę, ale chwilę potrwa.

Witam Zbyszko,

mam do Ciebie jeszcze pytanko do tego EA -BE,
chodzi o to żeby przy obliczaniu BE dla longów nie brało pod uwagę do obliczeń żadnego shorta i odwrotnie -
przy liczeniu BE dla Shortów nie brało żadnego longa-
czyli tak jakby longi i shorty byłyby na różnych, oddzielnych rachunkach,

Zerknąłbyś do niego jeszcze raz ?
dzięki