dl hurst macd st2050 v3.1.mq5

#property version   "1.01"
#property  description "Dragons Lair Forex aims to interpret price action"
#property  description "on a day to day basis using classic and timeless "
#property  description "principles to gain an orientation and identify"
#property  description "key areas of interest for optimal trading." 
#property  description "---"
#property  description "Updated by st2050"
#property  description "Welcome to forexsystemsru.com"
#property strict

#include <MovingAverages.mqh>

#property  indicator_separate_window
#property  indicator_buffers 4
#property  indicator_color1  RoyalBlue
#property  indicator_color2  Sienna
#property  indicator_color3  CLR_NONE
#property  indicator_width1  2
#property  indicator_width2  2

#property indicator_levelcolor DimGray

input bool use_SMA = true;
input int SignalSMA=9;  // Signal SMA Period

extern string TMA_centered_name = "TMAcentered";
extern int TMA_slow_value = 66;
extern int TMA_fast_value = 22;

extern string st2050CommomSettings = "--- st2050 Common Settings ---";
extern int    Timeframe            = 240;
extern int    MaxBars              = 1000;
extern bool   WaitForClose         = true;
extern bool   RecalcOnClose        = true;
extern string st2050LevelsSettings = "--- st2050 Levels Settings ---";
extern color  LevelColorUp         = RoyalBlue;
extern color  LevelColorDown       = Sienna;
extern color  LevelZeroColor       = DimGray;
extern bool   SetZeroLevel         = true;
extern bool   SetCommonLevels      = true;
extern double CommonLevelDistance  = 20;
extern bool   SetExtraLevels       = true;
extern double ExtraLevelDistance   = 50;

double    MacdBuffer1[];
double    MacdBuffer2[];
double    SignalBuffer[];
double    MACDmaster[];

string IndicatorName;
int    WindowNo;
double PeriodMultiplier;

int deinit() { 

   RemoveObjects(IndicatorName);
   return(0); 
}

void RemoveObjects(string PreName)
{
   for(int k=ObjectsTotal()-1; k>=0; k--) 
     {
      string Obj_Name=ObjectName(k);                           // Запpашиваeм имя объeкта
      string Head=StringSubstr(Obj_Name,0,StringLen(PreName)); // Извлeкаeм первыe симолы
      if (Head==PreName)// Найдeн объeкт, ..
         {
         ObjectDelete(Obj_Name);
         }                  
     }
}

int OnInit(void)
{
      // код доступен только после оплаты
   }
   IndicatorDigits(Digits+1);

   SetIndexBuffer(0,MacdBuffer1);
   SetIndexStyle(0,DRAW_HISTOGRAM);

   SetIndexBuffer(1,MacdBuffer2);
   SetIndexStyle(1,DRAW_HISTOGRAM);

   SetIndexBuffer(2,SignalBuffer);
   SetIndexStyle(2,DRAW_LINE);

   SetIndexBuffer(3,MACDmaster);
   SetIndexStyle(3,DRAW_NONE);

   SetIndexDrawBegin(1,SignalSMA);

   if (Timeframe<=0) Timeframe=Period();

   IndicatorName="DL_Hurst_MACD_"+ IntegerToString(Timeframe);
   IndicatorShortName(IndicatorName);

   WindowNo=ChartWindowFind(ChartID(), IndicatorName);
   RemoveObjects(IndicatorName);

   string ObjName;
   double LevelValue;
   PeriodMultiplier=Timeframe/Period();

   if (SetZeroLevel)
   {
     ObjName=IndicatorName+"Level_Zero";
     ObjectCreate(0, ObjName, OBJ_HLINE, WindowNo, Time[0], 0);
     ObjectSet(ObjName, OBJPROP_COLOR, LevelZeroColor);
     ObjectSet(ObjName, OBJPROP_STYLE, STYLE_DOT); 
   }
   if (SetCommonLevels)
   {
     LevelValue=CommonLevelDistance/MathPow(10,Digits-1);
     ObjName=IndicatorNa

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