Day Pro Improved

//@version=1
study(title="dayPROsetup_crossX", shorttitle="dayPROsetup_crossX", overlay=true)

//len1 = input(7, minval=1, title="MA7")
//len2 = input(20, minval=1, title="MA20")
len3 = input(30, minval=1, title="MA30")
len4 = input(50, minval=1, title="MA50")
len5 = input(99, minval=1, title="MA99")
//len6 = input(149, minval=1, title="MA149")
len7 = input(200, minval=1, title="MA200")
len8 = input(350, minval=1, title="MA350")
len9 = input(314, minval=1, title="MA314")
len10 = input(1050, minval=1, title="week150")
len11 = input(1400, minval=1, title="week200")
//len12 = input(600, minval=1, title="random")

//src1 = input(close, title="MA7")
//src2 = input(close, title="MA20")
src3 = input(close, title="MA30")
src4 = input(close, title="MA50")
src5 = input(close, title="MA99")
//src6 = input(close, title="MA149")
src7 = input(close, title="MA200")
src8 = input(close, title="MA350")
src9 = input(close, title="MA314")
src10 = input(close, title="week150")
src11 = input(close, title="week200")
//src12 = input(close, title="random")

//out1 = sma(src1, len1)
//out2 = sma(src2, len2)
out3 = sma(src3, len3)
out4 = sma(src4, len4)
out5 = sma(src5, len5)
//out6 = sma(src6, len6)
out7 = sma(src7, len7)
out8 = sma(src8, len8)
out9 = sma(src9, len9)
out10 = sma(src10, len10)
out11 = sma(src11, len11)
//out12 = sma(src12, len12)

//plot(out1, title="MA7", color=close >= out1 ? #F7E7CE : #F7E7CE, transp=0)
//plot(out2, title="MA20", color=close >= out2 ? #00FF7F : #FF4500, transp=0)
plot(out3, title="MA30", color=close >= out3 ? #FFFFF0 : #FFFFF0, transp=0)
plot(out4, title="MA50", linewidth = 3, color=close >= out4 ? #FFD700 : #FFD700, transp=0)
plot(out5, title="MA99", color=close >= out5 ? #3F00FF : #3F00FF, transp=0)
//plot(out6, title="MA149", color=close >= out6 ? #FF4500 : #FF4500, transp=0)
plot(out7, title="MA200", linewidth = 2,style=circles, color=close >= out7 ? lime : red, transp=0)
plot(out8, title="MA350", linewidth = 1, color=close >= out8 ? #6F4E37 : #6F4E37, transp=0)
plot(out9, title="MA314", linewidth = 2,style=circles, color=aqua, transp=0)
plot(out10, title="week150", linewidth = 3, color=close >= out10 ? white : white, transp=0)
plot(out11, title="week200", linewidth = 3, color=close >= out11 ? purple  : purple, transp=0 )
//plot(out12, title="random", color=close >= out12 ? #00FF7F : #FF4500, transp=0)

//................................
//@version=3
// Copyright (c) 2018-present, Alex Orekhov (everget)
// Zero Lag Exponential Moving Average script may be freely distributed under the MIT license.
//study("Zero Lag Exponential Moving Average", shorttitle="ZLEMA", overlay=true)

length = input(title="Length", type=integer, defval=15)
highlightMovements = input(title="Highlight Movements ?", type=bool, defval=true)
src = input(title="Source", type=source, defval=close)

lag = floor((length - 1) / 2)

zlema = ema(src + (src - src[lag]), length)

zlemaColor = highlightMovements ? (zlema > zlema[1] ? lime : red) : #6d1e7f
plot(zlema, title="ZLEMA", linewidth=3, color=zlemaColor, transp=0)

//..................................................................

//@version=2
//synapticex.com
//study("Fractal Support Resistance", shorttitle="FSR", overlay=true)
tf = input(title="Resolution", type=resolution, defval = "current")
vamp = input(title="VolumeMA", type=integer, defval=6)
vam = sma(volume, vamp)

up = high[3]>high[4] and high[4]>high[5] and high[2]<high[3] and high[1]<high[2] and volume[3]>vam[3]
down = low[3]<low[4] and low[4]<low[5] and low[2]>low[3] and low[1]>low[2] and volume[3]>vam[3]
fractalup =  up ? high[3] : fractalup[1]
fractaldown = down ? low[3] : fractaldown[1]

fuptf = security(tickerid,tf == "current" ? period : tf, fractalup)
fdowntf = security(tickerid,tf == "current" ? period : tf, fractaldown)

plot(fuptf, "FractalUp", color=lime, linewidth=1, style=cross, transp=0, offset =-3, join=false)
plot(fdowntf, "FractalDown", color=red, linewidth=1, style=cross, transp=0, offset=-3, join=false)