MT4 volatility indicator for ProRealTime

• 04/06/2017 at 1:20 PM #31253
  Henry

  A request that was addressed to ProRealTime:

  I would like to translate from MT4 a volatility indicator that I found on a italian trading text. The indicator is based on a modified ATR. Here attached MQL4 source file.
  Best regards

  #property indicator_separate_window #property indicator_buffers 3 //COLORS #property indicator_color1 DodgerBlue #property indicator_color2 Green #property indicator_color3 Yellow //--- input parameters extern int ATRDPeriods = 3; //--- buffers double AtrBuffer[]; double AtrDPlusBuffer[]; double AtrDMinusBuffer[]; double TempBuffer[]; //|Custom indicator initialization function| int init() { string short_name; IndicatorBuffers(3); //---- indicator line SetIndexStyle(0,DRAW_LINE); SetIndexStyle(1,DRAW_LINE); SetIndexStyle(2,DRAW_LINE); SetIndexBuffer(0,AtrDPlusBuffer); SetIndexBuffer(1,AtrDMinusBuffer); SetIndexBuffer(2,AtrBuffer); //---- name for DataWindow and indicator subwindow label short_name="ATRD(" + ATRDPeriods + ")"; IndicatorShortName(short_name); SetIndexLabel(0,"Plus volatility"); SetIndexLabel(1,"Minus volatility"); SetIndexLabel(2,"ATR"); //---- SetIndexDrawBegin(0,ATRDPeriods); SetIndexDrawBegin(1,ATRDPeriods); SetIndexDrawBegin(2,ATRDPeriods); //---- return(0); } // Average True Range int start() { int i; int counted_bars=IndicatorCounted(); if(Bars<=ATRDPeriods) return(0); //---- initial zero if(counted_bars<1) { for(i=1;i<=ATRDPeriods;i++) { AtrBuffer[Bars-i]=0; AtrDPlusBuffer[Bars-i]=0; AtrDMinusBuffer[Bars-i]=0; } } if(counted_bars>0) counted_bars--; int limit = Bars-counted_bars; for(i=0; i<limit; i++) { double ATRI; double RPlus; double RMinus; ATRI = 0; RPlus = 0; RMinus = 0; for(int y=i;y<i+ATRDPeriods;y++) { ATRI = ATRI+MathMax(High[y],High[y+1])-MathMin(Low[y],Low[y+1]); //Corpo Positivo if(Open[y]<Close[y]) { RPlus=RPlus+(Close[y]-Open[y]); //Il Body + le Shadow RMinus=RMinus+(High[y]-Close[y])+(Open[y]-Low[y]); RPlus=RPlus+(High[y]-Open[y])+(Close[y]-Low[y]); if(High[y+1]>High[y])RMinus=RMinus + (High[y+1]-High[y]); if(Low[y+1]<Low[y])RPlus=RPlus+(Low[y]-Low[y+1]); } //Corpo Negativo if(Open[y]>Close[y]) { RMinus = RMinus+(Open[y]-Close[y]); RPlus = RPlus+(High[y]-Open[y])+(Close[y]-Low[y]); RMinus = RMinus + (High[y]-Close[y])+(Open[y]-Low[y]); if(High[y+1]>High[y])RMinus=RMinus+(High[y+1]-High[y]); if(Low[y+1]<Low[y])RPlus = RPlus+(Low[y]-Low[y+1]); } //Doji if(Open[y]==Close[y]) { RPlus = RPlus+(High[y]-Low[y]); RMinus = RMinus + (High[y]-Low[y]); if(High[y+1]>High[y])RMinus = RMinus+(High[y+1]-High[y]); if(Low[y+1]<Low[y])RPlus = RPlus+(Low[y]-Low[y+1]); } } AtrBuffer[i]=ATRI/ATRDPeriods; AtrDPlusBuffer[i]=RPlus/ATRDPeriods; AtrDMinusBuffer[i]=RMinus/ATRDPeriods; } return(0); }

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120

  #property indicator_separate_window #property indicator_buffers 3   //COLORS #property indicator_color1 DodgerBlue #property indicator_color2 Green #property indicator_color3 Yellow   //--- input parameters extern int ATRDPeriods = 3;   //--- buffers double AtrBuffer[]; double AtrDPlusBuffer[]; double AtrDMinusBuffer[];   double TempBuffer[];   //|Custom indicator initialization function| int init() { string short_name;   IndicatorBuffers(3);   //---- indicator line SetIndexStyle(0,DRAW_LINE); SetIndexStyle(1,DRAW_LINE); SetIndexStyle(2,DRAW_LINE);   SetIndexBuffer(0,AtrDPlusBuffer); SetIndexBuffer(1,AtrDMinusBuffer); SetIndexBuffer(2,AtrBuffer);   //---- name for DataWindow and indicator subwindow label short_name="ATRD(" + ATRDPeriods + ")"; IndicatorShortName(short_name);   SetIndexLabel(0,"Plus volatility"); SetIndexLabel(1,"Minus volatility"); SetIndexLabel(2,"ATR");   //---- SetIndexDrawBegin(0,ATRDPeriods); SetIndexDrawBegin(1,ATRDPeriods); SetIndexDrawBegin(2,ATRDPeriods);   //---- return(0); } // Average True Range int start() { int i; int counted_bars=IndicatorCounted();   if(Bars<=ATRDPeriods) return(0);   //---- initial zero if(counted_bars<1) { for(i=1;i<=ATRDPeriods;i++) { AtrBuffer[Bars-i]=0; AtrDPlusBuffer[Bars-i]=0; AtrDMinusBuffer[Bars-i]=0; } }   if(counted_bars>0) counted_bars--;   int limit = Bars-counted_bars;   for(i=0; i<limit; i++) { double ATRI; double RPlus; double RMinus;   ATRI = 0; RPlus = 0; RMinus = 0;   for(int y=i;y<i+ATRDPeriods;y++) { ATRI = ATRI+MathMax(High[y],High[y+1])-MathMin(Low[y],Low[y+1]); //Corpo Positivo if(Open[y]<Close[y]) { RPlus=RPlus+(Close[y]-Open[y]); //Il Body + le Shadow RMinus=RMinus+(High[y]-Close[y])+(Open[y]-Low[y]); RPlus=RPlus+(High[y]-Open[y])+(Close[y]-Low[y]); if(High[y+1]>High[y])RMinus=RMinus + (High[y+1]-High[y]); if(Low[y+1]<Low[y])RPlus=RPlus+(Low[y]-Low[y+1]); } //Corpo Negativo if(Open[y]>Close[y]) { RMinus = RMinus+(Open[y]-Close[y]); RPlus = RPlus+(High[y]-Open[y])+(Close[y]-Low[y]); RMinus = RMinus + (High[y]-Close[y])+(Open[y]-Low[y]); if(High[y+1]>High[y])RMinus=RMinus+(High[y+1]-High[y]); if(Low[y+1]<Low[y])RPlus = RPlus+(Low[y]-Low[y+1]); } //Doji if(Open[y]==Close[y]) { RPlus = RPlus+(High[y]-Low[y]); RMinus = RMinus + (High[y]-Low[y]); if(High[y+1]>High[y])RMinus = RMinus+(High[y+1]-High[y]); if(Low[y+1]<Low[y])RPlus = RPlus+(Low[y]-Low[y+1]); } } AtrBuffer[i]=ATRI/ATRDPeriods; AtrDPlusBuffer[i]=RPlus/ATRDPeriods; AtrDMinusBuffer[i]=RMinus/ATRDPeriods; } return(0); }

   Suggestion for an anwser:

  Once period = 3 ATR = Highest[2](High) - Lowest[2](Low) RMinus = 0 RPlus = 0 If Open < Close then RPlus = (Close - Open) + (High - Open) + (Close - Low) RMinus = (High - Close) + (Open - Low) Elsif Open > Close then RMinus = (Open - Close) + (High - Close) + (Open - Low) RPlus = (High - Open) + (Close - Low) Elsif Open = Close then RPlus = High - Low RMinus = High - Low Endif If High > High[1] then RMinus = RMinus + (High - High[1]) Endif If Low < Low[1] then RPlus = RPlus + (Low[1] - Low) Endif ATRD = Average[period](ATR) ATRDPlus = Average[period](RPlus) ATRDMinus = Average[period](RMinus) Return ATRD Coloured(200,200,0) as "ATR", ATRDPlus Coloured(0,150,200) as "Volatility Plus", ATRDMinus Coloured(0,200,0) as "Volatility Minus"

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

  Once period = 3   ATR = Highest[2](High) - Lowest[2](Low) RMinus = 0 RPlus = 0   If Open < Close then    RPlus = (Close - Open) + (High - Open) + (Close - Low)    RMinus = (High - Close) + (Open - Low) Elsif Open > Close then    RMinus = (Open - Close) + (High - Close) + (Open - Low)    RPlus = (High - Open) + (Close - Low) Elsif Open = Close then    RPlus = High - Low    RMinus = High - Low Endif   If High > High[1] then    RMinus = RMinus + (High - High[1]) Endif If Low < Low[1] then    RPlus = RPlus + (Low[1] - Low) Endif   ATRD = Average[period](ATR) ATRDPlus = Average[period](RPlus) ATRDMinus = Average[period](RMinus)   Return ATRD Coloured(200,200,0) as "ATR", ATRDPlus Coloured(0,150,200) as "Volatility Plus", ATRDMinus Coloured(0,200,0) as "Volatility Minus"

   

  

  Henry

  Participant

  Topics: 36

  Replies: 4

  Been thanked: 13 times
• Author
  Posts