Trading&Trending RSI

[bbj@xxxx]

I modified the RSI(), and I think it is good. Any comments are highly
appreciated.
Reading,
1. Using crossovers between lines for trading
2. Using the vertical bars for trending

Best Regards,
CC Chen

Here is the formula,

/*Trading&Trending RSI by CC Chen*/
maxgraph=5;
R=rsi();
M=ma(R,10);
TS=3*(R-M);

graph0=5*(R-50);
graph1=5*(M-50);
graph2=TS;

graph0style=512;
graph1style=5;
graph2style=6;
up=R>M;
down=R<M;
barcolor = IIF( down,6, IIF( up, 7, 0 ) );
graph0barcolor = ValueWhen( barcolor != 0, barcolor );
graph1color=2;
downbar =iif(TS<ref(TS,-1),TS,0) and TS<0 ;
upbar = iif(TS>ref(TS,-1),TS,0) and TS>0 ;
Ucon=TS>0 and TS<ref(TS,-1);
Dcon=TS<0 and TS>ref(TS,-1);
P=Ucon or Dcon;
barcolor = IIF( downbar,4, IIF( upbar, 5, iif(Ucon or Dcon,9,0 ) ));
graph2barcolor = ValueWhen( barcolor != 0, barcolor );

graph3=100;
graph4=-100;
graph3style=graph4style=1;
graph3color=graph4color=2;

title=name() +" "+"Trading&Tranding RSI shows that the stock 
is "+writeif(R>M,"< Bullish >","< Bearish >");