Oscillator Dynamic Momentum Index - Preston by Preston Umrysh

Dynamic Momentum Index - Preston

{written by Preston Umrysh}
{[version2.0] corrects volatility division error}
{This indicator uses Dll software developed by MetaStock Forum Crew}
{http://forum.equis.com)}

x:=Input("normal ouput=1 Biplolar index=2",1,2,1);
Vt:=(Stdev(C,5)/Mov(Stdev(C,5),10,S))*10;
Vt:=Max(vt,.0000001);
Umom:=If(C>Ref(C,-1),C-Ref(C,-1),0);
Dmom:=If(C<Ref(C,-1),Ref(C,-1)-C,0);
UPS:= ExtFml("Forum.Sum", Umom,Vt);
DNS:= ExtFml("Forum.Sum", Dmom,Vt);
SumU:=ExtFml("Forum.Sum", UPS,Vt)/Vt;
SumD:=ExtFml("Forum.Sum", DNS,Vt)/Vt;
RS:=SumU/SumD;
DMnm:=100-(100/(1+RS));
DMIn:=(SumU-SumD)/(SumU+SumD);
If(x=1,DMnm,DMin); {end}