R语言绘制RSI交叉线

                 RSI= Relative Strength Index ,相对强弱指标
其背后的基本逻辑是：
股票买入的力量大于卖出的力量，则股票的价格会上涨。
股票的卖出力量大于买入的力量，则股票的价格会下跌。
RSI=100*(up/(up+down))
式中：
up-表示一个特定时间间隔内的上涨幅度平均值
down-表示一个特定时间间隔内的下跌幅度平均值
从公式可以看到：
RSI的取值范围是[0,100]
当RSI=0时，说明up/(up+down)=0,即up=0;
当RSI近似于0时，说明up/(up+down)近似等于0，即up<<down。
当RSI=50时，说明up/(up+down)=1/2,即up=down
当RSI=100时，up/(up+down)=1,此时down=0;
当RSI近似于100时，说明up/(up+down)近似于100，即down<<up。
从上述说明可以看出
当up>down时，RSI>50,表明股票上涨的力度比较大。
当up<donw时，RSI<50,表明股票下跌的力度比较大。
注意：中国的文化里讲究物极必反。
当RSI>80时，上涨的力度太大了，盛极必衰、月满则亏、日中则昃。表明，价格会由过快上涨慢慢恢复理性，可能要下跌了，可以卖出；
当RSI<20时，下跌的力度过大，否极泰来、苦尽甘来，价格可能由暴跌反弹，此时可以买入。
函数 RSI()语法格式：
RSI(price,n=14,maType,...)
式中：
price-需要计算的价格，可以是收盘价，开盘价等。
n- 时间间隔，默认是14天。
maType-计算上涨下跌平均值所采用的方式：
maType=EMA，默认值，指数平均值
maType=SMA,简单平均值。
RSI的“黄金交叉”与“死亡交叉”
“黄金交叉”：短期向上突破，穿过长期线；意味着上涨行情，买入信号。

”死亡交叉“：短期向下突破，穿过长期线；意味着下跌行情，卖出信号。

这里以指数RSI线的7日线、20日线作为短期线和长期线绘制“黄金交叉“和"死亡交叉”。

[html] view plain copy

1. <pre code_snippet_id="1705893" snippet_file_name="blog_20160602_1_714491" name="code" class="html">library(quantmod)  
2. getSymbols("GOOG",src="yahoo",from="2016-01-01", to='2016-05-30')   
3. #chartSeries(GOOG,theme = 'white',name='谷歌',up.col = 'red',dn.col = 'green')  
4. #显示一下数据看看  
5. #head(GOOG$GOOG.Close)  
6. Close<-GOOG$GOOG.Close  
7. #names(Close)<-"show"       
8. #tail(Close)  
9. rsi7<-RSI(Close,n=7,maType = "EMA")  
10. ris14<-RSI(Close)  #默认值  
11. rsi20<-RSI(Close,n=20,maType = "EMA")  
12. par(mfrow=c(2,1))  
13. plot(Close,type="l",main="谷歌的收盘价",ylab="收盘价")  
14. plot(rsi7,type="l",main="RSI的黄金交叉与死亡交叉",ylab="RSI")  
15. lines(rsi20,col="red",lty=6,lwd=2)  
16. legend("bottomleft",legend=c("rsi7","rsi20"),col = c("black","red"),lty=c(2,8),cex=1);</pre>