Monthly pivots...urgent

#1
mmmm...Monthly pivots...urgent.....mmmm

Hey everyone ...does anybody have afl for monthly pivots which displays pivots for each month separately n not juss of the current month? plz help me out m stuck ...cant find it anywhere
 
Last edited:

HULK

Active Member
#3
Dead

Try This AFL, Change Time interval as you want from Intraday to daily / Weekly / Monthly View.

_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();

_SECTION_BEGIN("pivots");

Titledisplay= ParamToggle("Display pivot stats","No|Yes",1);

//---- 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 + DayC )/3;
R1 = (2*PP)-DayL;
S1 = (2*PP)-DayH;
R2 = PP + DayH - DayL;
S2 = PP - DayH + DayL;
R3 = DayH +(2*(PP-DayL));
S3 = DayL - (2*(DayH-PP));
style = styleLine | styleThick + styleNoRescale;
rcolor = colorGreen;
scolor = colorRed;
pcolor = colorWhite;
RangeTitle = EncodeColor(colorWhite) + "Range= " + EncodeColor(colorWhite) + StrToNum(NumToStr(round((HiDay - LoDay)), 4.4));

// High/Low of the Day plotting.
Hodcolorsheme=colorYellow;
LodColorscheme=colorOrange;
tempnum = TimeNum();
temphi[0] = H[0];
temphiColor[0] = Hodcolorsheme;
templo[0] = L[0];
temploColor[0] = LodColorscheme;
for( i = 1; i < BarCount; i++ )
{
if(tempnum - tempnum[i-1] > Interval())
{
if(H > temphi[i-1])
{
temphi = H;

temphiColor = Hodcolorsheme;
}
else
{
temphi = temphi[i-1];

temphiColor = Hodcolorsheme;
}
if(L < templo[i-1])
{
templo = L;

temploColor = LodColorscheme;