KST - wat is er fout ?

[Joop Henzen]

Wie weet wat er aangepast moet worden om dit systeem ook in Vestics te laten werken


groet


Joop Henzen

Formule KST Metastock

{Metastock KST ? dagelijkse data}
KST1:=(Mov(ROC(C,10,%),10,S)*1)+
(Mov(ROC(C,15,%),10,S)*2)+
(Mov(ROC(C,20,%),10,S)*3)+
(Mov(ROC(C,30,%),15,S)*4);

KST1;
Mov(KST1,10,S);
0

{Metastock KST ? wekelijkse data}
KST2:=(Mov(ROC(C,10,%),10,S)*1)+
(Mov(ROC(C,13,%),13,S)*2)+
(Mov(ROC(C,15,%),15,S)*3)+
(Mov(ROC(C,20,%),20,S)*4);

KST2;
Mov(KST2,10,S);
0

{Metastock KST ? maandelijkse data}
KST3:=(Mov(ROC(C,9,%),6,S)*1)+
(Mov(ROC(C,12,%),6,S)*2)+
(Mov(ROC(C,18,%),6,S)*3)+
(Mov(ROC(C,24,%),9,S)*4);

KST3;
Mov(KST3,10,S);
0

Formule KST Metastock

{Metastock KST ? dagelijkse data}
KST1:=(Mov(ROC(C,10,%),10,S)*1)+
(Mov(ROC(C,15,%),10,S)*2)+
(Mov(ROC(C,20,%),10,S)*3)+
(Mov(ROC(C,30,%),15,S)*4);

KST1;
Mov(KST1,10,S);
0

{Metastock KST ? wekelijkse data}
KST2:=(Mov(ROC(C,10,%),10,S)*1)+
(Mov(ROC(C,13,%),13,S)*2)+
(Mov(ROC(C,15,%),15,S)*3)+
(Mov(ROC(C,20,%),20,S)*4);

KST2;
Mov(KST2,10,S);
0

{Metastock KST ? maandelijkse data}
KST3:=(Mov(ROC(C,9,%),6,S)*1)+
(Mov(ROC(C,12,%),6,S)*2)+
(Mov(ROC(C,18,%),6,S)*3)+
(Mov(ROC(C,24,%),9,S)*4);

KST3;
Mov(KST3,10,S);
0

[willie]

Ik weet niet helemaal of dit de goeie is, ?maar hier de el code van kst



{Martin Pring's KST-indicator}

VARS: KST(0), KSTtr(0);
INPUTS: KSTtrL(9);

KST=Average(rateofchange(C,10),10)+2*Average(rateofchange(C,15),10)+3*Average(rateofchange(C,20),10)+4*Average(rateofchange(C,30),15);

KSTtr=Average(KST,KSTtrL);

Plot1(KST,"kst");
plot2(KSTtr, "trigger");


gr.

willie

[Paul M]

Hallo Joop,

Value function KSTDaily (value xSeries[]=Close,value Len1=10,value Len2=15,value Len3=20,value Len4=30,value xMASlow=15,
value xMAFast=10,value xNumberOfBars=10)begin
Value xROC1[],xROC2[],xROC3[],xROC4[],xKSTDaily[],xSum[];
xROC1 :=(vMA((100*(xSeries-xSeries[Len1])/xSeries[Len1]),xMAFast))*1;
xROC2 :=(vMA((100*(xSeries-xSeries[Len2])/xSeries[Len2]),xMAFast))*2;
xROC3 :=(vMA((100*(xSeries-xSeries[Len3])/xSeries[Len3]),xMAFast))*3;
xROC4 :=(vMA((100*(xSeries-xSeries[Len4])/xSeries[Len4]),xMASlow))*4;
xSum :=xROC1+xROC2+xROC3+xROC4;
xKSTDaily:= vMA(xSum,xNumberOfBars);
Plot1(xKSTDaily,'KST Daily'+NumToStr(xNumberOfBars));
Plot2(0);
end;

Value function KSTWeekly (value xSeries[]=Close,value Len1=10,value Len2=13,value Len3=15,value Len4=20,value xMABars1=10,
value xMABars2=13,value xMABars3=15,value xMABars4=20,value xNumberOfBars=10)begin
Value xROC1[],xROC2[],xROC3[],xROC4[],xKSTWeekly[],xSum[];
xROC1 :=(vMA((100*(xSeries-xSeries[Len1])/xSeries[Len1]),xMABars1))*1;
xROC2 :=(vMA((100*(xSeries-xSeries[Len2])/xSeries[Len2]),xMABars2))*2;
xROC3 :=(vMA((100*(xSeries-xSeries[Len3])/xSeries[Len3]),xMABars3))*3;
xROC4 :=(vMA((100*(xSeries-xSeries[Len4])/xSeries[Len4]),xMABars4))*4;
xSum:=xROC1+xROC2+xROC3+xROC4;
xKSTWeekly := vMA(xSum,xNumberOfBars);
Plot1(xKSTWeekly,'KST Weekly'+NumToStr(xNumberOfBars));
Plot2(0);
end;

Value function KSTMonthly (value xSeries[]=Close,value Len1=9,value Len2=12,value Len3=18,value Len4=24,value xMASlow=9,
value xMAFast=6,value xNumberOfBars=10)begin
Value xROC1[],xROC2[],xROC3[],xROC4[],xKSTMonthly[],xSum[];
xROC1 :=(vMA((100*(xSeries-xSeries[Len1])/xSeries[Len1]),xMAFast))*1;
xROC2 :=(vMA((100*(xSeries-xSeries[Len2])/xSeries[Len2]),xMAFast))*2;
xROC3 :=(vMA((100*(xSeries-xSeries[Len3])/xSeries[Len3]),xMAFast))*3;
xROC4 :=(vMA((100*(xSeries-xSeries[Len4])/xSeries[Len4]),xMASlow))*4;
xSum :=xROC1+xROC2+xROC3+xROC4;
xKSTMonthly := vMA(xSum,xNumberOfBars);
Plot1(xKSTMonthly,'KST ?Monthly'+NumToStr(xNumberOfBars));
Plot2(0);
end;

Paul