//+------------------------------------------------------------------+
//| gpfTCPivotStop.mq4 |
//| Copyright © 2006, George-on-Don |
//| http://www.forex.aaanet.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, George-on-Don"
#property link "http://www.forex.aaanet.ru"
#include <stdlib.mqh>
#include <stderror.mqh>
#define MAGICMA 20050610
extern double Lots=0.1; // lot size
extern bool SndMl=true; // is send e-mail message?
extern bool isFloatLots = true; // is cals lot size
extern double DcF = 3; // optimization factor
extern double MaxR = 0.02; // max risk
extern int TgtProfit = 1; // if take profit = Support1 or Resist1 = TgtProfit= 1
// if take profit = Support2 or Resist2 = TgtProfit =2
// if take profit = Support3 or Resist3 = TgtProfit =3
extern bool isTradeDay = False; // is trade intraday or extraday?
extern bool isTrace = False; // is tracer on?
double Pivot;
double Resist1;
double Resist2;
double Support1;
double Support2;
double Support3;
double Resist3;
double StpBuy;
double StpSell;
double PrftBuy;
double PrftSell;
double pPoint;
double r1 , s1 ,s2, r2, r3, s3 ;
int err;
bool isCals=false;
//+------------------------------------------------------------------+
//| CalculateCurrentOrders function |
//+------------------------------------------------------------------+
int CalculateCurrentOrders(string symbol)
{
int buys=0;
int sells=0;
//----
for(int i=0;i<OrdersTotal();i++)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false)
break;
if(OrderSymbol()==Symbol() && OrderMagicNumber()==MAGICMA)
{
if(OrderType()==OP_BUY)
buys++;
if(OrderType()==OP_SELL)
sells++;
}
}
//---- return orders volume
if(buys>0)
return(buys);
else
return(-sells);
}
//+------------------------------------------------------------------+
//| LotsOptimized function |
//+------------------------------------------------------------------+
double LotsOptimized()
{
double lot=Lots;
if (isFloatLots == true)
{
int orders=HistoryTotal(); // history orders total
int losses=0; // number of losses orders without a break
//---- select lot size
lot=NormalizeDouble(AccountFreeMargin()*MaxR/1000.0,1);
//---- calcuulate number of losses orders without a break
if(DcF>0)
{
for(int i=orders-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==false) { Print("Îøèáêà â èñòîðèè!"); break; }
if(OrderSymbol()!=Symbol() || OrderType()>OP_SELL) continue;
//----
if(OrderProfit()>0) break;
if(OrderProfit()<0) losses++;
}
if(losses>1) lot=NormalizeDouble(lot-lot*losses/DcF,1);
}
}
//---- return lot size
if(lot<0.1) lot=0.1;
return(lot);
}
//+------------------------------------------------------------------+
//| initialization of Calspivot function |
//+------------------------------------------------------------------+
bool isCalsPivot()
{
int tHour;
double hLine;
double lLine;
int i,k;
if(Volume[0]>1) return(false);
if (TimeHour(Time[1])== 0 )
//if (TimeHour(Time[1])<=24 || TimeHour(Time[0])>=0)
{
tHour = TimeHour(Time[2]);
k= tHour+1;
if (isTrace == true)
{
Print("tHour",tHour);
Print("K",k);
}
hLine = High[tHour];
lLine = Low[tHour];
for (i = tHour+1; i > 0; i--)
{
if (Low[i+1] < lLine) lLine = Low[i+1];
if (High[i+1] > hLine) hLine = High[i+1];
if (isTrace == true)
{
Print("i# ",i," lLine# ", lLine, " Low# ", Low[i+1], " hLine #", hLine, " High #", High[i+1], " time #" , TimeHour(Time[i+1]), " day #", TimeDay(Time[i+1]));
}
}
pPoint = (lLine + hLine + Close[2]) / 3;
r1 = 2 * pPoint - lLine;
s1 = 2 * pPoint - hLine;
r2 = pPoint + (r1 - s1);
s2 = pPoint - (r1 - s1);
r3 = hLine + 2 * (pPoint - lLine);
s3 = lLine - 2 * (hLine - pPoint);
CalsPivot();
isCals = true;
return (true);
}
return (false);
}
//+------------------------------------------------------------------+
//| Cals Pivot function |
//+------------------------------------------------------------------+
void CalsPivot()
{
Pivot =NormalizeDouble(pPoint,Digits);
Resist1 =NormalizeDouble(r1,Digits);
Resist2 =NormalizeDouble(r2,Digits);
Resist3 =NormalizeDouble(r3,Digits);
Support1 =NormalizeDouble(s1,Digits);
Support2 =NormalizeDouble(s2,Digits);
Support3 =NormalizeDouble(s3,Digits);
if (isTrace == true)
{
Print("Pivot# ",Pivot," Resist1# ",Resist1," Support1# ",Support1);
}
}
//+------------------------------------------------------------------+
//| CheckForOpen trade function |
//+------------------------------------------------------------------+
void CheckForOpen()
{
string sHeaderLetter;
string sBodyLetter;
int err2;
// is first tick?
if(Volume[0]>1) return;
//---- Sell trade
if ( Close[1]<Pivot && Close[2]>=Pivot)
{
if (isTrace == true)
{
Print("Close1#", Close[1]);
Print("Pivot#",Pivot);
Print("Close2#",Close[2]);
}
switch (TgtProfit)
{
case 1 : err = OrderSend(Symbol(),OP_SELL,LotsOptimized(),Bid,3,Resist1,Support1,"",MAGICMA,0,Red);
break;
case 2 : err = OrderSend(Symbol(),OP_SELL,LotsOptimized(),Bid,3,Resist1,Support2,"",MAGICMA,0,Red);
break;
case 3 : err = OrderSend(Symbol(),OP_SELL,LotsOptimized(),Bid,3,Resist2,Support3,"",MAGICMA,0,Red);
break;
default : err = OrderSend(Symbol(),OP_SELL,LotsOptimized(),Bid,3,Resist1,Support1,"",MAGICMA,0,Red);
}
StpSell = Resist1;
PrftSell = Support1;
if (err < 0)
{
Print("OrderSend Sell failed err#", GetLastError());
if (isTrace == true)
{
Print("Bid#",Bid);
Print("Pivot #",Pivot);
Print("Stop loss#",Resist1);
Print("Take prof#",Support2);
}
if (GetLastError()== 130) err2 =OrderSend(Symbol(),OP_SELL,LotsOptimized(),Bid,3,Resist2,Support3,"",MAGICMA,0,Red);
StpSell = Resist2;
PrftSell = Support2;
if ( err2 <0)
{
Print("OrderSend Sell failed err2#", GetLastError());
if (isTrace == True)
{
Print("Bid#",Bid);
Print("Pivot #",Pivot);
Print("Stop loss#",Resist2);
Print("Take prof#",Support3);
}
}
return(0);
}else{
if (SndMl == True )
{
sHeaderLetter = "Operation SELL by " + Symbol()+"";
sBodyLetter = "Order Sell by "+ Symbol() + " at " + DoubleToStr(Bid,4)+ ", and set stop/loss at " + DoubleToStr(StpSell,4)+"";
sndMessage(sHeaderLetter, sBodyLetter);
}
}
//return;
}
//---- Buy trade
if ( Close[1]>Pivot && Close[2]<=Pivot)
{
if (isTrace == true)
{
Print("Close1#", Close[1]);
Print("Pivot#",Pivot);
Print("Close2#",Close[2]);
}
switch (TgtProfit)
{
case 1: err=OrderSend(Symbol(),OP_BUY,LotsOptimized(),Ask,3,Support1,Resist1,"",MAGICMA,0,Blue);
break;
case 2: err=OrderSend(Symbol(),OP_BUY,LotsOptimized(),Ask,3,Support1,Resist2,"",MAGICMA,0,Blue);
break;
case 3: err=OrderSend(Symbol(),OP_BUY,LotsOptimized(),Ask,3,Support2,Resist3,"",MAGICMA,0,Blue);
break;
default : err=OrderSend(Symbol(),OP_BUY,LotsOptimized(),Ask,3,Support1,Resist1,"",MAGICMA,0,Blue);
}
StpBuy = Support1;
PrftBuy = Resist1;
if (err < 0)
{
Print("OrderSend Buy failed err#", GetLastError());
if (isTrace== true)
{
Print("Bid#",Bid);
Print("Pivot #",Pivot);
Print("Stop loss#",Support2);
Print("Take prof#",Resist3);
}
if (GetLastError() == 130) err2=OrderSend(Symbol(),OP_BUY,LotsOptimized(),Ask,3,Support2,Resist3,"",MAGICMA,0,Blue);
StpBuy = Support2;
PrftBuy = Resist2;
if (err2 < 0)
{
Print("OrderSend Buy failed err2#", GetLastError());
if (isTrace== true)
{
Print("Bid#",Bid);
Print("Pivot #",Pivot);
Print("Stop loss#",Support2);
Print("Take prof#",Resist3);
}
}
return(0);
}else{
if ( SndMl == True )
{
sHeaderLetter = "Operation BUY at " + Symbol()+"";
sBodyLetter = "Order Buy at "+ Symbol() + " for " + DoubleToStr(Ask,4)+ ", and set stop/loss at " + DoubleToStr(StpBuy,4)+"";
sndMessage(sHeaderLetter, sBodyLetter);
}
}
return;
}
}
//+------------------------------------------------------------------+
//| CheckForClose open trade function |
//+------------------------------------------------------------------+
void CheckForClose()
{
string sHeaderLetter;
string sBodyLetter;
bool CloseOrd;
//----
if(Volume[0]>1) return;
for(int i=0;i<OrdersTotal();i++)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
if(OrderMagicNumber()!=MAGICMA || OrderSymbol()!=Symbol()) continue;
//----
if(OrderType()==OP_BUY)
{
if (isTrace== true)
{
Print("in OP_BUY");
}
// trailing stop
if(Bid >= StpSell)
{
if(OrderStopLoss()== PrftSell)
{
err=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()+(Ask-Bid) ,OrderTakeProfit(),0,Green);
if (err < 0)
{
Print("OrderModify Buy failed err#", GetLastError());
if (isTrace== true)
{
Print("Bid#",Bid);
Print("Pivot #",OrderOpenPrice());
Print("Stop loss#",PrftSell);
Print("First prof#",StpSell);
}
return(0);
}
return ;
}
}
if (isTradeDay == True && TimeHour(Time[0])== 24 )
{
CloseOrd=OrderClose(OrderTicket(),OrderLots(),Bid,3,Lime);
}
if ( SndMl == True && CloseOrd == True)
{
sHeaderLetter = "Operation CLOSE BUY at" + Symbol()+"";
sBodyLetter = "Close order Buy at "+ Symbol() + " for " + DoubleToStr(Bid,4)+ ", and finish this Trade";
sndMessage(sHeaderLetter, sBodyLetter);
}
break;
}
if(OrderType()==OP_SELL)
{
if (isTrace== true)
{
Print("in OP_SELL");
}
// trailing stop
if( Ask <= StpBuy)
{
if(OrderStopLoss()== PrftBuy)
{
err = OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,Red);
if (err < 0)
{
Print("OrderModify Sell failed err#", GetLastError());
if (isTrace== true)
{
Print("Bid#",Bid);
Print("Pivot #",OrderOpenPrice());
Print("Stop loss#",StpBuy);
Print("First prof#",PrftBuy);
}
return(0);
}
return;
}
}
if (isTradeDay == True && TimeHour(Time[0])== 24 )
{
CloseOrd=OrderClose(OrderTicket(),OrderLots(),Ask,3,Lime);
}
if ( SndMl == True && CloseOrd == True)
{
sHeaderLetter = "Operation CLOSE SELL at" + Symbol()+"";
sBodyLetter = "Close order Sell at "+ Symbol() + " for " + DoubleToStr(Ask,4)+ ", and finish this Trade";
sndMessage(sHeaderLetter, sBodyLetter);
}
break;
}
}
//----
}
//--------------------------------------------------------------------
// message sending function |
//--------------------------------------------------------------------
void sndMessage(string HeaderLetter, string BodyLetter)
{
int RetVal;
SendMail( HeaderLetter, BodyLetter );
RetVal = GetLastError();
if (isTrace== true)
{
if (RetVal!= ERR_NO_MQLERROR) Print ("Error, message not sending: ", ErrorDescription(RetVal));
}
}
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
//----
if (Period() != PERIOD_H1)
{
Print("Error, Time Frame is not 1 hour!");
return ;
}
if(Bars<25 || IsTradeAllowed()==false) return;
if (isCalsPivot()==false) return ;
if(CalculateCurrentOrders(Symbol())==0 )
CheckForOpen();
else
CheckForClose();
//-
//----
return(0);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains tick volumes of each bar
Series array that contains open time of each bar
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
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
It can change open orders parameters, due to possible stepping strategy
It Closes Orders by itself
Other Features:
It sends emails
