Tradingview

ortaya karışık bir kombine kod çalışması....
emalar saatliktir...

PHP Code:

---

// This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
// © carefulCode53358

//@version=5
indicator(".", overlay = true)
//Trend Sar
psar(start1, inc1, maximum1) =>
    out1 = float(na)
    isUpTrend1 = bool(na)
    maxMin1 = float(na)
    acc1 = float(na)
    prev1 = float(na)

    if bar_index >= 1
        prev1 := out1[1]
        if bar_index == 1
            if close > close[1]
                isUpTrend1 := true
                maxMin1 := math.max(high, high[1])
                prev1 := math.min(low, low[1])
                prev1
            else
                isUpTrend1 := false
                maxMin1 := math.min(low, low[1])
                prev1 := math.max(high, high[1])
                prev1

            acc1 := start1
            acc1
        else
            isUpTrend1 := isUpTrend1[1]
            acc1 := acc1[1]
            maxMin1 := maxMin1[1]
            maxMin1

        if isUpTrend1
            if high > maxMin1
                maxMin1 := high
                acc1 := math.min(acc1 + inc1, maximum1)
                acc1
        else
            if low < maxMin1
                maxMin1 := low
                acc1 := math.min(acc1 + inc1, maximum1)
                acc1

        if na(out1)
            out1 := prev1 + acc1 * (maxMin1 - prev1)
            out1

        if isUpTrend1
            if low <= out1
                isUpTrend1 := false
                out1 := maxMin1
                maxMin1 := low
                acc1 := start1
                acc1
        else
            if high >= out1
                isUpTrend1 := true
                out1 := maxMin1
                maxMin1 := high
                acc1 := start1
                acc1

        if na(out1)
            if isUpTrend1
                out1 := math.min(out1, bar_index == 1 ? low[1] : math.min(low[1], low[2]))
                out1
            else
                out1 := math.max(out1, bar_index == 1 ? high[1] : math.max(high[1], high[2]))
                out1

    [out1, acc1, maxMin1, isUpTrend1]


start1 = input(0)
increment1 = input(0.01)
maximum1 = input(0.1)
[p1, AF1, EP1, isUpTrend1] = psar(start1, increment1, maximum1)

newEP1 = EP1 != EP1[1]
epNew1 = newEP1 ? EP1 : na

plot(p1, 'SAR', style=plot.style_stepline, color=isUpTrend1 ? color.rgb(76, 175, 79, 100) : color.rgb(255, 82, 82, 100), linewidth=1)
//plot(EP1, 'ONAY', style=plot.style_circles, color=isUpTrend1 ? color.green : color.red, linewidth=2)
plot(epNew1, 'Trend-Continue', style=plot.style_line, color=isUpTrend1 ? color.rgb(76, 175, 79, 00) : color.rgb(255, 82, 82, 00), linewidth=1)

//Signal
xyz=ta.crossunder(epNew1,p1)
plotshape(xyz? epNew1:na, style=shape.circle, location=location.abovebar, color=isUpTrend1 ? color.rgb(34, 247, 6) : color.rgb(247, 3, 3), size=size.small)
xyz1=ta.crossover(epNew1,p1)
plotshape(xyz1? epNew1:na, style=shape.circle, location=location.belowbar, color=isUpTrend1 ? color.rgb(34, 247, 6) : color.rgb(247, 3, 3), size=size.small)

//END
//Function 
inp = input(title='Source', defval=close)
res = input.timeframe(title='Resolution', defval='')
rep = input(title='Allow Repainting?', defval=false)
//////////////////////////////////////////////////////
src1 = request.security(syminfo.tickerid, res, inp[rep ? 0 : barstate.isrealtime ? 1 : 0])[rep ? 0 : barstate.isrealtime ? 0 : 1]
fastLength1 = input.int(title='FastLength', defval=12, minval=1)
slowLength1 = input.int(title='SlowLength', defval=26, minval=1)
signalLength1 = input.int(title='SignalLength', defval=9, minval=1)
macdLevel1 = input.float(title='MacdLevel', defval=0, minval=0)

fastAlpha1 = 2.0 / (1 + fastLength1)
slowAlpha1 = 2.0 / (1 + slowLength1)

fastEma1 = ta.ema(src1, fastLength1)
slowEma1 = ta.ema(src1, slowLength1)

pMacdEq1 = fastAlpha1 - slowAlpha1 != 0 ? ((nz(fastEma1[1]) * fastAlpha1) - (nz(slowEma1[1]) * slowAlpha1)) / (fastAlpha1 - slowAlpha1) : 0
pMacdEqSig1 = ta.ema(pMacdEq1, signalLength1)
pMacdLevel1 = fastAlpha1 - slowAlpha1 != 0 ? (macdLevel1 - (nz(fastEma1[1]) * (1 - fastAlpha1)) + (nz(slowEma1[1]) * (1 - slowAlpha1))) / (fastAlpha1 - slowAlpha1) : 0

slo1 = src1 - pMacdEq1
sig1 = slo1 > 0 ? slo1 > nz(slo1[1]) ? 2 : 1 : slo1 < 0 ? slo1 < nz(slo1[1]) ? -2 : -1 : 0

rmacdColor = sig1 > 1 ? color.lime : sig1 > 0 ? color.lime : sig1 < -1 ? color.red : sig1 < 0 ? color.red : color.white

plot(pMacdEq1, title='Trend',style=plot.style_cross, color=rmacdColor, linewidth=2)
plot(pMacdEqSig1, title='Stop', color=color.rgb(255, 255, 255, 100), linewidth=1)
//plot(pMacdLevel1, title='MacdLevel', color=color.blue, linewidth=2)
xyzx=(pMacdEq1+pMacdEqSig1+pMacdLevel1)/3
//plot(xyzx, title='Avarage', color=color.rgb(241, 225, 8, 100), linewidth=2)
////////////////////////////////////////////////////////////////////////////
// FINAL CALCULATION
reverseUP = ta.crossunder(epNew1,xyzx)
reverseDOWN =ta.crossover(epNew1,xyzx) 
plotshape(reverseUP , 'reverse UP',shape.triangledown , location.abovebar , color.red,size = size.normal)
plotshape(reverseDOWN , 'reverse DOWN',shape.triangleup , location.belowbar , color.lime,size = size.normal)
//////////Emalar günlük

price = request.security(syminfo.tickerid, "60", close)
EMA_5 = ta.ema(price, 5)
EMA_13 = ta.ema(price, 13)
EMA_26 = ta.ema(price, 26)
EMA_50 = ta.ema(price, 50)
EMA_100 = ta.ema(price, 100)
EMA_200 = ta.ema(price, 200)

plot(EMA_5,"5 EMA",color.rgb(243, 141, 7, 100), 1)
//plot(EMA_13,"13 EMA",color.rgb(243, 7, 243, 100), 1)
//plot(EMA_26,"26 EMA",color.rgb(243, 7, 243, 100), 1)
//plot(EMA_50,"50 EMA",color.rgb(243, 7, 243, 100), 1)
//plot(EMA_100,"100 EMA",color.rgb(243, 7, 243, 100), 1)
plot(EMA_200,"200 EMA", color.rgb(243, 141, 7, 100), 1)
///////////////

ma(source, length, type) =>
    switch type
        "SMA" => ta.sma(source, length)
        "EMA" => ta.ema(source, length)
        "SMMA (RMA)" => ta.rma(source, length)
        "WMA" => ta.wma(source, length)
        "VWMA" => ta.vwma(source, length)

factor= input(0.001382)
length = input(100)
mult = input.float(0.382, title="Mult")
show_middle_bands = input.bool(true, title="Show Middle Bands")
show_upper_bands = input.bool(true, title="Show Upper Bands")
maTypeInput = input.string("EMA", title="Band MA Type", options=["SMA", "EMA", "SMMA (RMA)", "WMA", "VWMA"], group="MA Settings")
middleTypeInput = input.string("EMA", title="Middle MA Type", options=["SMA", "EMA", "SMMA (RMA)", "WMA", "VWMA"], group="MA Settings")

logHigh = math.log10(high)
logLow = math.log10(low)
logClose = math.log10(close)
logAvg = math.log10((high + low) / 2)

logUppestband = ma(logHigh * (1 + 2 * (((logHigh - logLow) / (logAvg)) * 1000) * factor * (1+mult)), length, maTypeInput)
logUpperband = ma(logHigh * (1 + 2 * (((logHigh - logLow) / (logAvg)) * 1000) * factor), length, maTypeInput)
logLowerband = ma(logLow * (1 - 2 * (((logHigh - logLow) / (logAvg)) * 1000) * factor), length, maTypeInput)
logLowestband = ma(logLow * (1 - 2 * (((logHigh - logLow) / (logAvg)) * 1000) * factor / (1-mult)), length, maTypeInput)
logCentral = ma(logClose, length, middleTypeInput)

Uppestband = math.pow(10, logUppestband)
Upperband = math.pow(10, logUpperband)
Central = math.pow(10, logCentral)
Lowerband = math.pow(10, logLowerband)
Lowestband = math.pow(10, logLowestband)

//plot(Uppestband, color=color.red, linewidth=2, display=show_upper_bands ? display.all : display.none)
//plot(Upperband, color=color.red, linewidth=1, display=show_middle_bands ? display.all : display.none)
//plot(Central, color=color.orange, linewidth=1, display=show_middle_bands ? display.all : display.none)
//plot(Lowerband, color=color.green, linewidth=1, display=show_middle_bands ? display.all : display.none)
//plot(Lowestband, color=color.green, linewidth=2, display=show_upper_bands ? display.all : display.none)


draw_prediction = input.bool(true, title="Draw Prediction Lines")
slope_length_type = input.bool(true, title="Use Fixed Slope Length?")
fixed_slope_length = input(55, title = "Slope Length") // Useful for Prediction Upto Next (80% * Slope Length) Candles
slope_length = slope_length_type ? fixed_slope_length : last_bar_index - length

customLogarithmicRegression(_data, _color, _width) =>
    logData = math.log10(_data)
    linreg = ta.linreg(logData, slope_length, 0)
    linreg_p = ta.linreg(logData, slope_length, 0 + 1)
    x = bar_index
    slope = linreg - linreg_p
    intercept = linreg - x * slope
    deviationSum = 0.0
    for i = 0 to slope_length - 1 by 1
        deviationSum += math.pow(logData[i] - (slope * (x - i) + intercept), 2)
    deviation = math.sqrt(deviationSum / slope_length)
    x1 = x - slope_length
    x2 = x
    y1 = slope * (x - slope_length) + intercept
    y2 = linreg

    var line b = na

    updating = timestamp("20 Jul 2050 00:00 +0300") >= time
    displacement = false

    if draw_prediction
        if updating
            b := line.new(x1, math.pow(10, y1), x2, math.pow(10, y2), xloc.bar_index, extend.right, _color, style=line.style_dotted, width=_width)
            if not displacement
                line.delete(b[1])

if show_upper_bands
    customLogarithmicRegression(Uppestband, color.rgb(1, 219, 248), 2)
    customLogarithmicRegression(Lowestband, color.rgb(2, 219, 248), 2)
if show_middle_bands
    //customLogarithmicRegression(Upperband, color.red, 1)
    customLogarithmicRegression(Central, color.rgb(2, 221, 250), 1)
    //customLogarithmicRegression(Lowerband, color.green, 1)
///////
//@version=5

lengthx = input.int(55, title="Length", minval = 1, maxval = 5000)

src = input.source(close, title="Source")

// ----------------------------------------------------------------------
upper_1_bool_input  = input.bool(false, title="Upper +1", inline="abc",     group = "channel")
upper_1_float_input = input.float(1.0, title="",         inline="abc",     group = "channel")

upper_2_bool_input  = input.bool(false, title="Upper +2", inline="cde",     group = "channel")
upper_2_float_input = input.float(2.0, title="",         inline="cde",     group = "channel")

upper_3_bool_input  = input.bool(false, title="Upper +3", inline="ghi",     group = "channel")
upper_3_float_input = input.float(3.0, title="",         inline="ghi",     group = "channel")

lower_1_bool_input  = input.bool(false, title="Lower -1", inline="bcd",     group = "channel")
lower_1_float_input = input.float(1.0, title="",         inline="bcd",     group = "channel")

lower_2_bool_input  = input.bool(false, title="Lower -2", inline="def",     group = "channel")
lower_2_float_input = input.float(2.0, title="",         inline="def",     group = "channel")

lower_3_bool_input  = input.bool(false, title="Lower +3", inline="hij",     group = "channel")
lower_3_float_input = input.float(3.0, title="",         inline="hij",     group = "channel")
// ----------------------------------------------------------------------
color_upper_1 = input.color(color.new(#535455, 90),   "", inline = "colors", group = "colors")
color_upper_2 = input.color(color.new(#4caf4f, 100),  "", inline = "colors", group = "colors")
color_upper_3 = input.color(color.new(#ff5252, 100),    "", inline = "colors", group = "colors")

color_lower_1 = input.color(color.new(#535455, 90), "", inline = "colors", group = "colors")
color_lower_2 = input.color(color.new(#4caf4f, 100),  "", inline = "colors", group = "colors")
color_lower_3 = input.color(color.new(#ff5252, 100),    "", inline = "colors", group = "colors")
// ----------------------------------------------------------------------
visual_settings_group = "Visual Settings"

prinp = input.bool(false, "Show Pearson's R",   group = visual_settings_group)
exl   = input.bool(false, "Extend Lines Left",  group = visual_settings_group)
exr   = input.bool(true,  "Extend Lines Right", group = visual_settings_group)

exs = switch
    exl and exr => extend.both
    exl         => extend.left
    exr         => extend.right
    => extend.none
// ----------------------------------------------------------------------
slpclc(source, lengthx) =>

    max_bars_back(source, 5000)

    if not barstate.islast or lengthx <= 1
        [float(na), float(na), float(na)]

    else
        sumX = 0.0
        sumY = 0.0
        sumXSqr = 0.0
        sumXY = 0.0

        for i = 0 to lengthx - 1 by 1
            val = source[i]
            per = i + 1.0
            sumX += per
            sumY += val
            sumXSqr += per * per
            sumXY += val * per

        slope = (lengthx * sumXY - sumX * sumY) / (lengthx * sumXSqr - sumX * sumX)

        average = sumY / lengthx

        intercept = average - slope * sumX / lengthx + slope

        [slope, average, intercept]
// ----------------------------------------------------------------------        
[s, a, i] = slpclc(src, lengthx)

st_price  = i + s * (lengthx - 1)
end_price = i

base_line = line.new(bar_index - lengthx + 1, st_price, bar_index, end_price, width=1, extend=exs, style=line.style_dashed, color=color.new(color.orange, 0))
// ----------------------------------------------------------------------
devcalc(source, lengthx, slope, average, intercept) =>
    upDev = 0.0
    dnDev = 0.0
    stdDevAcc = 0.0
    dsxx = 0.0
    dsyy = 0.0
    dsxy = 0.0
    periods = lengthx - 1
    daY = intercept + slope * periods / 2
    val = intercept
    for j = 0 to periods by 1
        price = high[j] - val
        if price > upDev
            upDev := price
        price := val - low[j]
        if price > dnDev
            dnDev := price
        price := source[j]
        dxt = price - average
        dyt = val - daY
        price -= val
        stdDevAcc += price * price
        dsxx += dxt * dxt
        dsyy += dyt * dyt
        dsxy += dxt * dyt
        val += slope
    stdDev = math.sqrt(stdDevAcc / (periods == 0 ? 1 : periods))
    pearsonR = dsxx == 0 or dsyy == 0 ? 0 : dsxy / math.sqrt(dsxx * dsyy)
    [stdDev, pearsonR, upDev, dnDev]
// ----------------------------------------------------------------------
[stdDev, pearsonR, upDev, dnDev] = devcalc(src, lengthx, s, a, i)
// ----------------------------------------------------------------------
create_line(bool_input, float_input, color, dev) =>
    line_start_price = st_price  + (bool_input ? float_input * stdDev : dev)
    line_end_price   = end_price + (bool_input ? float_input * stdDev : dev)
    
    line.new(bar_index - lengthx + 1, line_start_price, bar_index, line_end_price, width=1, style=line.style_dashed, extend=exs, color=color.new(color, 0))    
// ----------------------------------------------------------------------
upper_1_line = create_line(upper_1_bool_input,  upper_1_float_input, color_upper_1,  upDev)
//upper_2_line = create_line(upper_2_bool_input,  upper_2_float_input, color_upper_2,  upDev)
//upper_3_line = create_line(upper_3_bool_input,  upper_3_float_input, color_upper_3,  upDev)

lower_1_line = create_line(lower_1_bool_input, -lower_1_float_input, color_lower_1, -dnDev)
//lower_2_line = create_line(lower_2_bool_input, -lower_2_float_input, color_lower_2, -dnDev)
//lower_3_line = create_line(lower_3_bool_input, -lower_3_float_input, color_upper_3, -dnDev)
// ----------------------------------------------------------------------
linefill.new(upper_1_line, base_line, color = color_upper_1)
linefill.new(lower_1_line, base_line, color = color_lower_1)
// ---------------------------------------------------------------------- 


---

örnek görüntü....
https://i.hizliresim.com/rxjglfq.png

eğer bir sarı alır....
hareketli ortalama gibi kullanmaya kalkarsanız....

ve uzunluğu eşit tutup... iki farklı değeri kullanırsanız....

ama bu iki değer.... birbirine eşit olduğu anlar olmalı ki....
döngü oluşturmalısınız....

döngüde yapacağımız tek şey ise...dikkat barlarını bulmaktır...
örnekler....
sarı barlar dikkatinizi çekti mi....
https://i.hizliresim.com/nixi1zt.png
https://i.hizliresim.com/rhpest9.png
https://i.hizliresim.com/p4qpzgj.png
https://i.hizliresim.com/12e5udh.png

PHP Code:

---

  //@version=5
indicator("yörük", overlay = true)
//Function Sar; slow-avarage-fast
lenxc = input(1)
lenxc50 = input(1)

z(close, lenxc) =>
    hxc = 0.0
    dxc = 0.0
    for i = 0 to lenxc - 1 by 1
        kxc = (lenxc - i) * lenxc
        hxc += kxc
        dxc += close[i] * kxc
        dxc
    dxc / hxc

cxc = z(close, math.floor(math.sqrt(lenxc)))
////
z50(close, lenxc50) =>
    hxc50 = 0.0
    dxc50 = 0.0
    for i = 0 to lenxc50 - 1 by 1
        kxc50 = (lenxc50 - i) * lenxc50
        hxc50 += kxc50
        dxc50 += close[i] * kxc50
        dxc50
    dxc50 / hxc50

cxc50 = z50(close, math.floor(math.sqrt(lenxc50)))
////
startsx = 0.05
incrementsx = 0.75
maximumsx = 0.035
ssx = ta.sar(startsx, incrementsx, maximumsx)
s1sx = z(ssx, lenxc)
pcsx = close < s1sx ? color.rgb(255, 82, 82, 00) : color.rgb(76, 175, 79, 00)
plot(s1sx, title="Döngü2",style=plot.style_cross, color=pcsx, linewidth=1)

startsx50 = 0
incrementsx50 = 0.1
maximumsx50 = 0.1
ssx50 = ta.sar(startsx50, incrementsx50, maximumsx50)
s1sx50 = z50(ssx50, lenxc50)
pcsx50 = close < s1sx50 ? color.rgb(255, 82, 82, 00) : color.rgb(76, 175, 79, 00)
plot(s1sx50, title="Döngü1",style=plot.style_cross, color=pcsx50, linewidth=1)
//Signal
///sinyali kendinize göre ayarlayın.... 


---

sinyali kendinize göre tasarlayabilirsiniz...

https://i.hizliresim.com/g7qay1x.png
https://i.hizliresim.com/dqcxwr7.png
https://i.hizliresim.com/9ld685g.png

hem trend...hem yönü....hem de trend stop olarak...kullanılabilir mi.....

sanırım luxalgonun kodu olması lazım....
büyük ihtimal ....kodun belli bir parçasını almışım....

PHP Code:

---


//@version=5
indicator(".", overlay = true)

//Stop Function
mult156 = input.float(1, 'Multiplicative Factor', minval = 0)
slope156 = input.float(20, 'Slope', minval = 0)
width156 = input.float(100, 'Width %', minval = 0, maxval = 100) / 100
//Style
bullCss156 = input.color(color.lime, 'Average Color', inline = 'avg', group = 'Style')
bearCss156 = input.color(color.red, ''              , inline = 'avg', group = 'Style')

//Calculation
//-----------------------------------------------------------------------------{
var float upper156 = na
var float lower156 = na
var float avg156   = close

var hold156 = 0.
var os156 = 1.
    
atr156 = nz(ta.atr(200)) * mult156

avg156 := math.abs(close - avg156) > atr156 ? 
  math.avg(close, avg156)
  : avg156 + os156 * (hold156 / mult156 / slope156)

os156 := math.sign(avg156 - avg156[1])
hold156 := os156 != os156[1] ? atr156 : hold156

upper156 := avg156 + width156 * hold156
lower156 := avg156 - width156 * hold156

css156 = os156 == 1 ? bullCss156 : bearCss156
plot_avg156 = plot(avg156, 'ŞampiyonFENER', os156 != os156[1] ? na : css156, style=plot.style_line,linewidth = 4)
//END 


---

bakalım fener şampiyon olacak mı....
fiyat hareketleri öyle der gibi...:whistling:

birçok kodun birleşiminden oluşan...

ve kodların sinyallerini alıp...

ortalamasını tek çizgi ile gösteren....

bu çizgiyi kesişime göre....sinyal üreten...
kod çalışmamın...az bir işi kaldı....
bitince....yayınlayacağım...
örnek...
https://i.hizliresim.com/7qxz9ql.png

yayınlanacak diğer kod örneklerinin görüntüleri....
https://i.hizliresim.com/35vy7ub.png
https://i.hizliresim.com/8bwh13e.png
https://i.hizliresim.com/9wd8tgv.png
https://i.hizliresim.com/ag5mgcp.png
https://i.hizliresim.com/33n5phj.png
https://i.hizliresim.com/fyscgg4.png
https://i.hizliresim.com/l9unsf4.png
https://i.hizliresim.com/n3d2a9x.png
https://i.hizliresim.com/l51kmib.png
https://i.hizliresim.com/dooe2nm.png

bilgi paylaşıldıkça....değerli....

aynı emek gibi...

hayallerimden biri....
yapa(ma)cağım....
kod kütüphanesi oluşturmak...
isteyenlerin...
kütüphaneden import ederek...
istedikleri sistemleri tasarlamalarını sağlamak...
bu işin eğitimini almadığım için...
biraz zor gibi....

mola diyerekten...
bol nasipleriniz olsun....

Teşekkürler

Redmi Note 9 Pro cihazımdan hisse.net mobile app kullanarak gönderildi.

Arkadaşlar merhaba,

Tradingview'de deneme sürümü başlattım, ama gecikmeli veriler hala gecikmeli olarak geliyor. Gerçek zamanlı BİST ve VİOP yüzeysel verisi için ek veri paketi mi almam gerekiyor?

Alıntı:

---

Originally Posted by mandradasutvar

Teşekkürler

Redmi Note 9 Pro cihazımdan hisse.net mobile app kullanarak gönderildi.

---

ben teşekkür ederim...

Alıntı:

---

Originally Posted by Altaylı

Arkadaşlar merhaba,

Tradingview'de deneme sürümü başlattım, ama gecikmeli veriler hala gecikmeli olarak geliyor. Gerçek zamanlı BİST ve VİOP yüzeysel verisi için ek veri paketi mi almam gerekiyor?

---

normalde evet...veri paketi alman lazım....

ama...tradingview apisi olan kurumlarda hesap açtırırsan....
5 sn gecikmeli yüzeysel veri alırsın...

böylece denemelerini yaparsın....

Alıntı:

---

Originally Posted by @yörük@

normalde evet...veri paketi alman lazım....

ama...tradingview apisi olan kurumlarda hesap açtırırsan....
5 sn gecikmeli yüzeysel veri alırsın...

böylece denemelerini yaparsın....

---

Çok teşekkürler ...

İş Bankası hesabım var ... nasıl yönlendirebilirim?
Platform içinde aracı kurumlar sayfasında İş Bankası'nı göremedim de.

Tradingview kendi veri paketini alırsam (BİST, VİOP yüzeysel) aylık 1 dolar ... bu da 5 saniye gecikmeli mi?

Alıntı:

---

Originally Posted by Altaylı

Çok teşekkürler ...

İş Bankası hesabım var ... nasıl yönlendirebilirim?
Platform içinde aracı kurumlar sayfasında İş Bankası'nı göremedim de.

Tradingview kendi veri paketini alırsam (BİST, VİOP yüzeysel) aylık 1 dolar ... bu da 5 saniye gecikmeli mi?

---

işbankası olmaz...osmanlı ya da info...

1 dolara yüzeysel alırsın...

bıst veri paketini almazsan..yüzeysel görürsün...

sonra hacim hesaplamaları içeren kodu...takas kodlarını...v.b kullanamazsın...
ancak gün sonunda günlük periyotta kullanırsın...diğerlerinde olmaz...

yaklaşık 5 aylığına topik sizlere emanet...

https://tr.tradingview.com/scripts/?sort=recent burda her gün yenilenen fikirlerin yayınlandığı kodlar var...

isteyenler...burdan beğendiklerinin kodlarını buraya eklesinler....
kısayolunu değil...kodun kendisini....

çünkü açıklama kısmını az yazanların...benim gibi kodları siliniyor....

oysa güzel fikirler oluyor...

Alıntı:

---

Originally Posted by @yörük@

işbankası olmaz...osmanlı ya da info...

1 dolara yüzeysel alırsın...

bıst veri paketini almazsan..yüzeysel görürsün...

sonra hacim hesaplamaları içeren kodu...takas kodlarını...v.b kullanamazsın...
ancak gün sonunda günlük periyotta kullanırsın...diğerlerinde olmaz...

---

Çok yardımcı oldunuz ...

Son bir sorum olacak ... deneme sürümü açarken 1 dolarlık bir ödeme aldılar ... bu ne içindi acaba?

Alıntı:

---

Originally Posted by Altaylı

Çok yardımcı oldunuz ...

Son bir sorum olacak ... deneme sürümü açarken 1 dolarlık bir ödeme aldılar ... bu ne içindi acaba?

---

bilmiyorum...

Alıntı:

---

Originally Posted by @yörük@

bilmiyorum...

---

Teşekkürler ... iyi günler

Alıntı:

---

Originally Posted by @yörük@

yaklaşık 5 aylığına topik sizlere emanet...

https://tr.tradingview.com/scripts/?sort=recent burda her gün yenilenen fikirlerin yayınlandığı kodlar var...

isteyenler...burdan beğendiklerinin kodlarını buraya eklesinler....
kısayolunu değil...kodun kendisini....

çünkü açıklama kısmını az yazanların...benim gibi kodları siliniyor....

oysa güzel fikirler oluyor...

---

üzerinde çalışılan henüz tamamlanmamış kod çalışmalarını....
denemek isteyenler....
geliştirmek isteyenler için....
ekliyorum...

PHP Code:

---

 // This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
// © carefulCode53358

//@version=5
indicator('.', max_bars_back=100, overlay=true)
//Time period
inp = input(title='Source', defval=close)
res = input.timeframe(title='Resolution', defval='15')
rep = input(title='Allow Repainting?', defval=false)
//
src1 = request.security(syminfo.tickerid, res, inp[rep ? 0 : barstate.isrealtime ? 1 : 0])[rep ? 0 : barstate.isrealtime ? 0 : 1]
fastLength1 = input.int(title='FastLength', defval=12, minval=1)
slowLength1 = input.int(title='SlowLength', defval=26, minval=1)
signalLength1 = input.int(title='SignalLength', defval=9, minval=1)
macdLevel1 = input.float(title='MacdLevel', defval=0, minval=0)

fastAlpha1 = 2.0 / (1 + fastLength1)
slowAlpha1 = 2.0 / (1 + slowLength1)

fastEma1 = ta.ema(src1, fastLength1)
slowEma1 = ta.ema(src1, slowLength1)

pMacdEq1 = fastAlpha1 - slowAlpha1 != 0 ? ((nz(fastEma1[1]) * fastAlpha1) - (nz(slowEma1[1]) * slowAlpha1)) / (fastAlpha1 - slowAlpha1) : 0
pMacdEqSig1 = ta.ema(pMacdEq1, signalLength1)
pMacdLevel1 = fastAlpha1 - slowAlpha1 != 0 ? (macdLevel1 - (nz(fastEma1[1]) * (1 - fastAlpha1)) + (nz(slowEma1[1]) * (1 - slowAlpha1))) / (fastAlpha1 - slowAlpha1) : 0

slo1 = src1 - pMacdEq1
sig1 = slo1 > 0 ? slo1 > nz(slo1[1]) ? 2 : 1 : slo1 < 0 ? slo1 < nz(slo1[1]) ? -2 : -1 : 0

rmacdColor = sig1 > 1 ? color.lime : sig1 > 0 ? color.lime : sig1 < -1 ? color.red : sig1 < 0 ? color.red : color.white

//plot(pMacdEq1, title='Trend Continue',style=plot.style_cross, color=rmacdColor, linewidth=2)
//plot(pMacdEqSig1, title='MacdEqSignal', color=color.rgb(255, 255, 255, 100), linewidth=1)
//plot(pMacdLevel1, title='MacdLevel', color=color.blue, linewidth=2)
xyz1=(pMacdEq1+pMacdEqSig1+pMacdLevel1)/3
//plot(xyz11, title='Avarage', color=color.rgb(241, 225, 8, 100), linewidth=2)
//
src25 = request.security(syminfo.tickerid, res, inp[rep ? 0 : barstate.isrealtime ? 1 : 0])[rep ? 0 : barstate.isrealtime ? 0 : 1]
fastLimit25 = input.float(title='FastLimit', defval=0.2, minval=0.01, step=0.01)
slowLimit25 = input.float(title='SlowLimit', defval=0.02, minval=0.01, step=0.01)

pi25 = 2 * math.asin(1)
period25 = 0.0
smooth25 = (4 * src25 + 3 * nz(src25[1]) + 2 * nz(src25[2]) + nz(src25[3])) / 10
detrender25 = (0.0962 * smooth25 + 0.5769 * nz(smooth25[2]) - 0.5769 * nz(smooth25[4]) - 0.0962 * nz(smooth25[6])) * (0.075 * nz(period25[1]) + 0.54)

q125 = (0.0962 * detrender25 + 0.5769 * nz(detrender25[2]) - 0.5769 * nz(detrender25[4]) - 0.0962 * nz(detrender25[6])) * (0.075 * nz(period25[1]) + 0.54)
i125 = nz(detrender25[3])

jI25 = (0.0962 * i125 + 0.5769 * nz(i125[2]) - 0.5769 * nz(i125[4]) - 0.0962 * nz(i125[6])) * (0.075 * nz(period25[1]) + 0.54)
jQ25 = (0.0962 * q125 + 0.5769 * nz(q125[2]) - 0.5769 * nz(q125[4]) - 0.0962 * nz(q125[6])) * (0.075 * nz(period25[1]) + 0.54)

i225 = i125 - jQ25
i225 := 0.2 * i225 + 0.8 * nz(i225[1])
q225 = q125 + jI25
q225 := 0.2 * q225 + 0.8 * nz(q225[1])

re25 = i225 * nz(i225[1]) + q225 * nz(q225[1])
re25 := 0.2 * re25 + 0.8 * nz(re25[1])
im25 = i225 * nz(q225[1]) - q225 * nz(i225[1])
im25 := 0.2 * im25 + 0.8 * nz(im25[1])

period25 := im25 != 0 and re25 != 0 ? 2 * pi25 / math.atan(im25 / re25) : 0
period25 := math.min(math.max(period25, 0.67 * nz(period25[1])), 1.5 * nz(period25[1]))
period25 := math.min(math.max(period25, 6), 50)
period25 := 0.2 * period25 + 0.8 * nz(period25[1])

smoothPeriod25 = 0.0
smoothPeriod25 := 0.33 * period25 + 0.67 * nz(smoothPeriod25[1])

phase25 = i125 != 0 ? math.atan(q125 / i125) * 180 / pi25 : 0
deltaPhase25 = nz(phase25[1]) - phase25
deltaPhase25 := deltaPhase25 < 1 ? 1 : deltaPhase25

alpha25 = fastLimit25 / deltaPhase25
alpha25 := alpha25 < slowLimit25 ? slowLimit25 : alpha25

mama25 = 0.0
mama25 := alpha25 * src25 + (1 - alpha25) * nz(mama25[1])

fama25 = 0.0
fama25 := 0.5 * alpha25 * mama25 + (1 - 0.5 * alpha25) * nz(fama25[1])

sig25 = mama25 > fama25 ? 1 : mama25 < fama25 ? -1 : 0

mamaColor25 = sig25 > 0 ? color.green : sig25 < 0 ? color.red : color.black

//plot(mama25, title='MAMA', color=mamaColor25, linewidth=2)
//plot(fama25, title='FAMA', color=color.new(color.yellow, 0), linewidth=2)
xyz2=(mama25+fama25)/2
//
length26 = input.int(title='Length', defval=15, minval=1)
momLength26 = input.int(title='MomentumLength', defval=5, minval=1)
src26 = request.security(syminfo.tickerid, res, inp[rep ? 0 : barstate.isrealtime ? 1 : 0])[rep ? 0 : barstate.isrealtime ? 0 : 1]

num26 = 0.0
coefSum26 = 0.0
for i = 0 to length26 - 1 by 1
    coef26 = math.abs(nz(src26[i]) - nz(src26[i + momLength26]))
    num26 += coef26 * nz(src26[i])
    coefSum26 += coef26
    coefSum26

filt26 = coefSum26 != 0 ? num26 / coefSum26 : 0

sig26 = src26 > filt26 ? 1 : src26 < filt26 ? -1 : 0

filtColor26 = sig26 > 0 ? color.green : sig26 < 0 ? color.red : color.black

//plot(filt26, title='Filter', color=filtColor26, linewidth=2)
//
src27 = request.security(syminfo.tickerid, res, inp[rep ? 0 : barstate.isrealtime ? 1 : 0])[rep ? 0 : barstate.isrealtime ? 0 : 1]

wma127 = (7 * src27 + 6 * nz(src27[1]) + 5 * nz(src27[2]) + 4 * nz(src27[3]) + 3 * nz(src27[4]) + 2 * nz(src27[5]) + nz(src27[6])) / 28
wma227 = (7 * wma127 + 6 * nz(wma127[1]) + 5 * nz(wma127[2]) + 4 * nz(wma127[3]) + 3 * nz(wma127[4]) + 2 * nz(wma127[5]) + nz(wma127[6])) / 28

predict27 = 2 * wma127 - wma227
trigger27 = (4 * predict27 + 3 * nz(predict27[1]) + 2 * nz(predict27[2]) + nz(predict27[3])) / 10

sig27 = predict27 > trigger27 ? 1 : predict27 < trigger27 ? -1 : 0

pmaColor27 = sig27 > 0 ? color.green : sig27 < 0 ? color.red : color.black

//plot(predict27, title='Predict', color=pmaColor27, linewidth=2)
//plot(trigger27, title='Trigger', color=color.new(color.yellow, 0), linewidth=1)
xyz3=(filt26+predict27+trigger27)/3
//
src29 = request.security(syminfo.tickerid, res, inp[rep ? 0 : barstate.isrealtime ? 1 : 0])[rep ? 0 : barstate.isrealtime ? 0 : 1]
shortLength29 = input.int(title='ShortLength', defval=5, minval=1)
longLength29 = input.int(title='LongLength', defval=20, minval=1)

shortAvg29 = ta.wma(src29, shortLength29)
shortMa29 = math.sum(math.pow(src29 - shortAvg29, 2), shortLength29) / shortLength29
shortRms29 = shortMa29 > 0 ? math.sqrt(shortMa29) : 0

longAvg29 = ta.wma(src29, longLength29)
longMa29 = math.sum(math.pow(src29 - longAvg29, 2), longLength29) / longLength29
longRms29 = longMa29 > 0 ? math.sqrt(longMa29) : 0

kk29 = longRms29 != 0 ? 0.2 * shortRms29 / longRms29 : 0
vidya29 = 0.0
vidya29 := kk29 * src29 + (1 - kk29) * nz(vidya29[1])

slo29 = src29 - vidya29
sig29 = slo29 > 0 ? slo29 > nz(slo29[1]) ? 2 : 1 : slo29 < 0 ? slo29 < nz(slo29[1]) ? -2 : -1 : 0

vidyaColor29 = sig29 > 1 ? color.green : sig29 > 0 ? color.lime : sig29 < -1 ? color.maroon : sig29 < 0 ? color.red : color.black

//plot(vidya29, title='Vidya', color=vidyaColor29, linewidth=2)
//
src32 = request.security(syminfo.tickerid, res, inp[rep ? 0 : barstate.isrealtime ? 1 : 0])[rep ? 0 : barstate.isrealtime ? 0 : 1]
length32 = input.int(title='Length', defval=3, minval=1)

jsa32 = (src32 + src32[length32]) / 2

sig32 = src32 > jsa32 ? 1 : src32 < jsa32 ? -1 : 0

jsaColor32 = sig32 > 0 ? color.green : sig32 < 0 ? color.red : color.black

//plot(jsa32, color=jsaColor32, linewidth=2)
//
src33 = request.security(syminfo.tickerid, res, inp[rep ? 0 : barstate.isrealtime ? 1 : 0])[rep ? 0 : barstate.isrealtime ? 0 : 1]
fastLength33 = input.int(title = "FastLength", defval = 5, minval = 1)
slowLength33 = input.int(title = "SlowLength", defval = 50, minval = 1)

leavittProjection(src33, length33) =>
    result33 = ta.linreg(src33, length33, -1)
    
fastLp33 = leavittProjection(src33, fastLength33)
slowLp33 = leavittProjection(src33, slowLength33)

slo33 = fastLp33 - slowLp33
sig33 = slo33 > 0 ? slo33 > nz(slo33[1]) ? 2 : 1 : slo33 < 0 ? slo33 < nz(slo33[1]) ? -2 : -1 : 0

lpColor33 = sig33 > 1 ? color.lime : sig33 > 0 ? color.lime : sig33 < -1 ? color.red : sig33 < 0 ? color.red : color.white

//plot(fastLp33, title = 'FastLp', color = lpColor33, linewidth = 2)
//plot(slowLp33, title = 'Stop', style=plot.style_cross, color = rmacdColor, linewidth = 2)
xyz4=(vidya29+jsa32+fastLp33+slowLp33)/4
//
src37 = request.security(syminfo.tickerid, res, inp[rep ? 0 : barstate.isrealtime ? 1 : 0])[rep ? 0 : barstate.isrealtime ? 0 : 1]
fastLength37 = input.int(title='FastLength', defval=5, minval=1)
slowLength37 = input.int(title='SlowLength', defval=20, minval=1)
mult37 = input.int(title='Multiple', defval=1, minval=1)

fastEma37 = ta.ema(src37, fastLength37)
slowEma37 = ta.ema(src37, slowLength37)
sqAvg37 = math.sum(math.pow(slowEma37 - fastEma37, 2), fastLength37) / fastLength37
dev37 = math.sqrt(sqAvg37) * mult37

upperBand37 = slowEma37 + dev37
lowerBand37 = slowEma37 - dev37
middleBand37 = fastEma37

sig37 = src37 > upperBand37 and nz(src37[1]) <= nz(upperBand37[1]) or src37 > lowerBand37 and nz(src37[1]) <= nz(lowerBand37[1]) ? 1 : src37 < lowerBand37 and nz(src37[1]) >= nz(lowerBand37[1]) or src37 < upperBand37 and nz(src37[1]) >= nz(upperBand37[1]) ? -1 : src37 > middleBand37 ? 1 : src37 < middleBand37 ? -1 : 0

mabColor37 = sig37 > 0 ? color.green : sig37 < 0 ? color.red : color.black

//plot(upperBand37, title='MabUp', color=mabColor37, linewidth=2)
//plot(middleBand37, title='MabMid', color=color.new(color.yellow, 0), linewidth=1)
//plot(lowerBand37, title='MabLow', color=mabColor37, linewidth=2)
xyz5=(upperBand37+middleBand37+lowerBand37)/3
//
src44 = request.security(syminfo.tickerid, res, inp[rep ? 0 : barstate.isrealtime ? 1 : 0])[rep ? 0 : barstate.isrealtime ? 0 : 1]
length44 = input.int(title='Length', defval=10, minval=1)
middleBandLength44 = input.int(title='MiddleBandLength', defval=21, minval=1)
bandsDeviation44 = input.float(title='BandsDeviation', defval=2.4, minval=0.1)
lowBandAdjust44 = input.float(title='LowBandAdjust', defval=0.9, minval=0.1)

atrPeriod44 = length44 * 2 - 1
atrBuf44 = ta.atr(atrPeriod44) * bandsDeviation44
ma44 = ta.ema(src44, length44)

upperBand44 = ma44 + ma44 * atrBuf44 / src44
middleBand44 = ta.ema(src44, middleBandLength44)
lowerBand44 = ma44- ma44 * atrBuf44 * lowBandAdjust44 / src44

sig44 = src44 > upperBand44 and nz(src44[1]) <= nz(upperBand44[1]) or src44 > lowerBand44 and nz(src44[1]) <= nz(lowerBand44[1]) or src44 > middleBand44 ? 1 : src44 < lowerBand44 and nz(src44[1]) >= nz(lowerBand44[1]) or src44 < upperBand44 and nz(src44[1]) >= nz(upperBand44[1]) or src44 < middleBand44 ? -1 : 0

svbColor44 = sig44 > 0 ? color.green : sig44 < 0 ? color.red : color.black

//plot(upperBand44, title='SVBUp', color=svbColor44, linewidth=2)
//plot(middleBand44, title='SVBMid', color=color.new(color.black, 0), linewidth=1)
//plot(lowerBand44, title='SVBLow', color=svbColor44, linewidth=2)
xyz6=(upperBand44+middleBand44+lowerBand44)/3
//
float inp55 = input(title = 'Source', defval = close)
string res55 = input.timeframe(title = 'Resolution', defval = '')
bool rep55 = input(title = 'Allow Repainting?', defval = false)
//
float src51 = request.security(syminfo.ticker, res55, inp55[rep55 ? 0 : barstate.isrealtime ? 1 : 0])[rep55 ? 0 : barstate.isrealtime ? 0 : 1]
int fastLength51 = input.int(title = 'FastLength', defval = 5, minval = 1)
int slowLength51 = input.int(title = 'SlowLength', defval = 20, minval = 1)
int sampleLength51 = input.int(title = 'SampleLength', defval = 5, minval = 1)

hannFilter51(float sampleSrc51, int length51) =>
    filt51 = 0.0, coef51 = 0.0
    for i = 1 to length51
        cosine51 = 1 - math.cos(2 * math.pi * i / (length51 + 1))
        filt51 := filt51 + (cosine51 * nz(sampleSrc51[i - 1]))
        coef51 := coef51 + cosine51
    filt51 := coef51 != 0 ? filt51 / coef51 : 0

float sample51 = 0.0
sample51 := bar_index % sampleLength51 == 0 ? src51 : nz(sample51[1])
float fastAvg51 = hannFilter51(sample51, fastLength51)
float slowAvg51 = hannFilter51(sample51, slowLength51)

float slo51 = fastAvg51 - slowAvg51
int sig51 = slo51 > 0 ? slo51 > nz(slo51[1]) ? 2 : 1 : slo51 < 0 ? slo51 < nz(slo51[1]) ? -2 : -1 : 0

color udsmaColor51 = sig51 > 1 ? color.green : sig51 > 0 ? color.lime : sig51 < -1 ? color.maroon : sig51 < 0 ? color.red : color.black

//plot(fastAvg51, title = "FastAverage", color = udsmaColor51, linewidth = 2)
//plot(slowAvg51, title = "SlowAverage", color = chart.fg_color, linewidth = 1)
xyz7=(fastAvg51+slowAvg51)/2
//
float src52 = request.security(syminfo.tickerid, res55, inp55[rep55 ? 0 : barstate.isrealtime ? 1 : 0])[rep55 ? 0 : barstate.isrealtime ? 0 : 1]
fastLength52 = input.int(title = "FastLength", defval = 14, minval = 1)
slowLength52 = input.int(title = "SlowLength", defval = 30, minval = 1)

leavittProjection52(float src52, int length52) =>
    float result52 = ta.linreg(src52, length52, -1)
    
leavittConvolution52(float src52, int length52) =>
    int sqrtLength52 = math.floor(nz(math.sqrt(length52)))
    float result52 = ta.linreg(leavittProjection52(src52, length52), sqrtLength52, -1)
    
float fastConv52 = leavittConvolution52(src52, fastLength52)
float slowConv52 = leavittConvolution52(src52, slowLength52)

float slo52 = fastConv52 - slowConv52
int sig52 = slo52 > 0 ? slo52 > nz(slo52[1]) ? 2 : 1 : slo52 < 0 ? slo52 < nz(slo52[1]) ? -2 : -1 : 0

color lcColor52 = sig52 > 1 ? color.green : sig52 > 0 ? color.lime : sig52 < -1 ? color.maroon : sig52 < 0 ? color.red : color.white

//plot(fastConv52, title = 'FastConv', color = lcColor52, linewidth = 2)
//plot(slowConv52, title = 'SlowConv', color = chart.fg_color, linewidth = 1)
xyz8=(fastConv52+slowConv52)/2
//
f_security(_symbol66, _res66, _src66, _repaint66) =>
    request.security(_symbol66, _res66, _src66[_repaint66 ? 0 : barstate.isrealtime ? 1 : 0])[_repaint66 ? 0 : barstate.isrealtime ? 0 : 1]

res66 = input.timeframe(title='Resolution', defval='')
rep66 = input(title='Allow Repainting?', defval=false)
//
length53 = input.int(title='Length', defval=20, minval=1)
factor53 = input.int(title='Factor', defval=2, minval=1)
p53 = f_security(syminfo.tickerid, res66, hl2, rep66)
h53 = f_security(syminfo.tickerid, res66, high, rep66)
l53 = f_security(syminfo.tickerid, res66, low, rep66)
t53 = f_security(syminfo.tickerid, res66, ta.tr, rep66)

mpEma53 = ta.ema(p53, length53)
trEma53 = ta.ema(t53, length53)
stdDev53 = ta.stdev(trEma53, length53)

ad53 = p53 > nz(p53[1]) ? mpEma53 + trEma53 / 2 : p53 < nz(p53[1]) ? mpEma53 - trEma53 / 2 : mpEma53
adm53 = ta.ema(ad53, length53)

trndDn53 = 0.0
trndDn53 := ta.crossunder(adm53, mpEma53) ? h53[2] : p53 < nz(p53[1]) ? p53 + stdDev53 * factor53 : nz(trndDn53[1], h53[2])
trndUp53 = 0.0
trndUp53 := ta.crossover(adm53, mpEma53) ? l53[2] : p53 > nz(p53[1]) ? p53 - stdDev53 * factor53 : nz(trndUp53[1], l53[2])
trndr53 = 0.0
trndr53 := adm53 < mpEma53 ? trndDn53 : adm53 > mpEma53 ? trndUp53 : nz(trndr53[1], 0)

sig53 = p53 > trndr53 ? 1 : p53 < trndr53 ? -1 : 0

trndrColor53 = sig53 > 0 ? color.green : sig53 < 0 ? color.red : color.black

//plot(trndr53, color=trndrColor53, linewidth=2)
//plot(mpEma53, color=color.new(color.blue, 0), linewidth=2)
//plot(adm53, color=color.new(color.black, 0), linewidth=1)
xyz9=(trndDn53+mpEma53+adm53)/3
//
c54 = f_security(syminfo.tickerid, res66, close, rep66)
v54 = f_security(syminfo.tickerid, res66, volume, rep66)
length54 = input.int(title='Length', defval=50, minval=2)
mult54 = input.float(title='Mult', defval=10.0, minval=0.01)

alpha54 = 2.0 / (length54 + 1)
mom54 = c54 - nz(c54[1])
pv54 = mom54 > 0 ? v54 : 0
nv54 = mom54 < 0 ? v54 : 0
pvMa54 = ta.ema(pv54, length54)
nvMa54 = ta.ema(nv54, length54)
vs54 = pvMa54 + nvMa54 != 0 ? math.abs(pvMa54 - nvMa54) / (pvMa54 + nvMa54) : 0

rsvaEma54 = 0.0
rsvaEma54 := nz(rsvaEma54[1]) + (alpha54 * (1 + (vs54 * mult54)) * (c54 - nz(rsvaEma54[1])))

slo54 = c54 - rsvaEma54
sig54 = slo54 > 0 ? slo54 > nz(slo54[1]) ? 2 : 1 : slo54 < 0 ? slo54 < nz(slo54[1]) ? -2 : -1 : 0

rsvaemaColor54 = sig54 > 1 ? color.green : sig54 > 0 ? color.lime : sig54 < -1 ? color.maroon : sig54 < 0 ? color.red : color.black

//plot(rsvaEma54, title='RSEma', color=rsvaemaColor54, linewidth=2)
//
length56 = input.int(title='Length', defval=20, minval=1)

h56 = f_security(syminfo.tickerid, res66, high, rep66)
l56 = f_security(syminfo.tickerid, res66, low, rep66)
c56 = f_security(syminfo.tickerid, res66, close, rep66)

hh56 = ta.highest(h56, length56)
ll56 = ta.lowest(l56, length56)
atr56 = ta.atr(length56)
mult56 = math.sqrt(length56)

dSup56 = hh56 - atr56 * mult56
dRes56 = ll56 + atr56 * mult56
dMid56 = (dSup56 + dRes56) / 2

sig56 = c56 > dMid56 ? 1 : c56 < dMid56 ? -1 : 0

dsrColor56 = sig56 > 0 ? color.green : sig56 < 0 ? color.red : color.black

//plot(dSup56, title='Support', color=color.new(color.red, 0), linewidth=2)
//plot(dMid56, title='Middle', color=dsrColor56, linewidth=1)
//plot(dRes56, title='Resistance', color=color.new(color.green, 0), linewidth=2)
xyz10=(rsvaEma54+dSup56+dMid56+dRes56)/4
//
length57 = input.int(title='Length', defval=10, minval=1)

h57 = f_security(syminfo.tickerid, res66, high, rep66)
l57 = f_security(syminfo.tickerid, res66, low, rep66)
c57 = f_security(syminfo.tickerid, res66, close, rep66)

highMa57 = ta.sma(h57, length57)
lowMa57 = ta.sma(l57, length57)

ghla57 = 0.0
ghla57 := c57 > nz(highMa57[1]) ? lowMa57 : c57 < nz(lowMa57[1]) ? highMa57 : nz(ghla57[1])

sig57 = c57 > ghla57 ? 1 : c57 < ghla57 ? -1 : 0

ghlaColor57 = sig57 > 0 ? color.green : sig57 < 0 ? color.red : color.black

//plot(ghla57, title='GHLA', color=ghlaColor57, linewidth=2)
//
inp59 = input(title='Source', defval=close)
h59 = f_security(syminfo.tickerid, res66, high, rep66)
l59 = f_security(syminfo.tickerid, res66, low, rep66)
c59 = f_security(syminfo.tickerid, res66, inp59, rep66)
length59 = input.int(title='Length', defval=14, minval=1)

mHigh59 = ta.linreg(h59, length59, 0) - ta.linreg(h59, length59, 1)
mLow59 = ta.linreg(l59, length59, 0) - ta.linreg(l59, length59, 1)

upperBand59 = h59, lowerBand59 = l59
for i = 0 to length59 - 1
    currH59 = nz(h59[i])
    prevH59 = nz(h59[i - 1])
    currL59 = nz(l59[i])
    prevL59 = nz(l59[i - 1])
    
    vHigh59 = currH59 + (nz(mHigh59[i]) * i)
    vLow59 = currL59 + (nz(mLow59[i]) * i)
    
    upperBand59 := math.max(vHigh59, upperBand59)
    lowerBand59 := math.min(vLow59, lowerBand59)
middleBand59 = (upperBand59 + 59) / 2

slo59 = c59 - middleBand59
sig59 = (c59 > upperBand59 and nz(c59[1]) <= nz(upperBand59[1])) or (c59 > lowerBand59 and nz(c59[1]) <= nz(lowerBand59[1]))
      ? 1 : (c59 < lowerBand59 and nz(c59[1]) >= nz(lowerBand59[1])) or (c59 < upperBand59 and nz(c59[1]) >= nz(upperBand59[1]))
      ? -1 : slo59 > 0 ? slo59 > nz(slo59[1]) ? 2 : 1 : slo59 < 0 ? slo59 < nz(slo59[1]) ? -2 : -1 : 0

pbColor59 = sig59 > 1 ? color.green : sig59 > 0 ? color.lime : sig59 < -1 ? color.maroon : sig59 < 0 ? color.red : color.black

//plot(upperBand59, title="UpperBand", linewidth=2, color=pbColor59)

//plot(lowerBand59, title="LowerBand", linewidth=2, color=pbColor59)
xyz11=(ghla57+upperBand59+lowerBand59)/3
//
length61 = input.int(title='Length', defval=25, minval=1)
h61 = f_security(syminfo.tickerid, res66, high, rep66)
l61 = f_security(syminfo.tickerid, res66, low, rep66)
c61 = f_security(syminfo.tickerid, res66, close, rep66)

hh61 = ta.highest(h61, length61)
ll61 = ta.lowest(l61, length61)
range_161 = hh61 - ll61

sup161 = ll61 - 0.25 * range_161
sup261 = ll61 - 0.5 * range_161
res161 = hh61 + 0.25 * range_161
res261 = hh61 + 0.5 * range_161
mid61 = (sup161 + sup261 + res161 + res261) / 4

sig61 = c61 > mid61 ? 1 : c61 < mid61 ? -1 : 0

psrColor61 = sig61 > 0 ? color.green : sig61 < 0 ? color.red : color.black

//plot(sup161, title='Support1', color=color.new(color.red, 0), linewidth=2)
//plot(sup261, title='Support2', color=color.new(color.red, 0), linewidth=2)
//plot(mid61, title='Middle', color=psrColor61, linewidth=1)
//plot(res161, title='Resistance1', color=color.new(color.green, 0), linewidth=2)
//plot(res261, title='Resistance2', color=color.new(color.green, 0), linewidth=2)
xyz12=(sup161+sup261+mid61+res161+res261)/5
//Function Avarage
xyz13=(xyz1+xyz2+xyz3+xyz4+xyz5+xyz6+xyz7+xyz8+xyz9+xyz10+xyz11+xyz12)/12
plot(xyz13, title='Super Avarage',style=plot.style_stepline, color=rmacdColor, linewidth=2)


//END
//2 Pole Super Smoother Function
SSF(x, t) =>
    omega = 2 * math.atan(1) * 4 / t
    a = math.exp(-math.sqrt(2) * math.atan(1) * 4 / t)
    b = 2 * a * math.cos(math.sqrt(2) / 2 * omega)
    c2 = b
    c3 = -math.pow(a, 2)
    c1 = 1 - c2 - c3
    SSF = 0.0
    SSF := c1 * x + c2 * nz(SSF[1], x) + c3 * nz(SSF[2], nz(SSF[1], x))
    SSF

//Getter Function For Pseudo 2D Matrix
get_val(mat, row, col, rowsize) =>
    array.get(mat, int(rowsize * row + col))

//Setter Function For Pseudo 2D Matrix
set_val(mat, row, col, rowsize, val) =>
    array.set(mat, int(rowsize * row + col), val)

//LU Decomposition Function
LU(A, B) =>
    A_size = array.size(A)
    B_size = array.size(B)
    var L = array.new_float(A_size)
    var U = array.new_float(A_size)
    L_temp = 0.0
    U_temp = 0.0
    for c = 0 to B_size - 1 by 1
        set_val(U, 0, c, B_size, get_val(A, 0, c, B_size))
    for r = 1 to B_size - 1 by 1
        set_val(L, r, 0, B_size, get_val(A, r, 0, B_size) / get_val(U, 0, 0, B_size))
    for r = 0 to B_size - 1 by 1
        for c = 0 to B_size - 1 by 1
            if r == c
                set_val(L, r, c, B_size, 1)
            if r < c
                set_val(L, r, c, B_size, 0)
            if r > c
                set_val(U, r, c, B_size, 0)
    for r = 0 to B_size - 1 by 1
        for c = 0 to B_size - 1 by 1
            if na(get_val(L, r, c, B_size))
                L_temp := get_val(A, r, c, B_size)
                for k = 0 to math.max(c - 1, 0) by 1
                    L_temp -= get_val(U, k, c, B_size) * get_val(L, r, k, B_size)
                    L_temp
                set_val(L, r, c, B_size, L_temp / get_val(U, c, c, B_size))
            if na(get_val(U, r, c, B_size))
                U_temp := get_val(A, r, c, B_size)
                for k = 0 to math.max(r - 1, 0) by 1
                    U_temp -= get_val(U, k, c, B_size) * get_val(L, r, k, B_size)
                    U_temp
                set_val(U, r, c, B_size, U_temp)
    [L, U]

//Lower Triangular Solution Function (Forward Substitution)
LT_solve(L_, B) =>
    B_size = array.size(B)
    var Y = array.new_float(B_size)
    Y_temp = 0.0
    array.set(Y, 0, array.get(B, 0) / get_val(L_, 0, 0, B_size))
    for r = 1 to B_size - 1 by 1
        Y_temp := array.get(B, r)
        for k = 0 to math.max(r - 1, 0) by 1
            Y_temp -= get_val(L_, r, k, B_size) * array.get(Y, k)
            Y_temp
        array.set(Y, r, Y_temp / get_val(L_, r, r, B_size))
    Y

//Upper Triangular Solution Function (Backward Substitution)
UT_solve(U_, Y_) =>
    Y_size = array.size(Y_)
    U_rev = array.copy(U_)
    Y_rev = array.copy(Y_)
    array.reverse(U_rev)
    array.reverse(Y_rev)
    X_rev = LT_solve(U_rev, Y_rev)
    X = array.copy(X_rev)
    array.reverse(X)
    X

//Regression Function
regression_val(X_, index_, order_, offset_) =>
    reg = 0.0
    for i = 0 to order_ by 1
        reg += array.get(X_, i) * math.pow(index_ - offset_, i)
        reg
    reg

//Curve Segment Drawing Function
draw_curve(Y, sdev, n, step_, col, ls, lw, draw, conf) =>
    var line segment = line.new(x1=time[n * step_], y1=array.get(Y, n) + sdev, x2=time[(n - 1) * step_], y2=array.get(Y, n - 1) + sdev, xloc=xloc.bar_time)
    if draw
        if conf ? barstate.isconfirmed : 1
            line.set_xy1(segment, time[n * step_], array.get(Y, n) + sdev)
            line.set_xy2(segment, time[(n - 1) * step_], array.get(Y, n - 1) + sdev)
            line.set_color(segment, col)
            line.set_width(segment, lw)
            line.set_style(segment, ls == 'Solid' ? line.style_solid : ls == 'Dotted' ? line.style_dotted : line.style_dashed)
    else
        line.delete(segment)

//-----------------------------------------------------------------------------------------------------------------------------------------------------------------
//Inputs
//-----------------------------------------------------------------------------------------------------------------------------------------------------------------

//Source Inputs
src = input(defval=close, title='Input Source Value')
use_filt = input(defval=true, title='Smooth Data Before Curve Fitting')
filt_per = input.int(defval=2, minval=2, title='Data Smoothing Period ═══════════════════')

//Calculation Inputs
per = input.int(defval=500, minval=2, title='Regression Sample Period')
order = input.int(defval=2, minval=1, title='Polynomial Order')
calc_offs = input(defval=0, title='Regression Offset')
ndev = input.float(defval=2.0, minval=0, title='Width Coefficient')
equ_from = input.int(defval=0, minval=0, title='Forecast From _ Bars Ago ═══════════════════')

//Channel Display Inputs
show_curve = input(defval=true, title='Show Fitted Curve')
show_high = input(defval=true, title='Show Fitted Channel High')
show_low = input(defval=true, title='Show Fitted Channel Low')
draw_step1 = input.int(defval=2, minval=1, title='Curve Drawing Step Size')
auto_step = input(defval=true, title='Auto Decide Step Size Instead')
draw_freq = input.string(defval='Close Only', options=['Continuous', 'Close Only'], title='Curve Update Frequency')
poly_col_h = input(defval=color.yellow, title='Channel High Line Color')
poly_lw_h = input.int(defval=1, minval=1, title='Channel High Line Width')
poly_ls_h = input.string(defval='Dashed', options=['Solid', 'Dotted', 'Dashed'], title='Channel High Line Style')
poly_col_m = input(defval=color.rgb(255, 235, 59, 100), title='Channel Middle Line Color')
poly_lw_m = input.int(defval=1, minval=1, title='Channel Middle Line Width')
poly_ls_m = input.string(defval='Dotted', options=['Solid', 'Dotted', 'Dashed'], title='Channel Middle Line Style')
poly_col_l = input(defval=color.yellow, title='Channel Low Line Color')
poly_lw_l = input.int(defval=1, minval=1, title='Channel Low Line Width')
poly_ls_l = input.string(defval='Dashed', options=['Solid', 'Dotted', 'Dashed'], title='Channel Low Line Style ═══════════════════')

//Smooth data and determine source type for calculation.
filt = SSF(src, filt_per)
srcxd = use_filt ? filt : src

//Populate a period sized array with bar values.
var x_vals = array.new_float(per)
for i = 0 to per - 1 by 1
    array.set(x_vals, i, i + 1)

//Populate a period sized array with historical source values.
var src_vals = array.new_float(per)
for i = 0 to per - 1 by 1
    array.set(src_vals, i, srcxd[per - 1 - i + equ_from])

//Populate an order*2 + 1 sized array with bar power sums.
var xp_sums = array.new_float(order * 2 + 1)
xp_sums_temp = 0.0
for i = 0 to order * 2 by 1
    xp_sums_temp := 0
    for j = 0 to per - 1 by 1
        xp_sums_temp += math.pow(array.get(x_vals, j), i)
        xp_sums_temp
    array.set(xp_sums, i, xp_sums_temp)

//Populate an order + 1 sized array with (bar power)*(source value) sums.
var xpy_sums = array.new_float(order + 1)
xpy_sums_temp = 0.0
for i = 0 to order by 1
    xpy_sums_temp := 0
    for j = 0 to per - 1 by 1
        xpy_sums_temp += math.pow(array.get(x_vals, j), i) * array.get(src_vals, j)
        xpy_sums_temp
    array.set(xpy_sums, i, xpy_sums_temp)

//Generate a pseudo square matrix with row and column sizes of order + 1 using bar power sums.
var xp_matrix = array.new_float(int(math.pow(order + 1, 2)))
for r = 0 to order by 1
    for c = 0 to order by 1
        set_val(xp_matrix, r, c, order + 1, array.get(xp_sums, r + c))

//Factor the power sum matrix into lower and upper triangular matrices with order + 1 rows and columns.
[lower, upper] = LU(xp_matrix, xpy_sums)

//Find lower triangular matrix solutions using (bar power)*(source value) sums.
l_solutions = LT_solve(lower, xpy_sums)

//Find upper triangular matrix solutions using lower matrix solutions. This gives us our regression coefficients.
reg_coefs = UT_solve(upper, l_solutions)

//Define curve drawing step size.
draw_step = auto_step ? math.ceil(per / 10) : draw_step1

//Calculate curve values.
var inter_vals = array.new_float(11)
for i = 0 to 10 by 1
    array.set(inter_vals, i, regression_val(reg_coefs, per, order, calc_offs - equ_from + draw_step * i))

//Calculate standard deviation for channel.
Stdev = array.stdev(src_vals) * ndev
//Draw interpolated segments.
draw_curve(inter_vals, 0, 1, draw_step, poly_col_m, poly_ls_m, poly_lw_m, show_curve, draw_freq == 'Close Only')
draw_curve(inter_vals, 0, 2, draw_step, poly_col_m, poly_ls_m, poly_lw_m, show_curve, draw_freq == 'Close Only')
draw_curve(inter_vals, 0, 3, draw_step, poly_col_m, poly_ls_m, poly_lw_m, show_curve, draw_freq == 'Close Only')
draw_curve(inter_vals, 0, 4, draw_step, poly_col_m, poly_ls_m, poly_lw_m, show_curve, draw_freq == 'Close Only')
draw_curve(inter_vals, 0, 5, draw_step, poly_col_m, poly_ls_m, poly_lw_m, show_curve, draw_freq == 'Close Only')
draw_curve(inter_vals, 0, 6, draw_step, poly_col_m, poly_ls_m, poly_lw_m, show_curve, draw_freq == 'Close Only')
draw_curve(inter_vals, 0, 7, draw_step, poly_col_m, poly_ls_m, poly_lw_m, show_curve, draw_freq == 'Close Only')
draw_curve(inter_vals, 0, 8, draw_step, poly_col_m, poly_ls_m, poly_lw_m, show_curve, draw_freq == 'Close Only')
draw_curve(inter_vals, 0, 9, draw_step, poly_col_m, poly_ls_m, poly_lw_m, show_curve, draw_freq == 'Close Only')
draw_curve(inter_vals, 0, 10, draw_step, poly_col_m, poly_ls_m, poly_lw_m, show_curve, draw_freq == 'Close Only')

//Draw channel high segments.
draw_curve(inter_vals, Stdev, 1, draw_step, poly_col_h, poly_ls_h, poly_lw_h, show_high, draw_freq == 'Close Only')
draw_curve(inter_vals, Stdev, 2, draw_step, poly_col_h, poly_ls_h, poly_lw_h, show_high, draw_freq == 'Close Only')
draw_curve(inter_vals, Stdev, 3, draw_step, poly_col_h, poly_ls_h, poly_lw_h, show_high, draw_freq == 'Close Only')
draw_curve(inter_vals, Stdev, 4, draw_step, poly_col_h, poly_ls_h, poly_lw_h, show_high, draw_freq == 'Close Only')
draw_curve(inter_vals, Stdev, 5, draw_step, poly_col_h, poly_ls_h, poly_lw_h, show_high, draw_freq == 'Close Only')
draw_curve(inter_vals, Stdev, 6, draw_step, poly_col_h, poly_ls_h, poly_lw_h, show_high, draw_freq == 'Close Only')
draw_curve(inter_vals, Stdev, 7, draw_step, poly_col_h, poly_ls_h, poly_lw_h, show_high, draw_freq == 'Close Only')
draw_curve(inter_vals, Stdev, 8, draw_step, poly_col_h, poly_ls_h, poly_lw_h, show_high, draw_freq == 'Close Only')
draw_curve(inter_vals, Stdev, 9, draw_step, poly_col_h, poly_ls_h, poly_lw_h, show_high, draw_freq == 'Close Only')
draw_curve(inter_vals, Stdev, 10, draw_step, poly_col_h, poly_ls_h, poly_lw_h, show_high, draw_freq == 'Close Only')

//Draw channel low segments.
draw_curve(inter_vals, -Stdev, 1, draw_step, poly_col_l, poly_ls_l, poly_lw_l, show_low, draw_freq == 'Close Only')
draw_curve(inter_vals, -Stdev, 2, draw_step, poly_col_l, poly_ls_l, poly_lw_l, show_low, draw_freq == 'Close Only')
draw_curve(inter_vals, -Stdev, 3, draw_step, poly_col_l, poly_ls_l, poly_lw_l, show_low, draw_freq == 'Close Only')
draw_curve(inter_vals, -Stdev, 4, draw_step, poly_col_l, poly_ls_l, poly_lw_l, show_low, draw_freq == 'Close Only')
draw_curve(inter_vals, -Stdev, 5, draw_step, poly_col_l, poly_ls_l, poly_lw_l, show_low, draw_freq == 'Close Only')
draw_curve(inter_vals, -Stdev, 6, draw_step, poly_col_l, poly_ls_l, poly_lw_l, show_low, draw_freq == 'Close Only')
draw_curve(inter_vals, -Stdev, 7, draw_step, poly_col_l, poly_ls_l, poly_lw_l, show_low, draw_freq == 'Close Only')
draw_curve(inter_vals, -Stdev, 8, draw_step, poly_col_l, poly_ls_l, poly_lw_l, show_low, draw_freq == 'Close Only')
draw_curve(inter_vals, -Stdev, 9, draw_step, poly_col_l, poly_ls_l, poly_lw_l, show_low, draw_freq == 'Close Only')
draw_curve(inter_vals, -Stdev, 10, draw_step, poly_col_l, poly_ls_l, poly_lw_l, show_low, draw_freq == 'Close Only')
//END 


---