Jackson Zones Indicator

[Ricardo]

Hi, I'm new around here.

I want to share with you the indicator that graphs the Jackson zones or High Probability Fibonacci Zones.

The code that you modify corresponds to a code that BenTen published (https://usethinkscript.com/threads/weekly-and-monthly-pivots-indicator-for-thinkorswim.152/)

Thank you very much for sharing, I leave you my grain of sand.

# DailyWeeklyMonthlyPivots_TS
# http://thinkscripter.wordpress.com
# [email protected]
# Last Update 11 MAY 2019

input timeFrame = {DAY, default WEEK, MONTH};
input showOnlyToday = no;

def H = high(period = timeFrame)[1];
def L = low(period = timeFrame)[1];
def C = close(period = timeFrame)[1];

def calc_PP = (H + L + C) / 3;
def calc_DR = (H-L);
def calc_R1 = calc_PP + (calc_DR * 0.5);
def calc_R2 = calc_PP + (calc_DR * 0.618);
def calc_R3 = calc_PP + calc_DR;
def calc_R4 = calc_PP + (calc_DR * 1.382);

def calc_S1 = calc_PP - (calc_DR * 0.5);
def calc_S2 = calc_PP - (calc_DR * 0.618);
def calc_S3 = calc_PP - calc_DR;
def calc_S4 = calc_PP - (calc_DR*1.382);

plot R4;
plot R3;
plot R2;
plot R1;
plot PP;
plot S1;
plot S2;
plot S3;
plot S4;

if (showOnlyToday and !IsNaN(close(period = timeFrame)[-1])) or
(getAggregationPeriod() > if timeframe == timeframe.DAY
                          then AggregationPeriod.DAY
                          else if timeframe == timeframe.WEEK
                               then AggregationPeriod.WEEK
                               else AggregationPeriod.MONTH)

then {

    R1 = Double.NaN;
   
    R2 = Double.NaN;
   
    R3 = Double.NaN;

    R4 = Double.NaN;
   
    PP = Double.NaN;
   
    S1 = Double.NaN;
   
    S2 = Double.NaN;
   
    S3 = Double.NaN;

    S4 = Double.NaN;
  
}
else {
   
  
    R1 = calc_R1;
   
    R2 = calc_R2;
   
    R3 = calc_R3;

    R4 = calc_R4;
   
    PP = calc_PP;
   
    S1 = calc_S1;
   
    S2 = calc_S2;
   
    S3 = calc_S3;

    S4 = calc_S4;

}

R1.SetDefaultColor(color.red);
R2.SetDefaultColor(color.red);
R3.SetDefaultColor(color.red);
R4.SetDefaultColor(color.red);
S1.SetDefaultColor(color.green);
S2.SetDefaultColor(color.green);
S3.SetDefaultColor(color.green);
S4.SetDefaultColor(color.green);

R1.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
R2.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
R3.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
R4.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
S1.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
S2.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
S3.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
S4.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);;

PP.DefineColor("Color", CreateColor(0, 102, 204));
PP.AssignValueColor(PP.color("Color"));
PP.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);

 

[AlphaOptions]

Richardo - Excellent job. These are great as levels only, but a further analysis can be done if anyone can help us add "Zone Labels" so we can easily apply the type of zone analysis in the link? Perhaps a bubble label or some other method for each line that indicates the beginning of that zone. https://www.trade2win.com/articles/922-trading-zones