Traducción de indicador :"CDC RSI Divergence"a PRT

Forums ProRealTime foro Español Soporte ProBuilder Traducción de indicador :"CDC RSI Divergence"a PRT

  • This topic has 0 replies, 1 voice, and was last updated 5 years ago by avatarFr7.
Viewing 1 post (of 1 total)
  • #68043
    Fr7

    Hola Nicolás, he encontrado este indicador basado en divergencias del indicador RSI.¿Podría traducirlo?GRACIAS

    //@version=2
    study(“CDC RSI Divergence”, shorttitle=”CDC_RSIDV”)

    // SETTING UP VARIABLES //

    src = input(title=”Data Source”,type=source,defval=ohlc4)

    // look back periods //
    x = input(title = “short lookback period”,type=integer,defval=5)
    z = input(title = “long lookback period”,type=integer,defval=25)
    revpct = input(title=”Reversal Percentage”,type=float,defval=0.01)/100
    alert = input(title=”Alert period”, type=integer, defval=25)

    // RSI //
    rsiprd = input(title=”RSI period”,type=integer,defval=14)
    rv = rsi(src,rsiprd)
    ob = input(title=”Overbought Level”, type=integer, defval=70)
    os = input(title=”Oversold Level”, type=integer, defval=30)

    // END SETUP //

    ////////////////////////
    // BULLISH DIVERGENCE //
    ////////////////////////

    // define lower low in price //

    srcLL = src > lowest(src,x)*(1+revpct) and lowest(src,x)<lowest(src,z)[x]

    // define higher low in rsi //

    rsiHL = rv>lowest(rv,x) and lowest(rv,x) > lowest(rv,z)[x] and lowest(rv,x)<os

    BullishDiv = srcLL and rsiHL
    BullishDivAlert = iff(barssince(BullishDiv)<alert,10,0)+50

    ////////////////////////
    // BEARISH DIVERGENCE //
    ////////////////////////

    // define higher high in price //

    srcHH = src < highest(src,x)*(1-revpct) and highest(src,x)>highest(src,z)[x]

    // define lower high in RSI //

    rsiLH = rv<highest(rv,x) and highest(rv,x) < highest(rv,z)[x] and highest(rv,x)>ob

    BearishDiv = srcHH and rsiLH
    BearishDivAlert = iff(barssince(BearishDiv)<alert,-10,0)+50

    zero = plot(50)
    BULLD = plot(BullishDivAlert, color = green)
    BEARD = plot(BearishDivAlert, color = red)
    fill(BULLD,zero,color=green, transp=50)
    fill(zero,BEARD,color=red, transp=50)
    plot(rv, color = blue)
    plot(30, color = gray)
    plot(70, color = gray)

Viewing 1 post (of 1 total)

Create your free account now and post your request to benefit from the help of the community
Register or Login