Oscillator Vortex Indicator by Etienne Botes and Douglas Siepman

period:=Input("period :",1,100,14);
VMP:=Abs(H-ref(L,-1));
VMN:=Abs(L-ref(H,-1));
VMTP:=SUM(VMP,period);
VMTN:=SUM(VMN,period);
K1:=H-L;
K2:=Abs(H-ref(c,-1));
K3:=Abs(L-ref(c,-1));
K4:=max(K1,K2);
TR:=max(K3,K4);
TRP:=sum(TR,period);
VORTEX+:=VMTP/TRP;
VORTEX-:=VMTN/TRP;
VORTEX+;
VORTEX-;
1

{Vortex Indicator}
{TAS&C Jan 2010}
{Written for Metastock by Preston Umrysh}
Period:= Input("Enter periods",1,100, 14);
VMP:=Sum(Abs( H-Ref(L,- 1)),period) ;
VMM:=Sum(Abs( L-Ref(H,- 1)),period) ;
STR:=Sum(ATR( 1),period) ;
VIP:=VMP/STR; VIP;
VIM:=VMM/STR; VIM;