thrunner
11-12-2007, 12:05 PM
After searching for CurrentBid and Ask and found that it is available in NT, would anyone be interested in tackling this indicator from TS; I apologize in advance if this is the wrong place or way to ask. Thank you :
{
TickMoneyFlow indicator from TS forum. D=68788&Page=2
The CurrentAsk/CurrentBid function returns the current real-time inside Ask/Bid for the last bar on the chart,
for use in a chart window.
CurrentAsk/CurrentBid cannot reference historical Ask/Bid data, and returns the Close of the bar for
all historical bars in a chart. Keep in mind that symbols that do not trade directly will report 0;
(e.g. Market Index Symbols).
}
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));
{
TickMoneyFlow indicator from TS forum. D=68788&Page=2
The CurrentAsk/CurrentBid function returns the current real-time inside Ask/Bid for the last bar on the chart,
for use in a chart window.
CurrentAsk/CurrentBid cannot reference historical Ask/Bid data, and returns the Close of the bar for
all historical bars in a chart. Keep in mind that symbols that do not trade directly will report 0;
(e.g. Market Index Symbols).
}
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));