//@version=5
indicator("Sessions and High/Low", overlay=true, max_lines_count=500,
max_boxes_count=500)
// Constants and One-Time-Init Vars {
transpLine = 0
transpFill = 90
// calc bar in min
var bar_time = 0
if bar_index == 3
timeDiff1 = (time - time[1]) / 60000
timeDiff2 = (time[2] - time[3]) / 60000
bar_time := math.min(timeDiff1, timeDiff2)
// }
// Inputs {
i_showHighLow = input(false, "Show Highs/Lows")
i_hideSessiontf = input.int(59, "Hide Session on TF above (Minutes)", 1)
i_showMidLine = input.bool(true, "Show Session Mid Lines")
grpAsia = "Asia Session"
i_showAsiaSession = input.bool(true, "Session", inline="asia session",
group=grpAsia)
i_asiaSession = input.session("1700-0100", "", inline="asia session",
group=grpAsia)
i_useAsiaLineCl = input.bool(true, "Border Color", inline="asia line",
group=grpAsia)
i_asiaLineCl = i_useAsiaLineCl ? input.color(color.new(color.blue, transpLine), "",
inline="asia line", group=grpAsia) : na
i_useAsiaFill = input.bool(false, "Fill Color", inline="asia fill", group=grpAsia)
i_asiaFillCl = i_useAsiaFill ? input.color(color.new(color.blue, transpFill), "",
inline="asia fill", group=grpAsia) : na
grpFrankfurt = "Frankfurt Session"
i_showFrankfurtSession = input.bool(true, "Session", inline="frankfurt session",
group=grpFrankfurt)
i_frankfurtSession = input.session("0200-0300", "", inline="frankfurt session",
group=grpFrankfurt)
i_useFrankfurtLineCl = input.bool(true, "Border Color", inline="frankfurt line",
group=grpFrankfurt)
i_frankfurtLineCl = i_useFrankfurtLineCl ? input.color(color.new(color.orange,
transpLine), "", inline="frankfurt line", group=grpFrankfurt) : na
i_useFrankfurtFillCl = input.bool(false, "Fill Color", inline="frankfurt fill",
group=grpFrankfurt)
i_frankfurtFillCl = i_useFrankfurtFillCl ? input.color(color.new(color.orange,
transpFill), "", inline="frankfurt fill", group=grpFrankfurt) : na
grpLondon = "London Session"
i_showLondonSession = input.bool(true, "Session", inline="london session",
group=grpLondon)
i_londonSession = input.session("0300-0400", "", inline="london session",
group=grpLondon)
i_useLondonLineCl = input.bool(true, "Border Color", inline="london line",
group=grpLondon)
i_londonLineCl = i_useLondonLineCl ? input.color(color.new(color.green,
transpLine), "", inline="london line", group=grpLondon) : na
i_useLondonFillCl = input.bool(false, "Fill Color", inline="london fill",
group=grpLondon)
i_londonFillCl = i_useLondonFillCl ? input.color(color.new(color.green,
transpFill), "", inline="london fill", group=grpLondon) : na
grpNewYork = "New York Session"
i_showNewYorkSession = input.bool(true, "Session", inline="newyork session",
group=grpNewYork)
i_newYorkSession = input.session("0900-1000", "", inline="newyork session",
group=grpNewYork)
i_useNewYorkLineCl = input.bool(true, "Border Color", inline="newyork line",
group=grpNewYork)
i_newYorkLineCl = i_useNewYorkLineCl ? input.color(color.new(color.white,
transpLine), "", inline="newyork line", group=grpNewYork) : na
i_useNewYorkFillCl = input.bool(false, "Fill Color", inline="newyork fill",
group=grpNewYork)
i_newYorkFillCl = i_useNewYorkFillCl ? input.color(color.new(color.white,
transpFill), "", inline="newyork fill", group=grpNewYork) : na
grpMMM = "MMM"
i_MMMlength = input.int(200, "MMM Lenght", 0, group=grpMMM)
i_hideMMMtf = input.int(59, "Hide MMM on TF above (Minutes)", 1, group=grpMMM)
i_showMMM1 = input.bool(true, "MMM 1", inline="mmm1", group=grpMMM)
i_MMM1color = input.color(color.red, "", inline="mmm1", group=grpMMM)
i_MMM1hour = input.int(4, "", 0, 23, inline="mmm1", group=grpMMM)
i_MMM1minute = input.int(30, ":", 0, 59, inline="mmm1", group=grpMMM)
i_MMM1width = input.int(1, "MMM 1 Width", 1, 10, group=grpMMM)
i_showMMM2 = input.bool(true, "MMM 2", inline="mmm2", group=grpMMM)
i_MMM2color = input.color(color.red, "", inline="mmm2", group=grpMMM)
i_MMM2hour = input.int(6, "", 0, 23, inline="mmm2", group=grpMMM)
i_MMM2minute = input.int(30, ":", 0, 59, inline="mmm2", group=grpMMM)
i_MMM2width = input.int(1, "MMM 2 Width", 1, 10, group=grpMMM)
i_showMMM3 = input.bool(true, "MMM 3", inline="mmm3", group=grpMMM)
i_MMM3color = input.color(color.red, "", inline="mmm3", group=grpMMM)
i_MMM3hour = input.int(11, "", 0, 23, inline="mmm3", group=grpMMM)
i_MMM3minute = input.int(00, ":", 0, 59, inline="mmm3", group=grpMMM)
i_MMM3width = input.int(1, "MMM 3 Width", 1, 10, group=grpMMM)
// }
// Functions {
//Bars
isNewBar(sess) =>
t = time("D", sess)
na(t[1]) and not na(t) or t[1] < t
isSession(sess) =>
not na(time("D", sess))
f_getSession(newbar, session, currentLow, currentHigh, currentStart, currentEnd) =>
newLow = currentLow
newHigh = currentHigh
newStart = currentStart
newEnd = currentEnd
newLow := if session
if newbar
low
else
math.min(newLow[1],low)
else
newLow[1]
newHigh := if session
if newbar
high
else
math.max(newHigh[1],high)
else
newHigh[1]
newStart := if session
if newbar
time
else
math.min(newStart[1],time)
else
na
newEnd := if session
if newbar
time_close
else
math.max(newEnd[1],time_close)
else
na
[newLow, newHigh, newStart, newEnd]
f_newBox(left, top, right, bottom, borderCl, backgroundCl) =>
box.new(left, top, right, bottom, borderCl, xloc=xloc.bar_time,
bgcolor=backgroundCl )
f_changeBox(box_, low_, high_, end) =>
box.set_right(box_, end)
box.set_top(box_, high_)
box.set_bottom(box_, low_)
f_drawVertical(cl, width_) =>
low_ = hl2 - (syminfo.mintick) * i_MMMlength
high_ = hl2 + (syminfo.mintick) * i_MMMlength
line.new(time, low_, time, high_, xloc.bar_time, extend.none, cl, width=width_)
f_tfShow(hideValue) =>
hide = bar_time <= hideValue
hide
f_newMidLine(start, yVal, end) =>
line.new(start, yVal, end, yVal, xloc.bar_time, color=color.orange,
style=line.style_dotted)
f_changeMidLine(midLine, yVal, end) =>
line.set_y1(midLine, yVal)
line.set_y2(midLine, yVal)
line.set_x2(midLine, end)
// }
// Calcutations {
pricehigh_daily = request.security(syminfo.tickerid, 'D', high[1])
pricelow_daily = request.security(syminfo.tickerid, 'D', low[1])
pricehigh_weekly = request.security(syminfo.tickerid, 'W', high[1])
pricelow_weekly = request.security(syminfo.tickerid, 'W', low[1])
pricehigh_monthly = request.security(syminfo.tickerid, 'M', high[1])
pricelow_monthly = request.security(syminfo.tickerid, 'M', low[1])
pricehigh_yearly = request.security(syminfo.tickerid, '12M', high[1])
pricelow_yearly = request.security(syminfo.tickerid, '12M', low[1])
// Asia
asiaLow = float(na)
asiaHigh = float(na)
asiaStart = int(na)
asiaEnd = int(na)
asiaNewbar = isNewBar(i_asiaSession)
asiaSession = isSession(i_asiaSession)
[asiaLow_, asiaHigh_, asiaStart_, asiaEnd_] = f_getSession(asiaNewbar, asiaSession,
asiaLow, asiaHigh, asiaStart, asiaEnd)
asiaLow := asiaLow_
asiaHigh := asiaHigh_
asiaStart := asiaStart_
asiaEnd := asiaEnd_
if i_showAsiaSession and asiaSession and f_tfShow(i_hideSessiontf)
asiaBox = if asiaNewbar
f_newBox(asiaStart, asiaHigh, asiaEnd, asiaLow, i_asiaLineCl, i_asiaFillCl)
asiaMidLine = if asiaNewbar and i_showMidLine
yValue = math.avg(asiaHigh, asiaLow)
f_newMidLine(asiaStart, yValue, asiaEnd)
if not asiaNewbar
f_changeBox(asiaBox[1], asiaLow, asiaHigh, asiaEnd)
if i_showMidLine
yValue = math.avg(asiaHigh, asiaLow)
f_changeMidLine(asiaMidLine[1], yValue, asiaEnd)
// Frankfut
frankfurtLow = float(na)
frankfurtHigh = float(na)
frankfurtStart = int(na)
frankfurtEnd = int(na)
frankfurtNewbar = isNewBar(i_frankfurtSession)
frankfurtSession = isSession(i_frankfurtSession)
[frankfurtLow_, frankfurtHigh_, frankfurtStart_, frankfurtEnd_] =
f_getSession(frankfurtNewbar, frankfurtSession, frankfurtLow, frankfurtHigh,
frankfurtStart, frankfurtEnd)
frankfurtLow := frankfurtLow_
frankfurtHigh := frankfurtHigh_
frankfurtStart := frankfurtStart_
frankfurtEnd := frankfurtEnd_
if i_showFrankfurtSession and frankfurtSession and f_tfShow(i_hideSessiontf)
frankfurtBox = if frankfurtNewbar
f_newBox(frankfurtStart, frankfurtHigh, frankfurtEnd, frankfurtLow,
i_frankfurtLineCl, i_frankfurtFillCl)
frankfurtMidLine = if frankfurtNewbar and i_showMidLine
yValue = math.avg(frankfurtHigh, frankfurtLow)
f_newMidLine(frankfurtStart, yValue, frankfurtEnd)
if not frankfurtNewbar
f_changeBox(frankfurtBox[1], frankfurtLow, frankfurtHigh, frankfurtEnd)
if i_showMidLine
yValue = math.avg(frankfurtHigh, frankfurtLow)
f_changeMidLine(frankfurtMidLine[1], yValue, frankfurtEnd)
// London
londonLow = float(na)
londonHigh = float(na)
londonStart = int(na)
londonEnd = int(na)
londonNewbar = isNewBar(i_londonSession)
londonSession = isSession(i_londonSession)
[londonLow_, londonHigh_, londonStart_, londonEnd_] = f_getSession(londonNewbar,
londonSession, londonLow, londonHigh, londonStart, londonEnd)
londonLow := londonLow_
londonHigh := londonHigh_
londonStart := londonStart_
londonEnd := londonEnd_
if i_showLondonSession and londonSession and f_tfShow(i_hideSessiontf)
londonBox = if londonNewbar
f_newBox(londonStart, londonHigh, londonEnd, londonLow, i_londonLineCl,
i_londonFillCl)
londonMidLine = if londonNewbar and i_showMidLine
yValue = math.avg(londonHigh, londonLow)
f_newMidLine(londonStart, yValue, londonEnd)
if not londonNewbar
f_changeBox(londonBox[1], londonLow, londonHigh, londonEnd)
if i_showMidLine
yValue = math.avg(londonHigh, londonLow)
f_changeMidLine(londonMidLine[1], yValue, londonEnd)
// New York
newYorkLow = float(na)
newYorkHigh = float(na)
newYorkStart = int(na)
newYorkEnd = int(na)
newYorkNewbar = isNewBar(i_newYorkSession)
newYorkSession = isSession(i_newYorkSession)
[newYorkLow_, newYorkHigh_, newYorkStart_, newYorkEnd_] =
f_getSession(newYorkNewbar, newYorkSession, newYorkLow, newYorkHigh, newYorkStart,
newYorkEnd)
newYorkLow := newYorkLow_
newYorkHigh := newYorkHigh_
newYorkStart := newYorkStart_
newYorkEnd := newYorkEnd_
if i_showNewYorkSession and newYorkSession and f_tfShow(i_hideSessiontf)
newYorkBox = if newYorkNewbar
f_newBox(newYorkStart, newYorkHigh, newYorkEnd, newYorkLow,
i_newYorkLineCl, i_newYorkFillCl)
newYorkMidLine = if newYorkNewbar and i_showMidLine
yValue = math.avg(newYorkHigh, newYorkLow)
f_newMidLine(newYorkStart, yValue, newYorkEnd)
if not newYorkNewbar
f_changeBox(newYorkBox[1], newYorkLow, newYorkHigh, newYorkEnd)
if i_showMidLine
yValue = math.avg(newYorkHigh, newYorkLow)
f_changeMidLine(newYorkMidLine[1], yValue, newYorkEnd)
// MMMs
if i_showMMM1 and hour == i_MMM1hour and minute == i_MMM1minute and
f_tfShow(i_hideMMMtf)
f_drawVertical(i_MMM1color, i_MMM1width)
if i_showMMM2 and hour == i_MMM2hour and minute == i_MMM2minute and
f_tfShow(i_hideMMMtf)
f_drawVertical(i_MMM2color, i_MMM2width)
if i_showMMM3 and hour == i_MMM3hour and minute == i_MMM3minute and
f_tfShow(i_hideMMMtf)
f_drawVertical(i_MMM3color, i_MMM3width)
// }
// Plots {
//Daily Plots
plot(i_showHighLow and pricehigh_daily ? pricehigh_daily : na, "Previous Daily
High", style=plot.style_linebr, color=color.white)
plot(i_showHighLow and pricelow_daily ? pricelow_daily : na, "Previous Daily Low",
style=plot.style_linebr, color=color.white)
plot(i_showHighLow and pricehigh_weekly ? pricehigh_weekly : na, "Previous Weekly
High", style=plot.style_linebr, color=color.white)
plot(i_showHighLow and pricelow_weekly ? pricelow_weekly : na, "Previous Weekly
Low", style=plot.style_linebr, color=color.white)
plot(i_showHighLow and pricehigh_monthly ? pricehigh_monthly : na, "Previous
Monthly High", style=plot.style_linebr, color=color.white)
plot(i_showHighLow and pricelow_monthly ? pricelow_monthly : na, "Previous Monthly
Low", style=plot.style_linebr, color=color.white)
plot(i_showHighLow and pricehigh_yearly ? pricehigh_yearly : na, "Previous Yearly
High", style=plot.style_linebr, color=color.white)
plot(i_showHighLow and pricelow_yearly ? pricelow_yearly : na, "Previous Yearly
Low", style=plot.style_linebr, color=color.white)
// }
// Alerts {
// }
