# The Pivot Points Indicator Package
# Floor Trader’s Pivot Points
# Fibonacci Pivot Point
# What we have taken the original version which only calculates R1, R2, R3 and S1, S2, S3 and have added the following features:
# Additional Support/Resistance Levels of S4 and R4
# Option to Display Mid-Pivots
# Text Labels are Plotted Adjacent to Each Level for Quick Identification
# Visual and Audio Alerts for when Price Crosses any of the S/R Levels
input showlastonly = no;#hint showlastonly: Last AggregationPeriod Selected
input showrthrsonly = yes;
input aggregationPeriod = {default "DAY", "WEEK", "MONTH"};
input MidPlot = yes;
input hide_s1_r1 = no;
input lines = {default dashes, points, triangles, horizontal, squares};
input showbubbles = yes;
input showpricebubble = yes;
def length = 1;
Assert(length > 0, "'length' should be positive: " + length);
def yyyymmdd = GetYYYYMMDD();
def month = GetYear() * 12 + GetMonth();
def day_number = DaysFromDate(First(yyyymmdd)) + GetDayOfWeek(First(yyyymmdd));
def period;
switch (aggregationPeriod) {
case DAY:
period = CountTradingDays(Min(First(yyyymmdd), yyyymmdd), yyyymmdd) - 1;
case WEEK:
period = Floor(day_number / 7);
case MONTH:
period = Floor(month - First(month));
}
def count = CompoundValue(1,
if period != period[1]
then (count[1] + period - period[1]) % length
else count[1], 0);
def start = CompoundValue(1, count < count[1] + period - period[1], yes);
def h = CompoundValue(1,
if showlastonly and
(if aggregationPeriod == aggregationPeriod."WEEK"
then GetWeek() != GetLastWeek()
else if aggregationPeriod == aggregationPeriod."MONTH"
then GetMonth() != GetLastMonth()
else GetDay() != GetLastDay())
then Double.NaN
else if start
then Highest(high(period = aggregationPeriod), length)[1]
else if h[1] != 0
then h[1]
else Double.NaN, high);
def l = CompoundValue(1,
if showlastonly and
(if aggregationPeriod == aggregationPeriod."WEEK"
then GetWeek() != GetLastWeek()
else if aggregationPeriod == aggregationPeriod."MONTH"
then GetMonth() != GetLastMonth()
else GetDay() != GetLastDay())
then Double.NaN
else if start
then Lowest(low(period = aggregationPeriod), length)[1]
else if l[1] != 0
then l[1]
else Double.NaN, low);
def closeValue = if showlastonly and
(if aggregationPeriod == aggregationPeriod."WEEK"
then GetWeek() != GetLastWeek()
else if aggregationPeriod == aggregationPeriod."MONTH"
then GetMonth() != GetLastMonth()
else GetDay() != GetLastDay())
then Double.NaN
else if start
then close(period = aggregationPeriod)[1]
else closeValue[1];
def range = h - l;
def rthrs = Between(GetTime(), RegularTradingStart(GetYYYYMMDD()), RegularTradingEnd(GetYYYYMMDD()));
plot PP = if showlastonly and
(if aggregationPeriod == aggregationPeriod."WEEK"
then GetWeek() != GetLastWeek()
else if aggregationPeriod == aggregationPeriod."MONTH"
then GetMonth() != GetLastMonth()
else GetDay() != GetLastDay())
then Double.NaN
else if showrthrsonly and !rthrs
then Double.NaN
else hlc3(period = aggregationPeriod)[1];
plot R1 = if showrthrsonly and !rthrs then Double.NaN else 2 * PP - l[1];
plot R2 = if showrthrsonly and !rthrs then Double.NaN else PP + (h[1] - l[1]);
plot R3 = if showrthrsonly and !rthrs then Double.NaN else R2 + h[1] - l[1];
plot R4 = if showrthrsonly and !rthrs then Double.NaN else R3 + h[1] - l[1];
#
plot S1 = if showrthrsonly and !rthrs then Double.NaN else 2 * PP - h[1];
plot S2 = if showrthrsonly and !rthrs then Double.NaN else PP - (h[1] - l[1]);
plot S3 = if showrthrsonly and !rthrs then Double.NaN else S2 - h[1] + l[1];
plot S4 = if showrthrsonly and !rthrs then Double.NaN else S3 - h[1] + l[1];
plot Mid1 = if showrthrsonly and !rthrs then Double.NaN else PP + ((R1 - PP) /2);
plot Mid2 = if showrthrsonly and !rthrs then Double.NaN else R1 + ((R2 - R1) /2);
plot Mid3 = if showrthrsonly and !rthrs then Double.NaN else R2 + ((R3 - R2) /2);
plot Mid4 = if showrthrsonly and !rthrs then Double.NaN else R3 + ((R4 - R3) /2);
plot Mid_1 = if showrthrsonly and !rthrs then Double.NaN else PP - ((PP - S1) /2);
plot Mid_2 = if showrthrsonly and !rthrs then Double.NaN else S1 - ((S1 - S2) /2);
plot Mid_3 = if showrthrsonly and !rthrs then Double.NaN else S2 - ((S2 - S3) /2);
plot Mid_4 = if showrthrsonly and !rthrs then Double.NaN else S3 + ((S4 - S3) /2);
R1.SetHiding(hide_s1_r1);
S1.SetHiding(hide_s1_r1);
PP.SetDefaultColor(GetColor(0));
R1.SetDefaultColor(Color.Red);
R2.SetDefaultColor(Color.Red);
R3.SetDefaultColor(Color.Red);
R4.SetDefaultColor(Color.Red);
S1.SetDefaultColor(Color.Yellow);
S2.SetDefaultColor(Color.Yellow);
S3.SetDefaultColor(Color.Yellow);
S4.SetDefaultColor(Color.Yellow);
Mid1.SetDefaultColor(GetColor(3));
Mid2.SetDefaultColor(GetColor(3));
Mid3.SetDefaultColor(GetColor(3));
Mid4.SetDefaultColor(GetColor(3));
Mid_1.SetDefaultColor(GetColor(3));
Mid_2.SetDefaultColor(GetColor(3));
Mid_3.SetDefaultColor(GetColor(3));
Mid_4.SetDefaultColor(GetColor(3));
def paintingStrategy = if lines == lines.points then PaintingStrategy.POINTS else if lines == lines.triangles then PaintingStrategy.TRIANGLES else if lines == lines.dashes then PaintingStrategy.DASHES else if lines == lines.horizontal then PaintingStrategy.HORIZONTAL else PaintingStrategy.SQUARES;
R4.SetPaintingStrategy(paintingStrategy);
R3.SetPaintingStrategy(paintingStrategy);
R2.SetPaintingStrategy(paintingStrategy);
R1.SetPaintingStrategy(paintingStrategy);
PP.SetPaintingStrategy(paintingStrategy);
S1.SetPaintingStrategy(paintingStrategy);
S2.SetPaintingStrategy(paintingStrategy);
S3.SetPaintingStrategy(paintingStrategy);
S4.SetPaintingStrategy(paintingStrategy);
Mid1.SetPaintingStrategy(paintingStrategy);
Mid2.SetPaintingStrategy(paintingStrategy);
Mid3.SetPaintingStrategy(paintingStrategy);
Mid4.SetPaintingStrategy(paintingStrategy);
Mid_1.SetPaintingStrategy(paintingStrategy);
Mid_2.SetPaintingStrategy(paintingStrategy);
Mid_3.SetPaintingStrategy(paintingStrategy);
Mid_4.SetPaintingStrategy(paintingStrategy);
#Bubbles to describe Pivot Levels
input bubblemover = 10;
def n = bubblemover;
def n1 = n - 1;
AddChartBubble(if !showrthrsonly
then showbubbles and !IsNaN(close[n]) and IsNaN(close[n1])
else showbubbles and GetDay() == GetLastDay() and
GetTime() > RegularTradingEnd(GetYYYYMMDD()) and
!IsNaN(R4[n]) and IsNaN(R4[n1]), R4[n], "R4 " + (if showpricebubble then AsText(R4[n]) else ""), Color.RED, if close[n] > R4[n] then no else yes);
AddChartBubble(if !showrthrsonly
then showbubbles and !IsNaN(close[n]) and IsNaN(close[n1])
else showbubbles and GetDay() == GetLastDay() and
GetTime() > RegularTradingEnd(GetYYYYMMDD()) and
!IsNaN(R3[n]) and IsNaN(R3[n1]), R3[n], "R3 " + (if showpricebubble then AsText(R3[n]) else ""), Color.RED, if close[n] > R3[n] then no else yes);
AddChartBubble(if !showrthrsonly
then showbubbles and !IsNaN(close[n]) and IsNaN(close[n1])
else showbubbles and GetDay() == GetLastDay() and
GetTime() > RegularTradingEnd(GetYYYYMMDD()) and
!IsNaN(R2[n]) and IsNaN(R2[n1]), R2[n], "R2 " + (if showpricebubble then AsText(R2[n]) else ""), Color.RED, if close[n] > R2[n] then no else yes);
AddChartBubble(if !showrthrsonly
then showbubbles and !IsNaN(close[n]) and IsNaN(close[n1])
else showbubbles and GetDay() == GetLastDay() and
GetTime() > RegularTradingEnd(GetYYYYMMDD()) and
!IsNaN(R1[n]) and IsNaN(R1[n1]) and hide_s1_r1 == no, R1[n], "R1 " + (if showpricebubble then AsText(R1[n]) else ""), Color.RED, if close[n] > R1[n] then no else yes);
AddChartBubble(if !showrthrsonly
then showbubbles and !IsNaN(close[n]) and IsNaN(close[n1])
else showbubbles and GetDay() == GetLastDay() and
GetTime() > RegularTradingEnd(GetYYYYMMDD()) and
!IsNaN(PP[n]) and IsNaN(PP[n1]), PP[n], "Pivot " + (if showpricebubble then AsText(PP[n]) else ""), PP.TakeValueColor(), if close[n] > PP[n] then no else yes);
AddChartBubble(if !showrthrsonly
then showbubbles and !IsNaN(close[n]) and IsNaN(close[n1])
else showbubbles and GetDay() == GetLastDay() and
GetTime() > RegularTradingEnd(GetYYYYMMDD()) and
!IsNaN(S4[n]) and IsNaN(S4[n1]), S4[n], "S4 " + (if showpricebubble then AsText(S4[n]) else ""), Color.GREEN, if close[n] > S4[n] then no else yes);
AddChartBubble(if !showrthrsonly
then showbubbles and !IsNaN(close[n]) and IsNaN(close[n1])
else showbubbles and GetDay() == GetLastDay() and
GetTime() > RegularTradingEnd(GetYYYYMMDD()) and
!IsNaN(S3[n]) and IsNaN(S3[n1]), S3[n], "S3 " + (if showpricebubble then AsText(S3[n]) else ""), Color.GREEN, if close[n] > S3[n] then no else yes);
AddChartBubble(if !showrthrsonly
then showbubbles and !IsNaN(close[n]) and IsNaN(close[n1])
else showbubbles and GetDay() == GetLastDay() and
GetTime() > RegularTradingEnd(GetYYYYMMDD()) and
!IsNaN(S2[n]) and IsNaN(S2[n1]), S2[n], "S2 " + (if showpricebubble then AsText(S2[n]) else ""), Color.GREEN, if close[n] > S2[n] then no else yes);
AddChartBubble(if !showrthrsonly
then showbubbles and !IsNaN(close[n]) and IsNaN(close[n1])
else showbubbles and GetDay() == GetLastDay() and
GetTime() > RegularTradingEnd(GetYYYYMMDD()) and
!IsNaN(S1[n]) and IsNaN(S1[n1]) and hide_s1_r1 == no, S1[n], "S1 " + (if showpricebubble then AsText(S1[n]) else ""), Color.GREEN, if close[n] > S1[n] then no else yes);
AddChartBubble(if !showrthrsonly
then showbubbles and !IsNaN(close[n]) and IsNaN(close[n1])
else showbubbles and GetDay() == GetLastDay() and
GetTime() > RegularTradingEnd(GetYYYYMMDD()) and
!IsNaN(Mid1[n]) and IsNaN(Mid1[n1]), Mid1[n], "Mid1 " + (if showpricebubble then AsText(Mid1[n]) else ""), Mid1.takevalueColor(), if close[n] > Mid1[n] then no else yes);
AddChartBubble(if !showrthrsonly
then showbubbles and !IsNaN(close[n]) and IsNaN(close[n1])
else showbubbles and GetDay() == GetLastDay() and
GetTime() > RegularTradingEnd(GetYYYYMMDD()) and
!IsNaN(Mid2[n]) and IsNaN(Mid2[n1]), Mid2[n], "Mid2 " + (if showpricebubble then AsText(Mid2[n]) else ""), Mid2.takevalueColor(), if close[n] > Mid2[n] then no else yes);
AddChartBubble(if !showrthrsonly
then showbubbles and !IsNaN(close[n]) and IsNaN(close[n1])
else showbubbles and GetDay() == GetLastDay() and
GetTime() > RegularTradingEnd(GetYYYYMMDD()) and
!IsNaN(Mid3[n]) and IsNaN(Mid3[n1]), Mid3[n], "Mid3 " + (if showpricebubble then AsText(Mid3[n]) else ""), Mid3.takevalueColor(), if close[n] > Mid3[n] then no else yes);
AddChartBubble(if !showrthrsonly
then showbubbles and !IsNaN(close[n]) and IsNaN(close[n1])
else showbubbles and GetDay() == GetLastDay() and
GetTime() > RegularTradingEnd(GetYYYYMMDD()) and
!IsNaN(Mid4[n]) and IsNaN(Mid4[n1]), Mid4[n], "Mid4 " + (if showpricebubble then AsText(Mid4[n]) else ""), Mid4.takevalueColor(), if close[n] > Mid4[n] then no else yes);
AddChartBubble(if !showrthrsonly
then showbubbles and !IsNaN(close[n]) and IsNaN(close[n1])
else showbubbles and GetDay() == GetLastDay() and
GetTime() > RegularTradingEnd(GetYYYYMMDD()) and
!IsNaN(Mid_1[n]) and IsNaN(Mid_1[n1]), Mid_1[n], "Mid_1 " + (if showpricebubble then AsText(Mid_1[n]) else ""), Mid_1.takevalueColor(), if close[n] > Mid_1[n] then no else yes);
AddChartBubble(if !showrthrsonly
then showbubbles and !IsNaN(close[n]) and IsNaN(close[n1])
else showbubbles and GetDay() == GetLastDay() and
GetTime() > RegularTradingEnd(GetYYYYMMDD()) and
!IsNaN(Mid_2[n]) and IsNaN(Mid_2[n1]), Mid_2[n], "Mid_2 " + (if showpricebubble then AsText(Mid_2[n]) else ""), Mid_2.takevalueColor(), if close[n] > Mid_2[n] then no else yes);
AddChartBubble(if !showrthrsonly
then showbubbles and !IsNaN(close[n]) and IsNaN(close[n1])
else showbubbles and GetDay() == GetLastDay() and
GetTime() > RegularTradingEnd(GetYYYYMMDD()) and
!IsNaN(Mid_3[n]) and IsNaN(Mid_3[n1]), Mid_3[n], "Mid_3 " + (if showpricebubble then AsText(Mid_3[n]) else ""), Mid_3.takevalueColor(), if close[n] > Mid_3[n] then no else yes);
AddChartBubble(if !showrthrsonly
then showbubbles and !IsNaN(close[n]) and IsNaN(close[n1])
else showbubbles and GetDay() == GetLastDay() and
GetTime() > RegularTradingEnd(GetYYYYMMDD()) and
!IsNaN(Mid_4[n]) and IsNaN(Mid_4[n1]), Mid_4[n], "Mid4 " + (if showpricebubble then AsText(Mid_4[n]) else ""), Mid_4.takevalueColor(), if close[n] > Mid_4[n] then no else yes);
R1.HideBubble();
R2.HideBubble();
R3.HideBubble();
R4.HideBubble();
PP.HideBubble();
S1.HideBubble();
S2.HideBubble();
S3.HideBubble();
S4.HideBubble();
Mid1.SetHiding (!MidPlot);
Mid2.SetHiding (!MidPlot);
Mid3.SetHiding (!MidPlot);
Mid4.SetHiding (!MidPlot);
Mid_1.SetHiding (!MidPlot);
Mid_2.SetHiding (!MidPlot);
Mid_3.SetHiding (!MidPlot);
Mid_4.SetHiding (!MidPlot);
