Finite Volume Element (FVE)

Type : Indicator, Name : FiniteVolumeElement
inputs:
CutOff( .003 ),
Samples( 22 );

variables:
TP( 0 ),
MF( 0 ),
VolumePlusMinus( 0 ),
FVEsum( 0 ),
FveFactor( 0 ),
FVE( 0 ) ;

TP = ( High + Low + Close ) / 3 ;
MF = ( Close - (High + Low ) / 2 )+ TP - TP[1] ;
if MF > CutOff * Close then
FveFactor = 1
else if MF < -1 * CutOff * Close then
FveFactor = -1
else
FveFactor = 0 ;
if BarNumber > Samples then
begin
VolumePlusMinus = Volume * FveFactor ;
FVEsum = Summation( VolumePlusMinus, Samples ) ;
FVE = ( FVEsum / (Average( Volume, Samples) * samples ) ) * 100 ;
Plot1( Average(FVE,1 ) ) ;
end ;

Type : Indicator, Name : FinVolEleLinRegSl
inputs:
CutOff( .003 ),
Samples( 22 ),
PriceSlopeFactor( 30 ) ;

variables:
TP( 0 ),
MF( 0 ),
VolumePlusMinus( 0 ),
FVEsum( 0 ),
FveFactor( 0 ),
FVE( 0 ),
FVESlope( 0 ),
PriceSlope( 0 ) ;

TP = (High + Low + Close ) / 3 ;
MF = (Close - (High + Low ) / 2 )+ TP - TP[1] ;
if MF > CutOff * Close then
FveFactor = 1
else if MF < -1 * CutOff * Close then
FveFactor = -1
else
FveFactor = 0 ;
if BarNumber > Samples then
begin
VolumePlusMinus = Volume * FveFactor ;
FVEsum = Summation( VolumePlusMinus, Samples ) ;
FVE = ( FVEsum / (Average( Volume, Samples ) * samples ) ) * 100 ;
FVESlope = LinearRegSlope(FVE , 35 ) ;
PriceSlope = LinearRegSlope(close, 35 ) ;
Plot1( FVESlope, "FVESlope" ) ;
Plot2( PriceSlope * PriceSlopeFactor, "PriceSlope");
Plot3( 0 ) ;
end ;