Flat Market Indicator (FMI) for Metastock

per1:=Input("Period",1,200,3);
MMA:=Mov(C,per1,E);
SMMA:=Mov(MMA,per1,E);
IMPETMMA:=MMA - Ref(MMA,-1);
IMPETSMMA:=SMMA - Ref(SMMA,-1);
DIVMA:= Abs(MMA - SMMA);
AVERIMPET:= (IMPETMMA+IMPETSMMA)/2;
TDF:= Power(DIVMA,1)*Power(AVERIMPET,3);
NTDF:=TDF/HHV(Abs(TDF),per1*3);
0.05;Abs(ntdf);