// Smoothed RSI
// modification by TAMS
// date: 20091126
//
inputs:
Price( Close ),
Length( 14 ),
Smooth.Length( 3 ), { <--- NEW }
OverSold( 30 ),
OverBought( 70 ),
OverSColor( Cyan ),
OverBColor( Red ) ;
variables:
MyRSI( 0 ) ,
Smoothed.RSI( 0 ) ; { <-- NEW }
MyRSI = RSI( Price, Length ) ;
Smoothed.RSI = Average( MyRSI, Smooth.length); { <-- NEW }
Plot1( MyRSI, "RSI" ) ;
Plot11( Smoothed.RSI, "Smoothed.RSI" ) ; { <-- NEW }
Plot2( OverBought, "OverBot" ) ;
Plot3( OverSold, "OverSld" ) ;
{ Color criteria }
if MyRSI > OverBought then
SetPlotColor( 1, OverBColor )
else if MyRSI < OverSold then
SetPlotColor( 1, OverSColor ) ;
{ Alert criteria }
if MyRSI crosses over OverSold then
Alert( "Indicator exiting oversold zone" )
else if MyRSI crosses under OverBought then
Alert( "Indicator exiting overbought zone" ) ;
{ ** Copyright (c) 1991-2003 TradeStation Technologies, Inc. All rights reserved. **
** TradeStation reserves the right to modify or overwrite this analysis technique
with each release. ** }