Omzetten metastock --> vesticode//easy language

Vragen en suggesties over handelssystemen en indicatoren

Moderator: Perry

Omzetten metastock --> vesticode//easy language

Berichtdoor predictor stick » za 16 apr 2005, 14:25

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;
predictor stick
 
Berichten: 13
Geregistreerd op: za 16 apr 2005, 14:20
Woonplaats: Noord-Brabant

Berichtdoor Paul M » za 16 apr 2005, 16:18

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
Paul M
 
Berichten: 263
Geregistreerd op: vr 13 dec 2002, 23:21

Berichtdoor Gast » za 16 apr 2005, 20:04

vestics kan maar 4 lijnen plotten als ik het goed zie

simon
Gast
 

Berichtdoor Pierre » zo 17 apr 2005, 11:55

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
Pierre
 
Berichten: 412
Geregistreerd op: di 02 okt 2001, 9:46
Woonplaats: Leerdam

Berichtdoor Paul M » di 19 apr 2005, 19:13

Hallo Pierre,

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



Paul
Paul M
 
Berichten: 263
Geregistreerd op: vr 13 dec 2002, 23:21

Bedankt Paul

Berichtdoor predictor stick » di 19 apr 2005, 19:31

Bedankt Paul voor de prompte reactie.

Hij doet het :D
predictor stick
 
Berichten: 13
Geregistreerd op: za 16 apr 2005, 14:20
Woonplaats: Noord-Brabant

ploteigenschappen veranderen in grafiek

Berichtdoor predictor stick » di 19 apr 2005, 19:40

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...
predictor stick
 
Berichten: 13
Geregistreerd op: za 16 apr 2005, 14:20
Woonplaats: Noord-Brabant

Berichtdoor Pierre » di 19 apr 2005, 19:50

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
Pierre
 
Berichten: 412
Geregistreerd op: di 02 okt 2001, 9:46
Woonplaats: Leerdam

ploteigenchappen veranderen in grafieken

Berichtdoor JOjo » wo 04 mei 2005, 7:15

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
JOjo
 

Berichtdoor Paul M » wo 04 mei 2005, 15:25

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
Laatst bijgewerkt door Paul M op wo 04 mei 2005, 19:09, in het totaal 2 keer bewerkt
Paul M
 
Berichten: 263
Geregistreerd op: vr 13 dec 2002, 23:21

Berichtdoor Joop Henzen » wo 04 mei 2005, 18:07

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
Joop Henzen
 
Berichten: 215
Geregistreerd op: ma 30 dec 2002, 14:21
Woonplaats: Bussum

Berichtdoor Paul M » wo 04 mei 2005, 19:00

Hallo Joop,

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

Groeten Paul
Paul M
 
Berichten: 263
Geregistreerd op: vr 13 dec 2002, 23:21

Berichtdoor Dirk » do 05 mei 2005, 22:41

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.
Een vriendelijke groet,

Dick
Dirk
 
Berichten: 28
Geregistreerd op: wo 07 aug 2002, 16:30
Woonplaats: Rosmalen


Keer terug naar Handelssystemen + Indicatoren

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers en 2 gasten