Omzetten metastock --> vesticode//easy language

[predictor stick]

Hallo ,

In de TKA van maart 2005 wordt een Stochastic besproken op basis van de ATR.

Op hun site is wel onderstaande Metastock code te vinden maar geen EL .

Is er iemand die hier een oplossing voor heeft?

Alvast bedankt.




stochatr := Mov((((C - LLV(L,5))/ATR(20))-
((HHV(H,5) - LLV(L,5))/ATR(20))/2)*10,3,S);
sd := Stdev(stochatr,200 );
upb:= Mov(stochatr,200,S)+sd;
upb2:= Mov(stochatr,200,S)+2*sd;
lowb:= Mov(stochatr,200,S)-sd;
lowb2:= Mov(stochatr,200,S)-2*sd;
stochatr;
upb;
upb2;
lowb;
lowb2;

[Paul M]

vars:stochatr(0),sd(0),upb(0),upb2(0),lowb(0),lowb2(0);
stochatr := Average((((C - lowest(L,5))/AvgTrueRange(20))-
((Highest(H,5) -lowest(L,5))/AvgTrueRange(20))/2)*10,3);
sd := Stddev(stochatr,200 );
upb:= average(stochatr,200)+sd;
upb2:= average(stochatr,200)+2*sd;
lowb:= average(stochatr,200)-sd;
lowb2:= average(stochatr,200)-2*sd;
plot1(stochatr,"stochatr");
plot2(upb,"upb");
plot3(upb2,"upb2");
plot4(lowb,"lowb");
plot5(lowb2,"lowb2");

Paul

[Gast]

vestics kan maar 4 lijnen plotten als ik het goed zie

simon

[Pierre]

Hallo Simon,

In TradeStation (en EasyLanguage) kun je inderdaad maar 4 plots gebruiken.

In Vestics hebben we dat verhoogt naar 99 plots, maar die verhoging is nog niet helemaal doorgevoerd. Bij het instellen van de standaardkleuren voor de plots kun je namelijk alleen de eerste 4 instellen. Plots 5-99 komen daardoor altijd in grijs en moet je instellen in de grafiek nadat je indicator toegevoegd hebt.

vr. groeten,
Pierre Dolmans
Vestico helpdesk

[Paul M]

Hallo Pierre,

Ik zou het zeer op prijs stellen als het aantal plots uitgebreid zou worden naar bv 10 plots.



Paul

[predictor stick]

Bedankt Paul voor de prompte reactie.

Hij doet het

[predictor stick]

Hallo Pierre ,

Is het mogelijk om de eigenschappen van de plot te veranderen als aan bepaalde condities is voldaan ?

bv de dikte/kleur van de MA-lijn als de DMI > is dan 30 en weer anders als de DMI > 50 etc...

[Pierre]

Hallo Predictor Stick,

Nee, het is niet mogelijk om de instellingen van de lijn te veranderen.

Je kunt dat wel oplossen door meerdere plots te gebruiken...

if Condition1 then Plot1(xValue) else Plot2(xValue);

Door Plot1 bijv. rood te maken en Plot2 groen, kun je afhankelijk van de conditie een stukje rode of groene lijn tekenen.

In de praktijk is het ietsje moeilijker. Als je namelijk de overschakeld van de ene kleur naar de andere, dan sluiten de lijnstukken niet op elkaar aan. Er ontstaat een gat tussen de laatste bar van de vorige kleur en de eerste bar van de nieuwe kleur. Je lost dat op door de oude kleur nog 1 bar verder door te tekenen...

if Condition1 then begin
Plot1(xValue);
if Plot1[1]=_NA then Plot2(xValue);
end
else begin
Plot2(xValue);
if Plot2[1]=_NA then Plot1(xValue);
end;

Op dezelfde manier kun je uiteraard ook lijnen van verschillende dikte tekenen.

vr. groeten,
Pierre Dolmans
Vestico helpdesk

[JOjo]

Pierre,


Ik heb dit even uitgeprobeerd maar helaas sluiten de lijnstukken nog steeds niet aan op elkaar. Ziehier de gebruikte code.

value function EMA (
value xSeries[] { series used in calculation } = Close,
value xNumberOfDays { bars used in calculation } = 20) begin

value xEMA;
xEMA := vEMA(xSeries,xNumberOfDays);

if close > xEMA then begin
Plot1( xEMA,'1');
if Plot1[1]=_NA then
Plot2( xEMA,'2');
end
else begin Plot2( xEMA,'2');
if Plot2[1]=_NA then
Plot1( xEMA,'1');
end;
end;

Jo

[Paul M]

Hoi Jo,

Ik denk dat je het meer in deze richting moet zoeken.

value function zzJo (
value xSeries[] { series used in calculation } = Close,
value xNumberOfDays { bars used in calculation } = 20) begin
value xValue[],xI,xY,xCount;
xValue := vEMA(xSeries,xNumberOfDays);
xI=0;
xY=0;
condition1= close>xValue;
condition2= close<xValue;
if Condition1 then begin
xY=0;
xI=xI[1]+1;
for xCount=0 to xI do begin Plot1[xCount]=xValue[xCount];
end else plot1=_NA;
plot1(xValue);
end;

if Condition2 then begin
xI=0;
xY=xY[1]+1;
for xCount=0 to xY do begin Plot2[xCount]=xValue[xCount];
end else plot2=_NA;
Plot2(xValue);
end;
end;

Paul

[Joop Henzen]

Hallo Paul


in de 2e regel gaat het fout

xValue := vEMA(xSeries,xNumberOfDays);

bij x Series wordt kennelijke een variabele verwacht

weet jij ( natuurlijk ) de oplossing ?


groet


Joop

[Paul M]

Hallo Joop,

Inderdaad ik zie het, ik heb hem maar half gekopieerd.
Mijn excuus.
Hij staat er nu wel.

Groeten Paul

[Dirk]

Heren,

Hebben jullie enig idee hoe je dit kunt toepassen op de candlesticks zelf. Dus een candlestick kleurt rood bij bijvoorbeeld een RSI van > 80 en groen bij een RSI van < 20.