Hi there
Would anybody be able to suggesting the best way to modify this to produce
Pivots and
S+R on hourly charts, and have the S+R lines set on each new hour rather than
changing?
thanks,
//---- pivot points
DayH = TimeFrameGetPrice("H", inDaily, -1);// yesterdays high
DayL = TimeFrameGetPrice("L", inDaily, -1);//low
DayC = TimeFrameGetPrice("C", inDaily, -1);//close
DayO = TimeFrameGetPrice("O", inDaily);// current day open
HiDay = TimeFrameGetPrice("H", inDaily);
LoDay = TimeFrameGetPrice("L", inDaily);
PP = (DayH + DayL + DayO + DayO) / 4 ;
R1 = (2 * PP) - DayL;
S1 = (2 * PP) - DayH;
R2 = PP + R1 - S1;
S2 = PP + S1 - R1;
R3 = R2 + (R1 - PP);
S3 = S2 - (PP - S1);
style = styleLine | styleThick + styleNoRescale;
rcolor = ParamColor("R1 R2 R3 color",colorBlue);
scolor = ParamColor("S1 S2 S3 color",colorRed);
pcolor = ParamColor("Pivot color",colorBlack);
Plot(R1, "R1",rcolor,style);
Plot(S1, "S1",scolor,style);
Plot(R2, "R2",rcolor,style);
Plot(S2, "S2",scolor,style);
Plot(PP, "PP",pcolor,style);
Plot(s3, "S3", scolor, style);
Plot(R3, "R3", rcolor, style);
//HiDayTitle = EncodeColor(colorBlack) + "HOD ";
//HiDayTitle = HiDayTitle + EncodeColor(colorBlack) + HiDay;
//LoDayTitle = EncodeColor(colorBlack) + ", LOD ";
//LoDayTitle = LoDayTitle + EncodeColor(colorBlack) + LoDay;
RangeTitle = EncodeColor(colorBlack) + "Range= " + EncodeColor(colorBlack) +
StrToNum(NumToStr(HiDay - LoDay, 4.4)) + " points";
// High/Low of the Day plotting.
Hodcolorsheme=ParamColor("High of day color",colorYellow);
LodColorscheme=ParamColor("Low of day color",colorDarkRed);
tempnum = TimeNum();
temphi[0] = H[0];
temphiColor[0] = Hodcolorsheme;
templo[0] = L[0];
temploColor[0] = LodColorscheme;
for( i = 1; i < BarCount; i++ )
{
if(tempnum[i] - tempnum[i-1] > Interval())
{
if(H[i] > temphi[i-1])
{
temphi[i] = H[i];
temphiColor[i] = Hodcolorsheme;
}
else
{
temphi[i] = temphi[i-1];
temphiColor[i] = Hodcolorsheme;
}
if(L[i] < templo[i-1])
{
templo[i] = L[i];
temploColor[i] = LodColorscheme;
}
else
{
templo[i] = templo[i-1];
temploColor[i] = LodColorscheme;
}
}
else
{
temphi[i] = H[i];
temphiColor[i] = Hodcolorsheme;
templo[i] = L[i];
temploColor[i] = LodColorscheme;
}
}
Plot(temphi,"", temphiColor,styleBar);
Plot(templo,"", temploColor,styleBar);
Titledisplaycode = "\n"+"" + Name() + ", " + Interval(2) + ", " + Date() + "\n"
+
EncodeColor(colorBlack) + "O " + EncodeColor(colorBlack) + O +
EncodeColor(colorBlack) + " H " + EncodeColor(colorBlack) + H +
EncodeColor(colorBlack) + " L " + EncodeColor(colorBlack) + L +
EncodeColor(colorBlack) + " C " + EncodeColor(colorBlack) + C + "\n" +
EncodeColor(rcolor) + "R1= " + EncodeColor(colorBlack) + R1 + "\n" +
EncodeColor(rcolor) + "R2= " + EncodeColor(colorBlack) + R2 + "\n" +
EncodeColor(rcolor) + "R3= " + EncodeColor(colorBlack) + R3 + "\n" +
EncodeColor(pcolor) + "PP= " + EncodeColor(colorBlack) + PP + "\n" +
EncodeColor(scolor) + "S1= " + EncodeColor(colorBlack) + S1 + "\n" +
EncodeColor(scolor) + "S2= " + EncodeColor(colorBlack) + S2+ "\n" +
EncodeColor(scolor) + "S3= " + EncodeColor(colorBlack) + S3 + "\n" +
EncodeColor(Hodcolorsheme) + "HOD= " + EncodeColor(colorBlack) + Hiday + "\n"
+
EncodeColor(LodColorscheme) + "LOD= " + EncodeColor(colorBlack) + Loday + "\n"
+ RangeTitle;
Title=WriteIf(Titledisplay==1,Titledisplaycode, "\n"+"" + Name() + ", " +
Interval(2) + ", " + Date() + "\n" +
EncodeColor(colorBlack) + "O " + EncodeColor(colorBlack) + O +
EncodeColor(colorBlack) + " H " + EncodeColor(colorBlack) + H +
EncodeColor(colorBlack) + " L " + EncodeColor(colorBlack) + L +
EncodeColor(colorBlack) + " C " + EncodeColor(colorBlack) + C + "\n");
