R OSCILLATOR

Type : Signal, Name : R Oscillator

Input:
AvgLen(30),
PrctRLen(10),
BuyLvl(20),
SellLvl(80);

IF CurrentBar > 1 and Average(Close,AvgLen) > Average(Close,AvgLen)[1] and
PercentR(PrctRLen) < BuyLvl Then Buy on Close;

IF CurrentBar > 1 and Average(Close,AvgLen) < Average(Close,AvgLen)[1] and
PercentR(PrctRLen) > SellLvl Then Sell on Close;