Welcome Guest, please sign in to participate in a discussion. Search | Active Topics |

Koncorde for TC2000 Rate this Topic:
Previous Topic · Next Topic Watch this topic · Print this topic ·
Sestayo
Posted : Friday, July 6, 2018 3:23:28 PM
Registered User
Joined: 2/1/2018
Posts: 6

Is possible for Tc2000 this indicator ?

Tradingview:

//@version=2
study(title="Blai5 Koncorde", shorttitle="KONCORDE")
calc_pvi() =>
 
    sval=volume
    pvi=(volume > volume[1]) ? nz(pvi[1]) + ((close - close[1])/close[1]) * (na(pvi[1]) ? pvi[1] : sval) : nz(pvi[1])
 
calc_nvi() =>
    sval=volume
    nvi=(volume < volume[1]) ? nz(nvi[1]) + ((close - close[1])/close[1]) * (na(nvi[1]) ? nvi[1] : sval) : nz(nvi[1])
 
calc_mfi(length) =>
    src=hlc3
    upper = sum(volume * (change(src) <= 0 ? 0 : src), length)
    lower = sum(volume * (change(src) >= 0 ? 0 : src), length)
    rsi(upper, lower)
 
tprice=ohlc4
lengthEMA = input(255, minval=1)
m=input(15)
pvi = calc_pvi()
pvim = ema(pvi, m)
pvimax = highest(pvim, 90)
pvimin = lowest(pvim, 90)
oscp = (pvi - pvim) * 100/ (pvimax - pvimin)
nvi =calc_nvi()
nvim = ema(nvi, m)
nvimax = highest(nvim, 90)
nvimin = lowest(nvim, 90)
azul = (nvi - nvim) * 100/ (nvimax - nvimin)
xmf = calc_mfi(14)
mult=input(2.0)
basis = sma(tprice, 25)
dev = mult * stdev(tprice, 25)
upper = basis + dev
lower = basis - dev
OB1 = (upper + lower) / 2.0
OB2 = upper - lower
BollOsc = ((tprice - OB1) / OB2 ) * 100
xrsi = rsi(tprice, 14)
calc_stoch(src, length,smoothFastD ) =>
    ll = lowest(low, length)
    hh = highest(high, length)
    k = 100 * (src - ll) / (hh - ll)
    sma(k, smoothFastD)
 
stoc = calc_stoch(tprice, 21, 3)
marron = (xrsi + xmf + BollOsc + (stoc / 3))/2
verde = marron + oscp
media = ema(marron,m)
 
plot(verde, color=#66FF66, style=area, title="verde")
plot(marron, color= #FFCC99, style=area, title="marron", transp=0)
plot(azul, color=#00FFFF, style=area, title="azul")
plot(marron, color=maroon, style=line, linewidth=2, title="lmarron")
plot(verde, color=#006600, style=line, linewidth=2, title="lineav")
plot(azul, color=#000066, style=line, linewidth=2, title="lazul")
plot(media, color=red, title="media", style=line, linewidth=2)
hline(0,color=black,linestyle=solid)
 
Bruce_L
Posted : Friday, July 6, 2018 3:49:14 PM


Worden Trainer

Joined: 10/7/2004
Posts: 65,138

I cannot think of a way to implement this in TC2000 currently. I haven't worked my way through all of the calculations, but at the very least, oscp seems too problematic to implement in any sort of practical way.



-Bruce
Personal Criteria Formulas
TC2000 Support Articles
Sestayo
Posted : Friday, July 20, 2018 4:20:29 AM
Registered User
Joined: 2/1/2018
Posts: 6

Ok, thanks Bruce.

Bruce_L
Posted : Friday, July 20, 2018 9:49:25 AM


Worden Trainer

Joined: 10/7/2004
Posts: 65,138

You're welcome.



-Bruce
Personal Criteria Formulas
TC2000 Support Articles
Users browsing this topic
Guest-1

Forum Jump
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.