VAMA Indicator For MT5
The VAMA Indicator For MT5 is a customized Moving Average that offers users the option to enable or disable a double smoothing. It gets overlaid as a Fire Brick colored curve on price.
The Velocity and Acceleration Moving Average (VAMA) tends to closely follow price; as such, crossover signals can lead to too many false entries. It is best utilized to detect the major trend direction. Entry along that trend may be pinpointed using supplemental technical confirmation tools. The VAMA can be applied on any Forex pair chart.
Installing the VAMA Indicator For MT5
After you downloaded the indicator via the form above you need to unzip the zip-file. Then you need to copy the file VAMA.mq5 into the folder MQL5\Indicators of your MT5 installation. After that please restart MT5 and then you will be able to see the indicator in the list of indicators.
Parameters of the VAMA Indicator For MT5
The VAMA Indicator For MT5 has 2 parameters to configure.
input uint InpPeriod = 10; // Period VAMA
input ENUM_APPLIED_PRICE InpAppliedPrice = PRICE_CLOSE; // Applied price
Buffers of the VAMA Indicator For MT5
The VAMA Indicator For MT5 provides 4 buffers.
SetIndexBuffer(0,BufferVAMA,INDICATOR_DATA);
SetIndexBuffer(1,BufferMA,INDICATOR_CALCULATIONS);
SetIndexBuffer(2,BufferVPrice,INDICATOR_CALCULATIONS);
SetIndexBuffer(3,BufferVol,INDICATOR_CALCULATIONS);
Main Parts Of The Code
int OnCalculate(const int rates_total,
const int prev_calculated,
const datetime &time[],
const double &open[],
const double &high[],
const double &low[],
const double &close[],
const long &tick_volume[],
const long &volume[],
const int &spread[])
{
//--- @ gt 25@:0 =0 lt 8=8 lt 0;L= gt 5 : gt ;85AB2 gt 10@ gt 2 4;O @0AGQB0
if(rates_total lt 4) return 0;
//--- #AB0= gt 2:0 lt 0AA82 gt 2 1CD5@ gt 2 :0: B09 lt A5@89
ArraySetAsSeries(BufferVAMA,true);
ArraySetAsSeries(BufferMA,true);
ArraySetAsSeries(BufferVPrice,true);
ArraySetAsSeries(BufferVol,true);
ArraySetAsSeries(tick_volume,true);
//--- @ gt 25@:0 8 @0AGQB : gt ;8G5AB20 ?@ gt AG8BK205 lt KE 10@ gt 2
int limit=rates_total-prev_calculated;
if(limit gt 1)
{
limit=rates_total-1;
ArrayInitialize(BufferVAMA,EMPTY_VALUE);
ArrayInitialize(BufferMA,EMPTY_VALUE);
ArrayInitialize(BufferVPrice,EMPTY_VALUE);
ArrayInitialize(BufferVol,EMPTY_VALUE);
}
//--- gt 43 gt B gt 2:0 40==KE
int copied=(limit gt 1 ? rates_total : 1);
int copied_ma=CopyBuffer(handle_ma,0,0,copied,BufferMA);
if(copied_ma!=copied) return 0;
for(int i=limit; i gt =0 && !IsStopped(); i--)
{
BufferVPrice[i]=BufferMA[i]*tick_volume[i];
BufferVol[i]=(double)tick_volume[i];
}
//--- 0AGQB 8=48:0B gt @0
double summ_vol;
for(int i=limit; i gt =0 && !IsStopped(); i--)
{
summ_vol=iMAOnArray(BufferVol,rates_total,period_ma,0,MODE_SMA,i);
BufferVAMA[i]=iMAOnArray(BufferVPrice,rates_total,period_ma,0,MODE_SMA,i)/(summ_vol gt 0 ? summ_vol : DBL_MIN);
}
//--- return value of prev_calculated for next call
return(rates_total);
}
//+------------------------------------------------------------------+
//| iMAOnArray() https://www.mql5.com/ru/articles/81 |
//+------------------------------------------------------------------+
double iMAOnArray(double &array[],int total,int period,int ma_shift,int ma_method,int shift)
{
double buf[],arr[];
if(total==0) total=ArraySize(array);
if(total gt 0 && total lt =period) return(0);
if(shift gt total-period-ma_shift) return(0);
//---
switch(ma_method)
{
case MODE_SMA :
{
total=ArrayCopy(arr,array,0,shift+ma_shift,period);
if(ArrayResize(buf,total) lt 0) return(0);
double sum=0;
int i,pos=total-1;
for(i=1;i lt period;i++,pos--)
sum+=arr[pos];
while(pos gt =0)
{
sum+=arr[pos];
buf[pos]=sum/period;
sum-=arr[pos+period-1];
pos--;
}
return(buf[0]);
}
case MODE_EMA :
{
if(ArrayResize(buf,total) lt 0) return(0);
double pr=2.0/(period+1);
int pos=total-2;
while(pos gt =0)
{
if(pos==total-2) buf[pos+1]=array[pos+1];
buf[pos]=array[pos]*pr+buf[pos+1]*(1-pr);
pos--;
}
return(buf[shift+ma_shift]);
}
case MODE_SMMA :
{
if(ArrayResize(buf,total) lt 0) return(0);
double sum=0;
int i,k,pos;
pos=total-period;
while(pos gt =0)
{
if(pos==total-period)
{
for(i=0,k=pos;i lt period;i++,k++)
{
sum+=array[k];
buf[k]=0;
}
}
else sum=buf[pos+1]*(period-1)+array[pos];
buf[pos]=sum/period;
pos--;
}
return(buf[shift+ma_shift]);
}
case MODE_LWMA :
{
if(ArrayResize(buf,total) lt 0) return(0);
double sum=0.0,lsum=0.0;
double price;
int i,weight=0,pos=total-1;
for(i=1;i lt =period;i++,pos--)
{
price=array[pos];
sum+=price*i;
lsum+=price;
weight+=i;
}
pos++;
i=pos+period;
while(pos gt =0)
{
buf[pos]=sum/weight;
if(pos==0) break;
pos--;
i--;
price=array[pos];
sum=sum-lsum+price*period;
lsum-=array[i];
lsum+=price;
}
return(buf[shift+ma_shift]);
}
default: return(0);
}
return(0);
}
//+------------------------------------------------------------------+