R语言绘制RSI交叉线

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,表明股票上涨的力度比较大。 当up80时，上涨的力度太大了，盛极必衰、月满则亏、日中则昃。表明，价格会由过快上涨慢慢恢复理性，可能要下跌了，可以卖出； 当RSI<20时，下跌的力度过大，否极泰来、苦尽甘来，价格可能由暴跌反弹，此时可以买入。 函数 RSI()语法格式： RSI(price,n=14,maType,...) 式中： price-需要计算的价格，可以是收盘价，开盘价等。 n- 时间间隔，默认是14天。 maType-计算上涨下跌平均值所采用的方式： maType=EMA，默认值，指数平均值 maType=SMA,简单平均值。 RSI的“黄金交叉”与“死亡交叉” “黄金交叉”：短期向上突破，穿过长期线；意味着上涨行情，买入信号。

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

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

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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。