Vestics Beleggers Netwerk

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);

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

Paul

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

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)