protected override void OnBarUpdate()
{
    if( CurrentBar < 2 )
    {
        PDM.Set( 0 );
        MDM.Set( 0 );
        PDI.Set( 0 );
        MDI.Set( 0 );
        Out.Set( 0 );
        Main.Set( 0 );
        Rising.Set( 0 );
        Falling.Set( 0 );
        Neutral.Set( 0 );
        return;
    }
    try
    {
        int i = 0;
        PDM.Set( 0 );
        MDM.Set( 0 );
        if(Close[i]>Close[i+1])
            PDM.Set( Close[i]-Close[i+1] );//This array is not displayed.
        else
            MDM.Set( Close[i+1]-Close[i] );//This array is not displayed.
        
        PDM.Set(((WeightDM-1)*PDM[i+1] + PDM[i])/WeightDM);//ema.
        MDM.Set(((WeightDM-1)*MDM[i+1] + MDM[i])/WeightDM);//ema.
        
        double TR=PDM[i]+MDM[i];
        
        if (TR>0)
        {
            PDI.Set(PDM[i]/TR);
            MDI.Set(MDM[i]/TR);
        }//Avoid division by zero. Minimum step size is one unnormalized price pip.
        else
        {
            PDI.Set(0);
            MDI.Set(0);
        }
        
        PDI.Set(((WeightDI-1)*PDI[i+1] + PDI[i])/WeightDI);//ema.
        MDI.Set(((WeightDI-1)*MDI[i+1] + MDI[i])/WeightDI);//ema.

        double DI_Diff=PDI[i]-MDI[i];  
        if (DI_Diff<0)
            DI_Diff= -DI_Diff;//Only positive momentum signals are used.
        double DI_Sum=PDI[i]+MDI[i];
        double DI_Factor=0;//Zero case, DI_Diff will also be zero when DI_Sum is zero.
        if (DI_Sum>0)
            Out.Set(DI_Diff/DI_Sum);//Factional, near zero when PDM==MDM (horizonal), near 1 for laddering.
        else
            Out.Set(0);

          Out.Set(((WeightDX-1)*Out[i+1] + Out[i])/WeightDX);
        
        if (Out[i]>Out[i+1])
        {
            HHV=Out[i];
            LLV=Out[i+1];
        }
        else
        {
            HHV=Out[i+1];
            LLV=Out[i];
        }

        for(int j=1;j<Math.Min(ADXPeriod,CurrentBar);j++)
        {
            if(Out[i+j+1]>HHV)HHV=Out[i+j+1];
            if(Out[i+j+1]<LLV)LLV=Out[i+j+1];
        }
        
        
        double diff = HHV - LLV;//Veriable reference scale, adapts to recent activity level, unnormalized.
        double VI=0;//Zero case. This fixes the output at its historical level. 
        if (diff>0)
            VI=(Out[i]-LLV)/diff;//Normalized, 0-1 scale.
        
        //   if (VI_0.VIsq_1.VIsqroot_2==1)VI*=VI;
        //   if (VI_0.VIsq_1.VIsqroot_2==2)VI=MathSqrt(VI);
        //   if (VI>VImax)VI=VImax;//Used by Bemac with VImax=0.4, still used in vma1 and affects 5min trend definition.
                                //All the ema weight settings, including Chande, affect 5 min trend definition.
        //   if (VI<=zeroVIbelow)VI=0;                    
                                
        main.Set(((ChandeEMA-VI)*main[i+1]+VI*Close[i])/ChandeEMA);//Chande VMA formula with ema built in.
        if (main[0] > main[1])
        { Rising.Set(main[0]); Rising.Set(1, main[1]); }
        else if (main[0] < main[1])
        { Falling.Set(main[0]); Falling.Set(1, main[1]); }
        else
        { Neutral.Set(main[0]); Neutral.Set(1, main[1]); }
    }
    catch( Exception ex )
    {
        Print( ex.ToString() );
    }
}