How to use the relative slope

["Tom Supera" <tom_supera@xxxx>]

Hi,
I've downloaded the formula from the 
board.
Can anyone give me instructions to use or is there 
any web side.
 
the downloaded formula:
/*The Relative Slope Trendlines*/ maxgraph = 8; 
D1=10; KUP=EMA((H+L+C)/3,D1)+EMA(H-L,D1); 
KDOWN=EMA((H+L+C)/3,D1)-EMA(H-L,D1); K=EMA((H+L+C)/3,D1); 
S1=2*(K-REF(K,-1))/(K+REF(K,-1)); RS=10+100*EMA(S1,3); GRAPH0=RS; 
graph0color=8; graph1=11; graph2=9; graph2style=1; 
graph3=12; graph4=8; graph2color=graph4color=5; 
graph1color=graph3color=9; title="R S = "+writeval(rs-10,format=1.2)+ 
" ("+writeval(ref(rs-10,-1),format=1.2)+")"; graph5=10; 
graph5style=8; graph5barcolor=1; x = cum(1); per = 1; s1=rs; 
s11=rs; pS = troughBars( s1, per, 1 ) == 0; endt= 
lastvalue(ValueWhen( pS, x, 1 )); startt=lastvalue(ValueWhen( pS, x, 2 )); 
dtS =endt-startt; endS = lastvalue(ValueWhen( pS, s1, 1 ) ); startS 
= lastvalue( ValueWhen( pS, s1, 2 )); aS = (endS-startS)/dtS; bS = endS; 
trendlineS = aS * ( x -endt ) + bS; graph6 = 
iif(x>startt-10,trendlineS,-1e10); graph6style = 1; graph6color = 1; 
pR = PEAKBars( s11, per, 1 ) == 0; endt1= lastvalue(ValueWhen( pR, x, 1 
)); startt1=lastvalue(ValueWhen( pR, x, 2 )); dtR =endt1-startt1; 
endR = lastvalue(ValueWhen( pR, s11, 1 ) ); startR = lastvalue( 
ValueWhen( pR, s11, 2 )); aR = (endR-startR)/dtR; bR = endR; 
trendlineR = aR * ( x -endt1 ) + bR; graph7 = 
iif(x>startT1-10,trendlineR,-1e10); graph7style = 1; graph7color = 1; 
GRAPHXSPACE=1;