{%R Tema Smoothed
Scaled 0 ~ 100
For Personal Use Only - FP}
NumPeriods:= Input("%R Periods:",1,200,14);
NumPeriods1:= Input("TEMA Periods:",1,200,9);
WR:=((LLV(L,NumPeriods)-C)/(HHV(H,NumPeriods) - LLV(L,NumPeriods))) * -100;Tema(WR ,NumPeriods1) ;
