【MoneyFlow】
[code]inputs: Len( numericsimple) ;variables: var0( 0 ), var1( 0 ) ;
if BarType >= 2 and BarType < 5 then
begin
var0 = SummationIF( H + L + C > ( H + L + C )[1], ( H + L + C ) * Volume,
Len ) ;
var1 = Summation( ( H + L + C ) * Volume, Len ) ;
end
else
begin
var0 = SummationIF( H + L + C > ( H + L + C )[1], ( H + L + C ) * Ticks,
Len ) ;
var1 = Summation( ( H + L + C ) * Ticks, Len ) ;
end ;
if var1 <> 0 then
MoneyFlow = 100 * var0 / var1
else
MoneyFlow = 0 ;
[/code]
页:
[1]