//+------------------------------------------------------------------+
//| OzFX Signals.mq4 |
//| Copyright © 2008, Daud |
//| http://www.ozfx.com.au |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2008, Daud"
#property link "http://www.ozfx.com.au/"
/*
== Updates ==
03/03/08:: by lac_raz. Separate indicator window and signal maximum 20 pairs
03/03/08:: v1.1 Modified by ydaudw. Add more signal maximum 24 pairs. Integrate with main chart.
03/04/08:: v1.2 Modified by ydaudw. Add more parameter for filtering Original Method and when
signal was generate.
03/07/08:: v1.3 Modified by ydaudw. Some update & bug fixed.
03/08/08:: v1.4 Modified by ydaudw. Give options to customize period and fix some bugs.
03/17/08:: v1.5 Modified by ydaudw. Show when the next bar emerge and fix AES duplication signal.
03/24/08:: v1.6 Modified by ydaudw. Add Squeeze-More signal.
03/25/08:: v1.7 Modified by ydaudw. Give options to customize period, filter and fix some bugs.
*/
#property indicator_chart_window
//----
extern string PairsList="EURUSD,EURGBP,EURCHF,USDJPY,AUDUSD,EURJPY,GPBUSD,USDCAD,USDCHF,NZDUSD,CHFJPY,CADJPY,EURAUD,EURCAD,GBPCHF,AUDJPY,AUDNZD";//- This is where you add the currency pairs you want
extern string SymbolSuffix="";//- If your broker names the currency pairs with a suffix for a mini account (like an "m", for example), enter the suffix here
extern bool ShowTimeTillNextBar=True;
extern bool ShowAESSignal=True;
extern bool Show4HoursSqueezeMore=True;
extern bool SMAFilterOriginal=False;//- Filter Original Method with SMA
extern bool SMAFilterAES=False;//- Filter AES Method with SMA
extern int SMAFilterPeriod=200;
extern int StochKPeriod=5;
extern int StochDPeriod=3;
extern int StochSlowing=3;
extern int ATRPeriod=5;
extern int OriginalAndAESTF=1440;//- Original & AES Signal Timeframe: 1, 15, 30, 60, 240 - Default is Daily (D1)
extern int SqueezeMoreTF=240;//- Squeeze-More Timeframe: 1, 15, 30, 60, 240 - Default is H4
//----
string Pair[24]; //Pairs array
int SymNo;
int k;
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int init()
{
string short_name="OZFXPAIRS";
IndicatorShortName(short_name);
SetIndexLabel(0,short_name);
//----
int i,j,k;
string Cur;
for(i=0, j=0, k=1; i<24 && k>0;)
{
k=StringFind(PairsList,",",j);
if (k==0) Cur=StringSubstr(PairsList,j,0);
else Cur=StringSubstr(PairsList,j,k-j);
//----
Pair[i]=Cur;
i++;
j=StringFind(PairsList,",",j)+1;
if (j==0) break;
}
SymNo=i;
//----
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
string aesPairs[24];
string ozfxRegPairs[24];
string sqzmorePairs[24];
int i,k,regindex,aesindex,sqzindex;
//----
for(i=0,regindex=0,aesindex=0,sqzindex=0;i<SymNo;i++)
{
string currPair=Pair[i]+SymbolSuffix;
/*------------------*/
/* Variable Begin */
/*------------------*/
double AC0=iAC(currPair,OriginalAndAESTF,0);
double AC1=iAC(currPair,OriginalAndAESTF,1);
double AO0=iAO(currPair,OriginalAndAESTF,0);
double AO1=iAO(currPair,OriginalAndAESTF,1);
string ATR=DoubleToStr(iATR(currPair,OriginalAndAESTF,ATRPeriod,0),5);
double STM=iStochastic(currPair,OriginalAndAESTF,StochKPeriod,StochDPeriod,StochSlowing,MODE_SMA,0,MODE_MAIN,0);
double STS=iStochastic(currPair,OriginalAndAESTF,StochKPeriod,StochDPeriod,StochSlowing,MODE_SMA,0,MODE_SIGNAL,0);
bool AboveMA=iClose(currPair,OriginalAndAESTF,0) > iMA(currPair,OriginalAndAESTF,SMAFilterPeriod,0,MODE_SMA,PRICE_CLOSE,0);
bool BelowMA=iClose(currPair,OriginalAndAESTF,0) < iMA(currPair,OriginalAndAESTF,SMAFilterPeriod,0,MODE_SMA,PRICE_CLOSE,0);
double AC04=iAC(currPair,SqueezeMoreTF,0);
double AC14=iAC(currPair,SqueezeMoreTF,1);
double AO04=iAO(currPair,SqueezeMoreTF,0);
double AO14=iAO(currPair,SqueezeMoreTF,1);
double STM4=iStochastic(currPair,SqueezeMoreTF,5,3,4,MODE_SMA,0,MODE_MAIN,0);
double STS4=iStochastic(currPair,SqueezeMoreTF,5,3,4,MODE_SMA,0,MODE_SIGNAL,0);
string ATR4=DoubleToStr(iATR(currPair,SqueezeMoreTF,ATRPeriod,0),5);
/*---------------------*/
/* OZFX REGULAR CODE */
/*---------------------*/
if (SMAFilterOriginal)
{
if (AC0 > 0 && AC1 < 0 && AC0 > AC1 && STM > 50 && AboveMA)
{
ozfxRegPairs[regindex]=Pair[i] + " (ATR - " + ATR + ")" + " - Long";
regindex++;
}
if (AC0 < 0 && AC1 > 0 && AC0 < AC1 && STM < 50 && BelowMA)
{
ozfxRegPairs[regindex]=Pair[i] + " (ATR - " + ATR + ")" + " - Short" ;
regindex++;
}
}
else
{
if (AC0 > 0 && AC1 < 0 && AC0 > AC1 && STM > 50)
{
ozfxRegPairs[regindex]=Pair[i] + " (ATR - " + ATR + ")" + " - Long";
regindex++;
}
if (AC0 < 0 && AC1 > 0 && AC0 < AC1 && STM < 50)
{
ozfxRegPairs[regindex]=Pair[i] + " (ATR - " + ATR + ")" + " - Short" ;
regindex++;
}
}
/*-----------------*/
/* OZFX AES CODE */
/*-----------------*/
//if ((AC0 > AC1 && AboveMA && STM > STS) || (AC0 > 0 && AO0 > AO1 && AC0 > AC1 && AboveMA && STM > STS))
if (SMAFilterAES)
{
if (AC0 > AC1 && AboveMA && STM > STS && AO0 > AO1)
{
aesPairs[aesindex]=Pair[i] + " (ATR - " + ATR + ")" + " - Long";
aesindex++;
}
if (AC0 < AC1 && BelowMA && STM < STS && AO0 < AO1)
{
aesPairs[aesindex]=Pair[i] + " (ATR - " + ATR + ")" + " - Short";
aesindex++;
}
}
else
{
if (AC0 > AC1 && STM > STS && AO0 > AO1)
{
aesPairs[aesindex]=Pair[i] + " (ATR - " + ATR + ")" + " - Long";
aesindex++;
}
if (AC0 < AC1 && STM < STS && AO0 < AO1)
{
aesPairs[aesindex]=Pair[i] + " (ATR - " + ATR + ")" + " - Short";
aesindex++;
}
}
/*---------------------*/
/* OZFX SQUEEZE MORE */
/*---------------------*/
if (AC04 > AC14 && AO04 > AO14 && STM4 > STS4 && STM4 > 20 && STM4 < 80)
{
sqzmorePairs[sqzindex]=Pair[i] + " (ATR - " + ATR4 + ")" + " - Long";
sqzindex++;
}
if (AC04 < AC14 && AO04 < AO14 && STM4 < STS4 && STM4 < 80 && STM4 > 20)
{
sqzmorePairs[sqzindex]=Pair[i] + " (ATR - " + ATR4 + ")" + " - Short";
sqzindex++;
}
}
ObjectsDeleteAll(0,OBJ_LABEL);
createTitle();
if (ShowTimeTillNextBar) BarEnd();
//----
int count=regindex; //ArraySize(ozfxRegPairs);
for(k=0;k<count;k++)
{
ObjectCreate("OZFXREG"+k, OBJ_LABEL, 0, 0, 0);
ObjectSetText("OZFXREG"+k,ozfxRegPairs[k] ,8, "Arial", Black);
ObjectSet("OZFXREG"+k, OBJPROP_CORNER, 0);
ObjectSet("OZFXREG"+k, OBJPROP_XDISTANCE, 10);
ObjectSet("OZFXREG"+k, OBJPROP_YDISTANCE, 42+k*15);
}
if (ShowAESSignal)
{
count=aesindex; //ArraySize(aesPairs);
for(k=0;k<count;k++)
{
ObjectCreate("OZFXAES"+k, OBJ_LABEL, 0, 0, 0);
ObjectSetText("OZFXAES"+k, aesPairs[k] ,8, "Arial", Black);
ObjectSet("OZFXAES"+k, OBJPROP_CORNER, 0);
ObjectSet("OZFXAES"+k, OBJPROP_XDISTANCE, 180);
ObjectSet("OZFXAES"+k, OBJPROP_YDISTANCE, 42+k*15);
}
}
if (Show4HoursSqueezeMore)
{
count=sqzindex; //ArraySize(sqzmorePairs);
for(k=0;k<count;k++)
{
ObjectCreate("OZFXSM"+k, OBJ_LABEL, 0, 0, 0);
ObjectSetText("OZFXSM"+k,sqzmorePairs[k] ,8, "Arial", Black);
ObjectSet("OZFXSM"+k, OBJPROP_CORNER, 0);
ObjectSet("OZFXSM"+k, OBJPROP_XDISTANCE, 350);
ObjectSet("OZFXSM"+k, OBJPROP_YDISTANCE, 42+k*15);
}
}
//----
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void createTitle()
{
ObjectCreate("OZFXREG", OBJ_LABEL, 0, 0, 0);
ObjectSetText("OZFXREG","Original Ozfx signal ("+TF(OriginalAndAESTF)+")",9, "Arial Bold", DodgerBlue);
ObjectSet("OZFXREG", OBJPROP_CORNER, 0);
ObjectSet("OZFXREG", OBJPROP_XDISTANCE, 10);
ObjectSet("OZFXREG", OBJPROP_YDISTANCE, 25);
if (ShowAESSignal)
{
ObjectCreate("OZFXAES", OBJ_LABEL, 0, 0, 0);
ObjectSetText("OZFXAES","AES Signal ("+TF(OriginalAndAESTF)+")" ,9, "Arial Bold", DodgerBlue);
ObjectSet("OZFXAES", OBJPROP_CORNER, 0);
ObjectSet("OZFXAES", OBJPROP_XDISTANCE, 180);
ObjectSet("OZFXAES", OBJPROP_YDISTANCE, 25);
}
if (Show4HoursSqueezeMore)
{
ObjectCreate("OZFXSM", OBJ_LABEL, 0, 0, 0);
ObjectSetText("OZFXSM","Squeeze-More Signal ("+TF(SqueezeMoreTF)+")" ,9, "Arial Bold", DodgerBlue);
ObjectSet("OZFXSM", OBJPROP_CORNER, 0);
ObjectSet("OZFXSM", OBJPROP_XDISTANCE, 350);
ObjectSet("OZFXSM", OBJPROP_YDISTANCE, 25);
}
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int deinit()
{
ObjectsDeleteAll(0,OBJ_LABEL);
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void BarEnd()
{
double i;
int m,s,k;
m=Time[0]+Period()*60-CurTime();
i=m/60.0;
s=m%60;
m=(m-m%60)/60;
//----
ObjectCreate("TIME", OBJ_LABEL, 0, 0, 0);
ObjectSetText("TIME",m + " minutes " + s + " seconds left to bar end",8,"Arial Bold",Lime);
ObjectSet("TIME", OBJPROP_CORNER, 0);
ObjectSet("TIME", OBJPROP_XDISTANCE, 10);
ObjectSet("TIME", OBJPROP_YDISTANCE, 12);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
string TF(int iTF)
{
if (iTF==1) return("M1");
else if (iTF==15) return("M15");
else if (iTF==30) return("M30");
else if (iTF==60) return("H1");
else if (iTF==240) return("H4");
else if (iTF==1440) return("D1");
else if (iTF==10080) return("W1");
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains close prices for each bar
Series array that contains open time of each bar
Indicator Curves created:
Indicators Used:
Bill Williams Accelerator/Decelerator oscillator
Bill Williams Awesome oscillator
Indicator of the average true range
Stochastic oscillator
Moving average indicator
Custom Indicators Used:
Order Management characteristics:
Other Features: