Heikin-Ashi indicator

[cdjansen]

Onderstaande EasyLanguage code komt van belbeltka

De indicator zou aangepaste Candlesticks charts maken, maar werkt niet in Vestics2.
Kan iemand de fout vinden?


{Indicator: Heikin-Ashi}

inputs:
ShadowColor(White),
ShadowThickness(5),
UpBodyColor(Green),
DownbodyColor(Red),
BodyThickness(3);

variables:
haClose(0),
haOpen(0),
haHigh(0),
haLow(0),
TrLinIDlohi(0),
TRLinIDopcl(0),
SizeFuncRtn(0),
ColorFuncRtn(0);

haClose = (o+h+l+c)/4;
haOpen = (haOpen[1] + haClose[1])/2;
haHigh = MaxList(H, haOpen, haClose);
haLow = MinList(L, haOpen, haClose);

TrLinIDlohi = TL_New(Date, Time, haLow, Date, Time, haHigh);
SizeFuncRtn = TL_Setsize(TrLinIDlohi, ShadowThickness);
ColorFuncRtn = TL_SetColor(TrLinIDlohi, ShadowColor);
TRLinIDopcl = TL_New(Date, Time, haOpen, Date, Time, haClose);
if haOpen <= haClose then
? ColorFuncRtn = TL_SetColor(TRLinIDopcl, UpbodyColor)
else
? ColorFuncRtn = TL_SetColor(TRLinIDopcl, DownbodyColor); ?

SizeFuncRtn = TL_Setsize(TRLinIDopcl, Bodythickness);

[Paul M]

Het TL_........ is nog niet geimplementeerd in Vestics.

Paul

[bart lenselink]

Heeft iemand dan misschien zelf een Vestico indicator voor Heikin Ashi gemaakt?

[Paul M]

Hallo Bart,

Ik ben er wel eens mee bezig geweest en heb er toen binnen Vestics twee Colorbars van gemaakt, een voor up en een voor down.

Colorbar:
HeikinAshiUp

inputs: CompBars(6);

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

if BarNumber = 1 then
begin
?haOpen = open;
?haClose = (O+H+L+C)/4;
?
end;

if BarNumber > 1 then
begin
?haClose = (O+H+L+C)/4;
?haOpen = (haOpen [1] + haClose [1])/2 ;
?

?if haClose > haOpen then begin
? ?plot1(high);
? ?plot2(low);
?
end;
?for value1 = 1 to CompBars
?begin
? ?if haOpen <= haOpen[value1]>>haClose[value1] and
? ?haOpen >= haOpen[value1]<<haClose[value1] and
? ?haClose <= haOpen[value1]>>haClose[value1] and
? ?haClose >= haOpen[value1]<<haClose[value1] then
? ?plot1(high);
? ?plot2(low);
?end;
end;

Colorbar:

HeikinAshiDN

inputs: CompBars(6);

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

if BarNumber = 1 then
begin
?haOpen = open;
?haClose = (O+H+L+C)/4;
?
end;

if BarNumber > 1 then
begin
?haClose = (O+H+L+C)/4;
?haOpen = (haOpen [1] + haClose [1])/2 ;
?

?if haClose < haOpen then begin
? ?plot1(high);
? ?plot2(low);
?
end;
?for value1 = 1 to CompBars
?begin
? ?if haOpen <= haOpen[value1]>>haClose[value1] and
? ?haOpen >= haOpen[value1]<<haClose[value1] and
? ?haClose <= haOpen[value1]>>haClose[value1] and
? ?haClose >= haOpen[value1]<<haClose[value1] then
? ?plot1(high);
? ?plot2(low);
?end;
end;

Paul

Als iemand iets met de code wil doen graag even via edit kopieeren, want ik zie dat de code weer ?misvormd wordt weergegeven.



(Edited by Paul M at 6:50 pm op 20,april 2004)