# # Sources:
# best with 5 mins timeframe.
# concept from shadowtrader.net
# coded by TWOO
#
https://www.spglobal.com/spdji/en/indices/equity/sp-500/#data
# sector-breakdown
# modified by CWPARKER23
# modifiedTrueRange by Sam4COK @ 07/2022
declare lower;
input open_time = 930;
input length = 12;
input ShowLabel = yes;
input PriceChannel = yes;
input ShowArrow = no;
input ShowCloud = no;
input InformationTechnology = 26.8; # xlkwt
input HealthCare = 15.1; # xlvwt
input Financials = 10.8; # xlfwt
input ConsumerDiscretionary = 10.5; # xlywt
input Communications = 8.9; # xlcwt
input Industrials = 7.8; # xliwt
input ConsumerStaples = 7.0; # xlpwt
input Energy = 4.4; # xlewt
input Utilities = 3.1; # xluwt
input RealEstate = 2.9; # xlrewt
input Materials = 2.6; # xlbwt
def na = double.NaN ;
def SectorCount = 11;
def Scale = 5000;
def displace = 0;
#### COLORS
DefineGlobalColor("Bullish", Color.cyan);
DefineGlobalColor("Bearish", Color.pink);
DefineGlobalColor("Channel", CreateColor(100, 181, 246));
#SP500 ETF sectors percent change
script PC {
input Symbol = "SPX";
def isFirstBar = GetTime() == RegularTradingStart(GetYYYYMMDD()) + 1;
def O = if isFirstBar then close(Symbol) else O[1];
def C = close(Symbol);
plot PctChg = (C - O) / O;
}
def xlkPctChg = PC("XLK");
def xlyPctChg = PC("XLY");
def xlvPctChg = PC("XLV");
def xlfPctChg = PC("XLF");
def xlcPctChg = PC("XLC");
def xliPctChg = PC("XLI");
def xlpPctChg = PC("XLP");
def xlrePctChg = PC("XLRE");
def xlePctChg = PC("XLE");
def xlbPctChg = PC("XLB");
def xluPctChg = PC("XLU");
def xlkSizing = xlkPctChg * InformationTechnology;
def xlvSizing = xlvPctChg * HealthCare;
def xlySizing = xlyPctChg * ConsumerDiscretionary;
def xlfSizing = xlfPctChg * Financials;
def xlcSizing = xlcPctChg * Communications;
def xliSizing = xliPctChg * Industrials;
def xlpSizing = xlpPctChg * ConsumerStaples;
def xleSizing = xlePctChg * Energy;
def xlreSizing = xlrePctChg * RealEstate;
def xlbSizing = xlbPctChg * Materials;
def xluSizing = xluPctChg * Utilities;
def combinedSizing = Scale * (
xlkSizing +
xlvSizing +
xlySizing +
xlfSizing +
xlcSizing +
xliSizing +
xlpSizing +
xleSizing +
xlreSizing +
xlbSizing +
xluSizing
) / SectorCount;
# Weighted_AD
def Weighted_AD = if !IsNaN(combinedSizing) then combinedSizing else na;
#Zeroline
plot zero = 0;
zero.SetDefaultColor(Color.DARK_GRAY);
zero.HideBubble();
zero.HideTitle();
# SPX Non_Weighted_AD
def spxcombinedSizing = Scale *
(xlkPctChg +
xlvPctChg +
xlyPctChg +
xlfPctChg +
xlcPctChg +
xliPctChg +
xlpPctChg +
xlePctChg +
xlrePctChg +
xlbPctChg +
xluPctChg);
plot Non_Weighted_AD = if !IsNaN(spxcombinedSizing) then spxcombinedSizing else na;
Non_Weighted_AD.SetDefaultColor(Color.WHITE);
Non_Weighted_AD.SetLineWeight(2);
Non_Weighted_AD.HideBubble();
Non_Weighted_AD.HideTitle();
AddCloud(if ShowCloud then Non_Weighted_AD else na, zero , globalColor("Bullish"), globalColor("Bearish"));
#####Price Channel###########
plot LowerBand = if PriceChannel then Lowest(Weighted_AD[-displace + 1], length) else na;
LowerBand.SetDefaultColor(GlobalColor("Channel"));
LowerBand.HideBubble();
LowerBand.HideTitle();
plot UpperBand = if PriceChannel then Highest(Weighted_AD[-displace + 1], length) else na;
UpperBand.SetDefaultColor(GlobalColor("Channel"));
UpperBand.HideBubble();
UpperBand.HideTitle();
plot MID = (UPPERBand + LOWErBand)/2;
MID.SetDefaultColor(GlobalColor("Channel"));
MID.SetStyle(Curve.SHORT_DASH);
MID.HideBubble();
MID.HideTitle();
#######################################
plot Diff_Weighted_AD = Weighted_AD;
Diff_Weighted_AD.SetDefaultColor(GetColor(5));
Diff_Weighted_AD.SetPaintingStrategy(PaintingStrategy.SQUARED_HISTOGRAM);
Diff_Weighted_AD.SetLineWeight(1);
Diff_Weighted_AD.AssignValueColor(
if Diff_Weighted_AD >= 0 then
if Diff_Weighted_AD > Diff_Weighted_AD[1] then Color.GREEN else Color.DARK_GREEN else
if Diff_Weighted_AD < Diff_Weighted_AD[1] then Color.RED else Color.PINK);
# divergence Weighted_AD
def isbulldiv = (weighted_AD - weighted_AD[1] )>0 and (LOW[1] - LOW)>0;
def isbeardiv = (weighted_AD[1] - weighted_AD )>0 and (HIGH - HIGH[1])>0;
def PositveDivergence = if isbulldiv then non_Weighted_AD else na;
plot PD = if ShowArrow then PositveDivergence else na;
PD.SetPaintingStrategy(PaintingStrategy.ARROW_UP);
PD.SetDefaultColor(Color.WHITE);
PD.HideBubble();
PD.HideTitle();
def NegativeDivergence = if isbeardiv then non_Weighted_AD else na;
plot ND = if ShowArrow then NEGativeDivergence else na;
ND.SetPaintingStrategy(PaintingStrategy.ARROW_DOWN);
ND.SetDefaultColor(Color.YELLOW);
ND.HideBubble();
ND.HideTitle();
AddVerticalLine(( GetDay() <> GetDay()[1]), "", Color.YeLLOW, Curve.SHORT_DASH);
#SP500 ETF sectors BUBBLE
Script pct {
input Symbol = "SPX";
def aggregationPeriod = AggregationPeriod.DAY;
def price = open(Symbol, period = aggregationPeriod);
def diff = close (Symbol) - open(Symbol, period = aggregationPeriod);
plot d_pct = 100 * diff / price;
}
def XLK_d_pct = pct(“XLK”) ;
def XLV_d_pct = pct(“XLV”) ;
def XLY_d_pct = pct(“XLY”) ;
def XLC_d_pct = pct(“XLC”) ;
def XLF_d_pct = pct(“XLF”) ;
def XLI_d_pct = pct(“XLI”) ;
def XLP_d_pct = pct(“XLP”) ;
def XLRE_d_pct = pct(“XLRE”) ;
def XLB_d_pct = pct(“XLB”) ;
def XLU_d_pct = pct(“XLU”) ;
def XLE_d_pct = pct(“XLE”) ;
def Label1 = if ShowLabel and xlk_d_pct !=0 then yes else na;
def Label2 = if ShowLabel and XLV_d_pct !=0 then yes else na;
def Label3 = if ShowLabel and XLY_d_pct !=0 then yes else na;
def Label4 = if ShowLabel and XLC_d_pct !=0 then yes else na;
def Label5 = if ShowLabel and XLF_d_pct !=0 then yes else na;
def Label6 = if ShowLabel and XLI_d_pct !=0 then yes else na;
def Label7 = if ShowLabel and XLP_d_pct !=0 then yes else na;
def Label8 = if ShowLabel and XLRE_d_pct !=0 then yes else na;
def Label9 = if ShowLabel and XLB_d_pct !=0 then yes else na;
def Label10 = if ShowLabel and XLU_d_pct !=0 then yes else na;
def Label11 = if ShowLabel and XLE_d_pct !=0 then yes else na;
AddLabel(Label1, "IT " + InformationTechnology + "%: " + ROUND(XLK_d_pct, 2), (if xlk_d_pct > 0 then Color.GREEN else if xlk_d_pct < 0 then color.RED else Color.gray));
AddLabel(Label2, "HC " + Healthcare + "%: " + ROUND(XLV_d_pct, 2), (if xlv_d_pct > 0 then Color.GREEN else if xlv_d_pct < 0 then color.RED else Color.gray));
AddLabel(Label3, "CD " + ConsumerDiscretionary + "%: " + ROUND(XLY_d_pct, 2), (if xly_d_pct > 0 then Color.GREEN else if xly_d_pct < 0 then color.RED else Color.gray));
AddLabel(Label4, "CO " + Communications + "%: " + ROUND(XLC_d_pct, 2), (if xlc_d_pct > 0 then Color.GREEN else if xlc_d_pct < 0 then color.RED else Color.gray));
AddLabel(Label5, "FN " + Financials + "%: " + ROUND(XLF_d_pct, 2), (if xlf_d_pct > 0 then Color.GREEN else if xlf_d_pct < 0 then color.RED else Color.gray));
AddLabel(Label6, "ID " + Industrials + "%: " + ROUND(XLI_d_pct, 2),(if xli_d_pct > 0 then Color.GREEN else if xli_d_pct < 0 then color.RED else Color.gray));
AddLabel(Label7, "CS " + ConsumerStaples + "%: " + ROUND(XLP_d_pct, 2), (if xlp_d_pct > 0 then Color.GREEN else if xlp_d_pct < 0 then color.RED else Color.gray));
AddLabel(Label8, "RE " + RealEstate + "%: " + ROUND(XLRE_d_pct, 2),(if xlre_d_pct > 0 then Color.GREEN else if xlre_d_pct < 0 then color.RED else Color.gray));
AddLabel(Label9, "MT " + Materials + "%: " + ROUND(XLB_d_pct, 2), (if xlb_d_pct > 0 then Color.GREEN else if xlb_d_pct < 0 then color.RED else Color.gray));
AddLabel(Label10, "UT " + Utilities + "%: " + ROUND(XLU_d_pct, 2), (if xlu_d_pct > 0 then Color.GREEN else if xlu_d_pct < 0 then color.RED else Color.gray));
AddLabel(Label11, "EG " + Energy + "%: " + ROUND(XLE_d_pct, 2),(if xle_d_pct > 0 then Color.GREEN else if xle_d_pct < 0 then color.RED else Color.gray));
