//+------------------------------------------------------------------+
//| Symbol_Index_MA_.mq4 |
//| Copyright © 2006, Eng. Waddah Attar |
//| waddahattar@hotmail.com |
//+------------------------------------------------------------------+
#property copyright "Advanced by Waddah Attar"
#property link "waddahattar@hotmail.com"
//----
#property indicator_separate_window
#property indicator_buffers 3
#property indicator_color1 DarkOrange
#property indicator_color2 Red
#property indicator_color3 Blue
//----
extern string Use_This_Only = "USD,EUR,GBP,CHF,JPY,AUD,CAD";
extern string _____________ = "___________________________";
extern string MySymbol = "USD";
extern bool ShowMA = true;
extern int MA1_Period = 13;
extern int MA1_Mode = 0;
extern int MA2_Period = 5;
extern int MA2_Mode = 0;
//----
double Idx1[];
double Idx2[];
double Idx3[];
double v1[];
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int init()
{
IndicatorShortName("WA " + MySymbol + " Index (" + MA1_Period + ", " +
MA2_Period + ")");
SetIndexLabel(1, "WASymbol(" + MA1_Period + ")");
SetIndexLabel(2, "WASymbol(" + MA2_Period + ")");
//----
SetIndexStyle(0, DRAW_LINE, 0, 1);
SetIndexBuffer(0, Idx1);
//----
SetIndexStyle(1, DRAW_LINE, 0, 2);
SetIndexBuffer(1, Idx2);
//----
SetIndexStyle(2, DRAW_LINE, 0, 1);
SetIndexBuffer(2, Idx3);
//----
ObjectsDeleteAll(1, OBJ_HLINE);
ObjectsDeleteAll(2, OBJ_HLINE);
//----
Print("USDCAD Bars = " , iBars("USDCAD", 0), " GBPUSD Bars = ", iBars("GBPUSD", 0),
" AUDUSD Bars = " , iBars("AUDUSD", 0));
Print("EURUSD Bars = " , iBars("EURUSD", 0), " USDCHF Bars = ", iBars("USDCHF", 0),
" USDJPY Bars = " , iBars("USDJPY",0));
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void start()
{
int MinBars = iBars("EURUSD", 0);
if(MinBars >= iBars("USDCHF", 0))
MinBars = iBars("USDCHF", 0);
if(MinBars >= iBars("USDJPY", 0))
MinBars=iBars("USDJPY", 0);
if(MinBars >= iBars("USDCAD", 0))
MinBars=iBars("USDCAD", 0);
if(MinBars >= iBars("GBPUSD", 0))
MinBars=iBars("GBPUSD", 0);
if(MinBars >= iBars("AUDUSD", 0))
MinBars=iBars("AUDUSD", 0);
ArrayResize (v1,MinBars);
double C_USD;
for(int i = 0; i < MinBars; i++)
{
C_USD = MathPow(iClose("USDCHF", 0, i)*iClose("USDJPY", 0, i)*iClose("USDCAD", 0, i) /
iClose("EURUSD", 0, i) / iClose("GBPUSD", 0, i) /
iClose("AUDUSD", 0, i), 1. / 7.);
if(MySymbol == "USD")
v1[i] = C_USD;
if(MySymbol == "EUR")
v1[i] = C_USD*iClose("EURUSD",0,i);
if (MySymbol == "GBP")
v1[i] = C_USD*iClose("GBPUSD",0,i);
if(MySymbol == "AUD")
v1[i] = C_USD*iClose("AUDUSD",0,i);
if(MySymbol == "CHF")
v1[i] = C_USD/iClose("USDCHF",0,i);
if(MySymbol == "JPY")
v1[i] = C_USD/iClose("USDJPY",0,i);
if(MySymbol == "CAD")
v1[i] = C_USD/iClose("USDCAD",0,i);
int win_idx = WindowFind("WA " + MySymbol + " Index (" + MA1_Period + ", " +
MA2_Period + ")");
Idx1[i] = v1[i];
if(ObjectCreate("HLINE" + MySymbol, OBJ_HLINE, win_idx, Time[0], Idx1[0]) == false)
{
ObjectSet("HLINE" + MySymbol, OBJPROP_PRICE1, Idx1[0]);
ObjectSet("HLINE" + MySymbol, OBJPROP_COLOR, DimGray);
}
}
if(ShowMA == true)
{
for(i = 0; i < MinBars - MA1_Period; i++)
{
Idx2[i] = iMAOnArray(Idx1, 0, MA1_Period, 0, MA1_Mode, i);
Idx3[i] = iMAOnArray(Idx1, 0, MA2_Period, 0, MA2_Mode, i);
}
}
}
//+------------------------------------------------------------------+
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:
Implements a curve of type DRAW_LINE
Indicators Used:
Moving average indicator
Custom Indicators Used:
Order Management characteristics:
Other Features: