Rank: Advanced Member
Groups: Registered, Registered Users, Subscribers
Joined: 7/25/2005(UTC)
Posts: 1,042
Was thanked: 57 time(s) in 54 post(s)
|
Hi flywinds
Here are two Stochastic indicators that can plot a 30-minute stochastics on a 5 minute charts while including a standard Stoch() function (or other code). These are proprietary indicators and therefore are not available in the public domain. For this reason the "ID Timing" section of the MetaStock formula is not included.
These tools provide the "how to" that you have asked for. Like most good tools they are not free. If you want more information then email me at rlarsen@quik.co.nz.
Roy
****************************************************
{Multi-Frame ID Stoch EMA}
{EMA Smoothed Stochastic}
{MSTT DLL by wabbit.com.au}
{Uses Equis Forum DLL}
{Roy Larsen, 2008-2014, 7/1/14}
{User settings}
Pd:=Input("Multi-Frame ID Stoch EMA, %K Periods",1,99,10);
N:=Input("%K Slowing, Periods" ,1,99,3);
U:=Input("%D EMA, Periods",1,99,3);
J:=Input("Periodicity in Minutes, 1-1440",1,1440,30);
Q:=Input("Mode, 0=Static 1=Dynamic 2=Delayed",0,2,0);
{ID Timing}
{ 13 lines of code have been deleted }
{End-of-frame prices}
B:=HighestSince(1,M+(Z=1),H);
Y:=LowestSince(1,M+(Z=1),L);
B:=ValueWhen(1,J,If(J=1,B,ValueWhen(2-G,1,B)));
Y:=ValueWhen(1,J,If(J=1,Y,ValueWhen(2-G,1,Y)));
K:=ValueWhen(1,J,If(J=1,C,ValueWhen(2-G,1,C)));
{Stochastic and %K slowing}
J:=J>0; I:=Cum(J);
A:=Z-ValueWhen(N+1,J,Z);
X:=K-LowestSince(Pd,J,Y);
X:=ExtFml("Forum.Sum",X*J,A);
D:=HighestSince(Pd,J,B)-LowestSince(Pd,J,Y);
D:=ExtFml("Forum.Sum",D*J,A);
D:=ValueWhen(1,Cum(D>0)>0,D);
K:=100*X/(D+(D=0)); K:=ValueWhen(1,I>=Pd+N,K);
{%D EMA smoothing}
R:=If(J,If(I<U,1,U),-1);
D:=ExtFml("MSTT.EMA",K,R);
D:=ValueWhen(1,I>=Pd+N,D);
{Results}
K; {%K}
D; {%D}
{ insert standard Stochastic or in combination with Multi-Frame code here }
****************************************************
{Multi-Frame ID Stoch SMA}
{SMA-Smoothed Stochastic}
{Uses Equis Forum DLL}
{Roy Larsen, 2008-2014, 7/1/14}
{User settings}
K:=Input("Multi-Frame ID Stoch SMA, %K Periods",1,99,10);
N:=Input("%K Slowing, Periods" ,1,99,3);
U:=Input("%D SMA, Periods",1,99,3);
J:=Input("Periodicity in Minutes, 1-1440",1,1440,30);
Q:=Input("Mode, 0=Static 1=Dynamic 2=Delayed",0,2,0);
{ID Timing}
{ 13 lines of code have been deleted }
{Frame prices}
Hm:=HighestSince(1,M+(Z=1),H);
Lm:=LowestSince(1,M+(Z=1),L);
Hm:=ValueWhen(1,J,If(J=1,Hm,ValueWhen(2-G,1,Hm)));
Lm:=ValueWhen(1,J,If(J=1,Lm,ValueWhen(2-G,1,Lm)));
Cm:=ValueWhen(1,J,If(J=1,C,ValueWhen(2-G,1,C)));
{Stochastic and %K slowing}
J:=J>0; I:=Cum(J);
A:=Z-ValueWhen(N+1,J,Z);
B:=Cm-LowestSince(K,J,Lm);
B:=ExtFml("Forum.Sum",B*J,A);
D:=HighestSince(K,J,Hm)-LowestSince(K,J,Lm);
D:=ExtFml("Forum.Sum",D*J,A);
D:=ValueWhen(1,Cum(D>0)>0,D);
X:=100*B/(D+(D=0)); X:=ValueWhen(1,I>=K+N,X);
{%D SMA smoothing}
Z:=Z-ValueWhen(U+1,J,Z);
Z:=ExtFml("Forum.Sum",J*X,Z);
M:=ValueWhen(1,J,Z)/Min(I,U);
Y:=ValueWhen(1,I>=K+N+U,M);
X; {%K}
Y; {%D}
{ insert standard Stochastic or in combination with Multi-Frame code here }
****************************************************
|
