Wilders Extreme Point Rule
Plot this indicator on the price chart 


A:=Input("length",2,100,15); 
Long:=ValueWhen(1,Cross(PDI(A),MDI(A)),H); 
Short:=ValueWhen(1,Cross(MDI(A),PDI(A)),L); 
B:=If(PDI(A)>MDI(A),Long,If(PDI(A)<MDI(A),Short,PREV)); 
B;