//+------------------------------------------------------------------+
//| Bull vs Medved.mq4 |
//| Copyright © 2008, Andrey Kuzmenko (Foxbat) |
//| mailto:foxbat-b@mail.ru |
//+------------------------------------------------------------------+
//| Íåêîòîðûå "îáùåïîëåçíûå" ôóíêöèè êîäà, òðåéëèíã ñòîï, íàïðèìåð, |
//| áûëè ëþáåçíî ïîçàèìñòâîâàíû èç äðóãèõ ýêñïåðòîâ. |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2008, Andrey Kuzmenko (Foxbat)"
#property link "foxbat-b@mail.ru"
//----
#define MAGIC 612453
//----
extern double Lots = 0.10; // ðàçìåð ëîòà
extern double CandleSize =75; // ðàçìåð òåëà ñâå÷è
extern double k_sl=0.8; // Óðîâåíü StopLoss îïðåäåëÿåòñÿ êàê CandleSize*k_sl
extern double k_tp=0.8; // Óðîâåíü TakeProfit îïðåäåëÿåòñÿ êàê CandleSize*k_tp
extern double popravka_up=16; // îòñòóï îò òåêóùåé öåíû äëÿ îòëîæåííîãî îðäåðà Buylimit
extern double popravka_down=20; // îòñòóï îò òåêóùåé öåíû äëÿ îòëîæåííîãî îðäåðà Selllimit
extern bool flag = true;
extern string StartTime="0:05";// Âðåìÿ ñòàðòà ïî ãðèíâè÷ó
extern string StartTime1="4:05";
extern string StartTime2="8:05";
extern string StartTime3="12:05";
extern string StartTime4="16:05";
extern string StartTime5="20:05";
datetime TimeStart;
datetime TimeStart1;
datetime TimeStart2;
datetime TimeStart3;
datetime TimeStart4;
datetime TimeStart5;
bool trade=false;
bool trade1=false;
//----
double Limit = 400;
color clOpenBuy = Blue;
color clCloseBuy = Aqua;
color clOpenSell = Red;
color clCloseSell = Violet;
color clModiBuy = Blue;
color clModiSell = Red;
string Name_Expert = "Bull vs Medved";
int Slippage = 0;
bool UseSound = True;
string NameFileSound = "alert.wav";
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
bool IsBull()
{
if
((Close[3]>Open[2])&&
(Close[2]-Open[2] >= 10*Point)&&
(Close[1]-Open[1] >= CandleSize*Point) )
return(true);
else
return(false);
}
bool IsBadBull()
{
if
((Close[3]-Open[3] >= 10*Point)&&
(Close[2]-Open[2] >= 10*Point)&&
(Close[1]-Open[1] >= CandleSize*Point) )
return(true);
else
return(false);
}
bool IsCoolBull()
{
if
((Open[2]-Close[2] >= 20*Point)&&
(Close[2]<=Open[1])&&
(Close[1]>Open[2])&&
(Close[1]-Open[1] >= 0.4*CandleSize*Point) )
return(true);
else
return(false);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
bool IsBear()
{
if((Open[1] - Close[1] >= CandleSize*Point))
return(true);
else
return(false);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
// Ïåðåâîäèì âðåìÿ èç ñòðî÷íîé âåëè÷èíû StartTime âî âðåìåííÓþ TimeStart
TimeStart=StrToTime(StartTime);
TimeStart1=StrToTime(StartTime1);
TimeStart2=StrToTime(StartTime2);
TimeStart3=StrToTime(StartTime3);
TimeStart4=StrToTime(StartTime4);
TimeStart5=StrToTime(StartTime5);
// Åñëè òåêóùåå âðåìÿ ìåíüøå ñòàðòîâîãî èëè áîëüøå åãî íà 5 ìèíóò, òî âûõîäèì è íè÷åãî íå äåëàåì.
// Íî ïðåäâàðèòåëüíî äåëàåì ïåðåìåííóþ trade ëîæíîé. Ïðîñòî ñáðàñûâàåì èíôîðìàöèþ î òîì, ÷òî óæå îòêðûâàëèñü.
if(CurTime()<TimeStart || CurTime()>TimeStart+300 &&
CurTime()<TimeStart1 || CurTime()>TimeStart1+300 &&
CurTime()<TimeStart2 || CurTime()>TimeStart2+300 &&
CurTime()<TimeStart3|| CurTime()>TimeStart3+300 &&
CurTime()<TimeStart4|| CurTime()>TimeStart4+300 &&
CurTime()<TimeStart5 || CurTime()>TimeStart5+300 )
{ trade=false; return(0); }
if(trade) return(0);
//Ïðîâåðèì íåò ëè ó íàñ îòëîæåííûõ îðäåðîâ, êîòîðûå âèñÿò è áåçäåéñòâóþò 4 ÷àñà. Åñëè òàêîâûå åñòü óäàëèì èõ.
{
int total =OrdersTotal();
int ticket=OrderTicket();
{
for(int i=0;i<=total;i++)
{
if(OrderSelect(i,SELECT_BY_POS))
{if(OrderSymbol()==Symbol())
{if(OrderType()>1)
{if(TimeCurrent()-OrderOpenTime()>230*60)
{
ticket=OrderTicket();
OrderDelete(OrderTicket());
}
}
}
}
break;
}
}
{
if(AccountFreeMargin() < (1000*Lots))
{
Print("We have no money. Free Margin = ", AccountFreeMargin());
return(0);
}
if(!ExistPositions())
{
if(IsBull() == true && IsBadBull() == false)
{
OpenBuy();
return(0);
}
}
if(!ExistPositions())
{
if(IsCoolBull() == true )
{
OpenBuy();
return(0);
}
}
if(!ExistPositions())
{
if(IsBear() == true)
{
OpenSell();
return(0);
}
}
return (0);
}
}
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
bool ExistPositions()
{
for(int i = 0; i < OrdersTotal(); i++)
{
if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
{
if(OrderSymbol() == Symbol() && OrderMagicNumber() == MAGIC)
{
return(True);
}
}
}
return(false);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void OpenBuy()
{
{
double ldLot, ldStop, ldTake;
string lsComm;
int i = 1;
int orders = HistoryTotal();
ldLot = Lots;
ldStop = GetStopLossBuy();
ldTake = GetTakeProfitBuy();
lsComm = GetCommentForOrder();
OrderSend(Symbol(), OP_BUYLIMIT, ldLot, Ask-popravka_up*Point, Slippage,ldStop, ldTake, lsComm, MAGIC,0, clOpenBuy);
if(UseSound)
PlaySound(NameFileSound);
}
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void OpenSell()
{
double ldLot, ldStop, ldTake;
string lsComm;
int i = 1;
int orders = HistoryTotal();
ldLot = Lots;
ldStop = GetStopLossSell();
ldTake = GetTakeProfitSell();
lsComm = GetCommentForOrder();
OrderSend(Symbol(), OP_SELLLIMIT, ldLot, Bid+popravka_down*Point, Slippage, ldStop, ldTake, lsComm, MAGIC,0, clOpenSell);
if(UseSound)
PlaySound(NameFileSound);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
string GetCommentForOrder()
{
return(Name_Expert);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double GetStopLossBuy()
{
int sl;
sl=MathRound((Close[1]-Open[1])*10000*k_sl);
return(Bid - sl*Point);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double GetStopLossSell()
{
int sl;
sl=MathRound((Open[1]-Close[1])*10000*k_sl);
return(Ask + sl*Point);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double GetTakeProfitBuy()
{
int tp;
tp=MathRound((Close[1]-Open[1])*10000*k_tp);
return(Ask + tp*Point);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double GetTakeProfitSell()
{
int tp;
tp=MathRound((Open[1]-Close[1])*10000*k_tp);
return(Bid - tp*Point);
}
//----
return(0);
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains close prices for each bar
Series array that contains open prices of each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Checks for the total of open orders
It automatically opens orders when conditions are reached
Other Features:
It plays sound alerts
