#include <stdlib.mqh>
#include <WinUser32.mqh>
///////////////////////////////////////////////////Variables//////////////////////////////
extern int ID_BASE=100000; // Change this number if running more than one EA on the same pair
extern double lots=1.0; // This number will not matter if using Money Management
extern bool MM = true; //Use Money Management or not
extern double Risk = 4; //percent of available margin to risk.
extern int stoploss=50,takeprofit=40;
extern bool UseClose=false; // This will use the SuperClose().
extern int TSactivation=40,TrailPips=5; // TSactivation will set the point where the TS will start.
extern int LongBar=10; // sets the minimum length of the bar
extern int MaxTrades=5; //maximum number of trades open at a time
extern bool UseHourTrade = true; // Time filter
extern int FromHourTrade = 0; // start trading on this hour
extern int ToHourTrade = 23; // end trading on this hour
extern bool UseLastPeriodPerams=false;// uses the high and low from last period for calculation
extern int period=0; // leave this number as zero to use the period from the chart.
extern bool OneTradeperPeriod=false; //This will only allow one new trade per period.
extern bool Alerts=false,AlertOnlyMode=false;// Alerts will alert when trade signal is present. AOM will not place trades, but will alert to the platform
extern bool WeekendMode=false;//True=Will close all trades on and after the hour to close.
extern int hour_to_close=23;
int ID;
int bar;//tracks the period where a trade was placed.
int tsTicket[21];
double tsPrice[21];
bool tsok[21];
//bool hedged;
int init(){
ID=ID_BASE+P(); return(0);
}
//////////////////////////////////////////////////////////////////////////////////////////////
int start(){
if((DayOfWeek()>=5) && (Hour()>=hour_to_close)){
if(WeekendMode){
if(orderscnt()>0){
CloseAllTrades();
}
// Print("Day = ",DayOfWeek()," Hour = ",Hour());
return(0);
}
}
if(UseClose)SuperClose();
if (UseHourTrade){
if(!(Hour()>=FromHourTrade&&Hour()<=ToHourTrade)){
// Comment("Non-Trading Hours!");
return(0);
}
}
if(orderscnt()<MaxTrades){
if(MM==true) lots = LotSize();
CheckOpen();
}
}
//////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////
void CheckOpen(){
double tp,sl;
double Hi, Lo, Op;
bool y=OneTradeperPeriod; //added 3-25-2006
string comm="Pro-Gen_"+DoubleToStr(ID,0);
if(UseLastPeriodPerams)int x=1; else x=0;
Hi = iHigh(NULL, P(), x);
Lo = iLow( NULL, P(), x);
Op = iOpen(NULL, P(), x);
// Print(Hi, ",", Lo); // This shows how the value of hi and lo changes during the day
// Comment("if (",(Hi-Lo)," > ",LongBar*Point," && ",Op," < ",Hi+Lo/2," && ",Ask," < ",Op);
// if ((High[0]-Low[0])>LongBar*Point && Open[0]<(High[0]+Low[0])/2 && Ask < Open[0])
if((Hi-Lo)>LongBar*Point && Op<(Hi+Lo)/2 && Ask < Op && ( bar!=Bars || !y) ){
if(stoploss==0){sl=0;}else{sl=Ask-stoploss*Point;}
if(takeprofit==0){tp=0;}else{tp=Ask+takeprofit*Point;}
if(UseClose)tp=Ask+(takeprofit*2)*Point;
if(!AlertOnlyMode){
OrderSend(Symbol(),OP_BUY,lots,Ask,2,sl,tp,comm,ID,0,Blue);
bar=iBars(NULL,P());
}
if(Alerts || AlertOnlyMode){
Alert("PG Long Signal on ",Symbol());
}
}
// if ((High[0]-Low[0])>LongBar*Point && Open[0]>(High[0]+Low[0])/2 && Bid > Open[0])
if((Hi-Lo)>LongBar*Point && Op>(Hi+Lo)/2 && Bid > Op && (bar!=Bars || !y) ){
if(stoploss==0){sl=0;}else{sl=Bid+stoploss*Point;}
if(takeprofit==0 || UseClose){tp=0;}else{tp=Bid-takeprofit*Point;}
if(UseClose)tp=Bid-(takeprofit*2)*Point;
if(!AlertOnlyMode){
OrderSend(Symbol(),OP_SELL,lots,Bid,2,sl,tp,comm,ID,0,Red);
bar=iBars(NULL,P());
}
if(Alerts || AlertOnlyMode){
Alert("PG Short Signal on ",Symbol());
}
}
}
//////////////////////////////////////////////////////////////////////////////////////////////
int P(){
if(period==0){
return(Period());
}else{
return(period);
}
}
//////////////////////////////////////////////////////////////////////////////////////////////
int orderscnt(){
int cnt=0;
for(int i =0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol() && ID==OrderMagicNumber()){
cnt++;
}
}
}
return(cnt);
}
//////////////////////////////////////////////////////////////////////////////////////////////
void CloseAllTrades(){
Print("CloseAllTrades()");
for(int i =0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol() && ID==OrderMagicNumber()){
if(OrderType()==OP_BUY){
CloseOrder(1);
}else{
CloseOrder(2);
}
}
}
}
}
//////////////////////////////////////////////////////////////////////////////////////////////
double LotSize(){
double lotMM = MathCeil(AccountFreeMargin() * Risk / 10000) / 10;
if (lotMM < 0.1) lotMM = lots;
if (lotMM > 1.0) lotMM = MathCeil(lotMM);
if (lotMM > 100) lotMM = 100;
return (lotMM);
}
//////////////////////////////////////////////////////////////////////////////////////////////
void SuperClose(){
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS)){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==ID){//Pulls in order that meets the criteria for processing
int num=0;int pos=0;
for(int b=0;b<21;b++){// this (loopB) compares the ticket# of the selected order against the number stored in the ticket array
if(tsTicket[b]==OrderTicket() ){
num++; pos=b;// if ticket numbers match, pos is the position in the array where the trailing data is stored
Print("(",pos,") Ticket ",tsTicket[pos]," found. SL is ",tsPrice[pos]);
break;
}
}
if(num==0){ // if the loopB did not find a matching ticket number it is time to initialize the data
for(int j=0;j<21;j++){
if(tsTicket[j]==0){// this is looking for the earliest instance within the array to store the data
pos=j;
break;
}
}
tsTicket[pos]=OrderTicket();// setting the ticket number
tsok[pos]=false;// this is to determine when trailing kicks in
Print("(",pos,") New ticket initialized = ",tsTicket[pos]);
}
if (OrderType()==OP_SELL) {
if (!tsok[pos] && (OrderOpenPrice()-Ask>=TSactivation*Point || TSactivation==0 ) ) {// if the trailing factor is false, but it has hit the activation point continue
tsPrice[pos]=Ask+TrailPips*Point;// this is the new trailinf stop price
tsok[pos]=true;// it's ok to proceed with trailing stop
if(TrailPips>8){// if this distance from the current price to the new stop, then modify the order.
ModifyStopLoss(Ask+TrailPips*Point);//modifies order
}
}
if (tsok[pos] && Ask+TrailPips*Point < tsPrice[pos] ){//if the position is gaining in profit
tsPrice[pos]=Ask+TrailPips*Point;
if(TrailPips>8){
ModifyStopLoss(Ask+TrailPips*Point);
}
}
if (tsok[pos] && Ask >= tsPrice[pos] ){// if the postion hits the stop price
CloseOrder(2);
Print("Order ",tsTicket[pos]," Closed from TS");
}
}
if (OrderType()==OP_BUY) {// reverse of SELL
if(!tsok[pos] && (Bid-OrderOpenPrice() >= TSactivation*Point || TSactivation==0 ) ) {
tsPrice[pos]=Bid-TrailPips*Point;
tsok[pos]=true;
if(TrailPips>8){
ModifyStopLoss(Bid-TrailPips*Point);
}
}
if (tsok[pos] && Bid-TrailPips*Point > tsPrice[pos] ){
tsPrice[pos]=Bid-TrailPips*Point;
if(TrailPips > 8){
ModifyStopLoss(Bid-TrailPips*Point);
}
}
if (tsok[pos] && Bid <= tsPrice[pos] ){
CloseOrder(1);
Print("Order ",tsTicket[pos]," Closed from TS");
} } } } }
for(i=0;i<21;i++){// this searches the array for ticket numbers that are now obsolete due to an order that has closed
if(tsTicket[i]>0){
bool found=false;
for(b=0;b<OrdersTotal();b++){
OrderSelect(b,SELECT_BY_POS);
if(tsTicket[i]==OrderTicket()){
found=true;
break;
}
}
if(!found){// if there are matching ticket numbers in the trade pool and the array then nothing happens
tsTicket[i]=0;tsPrice[i]=0;tsok[i]=false;// if there is an obolete ticket the the data is reset. And the next new ticket data can occupy this space
Print("Array pos ",i," Cleaned");
} } } }
//////////////////////////////////////////////////////////////////////////////////////////////
void CloseOrder(int ord){
if (ord==1){
int res = OrderClose(OrderTicket(),OrderLots(),Bid,5,White); // close
if(res<0){
int error=GetLastError();
Print("Error = ",ErrorDescription(error));
}
}
if (ord==2) { // MA BUY signals
res = OrderClose(OrderTicket(),OrderLots(),Ask,5,White); // close
if(res<0){
error=GetLastError();
Print("Error = ",ErrorDescription(error));
}
}
}
//////////////////////////////////////////////////////////////////////////////////////////////
void ModifyStopLoss(double ldStop) {
bool fm;
double ldOpen=OrderOpenPrice();
double ldTake=OrderTakeProfit();
fm=OrderModify(OrderTicket(), ldOpen, ldStop, ldTake, 0, Pink);
}
//////////////////////////////////////////////////////////////////////////////////////////////
/*void ModifyOrder(double ldStop,double tp) {
bool fm;
double ldOpen=OrderOpenPrice();
double ldTake=tp;
fm=OrderModify(OrderTicket(), ldOpen, ldStop, ldTake, 0, Pink);
}
void unhedge(){
int hcnt;
for(int i =0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol() && ID==OrderMagicNumber()){
if(OrderComment()=="hedge"){
hcnt++;
if(OrderType()==OP_BUY){
CloseOrder(1);
}
if(OrderType()==OP_SELL){
CloseOrder(2);
}
}
}
}
}
if(hcnt==0)hedged=false;
}
void HedgePos(){
double b,s;
for(int i =0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol() && ID==OrderMagicNumber()){
if(OrderType()==OP_BUY){
b+=OrderLots();
}
if(OrderType()==OP_SELL){
s+=OrderLots();
}
}
}
}
if(s==b){
hedged=true;
for(i =0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol() && ID==OrderMagicNumber()){
if(OrderType()==OP_BUY){
if(OrderStopLoss()>0){
osl[i]=Bid-OrderStopLoss();
otp[i]=Bid+OrderTakeProfit();
ModifyOrder(0,0);
}
}
if(OrderType()==OP_SELL){
if(OrderStopLoss()>0){
osl[i]=Ask+OrderStopLoss();
otp[i]=Ask-OrderTakeProfit();
ModifyOrder(0,0);
}
}
}
}
}
}
else if(s>b){
double lotz=s-b;
OrderSend(Symbol(),OP_BUY,lotz,Ask,2,0,0,"hedge",ID,0,Red);
}
else if(s<b){
lotz=b-s;
OrderSend(Symbol(),OP_SELL,lotz,Bid,2,0,0,"hedge",ID,0,Blue);
}
}*/
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 open prices of each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
It automatically opens orders when conditions are reached
Checks for the total of open orders
It Closes Orders by itself
It can change open orders parameters, due to possible stepping strategy
Other Features:
It issuies visual alerts to the screen
