/*-----------------------------+
| |
| Shared by www.Aptrafx.com |
| |
+------------------------------*/
//+------------------------------------------------------------------+
//| Correlation USDCHF/EURUSD .mq4 |
//| Copyright © 2005, Yuri Makarov. |
//| http://mak.tradersmind.com |
//+------------------------------------------------------------------+
//Correlates chf prive ON eur 1 min chart
// if chf bar (1 min) is greater than 3 pips it recommends sell/buy eur
//
#property copyright "Copyright © 2005, Perky_z."
#property link "Perky_z@yahoo.com"
#property indicator_separate_window
#property indicator_buffers 1
#property indicator_color1 OrangeRed
extern string Curency = "CHF";
double UsdChf[],UsdChfO[];
double Idx[];
double diff,diff1;
int init()
{
IndicatorShortName(Curency);
SetIndexStyle(0,DRAW_LINE);
SetIndexBuffer(0,Idx);
return(0);
}
void start()
{
//I've put the period statement in - this means that
// you can get close for other periods onto the current chart
ArrayCopySeries(UsdChf,MODE_CLOSE,"USDCHF",PERIOD_M1);
ArrayCopySeries(UsdChfO,MODE_OPEN,"USDCHF",PERIOD_M1);
int counted_bars=IndicatorCounted();
double USD;
if(counted_bars<0) return(-1);
if(counted_bars>0) counted_bars--;
int limit=Bars-counted_bars;
for(int i=0; i<limit; i++)
{
diff=(UsdChf[i]-UsdChfO[i]);
diff1=(UsdChf[i+1]-UsdChfO[i+1]);
Comment("Before",diff1,"\nnow ",diff);
if (Curency == "CHF") Idx[i] = UsdChf[i];
if (diff<=-0.0006 && diff<0)
{
Comment("diff ",diff," Buy eur");
Alert ("USDCHF ",diff," Difference BUY EURUSD");
}
if (diff>=0.0006 && diff>0)
{
Comment("diff ",diff," Sell eur");
Alert ("USDCHF ",diff," Difference SELL EURUSD");
}
if (Curency == "CHF") Idx[i] = UsdChf[i];
}
}
Sample
Analysis
Market Information Used:
Indicator Curves created:
Implements a curve of type DRAW_LINE
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Other Features: