Question

我是R的初学者，最近尝试创建交易算法（非常具有挑战性）并进行回溯测试。事情是TTR和Quantmod没有我需要的功能所以我尝试并创建它。所以我在一个网站上找到了这个功能，但是在R语言中没有，但是有一个名为Pine。

这个公式叫做RMO（Rahul Mohindra Oscillator）：我发现这是松语中的公式：

    Raul Mohindra Oscillator

    study(title = "Rahul Mohinder Oscillator", shorttitle="RMO_LB")
    C=close
    cm2(x) => sma(x,2) #sma simple moving average#
    ma1=cm2(C)
    ma2=cm2(ma1)
    ma3=cm2(ma2)
    ma4=cm2(ma3)
    ma5=cm2(ma4)
    ma6=cm2(ma5)
    ma7=cm2(ma6)
    ma8=cm2(ma7)
    ma9=cm2(ma8)
    ma10=cm2(ma9)
    SwingTrd1 = 100 * (close - ( ma1+ma2+ma3+ma4+ma5+ma6+ma7+
         ma8+ma9+ma10)/10)/(highest(C,10)-lowest(C,10))
    SwingTrd2=ema(SwingTrd1,30) #ema exponential moving average#
    SwingTrd3=ema(SwingTrd2,30)
    RMO= ema(SwingTrd1,81)


   Buy=cross(SwingTrd2,SwingTrd3)
   Sell=cross(SwingTrd3,SwingTrd2)


   Bull_Trend=ema(SwingTrd1,81)>0
   Bear_Trend=ema(SwingTrd1,81)<0
   Ribbon_kol=Bull_Trend ? green : (Bear_Trend ? red : blue)
   Impulse_UP= SwingTrd2 > 0
   Impulse_Down= RMO < 0
   bar_kol=Impulse_UP ? green : (Impulse_Down ? red : (Bull_Trend ?    green : blue))
   bgcolor(Ribbon_kol)
   plot(RMO,color=bar_kol, style=histogram)
   hline(0)

我在最后一部分中苦苦挣扎，其中函数应绘制计算的直方图，指示绿色牛市趋势和红熊趋势。我没有设法将其翻译成R语言。

这就是我现在所拥有的：

    RMO <- function(x) {
    ma1 <- SMA(x,2)
    ma2 <- SMA(ma1,2)
    ma3 <- SMA(ma2,2)
    ma4 <- SMA(ma3,2)
    ma5 <- SMA(ma4,2)
    ma6 <- SMA(ma5,2)
    ma7 <- SMA(ma6,2)
    ma8 <- SMA(ma7,2)
    ma9 <- SMA(ma8,2)
    ma10 <- SMA(ma9,2)

    SwingTrd1 <- 100 * (x - (ma1+ma2+ma3+ma4+ma5+ma6+ma7+ma8+ma9+ma10)/10)/(max(x,10)-min(x,10))
    SwingTrd2 <- EMA(SwingTrd1,30)
    SwingTrd3 <- EMA(SwingTrd2,30)

    RMO <- EMA(SwingTrd1,81)

    Bull_Trend <- RMO < 0
    Bear_Trend <- RMO > 0

谢谢你的时间!!!

Kylian Pattje

Answer 1

在R

中解决了RMO公式

      RMO <- function(x) {
    ma1 <- SMA(x,2)
    ma2 <- SMA(ma1,2)
    ma3 <- SMA(ma2,2)
    ma4 <- SMA(ma3,2)
    ma5 <- SMA(ma4,2)
    ma6 <- SMA(ma5,2)
    ma7 <- SMA(ma6,2)
    ma8 <- SMA(ma7,2)
    ma9 <- SMA(ma8,2)
    ma10 <- SMA(ma9,2)

    SwingTrd1 <- 100 * (x - (ma1+ma2+ma3+ma4+ma5+ma6+ma7+ma8+ma9+ma10)/10)/(max(x,10)-min(x,10))

    STC <- SwingTrd1 + 20

    SwingTrd2 <- (EMA(STC,30))
    SwingTrd3 <- EMA(SwingTrd2,30)

    RMO <- EMA(SwingTrd1,81)

    plot(RMO, type = "h")
    abline(SwingTrd2, col = "blue")
    abline(SwingTrd3, col = "red")
  }

希望对我有帮助!!

我正在尝试将Rahul Mohindra Oscilator添加到R

1 个答案: