Inputs: Length1(500),Length2(100);
Vars: IntrabarPersist TickFlag(0),
IntrabarPersist OldPrice(0),
IntrabarPersist TMF(0),
IntrabarPersist NewTickVol(0),
IntrabarPersist MyBarVolume(0);
if BarNumber >= 1 then
begin
NewTickVol = Ticks - MyBarVolume;
MyBarVolume = MyBarVolume + NewTickVol;
if (C>=CurrentAsk) then begin
TMF=TMF + (C * NewTickVol);
TickFlag = 1;
end;
if (C<=CurrentBid) then begin
TMF=TMF - (C * NewTickVol);
TickFlag = 2;
end;
if (C<CurrentAsk and C>CurrentBid) and C>OldPrice then TMF=TMF + (C*NewTickVol);
if (C<CurrentAsk and C>CurrentBid) and C<OldPrice then TMF=TMF - (C*NewTickVol);
if (C<CurrentAsk and C>CurrentBid) and C=OldPrice and TickFlag = 1 then TMF=TMF + (C*NewTickVol);
if (C<CurrentAsk and C>CurrentBid) and C=OldPrice and TickFlag = 2 then TMF=TMF - (C*NewTickVol);
OldPrice = C;
if BarStatus(1) = 2 then MyBarVolume = 0;
end;
Plot1(TMF, "TMF");
{Plot2(LinearRegValue(Plot1,Length1,0));
Plot3(LinearRegValue(Plot1,Length2,0));}