Re: Tom Bierovic Indicators

["Mark Brown" <markbrown@xxxxxxxxxxxxx>]

Does anyone have Tom Bierovic indicators for TradeStation or SuperCharts or
MetaStock (or any other format)?

The ones I need most are for indentifying Micro-M Tops, Micro-W Bottoms,
On-Balance True Range and Pentagon Reversal Patterns.

Thanks.




=================================
below indicator code provided by

http://www.markbrown.com
http://www.traderware.com

name= PentRev
=================================


inputs:indc(slowk(7)),indlval(25),indhval(75);

vars:
pl(0),ph(0),plbar(0),phbar(0),keepl(0),keeph(0),keeplbar(0),keephbar(0),atrh
(0),atrl(0),penth(0),pentl(0);

if indc crosses over indhval then begin
ph=keeph;
phbar=keephbar;
keeph=0;
end;

if indc > indhval then begin
if h > keeph then begin
keeph=h;
keephbar=barnumber;
end;

atrh=average(truerange,minlist(barnumber-phbar,maxbarsback));
end;

penth=iff((indc>indhval or indc[1]>indhval)and
keeph>0 and c<o and c<c[1] and c<c[1]-.67*truerange and
keeph >ph and c<ph and truerange> atrh,1,0);

if indc crosses under indlval then begin
pl=keepl;
plbar=keeplbar;
keepl=999999;
end;

if indc< indlval then begin
if l < keepl then begin
keepl=l;
keeplbar=barnumber;
end;

atrl=average(truerange,minlist(barnumber-plbar,maxbarsback));
end;

pentl=iff((indc<indlval or indc[1]<indlval)and
keepl<999999 and c>o and c>c[1] and c>c[1]+.67*truerange and
keepl <pl and c>pl and truerange> atrh,1,0);

if penth=1 then plot1(h,"pentrevbear");
if pentl=1 then plot2(l,"pentrevbull");


=================================
below indicator code provided by

http://www.markbrown.com
http://www.traderware.com

name= ObTr
=================================


input:
initval(5000),
ema(21);
plot1(bbbobtr(initval),"obtr");
plot2(xaverage(bbbobtr(initval),ema),"ema");


=================================
below user func. code provided by

http://www.markbrown.com
http://www.traderware.com

name= bbbobtr
=================================


input:startval(numericsimple);
vars:obtr(0);
if currentbar=1 then begin obtr=startval;
end else begin
 if c>c[1] then obtr=obtr[1]+truerange;
 if c<c[1] then obtr=obtr[1]-truerange;
end;
bbbobtr=obtr;


=================================
below indicator code provided by

http://www.markbrown.com
http://www.traderware.com

name= Micro-M/W
=================================


VAR:top(0),bot(0),sept(0),lept(0),lookback(maxbarsback-2);

if high= highest(h,lookback)or l < sept then begin
top=0;sept=0;end;

if top>0 and  c[1]<c[2] and c>c[1] and sept=0 then sept=l;
if h[1]>highest(h[2],lookback)and h<h[1]then top=h[1];

if l=lowest(l,lookback)or h>lept then begin
bot=o; lept=999999;end;

if bot>0 and c[1]>c[2] and c<c[1] and
lept=999999 then lept= h;
if l[1]<lowest(l[2],lookback) and l>l[1]then bot = l[1];

if lept<999999 then plot1(lept,"w le point");
if sept>0 then plot2(sept,"m se point");