rsioma_slope_mtfalerts_1.01.mq5

#property indicator_separate_window
#property indicator_buffers    3
#property indicator_color1     LimeGreen
#property indicator_color2     Red
#property indicator_color3     Red
#property indicator_width1     2
#property indicator_width2     2
#property indicator_width3     2
#property indicator_level1     0

extern string TimeFrame       = "Current time frame";
extern int    RsiOma_Period   = 14;
extern int    RsiOma_Price    = 0;
extern int    RsiOma_Mode     = MODE_LWMA;
extern int    MaPeriod        = 10;
extern int    MaType          = MODE_LWMA;

extern bool   LinesVisible    = false;
extern string LinesID         = "Rsioma slope 1";
extern color  LinesUpColor    = LimeGreen;
extern color  LinesDnColor    = OrangeRed;
extern int    LinesStyle      = STYLE_SOLID;
extern int    LinesWidth      = 0;

extern string note            = "turn on Alert = true; turn off = false";
extern bool   alertsOn        = false;
extern bool   alertsOnCurrent = true;
extern bool   alertsMessage   = true;
extern bool   alertsSound     = false;
extern bool   alertsEmail     = false;
extern string soundfile       = "alert2.wav";

double rsi[];
double slp[];
double slpda[];
double slpdb[];
double ma[];
double mab[];
double trend[];
double slope[];

string shortName;
string indicatorFileName;
int    timeFrame;
bool   returnBars;
bool   calculateValue;

int init()
{
      // код доступен только после оплаты
   }

int deinit()
{
   string find = LinesID+":";
   for (int i=ObjectsTotal()-1; i>= 0; i--)
   {
      string name = ObjectName(i); if (StringFind(name,find)==0) ObjectDelete(name);
   }
   return(0); 
}

int start()
{
      // код доступен только после оплаты
   }
   int counted_bars=IndicatorCounted();
   int i,limit;

   if(counted_bars<0) return(-1);
   if(counted_bars>0) counted_bars--;
         limit = MathMin(Bars-counted_bars,Bars-1);
         if (returnBars) { rsi[0] = limit+1; return(0); }

   if (calculateValue || timeFrame==Period())
   {
     int window = WindowFind(shortName);
     if  (slope[limit] == -1) ClearPoint(limit,slpda,slpdb);
     for (i=limit; i >= 0; i--) mab[i] = iMA(NULL,0,RsiOma_Period,0,RsiOma_Mode,RsiOma_Price,i);
     for (i=limit; i >= 0; i--) rsi[i] = iRSIOnArray(mab,0,RsiOma_Period,i);
     for (i=limit; i >= 0; i--)
     {
        ma[i]  = iMAOnArray(rsi,0,MaPeriod,0,MaType,i);
        slp[i] = ma[i]-ma[i+1];
        slpda[i] = EMPTY_VALUE;
        slpdb[i] = EMPTY_VALUE;
        slope[i] = slope[i+1];
        trend[i] = trend[i+1]; 

	     if (slp[i] > slp[i+1]) slope[i]= 1; 
	     if (slp[i] < slp[i+1]) slope[i]=-1;
	     if (slp[i] > 0)        trend[i]= 1; 
	     if (slp[i] < 0)        trend[i]=-1;
	     if (slope[i] == -1) PlotPoint(i,slpda,slpdb,slp);
        if (LinesVisible && window>-1)
        {
          string name = LinesID+":"+Time[i];
            ObjectDelete(name);
            if (trend[i]!=trend[i+1])
            {
               color theColor  = LinesUpColor; if (trend[i]==-1) theColor = LinesDnColor;
                  ObjectCreate(name,OBJ_VLINE,window,Time[i],0);
                     ObjectSet(name,OBJPROP_WIDTH,LinesWidth);
                     ObjectSet(name,OBJPROP_STYLE,LinesStyle);
                     ObjectSet(name,OBJPROP_C

Показано первые 50% кода (символов: 5672)