EATA _Alert2.mq4
EATA _Alert2.mq4 FOREX MetaTrader4 Indicators Download
EATA _Alert2.mq4 download link will appear after 20 seconds.
EATA _Alert2.mq4 Programming source code.
#property indicator_separate_window
#property indicator_buffers 2
#property indicator_color1 Blue
#property indicator_color2 Red
#define SIGNAL_BAR 0
//---- input parameters
extern int CCI_per=14;
extern int RSI_per=14;
extern int Ma_Period=2;
extern int koef=8;
extern bool arrows = true;
double a=0,a1=0,a2=0,a3=0,a4=0,a5=0,a6=0,a7=0,a8=0;
double b=0,b1=0,b2=0,b3=0,b4=0,b5=0,b6=0,b7=0,b8=0;
double tt1max=0,tt2min=0;
//---- buffers
double ExtMapBuffer1[];
double ExtMapBuffer2[];
double ExtMapBuffer3[];
double ExtMapBuffer4[];
string sPrefix;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- indicators
IndicatorBuffers(4);
SetIndexStyle(0,DRAW_LINE,0,2);
SetIndexBuffer(0,ExtMapBuffer1);
SetIndexStyle(1,DRAW_LINE,0,2);
SetIndexBuffer(1,ExtMapBuffer2);
SetIndexBuffer(2,ExtMapBuffer3);
SetIndexBuffer(3,ExtMapBuffer4);
SetIndexLabel(0, "CCI-RSI");
SetIndexLabel(1, "RSI-CCI");
if (koef>8 || koef<0)koef=8;
sPrefix ="EATA pollan vers 2 (" + CCI_per + ", " + RSI_per + ": " + koef +" )";
IndicatorShortName(sPrefix) ;
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
DelOb();
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int limit=Bars-IndicatorCounted();
for(int i=limit-1;i>=0;i--)
{
a=iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i);
a1=(iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+1)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+1));
a2=(iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+2)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+2));
a3=(iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+3)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+3));
a4=(iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+4)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+4));
a5=(iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+5)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+5));
a6=(iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+6)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+6));
a7=(iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+7)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+7));
a8=(iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+8)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+8));
//tt1max=a+a1+a2+a3+a4+a5+a6+a7+a8;
b=iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i);
b1=(iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+1)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+1));
b2=(iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+2)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+2));
b3=(iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+3)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+3));
b4=(iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+4)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+4));
b5=(iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+5)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+5));
b6=(iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+6)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+6));
b7=(iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+7)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+7));
b8=(iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+8)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+8));
//tt2min=b+b1+b2+b3+b4+b5+b6+b7+b8;
switch(koef)
{
case 0 : tt1max=a; tt2min=b; break;
case 1 : tt1max=a+a1; tt2min=b+b1; break;
case 2 : tt1max=a+a1+a2; tt2min=b+b1+b2; break;
case 3 : tt1max=a+a1+a2+a3; tt2min=b+b1+b2+b3; break;
case 4 : tt1max=a+a1+a2+a3+a4; tt2min=b+b1+b2+b3+b4; break;
case 5 : tt1max=a+a1+a2+a3+a4+a5; tt2min=b+b1+b2+b3+b4+b5; break;
case 6 : tt1max=a+a1+a2+a3+a4+a5+a6; tt2min=b+b1+b2+b3+b4+b5+b6; break;
case 7 : tt1max=a+a1+a2+a3+a4+a5+a6+a7; tt2min=b+b1+b2+b3+b4+b5+b6+b7; break;
case 8 : tt1max=a+a1+a2+a3+a4+a5+a6+a7+a8; tt2min=b+b1+b2+b3+b4+b5+b6+b7+b8; break;
default : tt1max=a+a1+a2+a3+a4+a5+a6+a7+a8; tt2min=b+b1+b2+b3+b4+b5+b6+b7+b8;
}
ExtMapBuffer3[i]=tt1max;
ExtMapBuffer4[i]=tt2min;
}
for(i=0; i=ExtMapBuffer2[i] && ExtMapBuffer1[i+1]ExtMapBuffer2[i+1])
{
DrawAr("dn",i);
}
}
}
static int PrevSignal = 0, PrevTime = 0;
if(SIGNAL_BAR > 0 && Time[0] <= PrevTime)
return(0);
PrevTime = Time[0];
if(PrevSignal <= 0)
{
//---- Ïðîâåðÿåì, íå ïåðåñåêëèñü ëè ëèíèè íà ïðîøëîì áàðå:
if(ExtMapBuffer1[SIGNAL_BAR] - ExtMapBuffer2[SIGNAL_BAR] > 0 &&
ExtMapBuffer2[SIGNAL_BAR+1] - ExtMapBuffer1[SIGNAL_BAR+1] >= 0)
{
PrevSignal = 1;
Alert( "EATA Pollan (", Symbol(), ", ", Period(), ") - BUY!!!" );
}
}
if(PrevSignal >= 0)
{
if(ExtMapBuffer2[SIGNAL_BAR] - ExtMapBuffer1[SIGNAL_BAR] > 0 &&
ExtMapBuffer1[SIGNAL_BAR+1] - ExtMapBuffer2[SIGNAL_BAR+1] >= 0)
{
PrevSignal = -1;
Alert("EATA Pollan (", Symbol(), ", ", Period(), ") - SELL!!!");
}
}
return(0);
}
void DelOb()
{
int n = ObjectsTotal();
for (int i = n - 1; i >= 0; i--)
{
string sName = ObjectName(i);
if (StringFind(sName, sPrefix) == 0)
{
ObjectDelete(sName);
}
}
}
//----------------------------------------------------------------------
void DrawAr(string ssName, int i)
{
string sName=sPrefix+" "+ssName+" "+ TimeToStr(Time[i],TIME_DATE|TIME_MINUTES);
ObjectDelete(sName);
ObjectCreate(sName, OBJ_ARROW, 0, Time[i], 0);
double gap = 3.0*iATR(NULL,0,20,i)/4.0;
if(ssName=="up")
{
ObjectSet(sName, OBJPROP_ARROWCODE, 225);
ObjectSet(sName, OBJPROP_PRICE1, Low[i]-gap);
ObjectSet(sName, OBJPROP_COLOR, Lime);
}
if(ssName=="dn")
{
ObjectSet(sName, OBJPROP_ARROWCODE, 226);
ObjectSet(sName, OBJPROP_PRICE1, High[i]+gap);
ObjectSet(sName, OBJPROP_COLOR, Red);
}
ObjectSet(sName, OBJPROP_WIDTH, 1);
}
//---------------------------------------------------------+