//+------------------------------------------------------------------+
//| 4Min_Binary_Strategy.mq4 |
//| JDP |
//| |
//+------------------------------------------------------------------+
#property copyright «JDP»
#property link ""
#property version «1.00»
#property strict
#property indicator_chart_window
#define NL "\n"
extern bool DoAlert=true;
int CurrentState=0;
double Price;
datetime LastTm;
int Total,TotalSuccess;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
//--- indicator buffers mapping
//---
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void PutArrow(string name,datetime time,double price,int code,color clr)
{
ObjectCreate(0,name,OBJ_ARROW,0,time,price);
//--- установим код стрелки
ObjectSetInteger(0,name,OBJPROP_ARROWCODE,code);
//--- установим способ привязки
ObjectSetInteger(0,name,OBJPROP_ANCHOR,ANCHOR_CENTER);
//--- установим цвет стрелки
ObjectSetInteger(0,name,OBJPROP_COLOR,clr);
//--- установим стиль окаймляющей линии
ObjectSetInteger(0,name,OBJPROP_STYLE,0);
//--- установим размер стрелки
ObjectSetInteger(0,name,OBJPROP_WIDTH,2);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,
const int prev_calculated,
const datetime &time[],
const double &open[],
const double &high[],
const double &low[],
const double &close[],
const long &tick_volume[],
const long &volume[],
const int &spread[])
{
//if (Time[0]+180>=TimeCurrent()) {
if(iCustom(Symbol(),0,«SMA CrossOver_Justin»,1,1)!=EMPTY_VALUE)
{
if(iCustom(Symbol(),0,«ADXcrossesNon-repainting»,3,0,0)!=EMPTY_VALUE)
{
if(iCustom(Symbol(),0,"@@ADXcrossesNon-repainting",5,0,0)!=EMPTY_VALUE)
{
if(CurrentState==0)
{
CurrentState=1;
Price=Close[0];
if(DoAlert)
{
if(LastTm<Time[0])
{
Alert(«CALL: »,Symbol(),": ",DoubleToStr(Close[0],Digits),": EXPIRY: ",TimeToStr(Time[0]+300));
PutArrow(«CALL»+(string)time[0],time[0],high[0],234,Red);
}
}
LastTm=Time[0];
}
}
}
}
if(iCustom(Symbol(),0,«SMA CrossOver_Justin»,0,1)!=EMPTY_VALUE)
{
if(iCustom(Symbol(),0,«ADXcrossesNon-repainting»,3,1,0)!=EMPTY_VALUE)
{
if(iCustom(Symbol(),0,"@@ADXcrossesNon-repainting",5,1,0)!=EMPTY_VALUE)
{
if(CurrentState==0)
{
CurrentState=-1;
Price=Close[0];
if(DoAlert)
{
if(LastTm<Time[0])
{
Alert(«PUT: »,Symbol(),": ",DoubleToStr(Close[0],Digits),": EXPIRY: ",TimeToStr(Time[0]+300));
PutArrow(«PUT»+(string)time[0],time[0],low[0],233,Blue);
}
}
LastTm=Time[0];
}
}
}
}
//}
if(CurrentState==1)
{
if(LastTm==Time[1])
{
if(Close[1]>Price)
{
Print(«CALL SUCCESS: »,DoubleToStr(Price,Digits)," TO ",DoubleToStr(Close[1],Digits));
TotalSuccess=TotalSuccess+1;
} else {
Print(«CALL FAILURE: »,DoubleToStr(Price,Digits)," TO ",DoubleToStr(Close[1],Digits));
}
Total=Total+1;
CurrentState=0;
}
}
if(CurrentState==-1)
{
if(LastTm==Time[1])
{
if(Close[1]<Price)
{
Print(«PUT SUCCESS: »,DoubleToStr(Price,Digits)," TO ",DoubleToStr(Close[1],Digits));
TotalSuccess=TotalSuccess+1;
} else {
Print(«PUT FAILURE: »,DoubleToStr(Price,Digits)," TO ",DoubleToStr(Close[1],Digits));
}
Total=Total+1;
CurrentState=0;
}
}
DoDisplay();
return(rates_total);
}
//+------------------------------------------------------------------+
void DoDisplay()
{
string s;
double tmp;
s = NL + «5 Minute Binary Strategy» + NL;
s = s + "===============" + NL + NL;
if(DoAlert)
{
s=s+«ALERT: ON»+NL;
} else {
s=s+«ALERT: OFF»+NL;
}
if(CurrentState==0)
{
s=s+«STATE: WAITING»+NL+NL;
}
if(CurrentState==1)
{
s=s+«STATE: CALL»+NL+NL;
}
if(CurrentState==-1)
{
s=s+«STATE: PUT»+NL+NL;
}
s = s + «TOTAL TRADES: » + IntegerToString(Total) + NL;
s = s + «TOTAL WINS: » + IntegerToString(TotalSuccess) + NL;
if(Total>0)
{
tmp = TotalSuccess;
tmp = tmp/Total;
s=s+«SUCCESS PERCENTAGE: „+DoubleToStr(tmp*100,2)+NL;
}
Comment(s);
}
//+------------------------------------------------------------------+
SMA CrossOver_Justin
ADXcrossesNon-repainting
@@ADXcrossesNon-repainting
AM2