#// This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
#// © pranjalchaubey
#//Structural Pivots
#study(title="[CP]Pivot Boss Floor Pivots with ATR Dilation and Dynamic Levels", shorttitle="[CP]Pivot Boss Floor Pivots",
# Converted by Sam4Cok@Samer800 - 01/2023
#// User Inputs
input floor_pivot_timeframe = AggregationPeriod.DAY; # "Floor Pivot Timeframe"
input show_floor_pivots = yes; # "Show Floor Pivots"
input show_cpr = yes; # "Show CPR"
input show_labels = no; # "Show Pivot Lables"
input show_next_day_pivot = no; # "Show Next Time Period Pivots",
input dynamic_pivot_levels = yes; #"Show Floor Pivot Levels Dynamically"
input dynamic_pivot_atr_period = 14; # "Dynamic Pivot ATR Period",
input dynamic_pivot_atr_threshold = 2.0;# "ATR Threshold for Dynamic Floor Pivots"
input atr_dilation = yes; # "Use ATR to Dilate Intraday Pivot Levels"
input atr_multiplier = 0.05; # "ATR Dilation Factor"
input atr_period = 14; # "ATR Period"
def na = Double.NaN;
def Agg = AggregationPeriod.DAY;
def current = GetAggregationPeriod();
def isintraday = Agg > current and !isNaN(close);
def today = GetDay();
def rollover = today == today[1];
def dayofmonth = rollover;
#// Calculations
#// Floor Pivots
#// Central Pivot
def thi = high(Period = floor_pivot_timeframe);
def tlo = low(Period = floor_pivot_timeframe);
def tcl = close(Period = floor_pivot_timeframe);
def hi;
def lo;
def cl;
if show_next_day_pivot {
hi = thi;
lo = tlo;
cl = tcl;
} else {
hi = thi[1];
lo = tlo[1];
cl = tcl[1];
}
def pivot = (hi + lo + cl) / 3.0;
#// Resistance Levels
def r1 = (2 * pivot) - lo;
def r2 = pivot + (hi - lo);
def r3 = r1 + (hi - lo);
def r4 = r3 + (r2 - r1);
#// Support Levels
def s1 = (2 * pivot) - hi;
def s2 = pivot - (hi - lo);
def s3 = s1 - (hi - lo);
def s4 = s3 - (s1 - s2);
#// Central Pivot Range
def temp_bc = (hi + lo) / 2;
def temp_tc = (pivot - temp_bc) + pivot;
def tc = if temp_tc > temp_bc then temp_tc else temp_bc;
def bc = if temp_bc < temp_tc then temp_bc else temp_tc;
#// Dynamic Floor Pivots
def dynamic_pivot_atr = ATR(LENGTH = dynamic_pivot_atr_period) * dynamic_pivot_atr_threshold;
def dynamic_high = high + dynamic_pivot_atr;
def dynamic_low = low - dynamic_pivot_atr;
#// Average True Range for Pivot Level Dilation
def trDilation = TrueRange(thi, tcl, tlo);
def atrdilation = WildersAverage(trDilation, atr_period);
def daily_atr_dilation = atrdilation * atr_multiplier;
def daily_pivot = pivot;
def daily_r1 = r1;
def daily_r2 = r2;
def daily_r3 = r3;
def daily_r4 = r4;
def daily_s1 = s1;
def daily_s2 = s2;
def daily_s3 = s3;
def daily_s4 = s4;
def daily_tbc = temp_bc;
def daily_ttc = temp_tc;
def daily_tc = if daily_ttc > daily_tbc then daily_ttc else daily_tbc;
def daily_bc = if daily_tbc < daily_ttc then daily_tbc else daily_ttc;
#// Dynamic Daily Floor Pivot Logic (only for Intraday)
def show_daily_pivot = if !dynamic_pivot_levels then 1 else
if !show_daily_pivot[1] and isintraday and ((daily_pivot>= dynamic_low and daily_pivot<= dynamic_high)
or (daily_tc >= dynamic_low and daily_tc <= dynamic_high)
or (daily_bc >= dynamic_low and daily_bc <= dynamic_high)) then 1 else
if show_daily_pivot[1] and dayofmonth then 1 else 0;
def show_daily_r1 = if !dynamic_pivot_levels then 1 else
if !show_daily_r1[1] and isintraday and daily_r1 >= dynamic_low and daily_r1 <= dynamic_high then 1 else
if show_daily_r1[1] and dayofmonth then 1 else 0;
def show_daily_r2 = if !dynamic_pivot_levels then 1 else
if !show_daily_r2[1] and isintraday and daily_r2 >= dynamic_low and daily_r2 <= dynamic_high then 1 else
if show_daily_r2[1] and dayofmonth then 1 else 0;
def show_daily_r3 = if !dynamic_pivot_levels then 1 else
if !show_daily_r3[1] and isintraday and daily_r3 >= dynamic_low and daily_r3 <= dynamic_high then 1 else
if show_daily_r3[1] and dayofmonth then 1 else 0;
def show_daily_r4 = if !dynamic_pivot_levels then 1 else
if !show_daily_r4[1] and isintraday and daily_r4 >= dynamic_low and daily_r4 <= dynamic_high then 1 else
if show_daily_r4[1] and dayofmonth then 1 else 0;
def show_daily_s1 = if !dynamic_pivot_levels then 1 else
if !show_daily_s1[1] and isintraday and daily_s1 >= dynamic_low and daily_s1 <= dynamic_high then 1 else
if show_daily_s1[1] and dayofmonth then 1 else 0;
def show_daily_s2 = if !dynamic_pivot_levels then 1 else
if !show_daily_s2[1] and isintraday and daily_s2 >= dynamic_low and daily_s2 <= dynamic_high then 1 else
if show_daily_s2[1] and dayofmonth then 1 else 0;
def show_daily_s3 = if !dynamic_pivot_levels then 1 else
if !show_daily_s3[1] and isintraday and daily_s3 >= dynamic_low and daily_s3 <= dynamic_high then 1 else
if show_daily_s3[1] and dayofmonth then 1 else 0;
def show_daily_s4 = if !dynamic_pivot_levels then 1 else
if !show_daily_s4[1] and isintraday and daily_s4 >= dynamic_low and daily_s4 <= dynamic_high then 1 else
if show_daily_s4[1] and dayofmonth then 1 else 0;
#// Plots
#// Neutral and ATR Dilated Positive plots
plot p1a = if show_floor_pivots and show_daily_pivot then
if !atr_dilation then daily_pivot else
if isintraday then daily_pivot+daily_atr_dilation else daily_pivot else na;
plot r1a = if show_floor_pivots and show_daily_r1 then
if !atr_dilation then daily_r1 else
if isintraday then daily_r1+daily_atr_dilation else daily_r1 else na;
plot r2a = if show_floor_pivots and show_daily_r2 then
if !atr_dilation then daily_r2 else
if isintraday then daily_r2+daily_atr_dilation else daily_r2 else na;
plot r3a = if show_floor_pivots and show_daily_r3 then
if !atr_dilation then daily_r3 else
if isintraday then daily_r3+daily_atr_dilation else daily_r3 else na;
plot r4a = if show_floor_pivots and show_daily_r4 then
if !atr_dilation then daily_r4 else
if isintraday then daily_r4+daily_atr_dilation else daily_r4 else na;
plot s1a = if show_floor_pivots and show_daily_s1 then
if !atr_dilation then daily_s1 else
if isintraday then daily_s1+daily_atr_dilation else daily_s1 else na;
plot s2a = if show_floor_pivots and show_daily_s2 then
if !atr_dilation then daily_s2 else
if isintraday then daily_s2+daily_atr_dilation else daily_s2 else na;
plot s3a = if show_floor_pivots and show_daily_s3 then
if !atr_dilation then daily_s3 else
if isintraday then daily_s3+daily_atr_dilation else daily_s3 else na;
plot s4a = if show_floor_pivots and show_daily_s4 then
if !atr_dilation then daily_s4 else
if isintraday then daily_s4+daily_atr_dilation else daily_s4 else na;
p1a.SetHiding(atr_dilation);
r1a.SetHiding(atr_dilation);
r2a.SetHiding(atr_dilation);
r3a.SetHiding(atr_dilation);
r4a.SetHiding(atr_dilation);
s1a.SetHiding(atr_dilation);
s2a.SetHiding(atr_dilation);
s3a.SetHiding(atr_dilation);
s4a.SetHiding(atr_dilation);
p1a.SetDefaultColor(CreateColor(204,188,47));
r1a.SetDefaultColor(Color.RED);
r2a.SetDefaultColor(Color.RED);
r3a.SetDefaultColor(Color.RED);
r4a.SetDefaultColor(Color.RED);
s1a.SetDefaultColor(Color.GREEN);
s2a.SetDefaultColor(Color.GREEN);
s3a.SetDefaultColor(Color.GREEN);
s4a.SetDefaultColor(Color.GREEN);
#// ATR Dilated Negative Plots
plot p1b = if show_floor_pivots and show_daily_pivot and atr_dilation and isintraday then daily_pivot-daily_atr_dilation else na;
plot r1b = if show_floor_pivots and show_daily_r1 and atr_dilation and isintraday then daily_r1-daily_atr_dilation else na;
plot r2b = if show_floor_pivots and show_daily_r2 and atr_dilation and isintraday then daily_r2-daily_atr_dilation else na;
plot r3b = if show_floor_pivots and show_daily_r3 and atr_dilation and isintraday then daily_r3-daily_atr_dilation else na;
plot r4b = if show_floor_pivots and show_daily_r4 and atr_dilation and isintraday then daily_r4-daily_atr_dilation else na;
plot s1b = if show_floor_pivots and show_daily_s1 and atr_dilation and isintraday then daily_s1-daily_atr_dilation else na;
plot s2b = if show_floor_pivots and show_daily_s2 and atr_dilation and isintraday then daily_s2-daily_atr_dilation else na;
plot s3b = if show_floor_pivots and show_daily_s3 and atr_dilation and isintraday then daily_s3-daily_atr_dilation else na;
plot s4b = if show_floor_pivots and show_daily_s4 and atr_dilation and isintraday then daily_s4-daily_atr_dilation else na;
p1b.SetHiding(atr_dilation);
r1b.SetHiding(atr_dilation);
r2b.SetHiding(atr_dilation);
r3b.SetHiding(atr_dilation);
r4b.SetHiding(atr_dilation);
s1b.SetHiding(atr_dilation);
s2b.SetHiding(atr_dilation);
s3b.SetHiding(atr_dilation);
s4b.SetHiding(atr_dilation);
p1b.SetDefaultColor(CreateColor(204,188,47));
r1b.SetDefaultColor(Color.RED);
r2b.SetDefaultColor(Color.RED);
r3b.SetDefaultColor(Color.RED);
r4b.SetDefaultColor(Color.RED);
s1b.SetDefaultColor(Color.GREEN);
s2b.SetDefaultColor(Color.GREEN);
s3b.SetDefaultColor(Color.GREEN);
s4b.SetDefaultColor(Color.GREEN);
#// CPR Band
plot tcline = if isNaN(close) then na else
if show_cpr and show_daily_pivot then
if !atr_dilation then daily_tc else
if isintraday then daily_tc+daily_atr_dilation else daily_tc else na;
plot bcline = if isNaN(close) then na else
if show_cpr and show_daily_pivot then
if !atr_dilation then daily_bc else
if isintraday then daily_bc-daily_atr_dilation else daily_bc else na;
tcline.SetHiding(atr_dilation);
bcline.SetHiding(atr_dilation);
tcline.SetDefaultColor(CreateColor(26,120,194));
bcline.SetDefaultColor(CreateColor(26,120,194));
AddCloud(tcline, bcline, CreateColor(26,120,194));
#// Fill ATR Dilated bands
AddCloud(p1a, p1b, CreateColor(204,188,47));
AddCloud(r1a, r1b, Color.DARK_RED);
AddCloud(r2a, r2b, Color.DARK_RED);
AddCloud(r3a, r3b, Color.DARK_RED);
AddCloud(r4a, r4b, Color.DARK_RED);
AddCloud(s1a, s1b, Color.DARK_GREEN);
AddCloud(s2a, s2b, Color.DARK_GREEN);
AddCloud(s3a, s3b, Color.DARK_GREEN);
AddCloud(s4a, s4b, Color.DARK_GREEN);
#--- Bubbles
def label = if show_labels then !isintraday[-1] else na;
AddChartBubble(label and p1a and isNaN(p1a[-1]), p1a, "Pivot", CreateColor(204,188,47), yes);
AddChartBubble(label and r1a and isNaN(r1a[-1]), r1a, "R1", Color.RED, yes);
AddChartBubble(label and r2a and isNaN(r2a[-1]), r2a, "R2", Color.RED, yes);
AddChartBubble(label and r3a and isNaN(r3a[-1]), r3a, "R3", Color.RED, yes);
AddChartBubble(label and r4a and isNaN(r4a[-1]), r4a, "R4", Color.RED, yes);
AddChartBubble(label and s1a and isNaN(s1a[-1]), s1a, "S1", Color.GREEN, yes);
AddChartBubble(label and s2a and isNaN(s2a[-1]), s2a, "S2", Color.GREEN, yes);
AddChartBubble(label and s3a and isNaN(s3a[-1]), s3a, "S3", Color.GREEN, yes);
AddChartBubble(label and s4a and isNaN(s4a[-1]), s4a, "S4", Color.GREEN, yes);
#--- END CODEJoin useThinkScript to post your question to a community of 21,000+ developers and traders.
| Thread starter | Similar threads | Forum | Replies | Date |
|---|---|---|---|---|
|
Pivot Channel Breaks [BigBeluga] for ThinkOrSwim | Custom | 0 | |
| C | Repaints AGAIG Murrey Math Pivot Lines For ThinkOrSwim | Custom | 6 | |
| C | Repaints AGAIG Pivot Overbought Oversold Bubbles | Custom | 0 | |
| J | Saty Pivot Ribbon For ThinkOrSwim | Custom | 2 | |
| P | Multi Pivot Points For ThinkOrSwim | Custom | 8 |
useThinkScript is the #1 community of stock market investors using indicators and other tools to power their trading strategies. Traders of all skill levels use our forums to learn about scripting and indicators, help each other, and discover new ways to gain an edge in the markets.
We get it. Our forum can be intimidating, if not overwhelming. With thousands of topics, tens of thousands of posts, our community has created an incredibly deep knowledge base for stock traders. No one can ever exhaust every resource provided on our site.
If you are new, or just looking for guidance, here are some helpful links to get you started.