| |
MACD
- General Purpose MACDIndicator - Intermediate
Term
Mov(C,13,E) - Mov(C,34,E) - Mov(( Mov(C,13,E) - Mov(C,34,E)),89,E)
|
MACD - General
Purpose MACD Indicator - Short Term
Mov(C,8,E) - Mov(C,17,E) - Mov((Mov(C,8,E) -
Mov(C,17,E)),9,E)
|
MACD Modified - Time Series Forecast
ShortMA:= Input("Average value short-",2,20,12);
LongMA:= Input("Average value long
-",20,70,26);
SignalMA:=Input("Average
value sygnal
- ",3,50,9);
TSF(C,ShortMA)-TSF(C,LongMA);
Mov(TSF(C,ShortMA)-TSF(C,LongMA),SignalMA,E);
0
|
MACD
of Relative Strength Histogram
Q:=Input("Relative Strength Time Periods",3,100,14);
z:=Wilders(If(ROC(C,1,$)>0,ROC(C,1,$),0),LastValue(Q));
y:=Wilders(If(ROC(C,1,$)<0,Abs(ROC(C,1,$)),0),LastValue(Q));
ZY:=Z/Y;
RS:=100-(100/(1+ZY));
RSMACD:=Mov(RS,12,E)-Mov(RS,25,E);
RSMACD;
|
Modeling the market (John Elhers)
Instantaneous Trendline
pr:=MP();
len:=20;
sma:=Mov(pr,len,S);
sl:=pr-Ref(pr,-(len-1));
ssl:=
(sl+(2*Ref(sl,-1))+(2*Ref(sl,-2))+Ref(sl,-3))/6;
sma+(0.5*ssl)
|
Cyclic
Component
pr:=MP();
len:=20;
a:=1-(Sin(360/len))/Cos(360/len);
hp:=(0.5*(1+a)*(pr-Ref(pr,-1)))+(a*PREV);
shp:=
(hp+(2*Ref(hp,-1))+(2*Ref(hp,-2))+Ref(hp,-3))/6;
shp
|
Modeling the
Market
pr:=MP();
len:=20;
sma:=Mov(pr,len,S);
sl:=pr-Ref(pr,-(len-1));
ssl:=
(sl+(2*Ref(sl,-1))+(2*Ref(sl,-2))+Ref(sl,-3))/6;
a:=1-(Sin(360/len))/Cos(360/len);
hp:=(0.5*(1+a)*(pr-Ref(pr,-1)))+(a*PREV);
shp:=
(hp+(2*Ref(hp,-1))+(2*Ref(hp,-2))+Ref(hp,-3))/6;
sma+(0.5*ssl)+shp
|
|
 |
 |
|
Modified Optimum Elliptic Filter and Detrender
{Ehlers TASC Jul 00, p. 29}
P1:=(H+L)/2;
V1:=P1 +
0.088*Ref(PREV,-5);
V2:=ROC(V1,6,$) + 1.2*Ref(PREV,-5) -
0.7*Ref(PREV,-11);
D1:=Ref(V2,-12) - (2*Ref(V2,-6))+V2;
S1:=0.13785*(2*D1-Ref(D1,-1))+0.0007*(2*Ref(D1,-1)-
Ref(D1,-2))+0.13785*(2*Ref(D1,-2)-
Ref(D1,-3))+(1.2103*PREV)-(0.4867*Ref(PREV,-1));
S2:=0.13785*(2*S1-Ref(S1,-1))+0.0007*(2*Ref(S1,-1)-
Ref(S1,-2))+0.13785*(2*Ref(S1,-2)-
Ref(S1,-3))+1.2103*PREV-0.4867*Ref(PREV,-1);
S1;
S2
|
Money Flow -
RSI Indicator
Brs:=Input("Length",2,100,4);
PVF:=If(C>Ref(C,-1),1,0);
NVF:=If(C<=Ref(C,-1),1,0);
AP:=(H+L+C)/3;
MF:=V*AP;
PMF:=Sum(MF*PVF,Brs);
NMF:=Sum(MF*NVF,Brs);
MFRSI:=Mov(Mov(100*(PMF/(PMF+NMF)),3,S),3,S);
UB:=Ref(HHV(MFRSI,3*Brs),-1);
LB:=Ref(LLV(MFRSI,3*Brs),-1);
MFRSI;
UB;
LB;
|
Moving
Average - 10 Day/Zero Lag
N:=10;
TN:=Mov(CLOSE,N,S);
s1:=((n-1)/2) *
C+((n-3)/2) *
Ref(C,-1)+((n-5)/2) *
Ref(C,-2)+((n-7)/2) *
Ref(C,-3)+((n-9)/2) *
Ref(C,-4)+((n-11)/2) *
Ref(C,-5)+((n-13)/2) *
Ref(C,-6)+((n-15)/2) *
Ref(C,-7)+((n-17)/2) *
Ref(C,-8)+((n-19)/2) *
Ref(C,-9);
y2:=TN+(6*S1)/((n+1)*n);
y2
|
Moving Average - Fractal Adaptive (FAMA)
y:=Input("sample time periods",1,20,8);
y2:=2*y;
n1:=(HHV(H,y)-LLV(L,y))/y;
n2:=Ref((HHV(H,y)-LLV(L,y))/y,-y);
n3:=(HHV(H,y2)-LLV(L,y2))/y2;
x:=(Log(n1+n2)-Log(n3))/Log(2);
xt:=Exp(-4.6*(x-1));
x1:=If(xt<0.1,0.1,If(xt>1,1,xt));
x2:=1-x1;
x3:=If(Cum(1)=y2,
(MP() * x1) + (Ref(MP(),-1) * x2),
(MP() * x1) + (PREV * x2));
x3;
|
|
|
|
|
Moving Average Ribbon
Periods := Input("Time Periods", 1, 1000, 20);
Spacing :=
Input("Spacing", 1, 100, 5);
Ribbons := Input("Ribbons", 1, 12,
12);
BaseMA := Mov(C,Periods+(Spacing*0),S);
If(Ribbons>=2,Mov(C,Periods+(Spacing*1),S),BaseMA);
If(Ribbons>=3,Mov(C,Periods+(Spacing*2),S),BaseMA);
If(Ribbons>=4,Mov(C,Periods+(Spacing*3),S),BaseMA);
If(Ribbons>=5,Mov(C,Periods+(Spacing*4),S),BaseMA);
If(Ribbons>=6,Mov(C,Periods+(Spacing*5),S),BaseMA);
If(Ribbons>=7,Mov(C,Periods+(Spacing*6),S),BaseMA);
If(Ribbons>=8,Mov(C,Periods+(Spacing*7),S),BaseMA);
If(Ribbons>=9,Mov(C,Periods+(Spacing*8),S),BaseMA);
If(Ribbons>=10,Mov(C,Periods+(Spacing*9),S),BaseMA);
If(Ribbons>=11,Mov(C,Periods+(Spacing*10),S),BaseMA);
If(Ribbons>=12,Mov(C,Periods+(Spacing*11),S),BaseMA);
|
| |
|
