Type : PaintBar, Name : Heikin Ashi

{ Heikin Ashi PaintBarStudy 1/20/04

Heikin-Ashi technique for visualization
of trend

best if you hide regular bar style:
Format Symbol, style tab, select Dot
on Close, color to white or black
}
inputs: UpColor(green),DnColor(red);

vars: haClose(0),haOpen(0),haHigh(0),haLow(0),
color(0);

if BarNumber = 1 then
begin
haOpen = open;
haClose = (O+H+L+C)/4;
haHigh = MaxList( high, haOpen, haClose);
haLow = MinList( low, haOpen,haClose);
end;

if BarNumber > 1 then
begin
haClose = (O+H+L+C)/4;
haOpen = (haOpen [1] + haClose [1])/2 ;
haHigh = MaxList(High, haOpen, haClose) ;
haLow = MinList(Low, haOpen, haClose) ;

if haClose > haOpen then
color = UpColor
else
color = DnColor;

plotPB(haOpen,haClose,"heikin-ashi",color);
SetPlotWidth(1,4);
SetPlotColor(1,color);
end;