EasyLanguage OBV On Balance Volume Indicator

                            
// Big Mike Trading https://nexusfi.com

// April 6 2010

// Indicator

// Plot 1, 2, 3, 4 should be "Invisible" and are used for color place holders only



inputs:

    Length( 3 ),

    Smoothing ( 3 );



variables:

    var0( 0 ) ;



var0 = XAverage(XAverage(RSI(OBV, Length), Smoothing), Smoothing) - 50;



Plot1( var0, "AboveRising" );

Plot2( var0, "AboveFalling" );

Plot3( var0, "BelowRising" );

Plot4( var0, "BelowFalling" );

Plot5( var0, "OBV", iff(var0>0, iff(var0>var0[1], GetPlotColor(1), GetPlotColor(2)), iff(var0>var0[1], GetPlotColor(3), GetPlotColor(4))) );

Plot6( 0, "Zero" ); 




                        

                            
if BarType >= 2 then                              
    begin
    if Close > Close[1] then 
        OBV = OBV[1] + Volume 
    else if Close < Close[1] then 
        OBV = OBV[1] - Volume 
    else 
        OBV = OBV[1] ;
    end
else                                                                              
                                                                                 
    begin
    if Close > Close[1] then 
        OBV = OBV[1] + Ticks 
    else if Close < Close[1] then 
        OBV = OBV[1] - Ticks 
    else 
        OBV = OBV[1] ;
    end ; 




                        

BarType
Returns a numerical value, indicating the resolution units of the data series that the study is applied to. 
 



Usage
BarType 

The following values are returned for each type of resolution units: 

  0 – Ticks (Ticks & Contracts)
  1 – Intra-Day (Seconds, Minutes, & Hours)
  2 – Days
  3 – Weeks
  4 – Months, Quarters, & Years
  5 – Points & Changes 
 



Example
Assign a value, indicating the resolution units of the data series that the study is applied to, to Value1 variable: 

Value1=BarType;