AdaptiveRenko

#property description "Adaptive Renko"

#property version   "1.10"

#property indicator_chart_window 

#property indicator_buffers 4

#property indicator_plots   4

#property indicator_type1   DRAW_LINE

#property indicator_color1  DodgerBlue

#property indicator_style1 STYLE_DASHDOTDOT

#property indicator_width1  1

#property indicator_label1  "Lower AdaptiveRenko"

#property indicator_type2   DRAW_LINE

#property indicator_color2  Magenta

#property indicator_style2 STYLE_DASHDOTDOT

#property indicator_width2  1

#property indicator_label2 "Upper AdaptiveRenko"

#property indicator_type3   DRAW_LINE

#property indicator_color3  Lime

#property indicator_style3 STYLE_SOLID

#property indicator_width3  4

#property indicator_label3  "AdaptiveRenko Support"

#property indicator_type4   DRAW_LINE

#property indicator_color4  Red

#property indicator_style4 STYLE_SOLID

#property indicator_width4  4

#property indicator_label4 "AdaptiveRenko Resistance"

#define RESET 0 // the constant for getting the command for the indicator recalculation back to the terminal

enum IndMode //Type of constant
  {
   ATR,     //ATR indicator
   StDev    //StDev indicator
  };

enum PriceMode //Type of constant
  {
   HighLow_, //High/Low
   Close_    //Close
  };

input double K=1; //multiplier
input IndMode Indicator=ATR; //indicator to calculate
input uint VltPeriod=10; // period of volatility
input PriceMode Price=Close_; //price calculation method
input uint WideMin=2; // the minimum thickness of a brick in points

double sens;

double DnBuffer[],UpBuffer[];
double UpTrendBuffer[],DnTrendBuffer[];

int  min_rates_total;

int Ind_Handle;

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

   min_rates_total=int(VltPeriod);
   sens=WideMin*_Point;

   if(Indicator==ATR) Ind_Handle=iATR(NULL,0,VltPeriod);
   else  Ind_Handle=iStdDev(NULL,0,VltPeriod,0,MODE_SMA,PRICE_CLOSE);
   if(Ind_Handle==INVALID_HANDLE) Print(" Failed to get handle of the indicator");

   SetIndexBuffer(0,UpBuffer,INDICATOR_DATA);

   PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total);

   ArraySetAsSeries(UpBuffer,true);

   PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,0);

   SetIndexBuffer(1,DnBuffer,INDICATOR_DATA);

   PlotIndexSetInteger(1,PLOT_DRAW_BEGIN,min_rates_total);

   ArraySetAsSeries(DnBuffer,true);

   PlotIndexSetDouble(1,PLOT_EMPTY_VALUE,0);

   SetIndexBuffer(2,UpTrendBuffer,INDICATOR_DATA);

   PlotIndexSetInteger(2,PLOT_DRAW_BEGIN,min_rates_total);

   ArraySetAsSeries(UpTrendBuffer,true);

   PlotIndexSetDouble(2,PLOT_EMPTY_VALUE,0);

   SetIndexBuffer(3,DnTrendBu

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