Trendlines Resistance 
This indicator is from Victor H 

{Resistance Trendlines} 

pp:= Input("Long = 2,Med = 1,Short = 0.5", 0.5,6,2); 
x0:= If(MP()>=Ref(MP(),-1),ATR(1),0); 
y0:= Cum(If(x0>0,1,0)); 
z1:= If(x0>0,ATR(1),HIGH); 
z2:=Log(z1/HIGH); 
z3:= Cum(z2)/Max(1,y0); 
z4:= 100*Exp(LastValue(z3)); 
a1:= LastValue(z4)*pp; 
a2:= LastValue(Peak(1,H,a1)); 
a3:= LastValue(Peak(2,H,a1)); 
a4:= a2-a3; 
a5a:=PeakBars(2,H,a1); 
a5b:=PeakBars(1,H,a1); 
a5:= LastValue(a5a)-LastValue(a5b); 
a6:= a4/a5; {Slope} 
a7:= LastValue(Cum(1)-a5b); 
a8:= LastValue(Cum(1)-a5a); 
a9:= Cum(1); 
a10:=a3+(a6*(a9-a8)); 
a11:=If(a9<a8,BarsSince(a9>=a8),a10); 
a11;