HOMETRADESTATIONMETASTOCKEMAILLINKS

 

metastock indicators

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

R

S

T

U

V

W

Y

Z

#
 

 
 
 

 
body

Abs(O-C)
lshd

If(C>=O,O-L,C-L)
ushd

If(C>=O,H-C,H-O)
ThBot_b

BBandBot(Fml("body"), 55, E, 0.5)
ThTop_b

BBandTop(Fml("body"), 55, E, 0.5)
ThBot_l

BBandBot(Fml("lshd"), 55, E, 0.5)
ThTop_l

BBandTop(Fml("lshd"), 55, E, 0.5)
ThBot_u

BBandBot(Fml("ushd"), 55, E, 0.5)
ThTop_u

BBandTop(Fml("ushd"), 55, E, 0.5)
CandleCode-b

If(CLOSE=OPEN,1,0) *
If(Fml("ushd") >= Fml("lshd"),64,48) + If(CLOSE=OPEN,0,1) * (If(CLOSE>OPEN,1,0) *
(If(Fml("body") <= Fml("ThBot_b"),80,0)+ If(Fml("body") > Fml("ThBot_b") AND
Fml("body") <= Fml("ThTop_b"),96,0) + If(Fml("body") > Fml("ThTop_b" ),112,0)) +
If(CLOSE<OPEN,1,0) * (If(Fml("body") <= Fml("ThBot_b"),32,0) +
If(Fml("body") > Fml("ThBot_b") AND Fml("body") <= Fml("ThTop_b"),16,0)))
CandleCode-l

If(Fml("lshd") = 0,3,0) + If(Fml("lshd") < Fml("ThBot_l") AND
Fml("lshd") > 0,2,0)+ If(Fml("lshd") > Fml("ThBot_l") AND
Fml("lshd") <= Fml("ThTop_l") ANDFml("lshd") > 0,1,0)
CandleCode-u

If(Fml("ushd") > 0 AND Fml("ushd") <= Fml("ThBot_u"), 4, 0) +
If(Fml("ushd") > Fml("ThBot_u") AND Fml("ushd") <= Fml("ThTop_u"), 8, 0)+
If(Fml("ushd") > Fml("ThTop_u"), 12, 0)
CandlCode

Fml( "CandleCode-b" ) + Fml( "CandleCode-l" ) + Fml( "CandleCode-u" )
ICS {the smoother indicator}

Periods:=Input("Enter Periods",2,13,2);
Mov(Mov(Mov(Fml("CandlCode"),Periods,S),Periods,S),Periods,S)

 

UP

HOME

  


CandleCode II

Bdy:=Abs(O-C);
Lshd:=If(C>=O,O-L,C-L);
Ushd:=If(C>=O,H-C,H-O);
ThBotB:=BBandBot(Bdy,55,E,0.5);
ThTopB:=BBandTop(Bdy,55,E,0.5);
ThBotL:=BBandBot(Lshd,55,E,0.5);
ThTopL:=BBandTop(Lshd,55,E,0.5);
ThBotU:=BBandBot(Ushd,55,E,0.5);
ThTopU:=BBandTop(Ushd,55,E,0.5);
CCode:=If(C=O,1,0) * If(Ushd>=Lshd,64,48) + If(C=O,0,1)*(If(C>O,1,0)*(If(Bdy<=ThBotB,80,0) +
If(Bdy>ThBotB AND Bdy<=ThTopB,96,0) +
If(Bdy>ThTopB,112,0)) +
If(C<O,1,0)*(If(Bdy<=ThBotB,32,0) +
If(Bdy>ThBotB AND Bdy<=ThTopB,16,0)))+(If(Lshd=0,3,0 ) +
If(Lshd<ThBotLAND Lshd>0,2,0) +
If(Lshd>ThBotL AND Lshd<=ThTopL AND Lshd>0,1,0)) +
(If(Ushd>0 AND Ushd<=ThBotU,4,0) +
If(Ushd>ThbotU AND Ushd<=ThTopU,8,0) +
If(Ushd>ThTopU,12,0));
CCode;
Candle Strength Index

Periods:=Input("Enter Periods",2,13,2);
Mov(
Mov(
Mov(
Fml("CandleCode II"),
Periods,S),
Periods,S),
Periods,S)

 

UP

HOME

  


CandleWeight

If(C=O,1,0)*If(Fml("ushd") >= Fml("lshd"),64,-64)+
If(C=O,0,1)*If(C>O,1,-1)*(If(Fml("body")<= Fml("ThBot_b"),80,0)+
If( Fml("body")> Fml("ThBot_b") AND Fml("body")<=Fml("ThBot_b"),96,0)+
If(Fml("body")> Fml("ThTop_b"),112,0))+
If(C>=O,-4,4)*(If(Fml("lshd")=0,3,0)+
If(Fml("lshd")< Fml("ThBot_l") AND Fml("lshd")>0,2,0)+
If( Fml("lshd")> Fml("ThBot_l") AND Fml("lshd")<= Fml("ThTop_l") AND Fml("lshd")>0,1,0))+
If(C>=O,1,-1)*(If( Fml("ushd")>0 AND Fml("ushd")<= Fml("ThBot_u"),4,0)+
If(Fml("ushd")> Fml("ThBot_u") AND Fml("ushd")<=Fml("ThTop_u"),8,0)+
If(Fml("ushd")> Fml("ThTop_u"),12,0))

 

UP

HOME

  

 

CCI alternative 

step1:=(H+L+C)/3;
step2:=Mov(step1,14,S);
step3:=Ref(step1,-1)-step2 AND
Ref(step1,-2)-step2 AND
Ref(step1,-3)-step2 AND
Ref(step1,-4)-step2 AND
Ref(step1,-5)-step2 AND
Ref(step1,-6)-step2 AND
Ref(step1,-7)-step2 AND
Ref(step1,-8)-step2 AND
Ref(step1,-9)-step2 AND
Ref(step1,-10)-step2 AND
Ref(step1,-11)-step2 AND
Ref(step1,-12)-step2 AND
Ref(step1,-13)-step2 AND
Ref(step1,-14)-step2;
step4:=Mov(Abs(step3),14,S);
step5:=step4*0.015;
step6:=step1-step2;
step7:=step6/step5;
step8:=step7/20;{for the +100, -100 scale}
step8

 

UP

HOME

  

 

Center of Gravity Oscillator

Num:= MP();
Num:= Num + (2 * Ref(MP(),-1));
Num:= Num + (3 * Ref(MP(),-2));
Num:= Num + (4 * Ref(MP(),-3));
Num:= Num + (5 * Ref(MP(),-4));
Num:= Num + (6 * Ref(MP(),-5));
Num:= Num + (7 * Ref(MP(),-6));
Num:= Num + (8 * Ref(MP(),-7));
Num:= Num + (9 * Ref(MP(),-8));
Num:= Num + (10 * Ref(MP(),-9));

Denom:= MP();
Denom:= Denom + Ref(MP(),-1);
Denom:= Denom + Ref(MP(),-2);
Denom:= Denom + Ref(MP(),-3);
Denom:= Denom + Ref(MP(),-4);
Denom:= Denom + Ref(MP(),-5);
Denom:= Denom + Ref(MP(),-6);
Denom:= Denom + Ref(MP(),-7);
Denom:= Denom + Ref(MP(),-8);
Denom:= Denom + Ref(MP(),-9);

{CG:= (Div(Num,Denom)) * -1;}
CG:= (Num / Denom) * -1;
CG1:= Ref(CG,-1);
CG;
CG1

 

UP

HOME

  

 

Chande's Adaptive Stochastic Oscillator

n:=Input("**Volatility** lookback length",1,50,20);
lenmax:=28;
lenmin:=7;
v1:=Stdev(C,n);
v2:=HHV(v1,n);
v3:=LLV(v1,n);
v4:=((v1-v3)/(v2-v3));
currlen:=(Int(lenmin+(lenmax-lenmin)*(1-v4)));
hh:=HHV(H,LastValue(currlen));
ll:=LLV(L,LastValue(currlen));
RawStoch:=((C-ll)/(hh-ll))*100;
stochma:=(.5*RawStoch)+(.5*PREV);
20;
80;
stochma;
RawStoch;
Chande's Adaptive Stochastic Oscillator - Smoothed Version

n:=Input("**Volatility** lookback length",1,50,20);
x:=Input("%K smoothing (exponential smoothing)",1,50,3);
y:=Input("%D smoothing (exponential smoothing)",1,50,3);
lenmax:=28;
lenmin:=7;
v1:=Stdev(C,n);
v2:=HHV(v1,n);
v3:=LLV(v1,n);
v4:=((v1-v3)/(v2-v3));
currlen:=(Int(lenmin+(lenmax-lenmin)*(1-v4)));
hh:=HHV(H,LastValue(currlen));
ll:=LLV(L,LastValue(currlen));
RawStochK:=((C-ll)/(hh-ll))*100;
SmoothedStochK:=Mov(RawStochK,x,E);
StochD:=Mov(SmoothedStochK,y,E);
20;
80;
StochD;
SmoothedStochK;

 

UP

HOME

  

 

Chande's Dynamic Momentum Index

Input("Plot a Horizontal Line",0,100,50);
Input("Plot a Horizontal Line",0,0,0);
Input("Plot a Horizontal Line",-100,0,-50);
(
(Stdev(C,5 ) * CMO(C,5 )) +
(Stdev(C,10) * CMO(C,10)) +
(Stdev(C,20) * CMO(C,20))) /
(Stdev(C,5) + Stdev(C,10) + Stdev(C,20))


 

UP

HOME

  

 

Chaos Fractal (Simple Version +1=Up, -1=Dn)

High1 := Ref(HIGH,-2);
High2 := Ref(HIGH,-1);
High3 := Ref(HIGH,0);
High4 := Ref(HIGH,1);
High5 := Ref(HIGH,2);
Low1 := Ref(LOW,-2);
Low2 := Ref(LOW,-1);
Low3 := Ref(LOW,0);
Low4 := Ref(LOW,1);
Low5 := Ref(LOW,2);

Fractal :=
If(
(High3 > High1) AND
(High3 > High2) AND
(High3 > High4) AND
(High3 > High5), +1,0);

Fractal :=
If(
(Low3 < Low1) AND
(Low3 < Low2) AND
(Low3 < Low4) AND
(Low3 < Low5),
If(Fractal > 0, 0, -1), Fractal);

Fractal;

 

UP

HOME

  

 

Choppiness Index

((log(sum(atr(1),14) / (hhv(if(H,>=,ref(C,-1),H,ref(C,-1)),14) -
llv(if(L,<=,ref(C,-1),L,ref(C,-1)),14))) / log(10))/(log(14)/log(10))) * 100

 

UP

HOME

  

 

Coppock Curve

(MOV(ROC(MOV(C,22,S),250,%),150,E))/100
Coppock Curve - CCT

(ROC(CLOSE,14,percent ) * 10 + ROC(CLOSE,11,percent) * 10 +
ROC(Ref(CLOSE,-1),14,percent) * 9 + ROC(Ref(CLOSE,-1),11,percent) * 9 +
ROC(Ref(CLOSE,-2),14,percent) * 8 + ROC(Ref(CLOSE,-2),11,percent) * 8 +
ROC(Ref(CLOSE,-3),14,percent) * 7 + ROC(Ref(CLOSE,-3),11,percent) * 7 +
ROC(Ref(CLOSE,-4),14,percent) * 6 + ROC(Ref(CLOSE,-4),11,percent) * 6 +
ROC(Ref(CLOSE,-5),14,percent) * 5 + ROC(Ref(CLOSE,-5),11,percent) * 5 +
ROC(Ref(CLOSE,-6),14,percent) * 4 + ROC(Ref(CLOSE,-6),11,percent) * 4 +
ROC(Ref(CLOSE,-7),14,percent) * 3 + ROC(Ref(CLOSE,-7),11,percent) * 3 +
ROC(Ref(CLOSE,-8),14,percent) * 2 + ROC(Ref(CLOSE,-8),11,percent) * 2 +
ROC(Ref(CLOSE,-9),14,percent) + ROC(Ref(CLOSE,-9),11,percent)) / 2
Coppock Curve - CCT II

PK:=(ROC(CLOSE,14,percent )*10 + ROC(CLOSE,11,percent)*10 +
ROC(Ref(CLOSE,-1),14,percent)*9 + ROC(Ref(CLOSE,-1),11,percent)*9 +
ROC(Ref(CLOSE,-2),14,percent)*8 + ROC(Ref(CLOSE,-2),11,percent)*8 +
ROC(Ref(CLOSE,-3),14,percent)*7 + ROC(Ref(CLOSE,-3),11,percent)*7 +
ROC(Ref(CLOSE,-4),14,percent)*6 + ROC(Ref(CLOSE,-4),11,percent)*6 +
ROC(Ref(CLOSE,-5),14,percent)*5 + ROC(Ref(CLOSE,-5),11,percent)*5 +
ROC(Ref(CLOSE,-6),14,percent)*4 + ROC(Ref(CLOSE,-6),11,percent)*4 +
ROC(Ref(CLOSE,-7),14,percent)*3 + ROC(Ref(CLOSE,-7),11,percent)*3 +
ROC(Ref(CLOSE,-8),14,percent)*2 + ROC(Ref(CLOSE,-8),11,percent)*2 +
ROC(Ref(CLOSE,-9),14,percent) + ROC(Ref(CLOSE,-9),11,percent))/2;
Per1:=30;
MN:=Mov(Pk,Per1,S);
SD:=Stdev(Pk,Per1);
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08);
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92);
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0));

Zielony:=If(PK>Ref(PK,-1),PK,0);
Czerwony:=If(PK<Ref(PK,-1),PK,0);
Sygnal:=Mov(PK,5,S);
LN;
Sygnal;
Zielony;
Czerwony;
Coppock Curve - LT Momentum

Mov((CLOSE-Ref(C,-300)) /
(Ref(C,-300)*0.01)+
(CLOSE-Ref(C,-240)) /
(Ref(C,-240)*0.01),15,W)
Coppock Curve Oscillator

Mov((((C-Ref(C,-11))/Ref(C,-11))+((C-Ref(C,-14))/Ref(C,-14))),10,W)
Coppock Indicator

Mov((ROC(C,11,%)+ROC(C,14,%)),10,W)

 

UP

HOME

  

 

Corr Vol / Close

( C + ( Ref(C,-1) ) ) * ( V + ( Ref(V,-1)) )

 

UP

HOME

  

 

Custom A/D Oscillator

cum(if(C,>,ref(C,-2),1,if(C,<,ref(C,-2),-1,0)))

 

UP

HOME

  

 

Cycle Indicator

Period:= 10;
denom1:= If(HHV(H,Period)-LLV(L,Period)>0, HHV(H,Period)-LLV(L,Period), 1);
P1:= Mov(((C-LLV(L,Period))/ denom1)*100,3,E);
denom2 := If(HHV(P1,Period)-LLV(P1,Period)>0, HHV(P1,Period)-LLV(P1,Period), 1);
Mov(((P1-LLV(P1,Period))/denom2)*100,3,E)

 

UP

HOME

  

 

Cycles 5 - 10 - 15 - 20 Indicator

P1:=Mov(((C-LLV(L,5))/(HHV(H,5)-LLV(L,5)))*100,3,E);
P2:=Mov(((C-LLV(L,10))/(HHV(H,10)-LLV(L,10)))*100,3,E);
P3:=Mov(((C-LLV(L,15))/(HHV(H,15)-LLV(L,15)))*100,3,E);
P4:=Mov(((C-LLV(L,20))/(HHV(H,20)-LLV(L,20)))*100,3,E);

A1:=Mov(((P1-LLV(P1,5))/(HHV(P1,5)-LLV(P1,5)))*100,3,E);
A2:=Mov(((P2-LLV(P2,10))/(HHV(P2,10)-LLV(P2,10)))*100,3,E);
A3:=Mov(((P3-LLV(P3,15))/(HHV(P3,15)-LLV(P3,15)))*100,3,E);
A4:=Mov(((P4-LLV(P4,20))/(HHV(P4,20)-LLV(P4,20)))*100,3,E);

A1;
A2;
A3;
A4;

 

 

UP

HOME

  

 

 

 

 

  

site map        disclaimer        mission        privacy policy