plot Data = close;

input marketThreshold = 0.00; 
input timeFrame = AggregationPeriod.DAY;
Input MidPlot = yes;
input showOnlyToday = no; 
input showBubble = yes;
input ShiftBubble = 5;def n1 = ShiftBubble+1;

def PP2 = high(period = timeFrame)[2] + low(period = timeFrame)[2] + close(period = timeFrame)[2]; 

plot R25;
plot R24;
plot R23;
plot R22;
plot R21;
plot R20;
plot R19;
plot R18;
plot R17;
plot R16;
plot R15;
plot R14;
plot R13;
plot R12;
plot R11;
plot R10;
plot R9;
plot R8;
plot R7;
plot R6;
plot R5;
plot R4;
plot R3;
plot Mid3;
plot R2; 
plot Mid2;
plot R1; 
plot Mid1;
plot PP; 
plot Mid_1;
plot S1; 
plot Mid_2;
plot S2; 
plot Mid_3;
plot S3;
plot S4; 
plot S5;
plot S6;
plot S7;
plot S8;
plot S9;
plot S10;
plot S11;
plot S12;
plot S13;
plot S14;
plot S15;
plot S16;
plot S17;
plot S18;
plot S19;
plot S20;
plot S21;
plot S22;
plot S23;
plot S24;
plot S25;

if showOnlyToday and !IsNaN(close(period = timeFrame)[-1]) 
then { 
R1 = Double.NaN; 
R2 = Double.NaN; 
R3 = Double.NaN; 
R4 = Double.NaN;
R5 = Double.NaN;
R6 = Double.NaN;
R7 = Double.NaN;
R8 = Double.NaN;
R9 = Double.NaN;
R10 = Double.NaN;
R11 = Double.NaN;
R12 = Double.NaN;
R13 = Double.NaN;
R14 = Double.NaN;  
R15 = Double.NaN;
R16 = Double.NaN;
R17 = Double.NaN;
R18 = Double.NaN;
R19 = Double.NaN;
R20 = Double.NaN;
R21 = Double.NaN;
R22 = Double.NaN;
R23 = Double.NaN;
R24 = Double.NaN;
R25 = Double.NaN;
PP = Double.NaN; 
S1 = Double.NaN; 
S2 = Double.NaN; 
S3 = Double.NaN; 
S4 = Double.NaN;
S5 = Double.NaN;  
S6 = Double.NaN;
S7 = Double.NaN;
S8 = Double.NaN;
S9 = Double.NaN;
S10 = Double.NaN;
S11 = Double.NaN;
S12 = Double.NaN;
S13 = Double.NaN;
S14 = Double.NaN;
S15 = Double.NaN;
S16 = Double.NaN;
S17 = Double.NaN;
S18 = Double.NaN;
S19 = Double.NaN;
S20 = Double.NaN;
S21 = Double.NaN;
S22 = Double.NaN;
S23 = Double.NaN;
S24 = Double.NaN;
S25 = Double.NaN;
Mid1 = Double.NaN; 
Mid2 = Double.NaN; 
Mid3 = Double.NaN;
Mid_1 = Double.NaN;
Mid_2 = Double.NaN;
Mid_3 = Double.NaN;  

} else { 

PP = (high(period = timeFrame)[1] + low(period = timeFrame)[1] + close(period = timeFrame)[1]) / 3;
#
R1 = 2 * PP - low(period = timeFrame)[1];
S1 = 2 * PP - high(period = timeFrame)[1];
#
MID1 = PP + ((R1 - PP) /2);
MID_1 = PP - ((PP - S1) /2);
#
R2 = PP + (High(period = timeFrame)[1] - Low(period = timeFrame) [1]);
S2 = PP - (High(period = timeFrame) [1] - Low(period = timeFrame) [1]);
#
MID2 = R1 + ((R2 - R1) /2);
MID_2 = S1 - ((S1 - S2) /2);
#
R3 = R2 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S3 = S2 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
#
MID3 = R2 + ((R3 - R2) /2);
MID_3 = S2 - ((S2 - S3) /2);
#
R4 = R3 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S4 = S3 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
 #
R5 = R4 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S5 = S4 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
#
R6 = R5 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S6 = S5 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
#
R7 = R6 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S7 = S6 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
#
R8 = R7 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S8 = S7 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
 #
R9 = R8 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S9 = S8 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
#
R10 = R9 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S10 = S9 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
#
R11 = R10 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S11 = S10 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
#
R12 = R11 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S12 = S11 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
 #
R13 = R12 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S13 = S12 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
#
R14 = R13 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S14 = S13 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
#
R15 = R14 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S15 = S14 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
#
R16 = R15 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S16 = S15 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
 #
R17 = R16 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S17 = S16 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
#
R18 = R17 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S18 = S17 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
#
R19 = R18 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S19 = S18 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
#
R20 = R19 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S20 = S19 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
#
R21 = R20 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S21 = S20 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
 #
R22 = R21 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S22 = S21 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
#
R23 = R22 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S23 = S22 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
#
R24 = R23 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S24 = S23 - high(period = timeFrame)[1] + low(period = timeFrame)[1];
#
R25 = R24 + high(period = timeFrame)[1] - low(period = timeFrame)[1];
S25 = S24 - high(period = timeFrame)[1] + low(period = timeFrame)[1];

} 

PP.SetDefaultColor(GetColor(0)); 
R1.SetDefaultColor(Color.Red); 
R2.SetDefaultColor(Color.Red); 
R3.SetDefaultColor(Color.Red); 
R4.SetDefaultColor(Color.Red);
R5.SetDefaultColor(Color.Red);
R6.SetDefaultColor(Color.Red);
R7.SetDefaultColor(Color.Red);
R8.SetDefaultColor(Color.Red);
R9.SetDefaultColor(Color.Red);
R10.SetDefaultColor(Color.Red);
R11.SetDefaultColor(Color.Red);
R12.SetDefaultColor(Color.Red);
R13.SetDefaultColor(Color.Red);
R14.SetDefaultColor(Color.Red);
R15.SetDefaultColor(Color.Red);
R16.SetDefaultColor(Color.Red);
R17.SetDefaultColor(Color.Red);
R18.SetDefaultColor(Color.Red);
R19.SetDefaultColor(Color.Red);
R20.SetDefaultColor(Color.Red);
R21.SetDefaultColor(Color.Red);
R22.SetDefaultColor(Color.Red);
R23.SetDefaultColor(Color.Red);
R24.SetDefaultColor(Color.Red);
R25.SetDefaultColor(Color.Red);
S1.SetDefaultColor(Color.Green);
S2.SetDefaultColor(Color.Green);
S3.SetDefaultColor(Color.Green); 
S4.SetDefaultColor(Color.Green);
S5.SetDefaultColor(Color.Green);
S6.SetDefaultColor(Color.Green);
S7.SetDefaultColor(Color.Green);
S8.SetDefaultColor(Color.Green);
S9.SetDefaultColor(Color.Green);
S10.SetDefaultColor(Color.Green);
S11.SetDefaultColor(Color.Green);
S12.SetDefaultColor(Color.Green);
S13.SetDefaultColor(Color.Green);
S14.SetDefaultColor(Color.Green);
S15.SetDefaultColor(Color.Green);
S16.SetDefaultColor(Color.Green);
S17.SetDefaultColor(Color.Green);
S18.SetDefaultColor(Color.Green);
S19.SetDefaultColor(Color.Green);
S20.SetDefaultColor(Color.Green);
S21.SetDefaultColor(Color.Green);
S22.SetDefaultColor(Color.Green);
S23.SetDefaultColor(Color.Green);
S24.SetDefaultColor(Color.Green);
S25.SetDefaultColor(Color.Green);
Mid1.SetDefaultColor(GetColor(3));
Mid2.SetDefaultColor(GetColor(3));
Mid3.SetDefaultColor(GetColor(3));
Mid_1.SetDefaultColor(GetColor(3));
Mid_2.SetDefaultColor(GetColor(3));
Mid_3.SetDefaultColor(GetColor(3));

PP.SetStyle(Curve.firm); 
R1.SetStyle(Curve.SHORT_DASH); 
R2.SetStyle(Curve.SHORT_DASH); 
R3.SetStyle(Curve.SHORT_DASH); 
R4.SetStyle(Curve.SHORT_DASH); 
R5.SetStyle(Curve.SHORT_DASH);
S1.SetStyle(Curve.SHORT_DASH); 
S2.SetStyle(Curve.SHORT_DASH); 
S3.SetStyle(Curve.SHORT_DASH);
S4.SetStyle(Curve.SHORT_DASH); 
S5.SetStyle(Curve.SHORT_DASH);
Mid1.SetStyle(Curve.SHORT_DASH);
Mid2.SetStyle(Curve.SHORT_DASH);
Mid3.SetStyle(Curve.SHORT_DASH);
Mid_1.SetStyle(Curve.SHORT_DASH);
Mid_2.SetStyle(Curve.SHORT_DASH);
Mid_3.SetStyle(Curve.SHORT_DASH);
 
def paintingStrategy = if timeFrame == AggregationPeriod.WEEK then PaintingStrategy.DASHES else if timeFrame == AggregationPeriod.MONTH then PaintingStrategy.DASHES else PaintingStrategy.LINE_VS_POINTS;

PP.SetPaintingStrategy(PaintingStrategy.DASHES); 
R1.SetPaintingStrategy(PaintingStrategy.DASHES); 
R2.SetPaintingStrategy(PaintingStrategy.DASHES); 
R3.SetPaintingStrategy(PaintingStrategy.DASHES);
R4.SetPaintingStrategy(PaintingStrategy.DASHES);  
R5.SetPaintingStrategy(PaintingStrategy.DASHES); 
S1.SetPaintingStrategy(PaintingStrategy.DASHES); 
S2.SetPaintingStrategy(PaintingStrategy.DASHES); 
S3.SetPaintingStrategy(PaintingStrategy.DASHES); 
S4.SetPaintingStrategy(PaintingStrategy.DASHES); 
S5.SetPaintingStrategy(PaintingStrategy.DASHES);
Mid1.SetPaintingStrategy(PaintingStrategy.DASHES);
Mid2.SetPaintingStrategy(PaintingStrategy.DASHES);
Mid3.SetPaintingStrategy(PaintingStrategy.DASHES);
Mid_1.SetPaintingStrategy(PaintingStrategy.DASHES);
Mid_2.SetPaintingStrategy(PaintingStrategy.DASHES);
Mid_3.SetPaintingStrategy(PaintingStrategy.DASHES);

def cond = showBubble and isNaN(close[ShiftBubble]) and !isNaN(close[n1]) ;
AddChartBubble(cond,PP,Concat("PP: ",Round(PP)),color.magenta);
AddChartBubble(cond,R1,Concat("R1: ",Round(R1)),color.magenta);
AddChartBubble(cond,R2,Concat("R2: ",Round(R2)),color.magenta);
AddChartBubble(cond,R3,Concat("R3: ",Round(R3)),color.magenta);
AddChartBubble(cond,R4,Concat("R4: ",Round(R4)),color.magenta);
AddChartBubble(cond,S1,Concat("S1: ",Round(S1)),color.magenta);
AddChartBubble(cond,S2,Concat("S2: ",Round(S2)),color.magenta);
AddChartBubble(cond,S3,Concat("S3: ",Round(S3)),color.magenta);
AddChartBubble(cond,S4,Concat("S4: ",Round(S4)),color.magenta);
AddChartBubble(cond,Mid1,Concat("Mid1: ",Round(Mid1)),color.magenta);
AddChartBubble(cond,Mid2,Concat("Mid2: ",Round(Mid2)),color.magenta);
AddChartBubble(cond,Mid3,Concat("Mid3: ",Round(Mid3)),color.magenta);
AddChartBubble(cond,Mid_1,Concat("Mid_1: ",Round(Mid_1)),color.magenta);
AddChartBubble(cond,Mid_2,Concat("Mid_2: ",Round(Mid_2)),color.magenta);
AddChartBubble(cond,Mid_3,Concat("Mid_3: ",Round(Mid_3)),color.magenta);

Mid1.SetHiding (!MidPlot);
Mid2.SetHiding (!MidPlot);
Mid3.SetHiding (!MidPlot);
Mid_1.SetHiding (!MidPlot);
Mid_2.SetHiding (!MidPlot);
Mid_3.SetHiding (!MidPlot);

#####