MACD (DEMA) DI NAPOLI

A:=(Mov(C,8.3896,E)-Mov(C,17.5185,E));
Sig:=Mov(A,9.0503,E);
0;Sig;A;

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);