//@version=5

//https://t.me/+UAk3hqvoD89jZTlk
indicator("Swiss Knife",overlay = true)

ag = 3

donchian(len) =>
math.avg(ta.lowest(len), ta.highest(len))
// Function to calculate indicators\
sumArray(arr) =>
sum = 0.0
if not(array.size(arr)>0)
sum
else
for i = 0 to array.size(arr) - 1

sum := sum + array.get(arr, i)

sum

WeightedArraySum(values, weights) =>

sum = 0.0
// Check if both arrays are non-empty and have the same size
if array.size(values) > 0 and array.size(weights) > 0 and array.size(values) ==
array.size(weights)
for i = 0 to array.size(values) - 1
sum := sum + array.get(values, i) * array.get(weights, i)
// Normalize by the sum of weights
sum / sumArray(weights)
else
1 // Return na if sizes are mismatched or arrays are empty

sliceArray(arr, start, stop) =>

// Create a new empty float array to store the sliced elements
newArray = array.new_float(0)

// Ensure indices are within valid range

startt = math.max(0, start)
stopp = math.min(array.size(arr) - 1, stop)

// Populate the new array with elements from the original array
for i = startt to stopp
array.push(newArray, array.get(arr, i))

newArray // Return the new sliced array

find_index(values,weights,start,stop)=>
w_index = WeightedArraySum(sliceArray(values, start, stop),sliceArray(weights,
start, stop))
int(w_index)-1
getLastFractalValues(n) =>
bool upflagDownFrontier = true
bool upflagUpFrontier0 = true
bool upflagUpFrontier1 = true
bool upflagUpFrontier2 = true
bool upflagUpFrontier3 = true
bool upflagUpFrontier4 = true
bool downflagDownFrontier = true
bool downflagUpFrontier0 = true
bool downflagUpFrontier1 = true
 bool downflagUpFrontier2 = true
bool downflagUpFrontier3 = true
bool downflagUpFrontier4 = true

// UpFractal conditions
for i = 1 to n
upflagDownFrontier := upflagDownFrontier and (high[n-i] < high[n])
upflagUpFrontier0 := upflagUpFrontier0 and (high[n+i] < high[n])
upflagUpFrontier1 := upflagUpFrontier1 and (high[n+1] <= high[n] and
high[n+i + 1] < high[n])
upflagUpFrontier2 := upflagUpFrontier2 and (high[n+1] <= high[n] and
high[n+2] <= high[n] and high[n+i + 2] < high[n])
upflagUpFrontier3 := upflagUpFrontier3 and (high[n+1] <= high[n] and
high[n+2] <= high[n] and high[n+3] <= high[n] and high[n+i + 3] < high[n])
upflagUpFrontier4 := upflagUpFrontier4 and (high[n+1] <= high[n] and
high[n+2] <= high[n] and high[n+3] <= high[n] and high[n+4] <= high[n] and high[n+i
+ 4] < high[n])

flagUpFrontier = upflagUpFrontier0 or upflagUpFrontier1 or upflagUpFrontier2 or

upflagUpFrontier3 or upflagUpFrontier4
upFractal = (upflagDownFrontier and flagUpFrontier)

// DownFractal conditions
for i = 1 to n
downflagDownFrontier := downflagDownFrontier and (low[n-i] > low[n])
downflagUpFrontier0 := downflagUpFrontier0 and (low[n+i] > low[n])
downflagUpFrontier1 := downflagUpFrontier1 and (low[n+1] >= low[n] and
low[n+i + 1] > low[n])
downflagUpFrontier2 := downflagUpFrontier2 and (low[n+1] >= low[n] and
low[n+2] >= low[n] and low[n+i + 2] > low[n])
downflagUpFrontier3 := downflagUpFrontier3 and (low[n+1] >= low[n] and
low[n+2] >= low[n] and low[n+3] >= low[n] and low[n+i + 3] > low[n])
downflagUpFrontier4 := downflagUpFrontier4 and (low[n+1] >= low[n] and
low[n+2] >= low[n] and low[n+3] >= low[n] and low[n+4] >= low[n] and low[n+i + 4] >
low[n])

flagDownFrontier = downflagUpFrontier0 or downflagUpFrontier1 or

downflagUpFrontier2 or downflagUpFrontier3 or downflagUpFrontier4
downFractal = (downflagDownFrontier and flagDownFrontier)

// Store last values if conditions met

var float last_down_value = na
var float last_up_value = na

if downFractal
last_down_value := close[n]
if upFractal
last_up_value := close[n]

[last_down_value, last_up_value]//[upFractal,downFractal]//

basisType = "SMMA"
basisLen = 24
offsetSigma = 6
offsetALMA = 0.85
delayOffset = 0

// === /INPUTS ===

 // Constants colours that include fully non-transparent option.

// === BASE FUNCTIONS ===

// Returns MA input selection variant, default to SMA if blank or typo.
variant(type, src, len, offSig, offALMA) =>
v1 = ta.sma(src, len) //
Simple
v2 = ta.ema(src, len) //
Exponential
v3 = 2 * v2 - ta.ema(v2, len) //
Double Exponential
v4 = 3 * (v2 - ta.ema(v2, len)) + ta.ema(ta.ema(v2, len), len) //
Triple Exponential
v5 = ta.wma(src, len) //
Weighted
v6 = ta.vwma(src, len) //
Volume Weighted
v7 = 0.0
v7 := na(v7[1]) ? ta.sma(src, len) : (v7[1] * (len - 1) + src) / len //
Smoothed
v8 = ta.wma(2 * ta.wma(src, len / 2) - ta.wma(src, len),
math.round(math.sqrt(len))) // Hull
v9 = ta.linreg(src, len, offSig) // Least
Squares
v10 = ta.alma(src, len, offALMA, offSig) //
Arnaud Legoux
v11 = ta.sma(v1,len) //
Triangular (extreme smooth)
// SuperSmoother filter
// © 2013 John F. Ehlers
a1 = math.exp(-1.414*3.14159 / len)
b1 = 2*a1*math.cos(1.414*3.14159 / len)
c2 = b1
c3 = (-a1)*a1
c1 = 1 - c2 - c3
v12 = 0.0
v12 := c1*(src + nz(src[1])) / 2 + c2*nz(v12[1]) + c3*nz(v12[2])
type=="EMA"?v2 : type=="DEMA"?v3 : type=="TEMA"?v4 : type=="WMA"?v5 :
type=="VWMA"?v6 : type=="SMMA"?v7 : type=="HullMA"?v8 : type=="LSMA"?v9 :
type=="ALMA"?v10 : type=="TMA"?v11: type=="SSMA"?v12: v1

screener_func(h, l, c, o) =>

l1=3
l2=5
l3=7
l4=11
l5=13
l6=17
[upFractal1,downFractal1] = getLastFractalValues(l1)
[upFractal2,downFractal2] = getLastFractalValues(l2)
[upFractal3,downFractal3] = getLastFractalValues(l3)
[upFractal4,downFractal4] = getLastFractalValues(l4)
[upFractal5,downFractal5] = getLastFractalValues(l5)
[upFractal6,downFractal6] = getLastFractalValues(l6)
upval = c*6-
(upFractal1[1]+upFractal2[1]+upFractal3[1]+upFractal4[1]+upFractal5[1]+upFractal6[1
])
 downval =
(downFractal1[1]+downFractal2[1]+downFractal3[1]+downFractal4[1]+downFractal5[1]+do
wnFractal6[1])-c*6
mtCond = (upval-downval)>0

upper_wick = close>open ? high-close : high-open

lower_wick = close>open ? open-low : close-low
spread = high-low
body_length = spread - (upper_wick + lower_wick)

percent_upper_wick = upper_wick/spread
percent_lower_wick = lower_wick/spread
percent_body_length = body_length/spread

buying_volume = close>open ? (percent_body_length + (percent_upper_wick +

percent_lower_wick)/2)*volume : ((percent_upper_wick + percent_lower_wick)/2) *
volume
selling_volume = close<open ? (percent_body_length + (percent_upper_wick +
percent_lower_wick)/2)*volume : ((percent_upper_wick + percent_lower_wick)/2) *
volume

volume_signal1 = 100*(buying_volume-selling_volume)/volume

cc = 0

fast_length1 = 120
slow_length1 = 260
src1 = volume_signal1
signal_length1 = 90

// Calculating
fast_ma1 =variant('SMMA', src1[delayOffset], fast_length1, offsetSigma,
offsetALMA)
slow_ma1 = variant('SMMA', src1[delayOffset], slow_length1, offsetSigma,
offsetALMA)
macd1 = fast_ma1 - slow_ma1
signal1 = variant('SMMA', macd1[delayOffset], signal_length1, offsetSigma,
offsetALMA)

hist1 = macd1 - signal1

vmCond = hist1>0

cumulative_buying_volume = ta.cum(buying_volume)
cumulative_selling_volume = ta.cum(selling_volume)
src =
100*(cumulative_buying_volume-cumulative_selling_volume)/((cumulative_buying_volume
+cumulative_selling_volume)/2)
fast_ma =variant('SMMA', src[delayOffset], 12, offsetSigma, offsetALMA)
slow_ma = variant('SMMA', src[delayOffset], 26, offsetSigma, offsetALMA)
 macd = fast_ma - slow_ma
signal = variant('SMMA', macd[delayOffset], 9, offsetSigma, offsetALMA)

hist = macd - signal

cvmCond = hist>0

var lowerTimeframe = switch

timeframe.isseconds => "1S"
timeframe.isintraday => "1"
timeframe.isdaily => "10"
=> "60"

inp_num_bins = 250
inp_type = 'Volume'

//
-----------------------------------------------------------------------------

[intrabar_highs, intrabar_lows, intrabar_vol] =

request.security_lower_tf(syminfo.tickerid, lowerTimeframe, [high, low, volume])

float intrabar_poc = na

//
-----------------------------------------------------------------------------

size = array.size(intrabar_highs)

if size > 0

float[] tpo_bins = array.new_float()

for i = 0 to inp_num_bins - 1
array.push(tpo_bins, 0)

inc = (high - low) / inp_num_bins

num_vals = array.size(intrabar_highs)
for i = 0 to inp_num_bins - 1
bin_bottom = low + i * inc
bin_top = bin_bottom + inc

for j = 0 to num_vals - 1
intrabar_high = array.get(intrabar_highs, j)
intrabar_low = array.get(intrabar_lows, j)
intrabar_volume = inp_type == "Time" ? 1 : array.get(intrabar_vol,
j)

inside_bin = intrabar_high <= bin_top and intrabar_low >=

bin_bottom
spans_bin = intrabar_high > bin_top and intrabar_low < bin_bottom
up_bin = intrabar_high > bin_bottom and intrabar_high < bin_top and
intrabar_low < bin_bottom
dn_bin = intrabar_low < bin_top and intrabar_low > bin_bottom and
intrabar_high > bin_top

if inside_bin
 current = array.get(tpo_bins, i)
array.set(tpo_bins, i, current + (1 * intrabar_volume))
else if spans_bin
current = array.get(tpo_bins, i)
val = (bin_top - bin_bottom) / (intrabar_high - intrabar_low) *
intrabar_volume
array.set(tpo_bins, i, current + val)
else if up_bin
current = array.get(tpo_bins, i)
val = (intrabar_high - bin_bottom) / (intrabar_high -
intrabar_low) * intrabar_volume
array.set(tpo_bins, i, current + val)
else if dn_bin
current = array.get(tpo_bins, i)
val = (bin_top - intrabar_low) / (intrabar_high - intrabar_low)
* intrabar_volume
array.set(tpo_bins, i, current + val)

poc_val = array.max(tpo_bins)
poc_index = array.indexof(tpo_bins, poc_val)

intrabar_poc := low + inc * (poc_index + 0.5)

floatArray = array.new_float(array.size(tpo_bins))

// Populate the array with values from 0 to n

for i = 0 to array.size(tpo_bins)-1
array.set(floatArray, i, i)
cc = find_index(floatArray,tpo_bins,0,array.size(tpo_bins)-1)

src2 = ta.wma(close,100)-ta.wma(cc,100)

fast_ma2 =variant('SMMA', src2[delayOffset], 12, offsetSigma, offsetALMA)

slow_ma2 = variant('SMMA', src2[delayOffset], 26, offsetSigma, offsetALMA)
macd2= fast_ma - slow_ma
signal2 = variant('SMMA', macd2[delayOffset], 9, offsetSigma, offsetALMA)

hist2 = macd2 - signal2

pocCond = hist2>0
// Existing indicators
[macdLine, signalLine, histLine] = ta.macd(c, 12, 26, 9)
macdC = histLine > 0
hl22 = (h + l) / 2
ao = ta.sma(hl22, 5) - ta.sma(hl22, 34)
aoC = ao > 0
sar = ta.sar(0.02, 0.02, 0.2)
sarC = sar < c
[supertrend, direction] = ta.supertrend(3, 10)
supertrendC = direction > 0
period_ = 21
isCentered = false
barsback = period_ / 2 + 1
ma = ta.sma(c, period_)
dpo = isCentered ? c[barsback] - ma : c - ma[barsback]
dpoC = dpo > 0

// Additional Indicators
rsi = ta.rsi(c, 14)
 rsiC = rsi > 50

source = close
lengthRSI = 14
lengthStoch = 7
smoothK = 3
smoothD = 3
rsi1 = ta.rsi(source, lengthRSI)
k = ta.sma(ta.stoch(rsi1, rsi1, rsi1, lengthStoch), smoothK)
d = ta.sma(k, smoothD)
stochC = k>50

[basis, upper, lower] = ta.bb(c, 20, 2)

bbC = c>basis

conversionPeriods = 9
basePeriods = 26
laggingSpan2Periods = 52
displacement = 26

// Function to calculate Donchian Channel

// Calculate Ichimoku Lines

conversionLine = donchian(conversionPeriods)
baseLine = donchian(basePeriods)
leadLine1 = math.avg(conversionLine, baseLine)
leadLine2 = donchian(laggingSpan2Periods)

// Define conditions for Ichimoku

ichimokuBullish = conversionLine > baseLine and close > leadLine1 and close >
leadLine2
ichimokuBearish = conversionLine < baseLine and close < leadLine1 and close <
leadLine2

// Set the color condition

ichimokuC = ichimokuBullish ? true : ichimokuBearish ? false : na

cmo = ta.cmo(c, 14)

cmoC = cmo > 50 ? true : cmo < -50 ? false : na

donchianUpper = ta.highest(h, 20)

donchianLower = ta.lowest(l, 20)
donchianC = c > donchianUpper ? true : c < donchianLower ? false : na
len = 14
th = 20

TrueRange = math.max(math.max(high-low, math.abs(high-nz(close[1]))),

math.abs(low-nz(close[1])))
DirectionalMovementPlus = high-nz(high[1]) > nz(low[1])-low ? math.max(high-
nz(high[1]), 0): 0
DirectionalMovementMinus = nz(low[1])-low > high-nz(high[1]) ?
math.max(nz(low[1])-low, 0): 0

SmoothedTrueRange = 0.0
SmoothedTrueRange := nz(SmoothedTrueRange[1]) - (nz(SmoothedTrueRange[1])/len)
+ TrueRange
 SmoothedDirectionalMovementPlus = 0.0
SmoothedDirectionalMovementPlus := nz(SmoothedDirectionalMovementPlus[1]) -
(nz(SmoothedDirectionalMovementPlus[1])/len) + DirectionalMovementPlus

SmoothedDirectionalMovementMinus = 0.0
SmoothedDirectionalMovementMinus := nz(SmoothedDirectionalMovementMinus[1]) -
(nz(SmoothedDirectionalMovementMinus[1])/len) + DirectionalMovementMinus

DIPlus = SmoothedDirectionalMovementPlus / SmoothedTrueRange * 100

DIMinus = SmoothedDirectionalMovementMinus / SmoothedTrueRange * 100
adxC = DIPlus > DIMinus ? true :DIPlus < DIMinus ? false : na
[macdC, aoC, sarC, supertrendC, dpoC, rsiC, stochC, bbC, ichimokuC, cmoC,
donchianC, adxC,mtCond,vmCond,pocCond,cvmCond]

// Retrieve indicator values for multiple timeframes

[macdC_d, aoC_d, sarC_d, supertrendC_d, dpoC_d, rsiC_d, stochC_d, bbC_d,
ichimokuC_d, cmoC_d, donchianC_d, adxC_d,mtCond_d,vmCond_d,pocCond_d,cvmCond_d] =
request.security(syminfo.tickerid, "D", screener_func(high, low, close, open))
[macdC_4h, aoC_4h, sarC_4h, supertrendC_4h, dpoC_4h, rsiC_4h, stochC_4h, bbC_4h,
ichimokuC_4h, cmoC_4h, donchianC_4h,
adxC_4h,mtCond_4h,vmCond_4h,pocCond_4h,cvmCond_4h] =
request.security(syminfo.tickerid, "240", screener_func(high, low, close, open))
[macdC_1h, aoC_1h, sarC_1h, supertrendC_1h, dpoC_1h, rsiC_1h, stochC_1h, bbC_1h,
ichimokuC_1h, cmoC_1h, donchianC_1h,
adxC_1h,mtCond_1h,vmCond_1h,pocCond_1h,cvmCond_1h] =
request.security(syminfo.tickerid, "60", screener_func(high, low, close, open))
[macdC_15m, aoC_15m, sarC_15m, supertrendC_15m, dpoC_15m, rsiC_15m, stochC_15m,
bbC_15m, ichimokuC_15m, cmoC_15m, donchianC_15m,
adxC_15m,mtCond_15m,vmCond_15m,pocCond_15m,cvmCond_15m] =
request.security(syminfo.tickerid, "15", screener_func(high, low, close, open))
dc = (macdC_d?1:-1) + (aoC_d?1:-1) + (supertrendC_d?1:-1) + (dpoC_d?1:-1) +(rsiC_d?
1:-1) + (stochC_d?1:-1) + (bbC_d?1:-1) + (ichimokuC_d?1:-1) +( cmoC_d?1:-1) +
(donchianC_d?1:-1) + (adxC_d?1:-1) + (cvmCond_d?1:-1) +( pocCond_d?1:-1) +
(vmCond_d?1:-1) + (mtCond_d?1:-1)
d4h = (macdC_4h?1:-1 )+ (aoC_4h?1:-1 )+ (supertrendC_4h?1:-1 )+ (dpoC_4h?1:-1) +
(rsiC_4h?1:-1 )+ (stochC_4h?1:-1) + (bbC_4h?1:-1) + (ichimokuC_4h?1:-1) + (cmoC_4h?
1:-1) + (donchianC_4h?1:-1) + (adxC_4h?1:-1) + (cvmCond_4h?1:-1) +( pocCond_4h?1:-
1) + (vmCond_4h?1:-1) + (mtCond_4h?1:-1)
d1h = (macdC_1h?1:-1) + (aoC_1h?1:-1) + (supertrendC_1h?1:-1) +( dpoC_1h?1:-1) +
(rsiC_1h?1:-1 )+ (stochC_1h?1:-1) + (bbC_1h?1:-1 )+ (ichimokuC_1h?1:-1) + (cmoC_1h?
1:-1) + (donchianC_1h?1:-1) + (adxC_1h?1:-1) + (cvmCond_1h?1:-1) +( pocCond_1h?1:-
1) + (vmCond_1h?1:-1) + (mtCond_1h?1:-1)
d15m = (macdC_15m?1:-1) + (aoC_15m?1:-1 )+ (supertrendC_15m?1:-1) + (dpoC_d?1:-1 )+
(rsiC_15m?1:-1) +( stochC_15m?1:-1) +( bbC_15m?1:-1) + (ichimokuC_15m?1:-1) +
(cmoC_15m?1:-1) + (donchianC_15m?1:-1) + (adxC_15m?1:-1) + (cvmCond_15m?1:-1) +
( pocCond_15m?1:-1) + (vmCond_15m?1:-1) + (mtCond_15m?1:-1)

// Create table
var tbl = table.new(position.middle_right, 5, 18, frame_color = #151715,
frame_width = 1, border_width = 2, border_color = color.new(color.white, 100))

if barstate.islast
// Daily
table.cell(tbl, 1, 0, "Daily", text_halign = text.align_center, bgcolor =
na,text_color = color.white)
table.cell(tbl, 1, 1, "MACD", text_halign = text.align_center, bgcolor =
macdC_d ? color.green : color.red, text_color = color.black, text_size =
size.small)
 table.cell(tbl, 1, 2, "AO", text_halign = text.align_center, bgcolor = aoC_d ?
color.green : color.red, text_color = color.black, text_size = size.small)
table.cell(tbl, 1, 3, "SAR", text_halign = text.align_center, bgcolor =
sarC_d ? color.green : color.red, text_color = color.black, text_size = size.small)
table.cell(tbl, 1, 4, "SuperTrend", text_halign = text.align_center, bgcolor =
supertrendC_d ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 1, 5, "DPO", text_halign = text.align_center, bgcolor =
dpoC_d ? color.green : color.red, text_color = color.black, text_size = size.small)
table.cell(tbl, 1, 6, "RSI", text_halign = text.align_center, bgcolor =
rsiC_d ? color.green : color.red, text_color = color.black, text_size = size.small)
table.cell(tbl, 1, 7, "Stochastic", text_halign = text.align_center, bgcolor =
stochC_d ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 1, 8, "BB", text_halign = text.align_center, bgcolor = bbC_d ?
color.green : color.red, text_color = color.black, text_size = size.small)
table.cell(tbl, 1, 9, "Ichimoku", text_halign = text.align_center, bgcolor =
ichimokuC_d ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 1, 10, "Chande", text_halign = text.align_center, bgcolor =
cmoC_d ? color.green : color.red, text_color = color.black, text_size = size.small)
table.cell(tbl, 1, 11, "Donchian", text_halign = text.align_center, bgcolor =
donchianC_d ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 1, 12, "ADX", text_halign = text.align_center, bgcolor = adxC_d
? color.green : color.red, text_color = color.black, text_size = size.small)
table.cell(tbl, 1, 13, "VolMom", text_halign = text.align_center, bgcolor =
vmCond_d ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 1, 14, "CumVolMom", text_halign = text.align_center, bgcolor =
cvmCond_d ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 1, 15, "POCMom", text_halign = text.align_center, bgcolor =
pocCond_d ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 1, 16, "Fractals", text_halign = text.align_center, bgcolor =
mtCond_d ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 1, 17, str.tostring(100*(math.round(((dc/17)+1)/2,2)))+'/100',
text_halign = text.align_center, bgcolor = dc>0 ? color.green : color.red,
text_color = color.black, text_size = size.small)

// Repeat for 4-hour, 1-hour, and 15-min timeframes

// 4-hour
table.cell(tbl, 2, 0, "4-Hour", text_halign = text.align_center, bgcolor =
na,text_color = color.white)
table.cell(tbl, 2, 1, "MACD", text_halign = text.align_center, bgcolor =
macdC_4h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 2, 2, "AO", text_halign = text.align_center, bgcolor = aoC_4h ?
color.green : color.red, text_color = color.black, text_size = size.small)
table.cell(tbl, 2, 3, "SAR", text_halign = text.align_center, bgcolor = sarC_4h
? color.green : color.red, text_color = color.black, text_size = size.small)
table.cell(tbl, 2, 4, "SuperTrend", text_halign = text.align_center, bgcolor =
supertrendC_4h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 2, 5, "DPO", text_halign = text.align_center, bgcolor = dpoC_4h
? color.green : color.red, text_color = color.black, text_size = size.small)
table.cell(tbl, 2, 6, "RSI", text_halign = text.align_center, bgcolor = rsiC_4h
? color.green : color.red, text_color = color.black, text_size = size.small)
table.cell(tbl, 2, 7, "Stochastic", text_halign = text.align_center, bgcolor =
stochC_4h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 2, 8, "BB", text_halign = text.align_center, bgcolor = bbC_4h ?
color.green : color.red, text_color = color.black, text_size = size.small)
table.cell(tbl, 2, 9, "Ichimoku", text_halign = text.align_center, bgcolor =
ichimokuC_4h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 2, 10, "Chande", text_halign = text.align_center, bgcolor =
cmoC_4h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 2, 11, "Donchian", text_halign = text.align_center, bgcolor =
donchianC_4h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 2, 12, "ADX", text_halign = text.align_center, bgcolor =
adxC_4h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 2, 13, "VolMom", text_halign = text.align_center, bgcolor =
vmCond_4h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 2, 14, "CumVolMom", text_halign = text.align_center, bgcolor =
cvmCond_4h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 2, 15, "POCMom", text_halign = text.align_center, bgcolor =
pocCond_4h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 2, 16, "Fractals", text_halign = text.align_center, bgcolor =
mtCond_4h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 2, 17, str.tostring(100*(math.round(((d4h/17)+1)/2,2)))+'/100',
text_halign = text.align_center, bgcolor = d4h>0 ? color.green : color.red,
text_color = color.black, text_size = size.small)

// 1-hour
table.cell(tbl, 3, 0, "1-Hour", text_halign = text.align_center, bgcolor =
na,text_color = color.white)
table.cell(tbl, 3, 1, "MACD", text_halign = text.align_center, bgcolor =
macdC_1h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 3, 2, "AO", text_halign = text.align_center, bgcolor = aoC_1h ?
color.green : color.red, text_color = color.black, text_size = size.small)
table.cell(tbl, 3, 3, "SAR", text_halign = text.align_center, bgcolor = sarC_1h
? color.green : color.red, text_color = color.black, text_size = size.small)
table.cell(tbl, 3, 4, "SuperTrend", text_halign = text.align_center, bgcolor =
supertrendC_1h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 3, 5, "DPO", text_halign = text.align_center, bgcolor = dpoC_1h
? color.green : color.red, text_color = color.black, text_size = size.small)
table.cell(tbl, 3, 6, "RSI", text_halign = text.align_center, bgcolor = rsiC_1h
? color.green : color.red, text_color = color.black, text_size = size.small)
table.cell(tbl, 3, 7, "Stochastic", text_halign = text.align_center, bgcolor =
stochC_1h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 3, 8, "BB", text_halign = text.align_center, bgcolor = bbC_1h ?
color.green : color.red, text_color = color.black, text_size = size.small)
table.cell(tbl, 3, 9, "Ichimoku", text_halign = text.align_center, bgcolor =
ichimokuC_1h ? color.green : color.red, text_color = color.black, text_size =
size.small)
 table.cell(tbl, 3, 10, "Chande", text_halign = text.align_center, bgcolor =
cmoC_1h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 3, 11, "Donchian", text_halign = text.align_center, bgcolor =
donchianC_1h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 3, 12, "ADX", text_halign = text.align_center, bgcolor =
adxC_1h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 3, 13, "VolMom", text_halign = text.align_center, bgcolor =
vmCond_1h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 3, 14, "CumVolMom", text_halign = text.align_center, bgcolor =
cvmCond_1h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 3, 15, "POCMom", text_halign = text.align_center, bgcolor =
pocCond_1h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 3, 16, "Fractals", text_halign = text.align_center, bgcolor =
mtCond_1h ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 3, 17, str.tostring(100*(math.round(((d1h/17)+1)/2,2)))+'/100',
text_halign = text.align_center, bgcolor = d1h>0 ? color.green : color.red,
text_color = color.black, text_size = size.small)

// 15 minutes
table.cell(tbl, 4, 0, "15-Min", text_halign = text.align_center, bgcolor =
na,text_color = color.white)
table.cell(tbl, 4, 1, "MACD", text_halign = text.align_center, bgcolor =
macdC_15m ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 4, 2, "AO", text_halign = text.align_center, bgcolor =
aoC_15m ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 4, 3, "SAR", text_halign = text.align_center, bgcolor =
sarC_15m ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 4, 4, "SuperTrend", text_halign = text.align_center, bgcolor =
supertrendC_15m ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 4, 5, "DPO", text_halign = text.align_center, bgcolor =
dpoC_15m ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 4, 6, "RSI", text_halign = text.align_center, bgcolor =
rsiC_15m ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 4, 7, "Stochastic", text_halign = text.align_center, bgcolor =
stochC_15m ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 4, 8, "BB", text_halign = text.align_center, bgcolor =
bbC_15m ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 4, 9, "Ichimoku", text_halign = text.align_center, bgcolor =
ichimokuC_15m ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 4, 10, "Chande", text_halign = text.align_center, bgcolor =
cmoC_15m ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 4, 11, "Donchian", text_halign = text.align_center, bgcolor =
donchianC_15m ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 4, 12, "ADX", text_halign = text.align_center, bgcolor =
adxC_15m ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 4, 13, "VolMom", text_halign = text.align_center, bgcolor =
vmCond_15m ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 4, 14, "CumVolMom", text_halign = text.align_center, bgcolor =
cvmCond_15m ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 4, 15, "POCMom", text_halign = text.align_center, bgcolor =
pocCond_15m ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 4, 16, "Fractals", text_halign = text.align_center, bgcolor =
mtCond_15m ? color.green : color.red, text_color = color.black, text_size =
size.small)
table.cell(tbl, 4, 17,
str.tostring(100*(math.round(((d15m/17)+1)/2,2)))+'/100', text_halign =
text.align_center, bgcolor = d15m>0 ? color.green : color.red, text_color =
color.black, text_size = size.small)

plot(ta.ema(close,10),color=color.lime,linewidth=1)
plot(ta.ema(close,20),color=color.yellow,linewidth=1)
plot(ta.ema(close,50),color=color.orange,linewidth=1)
plot(ta.ema(close,100),color=color.red,linewidth=1)
plot(ta.ema(close,200),color=color.purple,linewidth=1)

var float trendSum = 0

// Function to call built-in supertrend and calculate contribution to trendSum

calculateTrendContribution(periods, multiplier) =>
[supertrend, direction] = ta.supertrend(multiplier, periods)
direction * periods

// Reset trendSum at the beginning of each session or conditionally, if needed

trendSum := 0

// Calculate trend contributions for different settings

trendSum += calculateTrendContribution(6, 1)
trendSum += calculateTrendContribution(6, 2)
trendSum += calculateTrendContribution(6, 3)
trendSum += calculateTrendContribution(7, 1)
trendSum += calculateTrendContribution(7, 2)
trendSum += calculateTrendContribution(7, 3)
trendSum += calculateTrendContribution(8, 1)
trendSum += calculateTrendContribution(8, 2)
trendSum += calculateTrendContribution(8, 3)
trendSum += calculateTrendContribution(9, 1)
trendSum += calculateTrendContribution(9, 2)
trendSum += calculateTrendContribution(9, 3)
trendSum += calculateTrendContribution(10, 1)
trendSum += calculateTrendContribution(10, 2)
trendSum += calculateTrendContribution(10, 3)
trendSum += calculateTrendContribution(11, 1)
trendSum += calculateTrendContribution(11, 2)
trendSum += calculateTrendContribution(11, 3)
trendSum += calculateTrendContribution(12, 1)
trendSum += calculateTrendContribution(12, 2)
trendSum += calculateTrendContribution(12, 3)
trendSum += calculateTrendContribution(13, 1)
trendSum += calculateTrendContribution(13, 2)
trendSum += calculateTrendContribution(13, 3)
trendSum += calculateTrendContribution(14, 1)
trendSum += calculateTrendContribution(14, 2)
trendSum += calculateTrendContribution(14, 3)
rating10 = calculateTrendContribution(14, 3) + calculateTrendContribution(14, 2) +
calculateTrendContribution(14, 1)

rating = trendSum
rsii = ta.rsi(rating, 21)
rsima = ta.ema(rsii, 14)

isCurrentRangeSmaller() =>
srcHigh = high
srcLow = low
length = 20
rangeRatio = (srcHigh - srcLow) / srcLow
avgRangeRatio = math.sum(rangeRatio, length) / length
rangeRatio < avgRangeRatio

rsip = ta.rsi(close, 21)

rsipma = ta.ema(rsip, 14)
bullBound = 50 - ag * 3 + 10
bearBound = 50 + ag * 3 - 10
[macdLine5, signalLine5, histLine5] = ta.macd(ta.sma(volume,33)-ta.sma(volume,100),
12, 26, 9)
condtrend = ta.ema(rating, 3) > ta.ema(rating, 5) and ta.ema(rating, 5) >
ta.ema(rating, 8)
cond = condtrend and rsii > rsima and isCurrentRangeSmaller() and rating < 0 and
rsip < bullBound and histLine5>0

cond2trend = ta.ema(rating, 3) < ta.ema(rating, 5) and ta.ema(rating, 5) <

ta.ema(rating, 8)
cond2 = cond2trend and rsii < rsima and isCurrentRangeSmaller() and rating > 0 and
rsip > bearBound and histLine5>0
plotshape(cond and not cond[1], color=color.blue, style=shape.triangleup,
size=size.normal, location=location.belowbar,text='ST Reversal')
plotshape(cond2 and not cond2[1], color=color.purple, style=shape.triangledown,
size=size.normal, location=location.abovebar,text='ST Reversal')

import DevLucem/Divergence/1 as divLib

// Input for Fractal Depth

depth = 15

// Main Price Source

src=close

// Calculate indicators
rsi = ta.rsi(src, 14)
[macdLine, signalLine, _] = ta.macd(src, 12, 26, 9)
stochK = ta.stoch(close, high, low, 14)
obv = ta.obv
mfi = ta.mfi(src, 14)
adLine = ta.accdist

// Calculate divergences for each indicator

// RSI Divergence
[regBullRsi, hidBullRsi] = divLib.bullish(rsi, low, depth)
[regBearRsi, hidBearRsi] = divLib.bearish(rsi, high, depth)

// MACD Divergence
[regBullMacd, hidBullMacd] = divLib.bullish(macdLine, low, depth)
[regBearMacd, hidBearMacd] = divLib.bearish(macdLine, high, depth)

// Stochastic Divergence
[regBullStoch, hidBullStoch] = divLib.bullish(stochK, low, depth)
[regBearStoch, hidBearStoch] = divLib.bearish(stochK, high, depth)

// OBV Divergence
[regBullObv, hidBullObv] = divLib.bullish(obv, low, depth)
[regBearObv, hidBearObv] = divLib.bearish(obv, high, depth)

// MFI Divergence
[regBullMfi, hidBullMfi] = divLib.bullish(mfi, low, depth)
[regBearMfi, hidBearMfi] = divLib.bearish(mfi, high, depth)

// A/D Line Divergence

[regBullAd, hidBullAd] = divLib.bullish(adLine, low, depth)
[regBearAd, hidBearAd] = divLib.bearish(adLine, high, depth)
// RSI Signals
plotshape(regBullRsi, title="RSI Regular Bullish", location=location.belowbar,
color=color.green, style=shape.triangleup, size=size.small, text="RSI Div")
plotshape(regBearRsi, title="RSI Regular Bearish", location=location.abovebar,
color=color.red, style=shape.triangledown, size=size.small, text="RSI Div")

// MACD Signals
plotshape(regBullMacd, title="MACD Regular Bullish", location=location.belowbar,
color=color.green, style=shape.triangleup, size=size.small, text="MACD Div")
plotshape(regBearMacd, title="MACD Regular Bearish", location=location.abovebar,
color=color.red, style=shape.triangledown, size=size.small, text="MACD Div")

// Stochastic Signals
plotshape(regBullStoch, title="Stochastic Regular Bullish",
location=location.belowbar, color=color.green, style=shape.triangleup,
size=size.small, text="Stoch Div")
plotshape(regBearStoch, title="Stochastic Regular Bearish",
location=location.abovebar, color=color.red, style=shape.triangledown,
size=size.small, text="Stoch Div")

// OBV Signals
plotshape(regBullObv, title="OBV Regular Bullish", location=location.belowbar,
color=color.green, style=shape.triangleup, size=size.small, text="OBV Div")
plotshape(regBearObv, title="OBV Regular Bearish", location=location.abovebar,
color=color.red, style=shape.triangledown, size=size.small, text="OBV Div")

// MFI Signals
plotshape(regBullMfi, title="MFI Regular Bullish", location=location.belowbar,
color=color.green, style=shape.triangleup, size=size.small, text="MFI Div")
plotshape(regBearMfi, title="MFI Regular Bearish", location=location.abovebar,
color=color.red, style=shape.triangledown, size=size.small, text="MFI Div")

// A/D Line Signals

plotshape(regBullAd, title="A/D Line Regular Bullish", location=location.belowbar,
color=color.green, style=shape.triangleup, size=size.small, text="A/D Div")
plotshape(regBearAd, title="A/D Line Regular Bearish", location=location.abovebar,
color=color.red, style=shape.triangledown, size=size.small, text="A/D Div")

import HoanGhetti/SimpleTrendlines/5 as tl

input_len = 10
pivotLow = fixnan(ta.pivotlow(input_len, input_len))

xAxis = ta.valuewhen(ta.change(pivotLow), bar_index, 0) -

ta.valuewhen(ta.change(pivotLow), bar_index, 1)
prevPivot = ta.valuewhen(ta.change(pivotLow), pivotLow, 1)
pivotCondition = ta.change(pivotLow) and pivotLow > prevPivot

plData = tl.new(x_axis = xAxis, offset = input_len)

plData.drawLine(pivotCondition, prevPivot, pivotLow)
plData.drawTrendline(close > 0)

plData.lines.trendline.set_style(line.style_dashed)
plData.lines.trendline.set_color(plData.values.slope>0?color.green:color.red)
plData.lines.trendline.set_width(2)
plData.lines.startline.set_width(2)
pivotHigh = fixnan(ta.pivothigh(input_len, input_len))

xAxis1 = ta.valuewhen(ta.change(pivotHigh), bar_index, 0) -

ta.valuewhen(ta.change(pivotHigh), bar_index, 1)
prevPivot1 = ta.valuewhen(ta.change(pivotHigh),pivotHigh, 1)
pivotCondition1 = ta.change(pivotHigh) and pivotHigh < prevPivot1

plData1 = tl.new(x_axis = xAxis1, offset = input_len)

plData1.drawLine(pivotCondition1, prevPivot1, pivotHigh)
plData1.drawTrendline(close > 0)

plData.lines.trendline.set_style(line.style_dashed)
plData.lines.trendline.set_color(plData.values.slope>0?color.green:color.red)
plData.lines.trendline.set_width(2)
plData.lines.startline.set_width(2)

plData1.lines.trendline.set_style(line.style_dashed)
plData1.lines.trendline.set_color(plData1.values.slope>0?color.green:color.red)
plData1.lines.trendline.set_width(2)
plData1.lines.startline.set_width(2)

kama(src,Length)=>
xPrice = src
xvnoise = math.abs(xPrice - xPrice[1])
nAMA = 0.0
nfastend = 0.666
nslowend = 0.0645
nsignal = math.abs(xPrice - xPrice[Length])
nnoise = math.sum(xvnoise, Length)
nefratio = nnoise != 0? nsignal / nnoise: 0
nsmooth = math.pow(nefratio * (nfastend - nslowend) + nslowend, 2)
nAMA := nz(nAMA[1]) + nsmooth * (xPrice - nz(nAMA[1]))
nAMA

src2 = ohlc4

ma05 = kama(src2, 05)

ma10 = kama(src2, 10)
ma15 = kama(src2, 15)
ma20 = kama(src2, 20)
ma25 = kama(src2, 25)
ma30 = kama(src2, 30)
ma35 = kama(src2, 35)
ma40 = kama(src2, 40)
ma45 = kama(src2, 45)
ma50 = kama(src2, 50)
ma55 = kama(src2, 55)
ma60 = kama(src2, 60)
ma65 = kama(src2, 65)
ma70 = kama(src2, 70)
ma75 = kama(src2, 75)
ma80 = kama(src2, 80)
ma85 = kama(src2, 85)
ma90 = kama(src2, 90)
ma100 = kama(src2, 100)

totalDistance = ((ma05-ma10)/ma10 + (ma10-ma15)/ma15 + (ma15-ma20)/ma20 + (ma20-

ma25)/ma25 +
(ma25-ma30)/ma30 + (ma30-ma35)/ma35 + (ma35-ma40)/ma40 + (ma40-
ma45)/ma45 +
(ma45-ma50)/ma50 + (ma50-ma55)/ma55 + (ma55-ma60)/ma60 + (ma60-
ma65)/ma65 +
(ma65-ma70)/ma70 + (ma70-ma75)/ma75 + (ma75-ma80)/ma80 + (ma80-
ma85)/ma85 +
(ma85-ma90)/ma90 + (ma90-ma100)/ma100)/18

bgcolor(totalDistance>0?color.rgb(0,150,0,50):color.rgb(150,0,0,50))