Помогите добавить индикатор

Maxson-M

Выложите пожалуйста индикатор Heiken Ashi для Trading Desk Pro Smile

LanguageSupport

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

if BarNumber = 1 then
begin
haOpen = open;
haClose = (Open+High+Low+Close)/4;
haHigh = MaxList(high, haOpen, haClose);
haLow = MinList(low, haOpen,haClose);
end;

if BarNumber > 1 then
begin
haClose = (Open+High+Low+Close)/4;
haOpen = (haOpen [1] + haClose [1])/2 ;
haHigh = MaxList(High, haOpen, haClose) ;
haLow = MinList(Low, haOpen, haClose) ;
end;

Plot1(haOpen, "haOpen");
Plot2(haClose, "haClose");
Plot3(haHigh, "haHigh");
Plot4(haLow, "haLow");