//+------------------------------------------------------------------+
//| MyFriend.mq4 |
//| Disruption Trade |
//| 2006.09.25 |
//| Copyright © 2006, Nick A. Zhilin |
//| rebus@dialup.etr.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, Nick A. Zhilin"
#property link "rebus@dialup.etr.ru"
//----
extern string ParamExp="--- Ïàðàìåòðû ýêñïåðòà ---";
extern double Risk=0.33;
extern int TP=70;
extern int SLPlus=13;
extern string ParamClose=" --- Èñïîëüçîâàíèå äîïîëíèòåëüíîãî ïðåäîõðàíèòåëÿ ---";
extern bool UseClose=true;
extern string ParamTrail=" --- Ïàðàìåòðû Trailing Stop ---";
extern int ChPeriod=16;
extern bool UseTrailingStop=true;
extern int StartProfit=5;
extern int TSLPlus=1;
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
//----
double Lots, TakeProfit, StopLoss;
double I1Current, I1Previous, I2Current, I2Previous;
double I3Current, I3Previous, I4Current, I4Previous;
double Pivot, R1, R2, R3, S1, S2, S3;
double MP;
int cnt, ticket, total;
int signal1, signal2;
static int se;
//-------------------------------------------
// îáÿçàòåëüíûå ïðîâåðêè
//-------------------------------------------
// ïðîâåðêà íà äîñòàòî÷íîå êîëè÷åñòâî áàðîâ
//-------------------------------------------
if(Bars<100 && se==0)
{
Print("Áàðîâ äîëæíî áûòü íå ìåíåå 100");
se++;
}
// ïðîâåðêà èíñòðóìåíòà è òàéì ôðåéìà
if(Symbol()!="EURUSD" && se==0)
{
Print("Ïðîãðàììà ìîæåò ðàáîòàòü òîëüêî íà ïàðå EUR/USD");
se++;
}
if(Period()!=PERIOD_M30 && se==0)
{
Print("Ïðîãðàììà îïòèìèçèðîâàíà ïîä òàéì ôðåéì Ì30");
se++;
}
// âûõîä, åñëè îáíàðóæåíû îøèáêè çàïóñêà
if(se>0) return(0);
//-------------------------------------------
// ðàñ÷åò ëîêàëüíûõ ïåðåìåííûõ
//-------------------------------------------
// çíà÷åíèÿ èíäèêàòîðîâ
I1Current=iCustom(NULL,0,"DC",ChPeriod,1,0,0,ChPeriod,0,0);
I1Previous=iCustom(NULL,0,"DC",ChPeriod,1,0,0,ChPeriod,0,1);
I2Current=iCustom(NULL,0,"DC",ChPeriod,1,0,0,ChPeriod,1,0);
I2Previous=iCustom(NULL,0,"DC",ChPeriod,1,0,0,ChPeriod,1,1);
// ðàñ÷åò è îòîáðàæåíèå îïîðíîãî öåíòðà è óðîâíåé
Pivot=(iHigh(NULL,PERIOD_D1,1)+iLow(NULL,PERIOD_D1,1)+iClose(NULL,PERIOD_D1,1))/3;
S1=2*Pivot-iHigh(NULL,PERIOD_D1,1);
R1=2*Pivot-iLow(NULL,PERIOD_D1,1);
S2=Pivot-R1+S1;
R2=Pivot+R1-S1;
S3=iLow(NULL,PERIOD_D1,1)-2*(iHigh(NULL,PERIOD_D1,1)-Pivot);
R3=iHigh(NULL,PERIOD_D1,1)+2*(Pivot-iLow(NULL,PERIOD_D1,1));
ShowPivot(Pivot,R1,R2,R3,S1,S2,S3);
// îöåíêà ëîêàëüíîãî òðåíäà
MP=((Close[0]+Close[1]+Close[2])/3
- (Close[0]+Close[1]+Close[2]
+Close[3]+Close[4]+Close[5]
+Close[6]+Close[7]+Close[8])/9)*1000;
// îïðåäåëåíèå óñëîâèé îòêðûòèÿ ïîçèöèé
// ïî ïåðåñå÷åíèþ îïîðíîé òî÷êè
if(Open[1]<Pivot // îòêðûòèå ïðåäûäóùåãî áàðà íèæå îïîðíîé òî÷êè
&& Close[1]>Pivot // çàêðûòèå ïðåäûäóùåãî áàðà âûøå îïîðíîé òî÷êè - ïîäòâåðæäåíèå ïðîáîÿ
&& (Close[1]-Open[1])>12*Point // àìïëèòóäà äâèæåíèÿ öåíû äîñòàòî÷íî áîëüøàÿ
&& Ask>Close[1] // öåíà ðàñòåò
&& MP>0 // ëîêàëüíûé òðåíä +
&& Ask<High[0] // ïîêóïêà íå íà ìàêñèìóìå öåíû
)
signal1=1;
if(Open[1]>Pivot // îòêðûòèå ïðåäûäóùåãî áàðà íèæå îïîðíîé òî÷êè
&& Close[1]<Pivot // çàêðûòèå ïðåäûäóùåãî áàðà âûøå îïîðíîé òî÷êè - ïîäòâåðæäåíèå ïðîáîÿ
&& (Open[1]-Close[1])>12*Point // àìïëèòóäà äâèæåíèÿ öåíû äîñòàòî÷íî áîëüøàÿ
&& Bid<Close[1] // öåíà ïàäàåò
&& MP<0 // ëîêàëüíûé òðåíä -
&& Bid>Low[0] // ïðîäàæà íå íà ìèíèìóìå öåíû
)
signal1=-1;
// ïî ðàñøèðåíèþ êàíàëà Äîí÷èàíà áîëüøå ïåðâîãî äèàïàçîíà îïîðíîãî öåíòðà
if(I2Current-I1Current>R1-S1 // òåêóùèé êàíàë Äîí÷èàíà øèðå êàíàëà îïîðíîãî öåíòðà
&& I2Previous-I1Previous<R1-S1 // ïðåäûäóùèé áûë óæå
&& I2Current>I2Previous // âåðõíÿÿ ãðàíèöà êàíàëà Äîí÷èàíà ïîøëà ââåðõ
&& I1Current>=I1Previous // íèæíÿÿ - íå ïîøëà âíèç
&& MP>0 // ëîêàëüíûé òðåíä +
&& Ask<High[0]-7*Point // ïîêóïêà íå íà ìàêñèìóìå öåíû
)
signal1=1;
if(I2Current-I1Current>R1-S1 // òåêóùèé êàíàë Äîí÷èàíà øèðå êàíàëà îïîðíîãî öåíòðà
&& I2Previous-I1Previous<R1-S1 // ïðåäûäóùèé áûë óæå
&& I1Current<I1Previous // íèæíÿÿ ãðàíèöà êàíàëà Äîí÷èàíà ïîøëà âíèç
&& I2Current>=I2Previous // âåðõíÿÿ - íå ïîøëà ââåðõ
&& MP>0 // ëîêàëüíûé òðåíä +
&& Bid>Low[0]+7*Point // ïðîäàæà íå íà ìèíèìóìå öåíû
)
signal1=-1;
// ïî äðóãèì óñëîâèÿì
// äëÿ ôëåòà - èñïîëüçîâàòü signal2
//------------------------------------------
// îòêðûòûõ îðäåðîâ âñåãî
//------------------------------------------
total=OrdersTotal();
if(total<1)
{
// íåò îòêðûòûõ îðäåðîâ
if(AccountFreeMargin()<(1000*Lots))
{
Print("Íåäîñòàòî÷íî äåíåã íà ñ÷åòó. Ñâîáîäíîé ìàðæè = ", AccountFreeMargin());
return(0);
}
bool BUYStart=false;
bool SELLStart=false;
if(!BUYStart && !SELLStart)
{
if(signal1==1
|| signal2==1)
{
BUYStart=true;
SELLStart=false;
}
if(signal1==-1
|| signal2==-1)
{
SELLStart=true;
BUYStart=false;
}
}
if(BUYStart)
// îòêðûâàåì äëèííóþ ïîçèöèþ (BUY)
OpenBuy(signal2,I1Current);
if(SELLStart)
// îòêðûâàåì êîðîòêóþ ïîçèöèþ (SELL)
OpenSell(signal2,I2Current);
return(0);
}
// -------------------------------------------------
// ìîäèôèöèðóåì, ÷òî ìîæåì
//--------------------------------------------------
for(cnt=0;cnt<total;cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType()<=OP_SELL &&
// ïððîâåðêà íà íàëè÷èå îòêðûòûõ ïîçèöèé
OrderSymbol()==Symbol())
// ïðîâåðêà èíñòðóìåíòà
{
if(OrderType()==OP_BUY)
// äëèííàÿ ïîçèöèÿ îòêðûòà
// âòîðîé ïðåäîõðàíèòåëü - åñëè çà òðè áàðà öåíà íå ïîøëà â íóæíóþ ñòîðîíó
{
if(
UseClose
&& ((CurTime()-OrderOpenTime())>=3*Period()*60
&& (CurTime()-OrderOpenTime())<4*Period()*60
&& Close[1]<OrderOpenPrice()-3*Point)
)
{
OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet);
return(0);
}
// èçìåíåíèå SL ïðè áåçóáûòî÷íîñòè
if(UseTrailingStop
&& (Bid-OrderOpenPrice())>StartProfit*Point
&& I1Current>I1Previous)
// öåíà îðäåðà â îáëàñòè áåçóáûòî÷íîñòè
// ñòîï óñòàíàâëèâàåì ïî íèæíåé ãðàíèöå áûñòðîãî êàíàëà
{
StopLoss=I1Current-TSLPlus*Point;
if(OrderStopLoss()<StopLoss)
{
OrderModify(OrderTicket(),OrderOpenPrice(),StopLoss,0,0,Aqua);
return(0);
}
}
return(0);
}
if(OrderType()==OP_SELL)
// êîðîòêàÿ ïîçèöèÿ îòêðûòà
// âòîðîé ïðåäîõðàíèòåëü - åñëè çà òðè áàðà öåíà íå ïîøëà â íóæíóþ ñòîðîíó
{
if(
UseClose
&& ((CurTime()-OrderOpenTime())>=3*Period()*60
&& (CurTime()-OrderOpenTime())<4*Period()*60
&& Close[1]>OrderOpenPrice()+3*Point)
)
{
OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet);
return(0);
}
// èçìåíåíèå SL ïðè áåçóáûòî÷íîñòè
if(UseTrailingStop
&& (OrderOpenPrice()-Ask)>StartProfit*Point
&& I2Current<I2Previous)
// öåíà îðäåðà â îáëàñòè áåçóáûòî÷íîñòè
// ñòîï óñòàíàâëèâàåì ïî âåðõíåé ãðàíèöå áûñòðîãî êàíàëà
{
StopLoss=I2Current+TSLPlus*Point;
if(OrderStopLoss()>StopLoss)
{
OrderModify(OrderTicket(),OrderOpenPrice(),StopLoss,0,0,Red);
return(0);
}
}
return(0);
}
}
}
return(0);
}
//====================================================================
// ôóíêöèè
//====================================================================
// îòîáðàæåíèå îïîðíîãî öåíòðà è ëèíèé ïîääåðæêè/ñîïðîòèâëåíèÿ
void ShowPivot(double Pivot,double R1,double R2,double R3,double S1,double S2,double S3)
{
ObjectDelete("P_Line");
ObjectDelete("S3_Line");
ObjectDelete("R3_Line");
ObjectDelete("S2_Line");
ObjectDelete("R2_Line");
ObjectDelete("S1_Line");
ObjectDelete("R1_Line");
//
ObjectCreate("P_Line",OBJ_HLINE,0,CurTime(),Pivot);
ObjectSet("P_Line",OBJPROP_COLOR,DeepPink);
ObjectSet("P_Line",OBJPROP_STYLE,STYLE_SOLID);
//
ObjectCreate("S3_Line",OBJ_HLINE,0,CurTime(),S3);
ObjectSet("S3_Line",OBJPROP_COLOR,Red);
ObjectSet("S3_Line",OBJPROP_STYLE,STYLE_SOLID);
//
ObjectCreate("R3_Line",OBJ_HLINE,0,CurTime(),R3);
ObjectSet("R3_Line",OBJPROP_COLOR,Red);
ObjectSet("R3_Line",OBJPROP_STYLE,STYLE_SOLID);
//
ObjectCreate("S2_Line",OBJ_HLINE,0,CurTime(),S2);
ObjectSet("S2_Line",OBJPROP_COLOR,Orange);
ObjectSet("S2_Line",OBJPROP_STYLE,STYLE_SOLID);
//
ObjectCreate("R2_Line",OBJ_HLINE,0,CurTime(),R2);
ObjectSet("R2_Line",OBJPROP_COLOR,Orange);
ObjectSet("R2_Line",OBJPROP_STYLE,STYLE_SOLID);
//
ObjectCreate("S1_Line",OBJ_HLINE,0,CurTime(),S1);
ObjectSet("S1_Line",OBJPROP_COLOR,Yellow);
ObjectSet("S1_Line",OBJPROP_STYLE,STYLE_SOLID);
//
ObjectCreate("R1_Line",OBJ_HLINE,0,CurTime(),R1);
ObjectSet("R1_Line",OBJPROP_COLOR,Yellow);
ObjectSet("R1_Line",OBJPROP_STYLE,STYLE_SOLID);
//
ObjectsRedraw();
//----
if(ObjectFind("R3 label")!=0)
{
ObjectCreate("R3 label",OBJ_TEXT,0,Time[0],R3);
ObjectSetText("R3 label"," R3 ",6,"Arial",Red);
}
else ObjectMove("R3 label",0,Time[0],R3);
if(ObjectFind("S3 label")!=0)
{
ObjectCreate("S3 label",OBJ_TEXT,0,Time[0],S3);
ObjectSetText("S3 label"," S3 ",6,"Arial",Red);
}
else ObjectMove("S3 label",0,Time[0],S3);
if(ObjectFind("R2 label")!=0)
{
ObjectCreate("R2 label",OBJ_TEXT,0,Time[0],R2);
ObjectSetText("R2 label"," R2 ",6,"Arial",Orange);
}
else ObjectMove("R2 label",0,Time[0],R2);
if(ObjectFind("S2 label")!=0)
{
ObjectCreate("S2 label",OBJ_TEXT,0,Time[0],S2);
ObjectSetText("S2 label"," S2 ",6,"Arial",Orange);
}
else ObjectMove("S2 label",0,Time[0],S2);
if(ObjectFind("R1 label")!=0)
{
ObjectCreate("R1 label",OBJ_TEXT,0,Time[0],R1);
ObjectSetText("R1 label"," R1 ",6,"Arial",Yellow);
}
else ObjectMove("R1 label",0,Time[0],R1);
if(ObjectFind("S1 label")!=0)
{
ObjectCreate("S1 label",OBJ_TEXT,0,Time[0],S1);
ObjectSetText("S1 label"," S1 ", 6,"Arial",Yellow);
}
else ObjectMove("S1 label",0,Time[0],S1);
if(ObjectFind("P label")!=0)
{
ObjectCreate("P label",OBJ_TEXT,0,Time[0],Pivot);
ObjectSetText("P label"," P ",6,"Arial",DeepPink);
}
else ObjectMove("P label",0,Time[0],Pivot);
}
// îòêðûòü äëèííóþ ïîçèöèþ
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void OpenBuy(int s,double I1)
{
double Lots, TakeProfit, StopLoss;
int ticket;
//----
if(s==1)
{
TakeProfit=Ask+12*Point;
StopLoss=I1-5*Point;
}
else
{
TakeProfit=Ask+TP*Point;
StopLoss=Low[1]-SLPlus*Point;
}
//----
ticket=OrderSend(Symbol(),OP_BUY,PosSize(),Ask,3,StopLoss,TakeProfit,"MyFriend",9552,0,Aqua);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
{
Print("BUY îðäåð îòêðûò: ",OrderOpenPrice());
}
}
else Print("Îøèáêà îòêðûòèÿ îðäåðà BUY: ",GetLastError());
}
// îòêðûòü êîðîòêóþ ïîçèöèþ
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void OpenSell(int s,double I2)
{
double Lots, TakeProfit, StopLoss;
int ticket;
//----
if(s==-1)
{
TakeProfit=Bid-12*Point;
StopLoss=I2+5*Point;
}
else
{
TakeProfit=Bid-TP*Point;
StopLoss=High[1]+SLPlus*Point;
}
//----
ticket=OrderSend(Symbol(),OP_SELL,PosSize(),Bid,3,StopLoss,TakeProfit,"MyFriend",9552,0,Red);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
{
Print("SELL îðäåð îòêðûò: ",OrderOpenPrice());
}
}
else Print("Îøèáêà îòêðûòèÿ îðäåðà SELL: ",GetLastError());
}
// ðàñ÷åò ðàçìåðà îòêðûâàåìîé ïîçèöèè
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double PosSize()
{
double L;
//----
L=0.1;
L=NormalizeDouble(AccountFreeMargin()*Risk/1000.0,1);
if(L>5)
{
if(IsTesting()) L=5;
else L=MarketInfo("EURUSD",MODE_MAXLOT);
}
if(L<0.1) L=0.1;
return(L);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains the highest prices of each bar
Series array that contains the lowest prices of each bar
Series array that contains close prices for each bar
Series array that contains open prices of each bar
Series array that contains open time of each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
DC
Order Management characteristics:
Checks for the total of open orders
It Closes Orders by itself
It can change open orders parameters, due to possible stepping strategy
It automatically opens orders when conditions are reached
Other Features: