ATR KELTNER BANDS
Q:=Input("RSI Time Periods",1,1000,14);
M:=Input("Momentum Time Periods",1,1000,5);
B:=Input("Field: 1=Close, 2=Open, 3=High, 4=Low, 5=Volume",1,5,1);
Bval:=If(B=1,C,If(B=2,O,If(B=3,H,If(B=4,L,V))));
Mom:=Bval-Ref(Bval,-M);
Z:=Wilders(If(ROC(Mom,1,$)>0,ROC(Mom,1,$),0),LastValue(Q));
Y:=Wilders(If(ROC(Mom,1,$)<0,Abs(ROC(Mom,1,$)),0),LastValue(Q));
RMS:=Z/Y;
RMIcust:=100-(100/(1+RMS));
Mov(RMIcust,M,S)
