Kod:
//@version=4
study(title="Puantaj", shorttitle="puan", overlay=false)
trns = input(title="trns%", type=input.integer, defval=80)
//W
resW = input(title="HLPeriodW", type=input.resolution, defval="W")
phW = security(syminfo.tickerid, resW, high[1], lookahead=true)
plW = security(syminfo.tickerid, resW, low[1], lookahead=true)
//colW = crossover(close,phW) ? color.lime : crossover(close,plW) ? color.green : crossunder(close,phW) ? color.red : crossunder(close,plW) ? color.red : na
//labelWH = crossover(close,phW) ? label.new(bar_index, 15, color=#ff1493, text="WH", textcolor=color.white, size=size.tiny) : na
labelWL = crossunder(close,plW) ? label.new(bar_index, 9, color=#8b0a50, text="WL", textcolor=color.white, size=size.tiny) : na
//pWh= plot(phW, color=#ff1493, title= "WH" , linewidth=0)
//pWl= plot(plW, color=#ff1493, title= "WL" , linewidth=0)
//fill(pWh, pWl, colW, trns)
//M
resM = input(title="HLPeriodM", type=input.resolution, defval="M")
phM = security(syminfo.tickerid, resM, high[1], lookahead=true)
plM = security(syminfo.tickerid, resM, low[1], lookahead=true)
//colM = crossover(close,phM) ? color.lime : crossover(close,plM) ? color.green : crossunder(close,phM) ? color.red : crossunder(close,plM) ? color.red : na
labelMH = crossover(close,phM) ? label.new(bar_index, 8, color=#ffa500, text="MH", textcolor=color.white, size=size.small) : na
labelML = crossunder(close,plM) ? label.new(bar_index, 3, color=#ee4000, text="ML", textcolor=color.white, size=size.small) : na
//pMh= plot(phM, color=#ffa500, title= "MH" , linewidth=0)
//pMl= plot(plM, color=#ffa500, title= "ML" , linewidth=0)
//fill(pMh, pMl, colM, trns)
//3M
res3M = input(title="HLPeriod3m", type=input.resolution, defval="3M")
ph3m = security(syminfo.tickerid, res3M, high[1], lookahead=true)
pl3m = security(syminfo.tickerid, res3M, low[1], lookahead=true)
//col3m = crossover(close,ph3m) ? color.lime : crossover(close,pl3m) ? color.green : crossunder(close,ph3m) ? color.red : crossunder(close,pl3m) ? color.red : na
label3mH = crossover(close,ph3m) ? label.new(bar_index, 2, color=#00868b, text="3MH", textcolor=color.white, size=size.normal) : na
label3mL = crossunder(close,pl3m) ? label.new(bar_index, -3, color=#1c6071, text="3ML", textcolor=color.white, size=size.normal) : na
//p3mh= plot(ph3m, color=#1c6071, title= "3mH" , linewidth=0)
//p3ml= plot(pl3m, color=#1c6071, title= "3mL" , linewidth=0)
//fill(p3mh, p3ml, col3m, trns)
//#ff1493
//6M
res6M = input(title="HLPeriod6m", type=input.resolution, defval="6M")
ph6m = security(syminfo.tickerid, res6M, high[1], lookahead=true)
pl6m = security(syminfo.tickerid, res6M, low[1], lookahead=true)
//col6m = crossover(close,ph6m) ? color.lime : crossover(close,pl6m) ? color.green : crossunder(close,ph6m) ? color.red : crossunder(close,pl6m) ? color.red : na
label6mH = crossover(close,ph6m) ? label.new(bar_index, -4, color=#551a8b, text="6H", textcolor=color.white, size=size.normal) : na
label6mL = crossunder(close,pl6m) ? label.new(bar_index, -9, color=#912cee, text="6L", textcolor=color.white, size=size.normal) : na
//p6mh= plot(ph6m, color=#551a8b, title= "6mH" , linewidth=0)
//p6ml= plot(pl6m, color=#551a8b, title= "6mL" , linewidth=0)
//fill(p6mh, p6ml, col6m, trns)
//12M
res12M = input(title="HLPeriod12m", type=input.resolution, defval="12M")
ph12m = security(syminfo.tickerid, res12M, high[1], lookahead=true)
pl12m = security(syminfo.tickerid, res12M, low[1], lookahead=true)
//col12m = crossover(close,ph12m) ? color.lime : crossover(close,pl12m) ? color.green : crossunder(close,ph12m) ? color.red : crossunder(close,pl12m) ? color.red : na
label12mH = crossover(close,ph12m) ? label.new(bar_index, -10, color=#97ffff, text="YH", size=size.normal) : na
label12mL = crossunder(close,pl12m) ? label.new(bar_index, -15, color=#79cdcd, text="YL", size=size.normal) : na
//p12mh= plot(ph12m, color=#97ffff, title= "12mH" , linewidth=0)
//p12ml= plot(pl12m, color=#97ffff, title= "12mL" , linewidth=0)
//fill(p12mh, p12ml, col12m, trns)
PPW = security(syminfo.tickerid, resW, hlc3[1], lookahead=true)
PPM = security(syminfo.tickerid, resM, hlc3[1], lookahead=true)
PP3m = security(syminfo.tickerid, res3M, hlc3[1], lookahead=true)
PP6m = security(syminfo.tickerid, res6M, hlc3[1], lookahead=true)
PP12m = security(syminfo.tickerid, res12M, hlc3[1], lookahead=true)
WP1 =close>PPW or PPW<0 ? 1 : -1
WP2 =close>plW or plW<0 ? 1 : -1
WP3 =close>phW or phW<0 ? 1 : -1
WT=WP1+WP2+WP3
MP1 =close>PPM or PPM<0 ? 1 : -1
MP2 =close>plM or plM<0 ? 1 : -1
MP3 =close>phM or phM<0 ? 1 : -1
MT=MP1+MP2+MP3
m3P1 =close>PP3m or PP3m<0 ? 1 : -1
m3P2 =close>pl3m or pl3m<0 ? 1 : -1
m3P3 =close>ph3m or ph3m<0 ? 1 : -1
M3T=m3P1+m3P2+m3P3
m6P1 =close>PP6m or PP6m<0 ? 1 : -1
m6P2 =close>pl6m or pl6m<0 ? 1 : -1
m6P3 =close>ph6m or ph6m<0 ? 1 : -1
M6T =m6P1+m6P2+m6P3
m12P1 =close>PP12m or PP12m<0 ? 1 : -1
m12P2 =close>pl12m or pl12m<0 ? 1 : -1
m12P3 =close>ph12m or ph12m<0 ? 1 : -1
M12T =m12P1+m12P2+m12P3
col3 = WT==(-3) ? color(#8b0000) : WT==(-2) ? color(#cd0000) : WT==(-1) ? color(#ff0000) : WT==(0) ? color(#ffffff) : WT==(1) ? color(#7fffd4) : WT==(2) ? color(#8fbc8f) : WT==(3) ? color(#2e8b57) : na
WU =plot(15, "WU", color=color.black, transp=50, linewidth=2)
WA =plot(9, "WD", color=color.black, transp=100, linewidth=2)
fill (WU, WA, col3, trns)
colM = MT==(-3) ? color(#8b0000) : MT==(-2) ? color(#cd0000) : MT==(-1) ? color(#ff0000) : MT==(0) ? color(#ffffff) : MT==(1) ? color(#7fffd4) : MT==(2) ? color(#8fbc8f) : MT==(3) ? color(#2e8b57) : na
MU =plot(8, "MU", color=color.black, transp=50, linewidth=2)
MA =plot(3, "MD", color=#68228b, transp=0, linewidth=2)
fill (MU, MA, colM, trns)
colM3 = M3T==(-3) ? color(#8b0000) : M3T==(-2) ? color(#cd0000) : M3T==(-1) ? color(#ff0000) : M3T==(0) ? color(#ffffff) : M3T==(1) ? color(#7fffd4) : M3T==(2) ? color(#8fbc8f) : M3T==(3) ? color(#2e8b57) : na
Y3U =plot(2, "3U", color=color.black, transp=50, linewidth=2)
Y3A =plot(-3, "3D", color=color.black, transp=100, linewidth=2)
fill (Y3U, Y3A, colM3, trns)
col6 = M6T==(-3) ? color(#8b0000) : M6T==(-2) ? color(#cd0000) : M6T==(-1) ? color(#ff0000) : M6T==(0) ? color(#ffffff) : M6T==(1) ? color(#7fffd4) : M6T==(2) ? color(#8fbc8f) : M6T==(3) ? color(#2e8b57) : na
Y6U =plot(-4, "6U", color=color.black, transp=50, linewidth=2)
Y6A =plot(-9, "6D", color=color.black, transp=100, linewidth=2)
fill (Y6U, Y6A, col6, trns)
col12 = M12T==(-3) ? color(#8b0000) : M12T==(-2) ? color(#cd0000) : M12T==(-1) ? color(#ff0000) : M12T==(0) ? color(#ffffff) : M12T==(1) ? color(#7fffd4) : M12T==(2) ? color(#8fbc8f) : M12T==(3) ? color(#2e8b57) : na
Y12U =plot(-10, "YU", color=color.black, transp=0, linewidth=2)
Y12A =plot(-15, "YD", color=color.black, transp=100, linewidth=2)
fill (Y12U, Y12A, col12, trns)
TT=(WT+MT+M3T+M6T+M12T)
colCoin = close > PPW ? color.yellow : color.red
plot(TT, color=colCoin, title="Coin_P")
//II
symbolToGet = input(title="Hisse/Coin/Vb.", type=input.string, defval="BINANCE:BTCUSDT")
//W
phW_II = security(symbolToGet, resW, high[1], lookahead=true)
plW_II = security(symbolToGet, resW, low[1], lookahead=true)
PPW_II = security(symbolToGet, resW, hlc3[1], lookahead=true)
pcW_II = security(symbolToGet, timeframe.period, close, lookahead=true)
W_IIP1 =pcW_II>PPW_II or PPW_II<0 ? 1 : -1
W_IIP2 =pcW_II>plW_II or plW_II<0 ? 1 : -1
W_IIP3 =pcW_II>phW_II or phW_II<0 ? 1 : -1
W_IIT=W_IIP1+W_IIP2+W_IIP3
colW_II = W_IIT==(-3) ? color(#8b0000) : W_IIT==(-2) ? color(#cd0000) : W_IIT==(-1) ? color(#ff0000) : W_IIT==(0) ? color(#ffffff) : W_IIT==(1) ? color(#7fffd4) : W_IIT==(2) ? color(#8fbc8f) : W_IIT==(3) ? color(#2e8b57) : na
W_IIU =plot(22, "W_IIU", color=color.black, transp=50, linewidth=2)
W_IIA =plot(17, "W_IID", color=color.black, transp=100, linewidth=2)
fill (W_IIU, W_IIA, colW_II, trns)
//labelW_IIH = crossover(pcW_II,phW_II) ? label.new(bar_index, 15, color=#ff1493, text=symbolToGet + "WH", textcolor=color.white, size=size.tiny) : na
labelW_IIL = crossunder(pcW_II,plW_II) ? label.new(bar_index, 17, color=#8b0a50, text= symbolToGet + "WL" , textcolor=color.white, size=size.tiny) : na
//M
phM_II = security(symbolToGet, resM, high[1], lookahead=true)
plM_II = security(symbolToGet, resM, low[1], lookahead=true)
PPM_II = security(symbolToGet, resM, hlc3[1], lookahead=true)
pcM_II = security(symbolToGet, timeframe.period, close, lookahead=true)
M_IIP1 =pcM_II>PPM_II or PPM_II<0 ? 1 : -1
M_IIP2 =pcM_II>plM_II or plM_II<0 ? 1 : -1
M_IIP3 =pcM_II>phM_II or phM_II<0 ? 1 : -1
M_IIT=M_IIP1+M_IIP2+M_IIP3
colM_II = M_IIT==(-3) ? color(#8b0000) : M_IIT==(-2) ? color(#cd0000) : M_IIT==(-1) ? color(#ff0000) : M_IIT==(0) ? color(#ffffff) : M_IIT==(1) ? color(#7fffd4) : M_IIT==(2) ? color(#8fbc8f) : M_IIT==(3) ? color(#2e8b57) : na
M_IIU =plot(28, "M_IIU", color=color.black, transp=50, linewidth=2)
M_IIA =plot(23, "M_IID", color=color.black, transp=100, linewidth=2)
fill (M_IIU, M_IIA, colM_II, trns)
labelM_IIH = crossover(pcM_II,phM_II) ? label.new(bar_index, 28, color=#ffa500, text= symbolToGet+ "MH", textcolor=color.white, size=size.small) : na
labelM_IIL = crossunder(pcM_II,plM_II) ? label.new(bar_index, 23, color=#ffa500, text=symbolToGet+ "ML", textcolor=color.white, size=size.small) : na
//3M
ph3M_II = security(symbolToGet, res3M, high[1], lookahead=true)
pl3M_II = security(symbolToGet, res3M, low[1], lookahead=true)
PP3M_II = security(symbolToGet, res3M, hlc3[1], lookahead=true)
pc3M_II = security(symbolToGet, timeframe.period, close, lookahead=true)
_3M_IIP1 =pc3M_II>PP3M_II or PP3M_II<0 ? 1 : -1
_3M_IIP2 =pc3M_II>pl3M_II or pl3M_II<0 ? 1 : -1
_3M_IIP3 =pc3M_II>ph3M_II or ph3M_II<0 ? 1 : -1
_3M_IIT=_3M_IIP1+_3M_IIP2+_3M_IIP3
col3M_II = _3M_IIT==(-3) ? color(#8b0000) : _3M_IIT==(-2) ? color(#cd0000) : _3M_IIT==(-1) ? color(#ff0000) : _3M_IIT==(0) ? color(#ffffff) : _3M_IIT==(1) ? color(#7fffd4) : _3M_IIT==(2) ? color(#8fbc8f) : _3M_IIT==(3) ? color(#2e8b57) : na
_3M_IIU =plot(34, "3M_IIU", color=color.black, transp=50, linewidth=2)
_3M_IIA =plot(29, "3M_IID", color=color.black, transp=100, linewidth=2)
fill (_3M_IIU, _3M_IIA, col3M_II, trns)
label3M_IIH = crossover(pc3M_II,ph3M_II) ? label.new(bar_index, 34, color=#00868b, text=symbolToGet+ "3MH", textcolor=color.white, size=size.normal) : na
label3M_IIL = crossunder(pc3M_II,pl3M_II) ? label.new(bar_index, 29, color=#1c6071, text=symbolToGet+"3ML", textcolor=color.white, size=size.normal) : na
//6M
ph6M_II = security(symbolToGet, res6M, high[1], lookahead=true)
pl6M_II = security(symbolToGet, res6M, low[1], lookahead=true)
PP6M_II = security(symbolToGet, res6M, hlc3[1], lookahead=true)
pc6M_II = security(symbolToGet, timeframe.period, close, lookahead=true)
_6M_IIP1 =pc6M_II>PP6M_II or PP6M_II<0 ? 1 : -1
_6M_IIP2 =pc6M_II>pl6M_II or pl6M_II<0 ? 1 : -1
_6M_IIP3 =pc6M_II>ph6M_II or ph6M_II<0 ? 1 : -1
_6M_IIT=_6M_IIP1+_6M_IIP2+_6M_IIP3
col6M_II = _6M_IIT==(-3) ? color(#8b0000) : _6M_IIT==(-2) ? color(#cd0000) : _6M_IIT==(-1) ? color(#ff0000) : _6M_IIT==(0) ? color(#ffffff) : _6M_IIT==(1) ? color(#7fffd4) : _6M_IIT==(2) ? color(#8fbc8f) : _6M_IIT==(3) ? color(#2e8b57) : na
_6M_IIU =plot(40, "6M_IIU", color=color.black, transp=50, linewidth=2)
_6M_IIA =plot(35, "6M_IID", color=color.black, transp=100, linewidth=2)
fill (_6M_IIU, _6M_IIA, col6M_II, trns)
label6M_IIH = crossover(pc6M_II,ph6M_II) ? label.new(bar_index, 40, color=#551a8b, text=symbolToGet+ "6MH", textcolor=color.white, size=size.normal) : na
label6M_IIL = crossunder(pc6M_II,pl6M_II) ? label.new(bar_index, 30, color=#912cee, text=symbolToGet+ "6ML", textcolor=color.white, size=size.normal) : na
//12M
ph12M_II = security(symbolToGet, res12M, high[1], lookahead=true)
pl12M_II = security(symbolToGet, res12M, low[1], lookahead=true)
PP12M_II = security(symbolToGet, res12M, hlc3[1], lookahead=true)
pc12M_II = security(symbolToGet, timeframe.period, close, lookahead=true)
_12M_IIP1 =pc12M_II>PP12M_II or PP12M_II<0 ? 1 : -1
_12M_IIP2 =pc12M_II>pl12M_II or pl12M_II<0 ? 1 : -1
_12M_IIP3 =pc12M_II>ph12M_II or ph12M_II<0 ? 1 : -1
_12M_IIT=_12M_IIP1+_12M_IIP2+_12M_IIP3
col12M_II = _12M_IIT==(-3) ? color(#8b0000) : _12M_IIT==(-2) ? color(#cd0000) : _12M_IIT==(-1) ? color(#ff0000) : _12M_IIT==(0) ? color(#ffffff) : _12M_IIT==(1) ? color(#7fffd4) : _12M_IIT==(2) ? color(#8fbc8f) : _12M_IIT==(3) ? color(#2e8b57) : na
_12M_IIU =plot(46, "12M_IIU", color=color.black, transp=50, linewidth=2)
_12M_IIA =plot(41, "12M_IID", color=color.black, transp=100, linewidth=2)
fill (_12M_IIU, _12M_IIA, col12M_II, trns)
label12M_IIH = crossover(pc12M_II,ph12M_II) ? label.new(bar_index, 46, color=#97ffff, text=symbolToGet+ "12MH", textcolor=color.white, size=size.normal) : na
label12M_IIL = crossunder(pc12M_II,pl12M_II) ? label.new(bar_index, 41, color=#79cdcd, text=symbolToGet+ "12ML", textcolor=color.white, size=size.normal) : na
TT_II=(W_IIT+M_IIT+_3M_IIT+_6M_IIT+_12M_IIT + 31)
colBTC = pcW_II > PPW_II ? color.yellow : color.red
plot(TT_II, color=colBTC, title="BTC_P")
lensig = input(14, title="ADX Smoothing", minval=1, maxval=50)
len = input(14, minval=1, title="DI Length")
up = change(high)
down = -change(low)
plusDM = na(up) ? na : (up > down and up > 0 ? up : 0)
minusDM = na(down) ? na : (down > up and down > 0 ? down : 0)
trur = rma(tr, len)
plus = fixnan(100 * rma(plusDM, len) / trur)
minus = fixnan(100 * rma(minusDM, len) / trur)
sum = plus + minus
adx = 100 * rma(abs(plus - minus) / (sum == 0 ? 1 : sum), lensig)
plot(adx, color=#FF006E, title="ADX", linewidth=2)
plot(plus, color=#0094FF, title="+DI",linewidth=2)
plot(minus, color=#b0e0e6, title="-DI",linewidth=2)
Yer İmleri