SIR,
I HAVE PIVOT POINT FORMULA IN WHICH WE CAN SEE DAILY,WEEKLY AND
MONTHLY PIVOT.THE PROBLEM IS THAT WHEN YOU CLICK INTRADAY CHART PIVOT
ARE CALCULATED ON INTRADAY HIGH & LOW BASIS OF DAILY PERIOD.BUT I
WANT
THAT PIVOT SHOULD BE CALCULATED ON EOD BASIS AND PIVOTS CAN BE
SEEN
IN
INTRADAY CHART.HIGH & LOW OF INTRADAY DATA ARE NOT PERFECT
AND ON EOD
DATA IS PERFECT .I HAVE POSTED MY FORMULA PLEASE SUGGEST ME
WHAT
CHANGES SHOULD ME MADE
PIVOT POINT
FORMULA
_SECTION_BEGIN("pivots
mw");
/***************************************/
/*SUPER
PIVOT POINTS ver 1.3 day week month
by Avi b
a
/***************************************/
/*
SUPER
PIVOT POINTS can by used in 2 ways:
if you choose daily, the pivots are
calculated from the previous day,
this can be used for daily charts.
the
second option is next day for EOD charts.
for all the options available
right click on the chart parameters.
to utilize all the program features
you need amibroker from version
4.80.1 and
above.
enjoy!
*/
/*-----------------data------------------*/
SetChartBkColor(2)
;
k=IIf(ParamList("select type","daily|next
day")=="daily",-1,0);
k1=-1;
TimeFrameSet(inDaily);
day_h=
LastValue(Ref(H,K));
day_l= LastValue(Ref(L,K));
day_c=
LastValue(Ref(C,K));
TimeFrameRestore();
TimeFrameSet(inWeekly);
Week_h=
LastValue(Ref(H,K1));
Week_l= LastValue(Ref(L,K1));;
Week_c=
LastValue(Ref(C,K1));;
TimeFrameRestore();
TimeFrameSet(inMonthly);
month_h=
LastValue(Ref(H,K1));
month_l= LastValue(Ref(L,K1));
month_c=
LastValue(Ref(C,K1));
TimeFrameRestore();
/*--------------------------------------*/
//
day
DH=Day_h;
DL=Day_L;
DC=Day_C;
// DAY PIVOT
Calculation
pd = ( DH+ DL + DC )/3;
sd1 = (2*pd)-DH;
sd2 = pd -(DH -
DL);
sd3 = Sd1 - (DH-DL);
sd4 = Sd2 - (DH-DL);
sd5 = Sd3 - (DH-DL);
rd1 = (2*pd)-DL;
rd2 = pd +(DH -DL);
rd3 = rd1 +(DH-DL);
rd4 =
rd2 +(DH-DL);
rd5 = rd3 +(DH-DL);
//
week
WH=Week_h;
WL=Week_l;
WC=Week_c;
// WEEK PIVOT
Calculation
pw = ( WH+ WL + WC )/3;
sw1 = (2*pw)-WH;
sw2 = pw -(WH -
WL);
sw3 = Sw1 - (WH-WL);
sw4 = Sw2 - (WH-WL);
rw1 =
(2*pw)-WL;
rw2 = pw +(WH -WL);
rw3 = rw1 +(WH-WL);
rw4 = rw2
+(WH-WL);
//
month
MH=month_h;
ML=month_l;
MC=month_c;
// MONTH PIVOT
Calculation
pm = ( MH+ ML + MC )/3;
sm1 = (2*pm)-MH;
sm2 = pm -(MH -
ML);
sm3 = Sm1 - (MH-ML);
rm1 = (2*pm)-ML;
rm2 = pm +(MH
-ML);
rm3 = rm1
+(MH-ML);
/*--------------------------------------*/
//
PARAMETERS
slide = Param("slide all",33,-1000,1000,1);
slide1 =
Param("slide_day",50,0,1000,1);
slide2 =
Param("slide_week",70,0,1000,1);
slide3 =
Param("slide_month",90,0,1000,1);
slide_Hight =
Param("slide_Hight",0,-1000,1000,1);
SHALD =
ParamList("daily Pivots", "selected only|all|hide" );
SHALW =
ParamList("weekly Pivots", "hide|all|selected only" );
SHALM =
ParamList("monthly Pivots", "hide|all|selected only" );
//day
PDP =
ParamList("DP", "SHOW|HIDE" );
PDR1 = ParamList("DR1",
"SHOW|HIDE" );
PDR2 = ParamList("DR2", "SHOW|HIDE" );
PDR3 =
ParamList("DR3", "SHOW|HIDE" );
PDR4 = ParamList("DR4",
"HIDE|SHOW" );
PDR5 = ParamList("DR5", "HIDE|SHOW" );
PDS1 =
ParamList("DS1", "SHOW|HIDE" );
PDS2 = ParamList("DS2",
"SHOW|HIDE" );
PDS3 = ParamList("DS3", "SHOW|HIDE" );
PDS4 =
ParamList("DS4", "HIDE|SHOW" );
PDS5 = ParamList("DS5",
"HIDE|SHOW" );
//week
PWP = ParamList("WP", "HIDE|SHOW" );
PWR1 = ParamList("WR1", "HIDE|SHOW" );
PWR2 =
ParamList("WR2", "HIDE|SHOW" );
PWR3 = ParamList("WR3",
"HIDE|SHOW" );
PWR4 = ParamList("WR4", "HIDE|SHOW" );
PWS1 =
ParamList("WS1", "HIDE|SHOW" );
PWS2 = ParamList("WS2",
"HIDE|SHOW" );
PWS3 = ParamList("WS3", "HIDE|SHOW" );
PWS4 =
ParamList("WS4", "HIDE|SHOW" );
//month
PMP =
ParamList("MP", "HIDE|SHOW" );
PMR1 = ParamList("MR1",
"HIDE|SHOW" );
PMR2 = ParamList("MR2", "HIDE|SHOW" );
PMR3 =
ParamList("MR3", "HIDE|SHOW" );
PMS1 = ParamList("MS1",
"HIDE|SHOW" );
PMS2 = ParamList("MS2", "HIDE|SHOW" );
PMS3 =
ParamList("MS3", "HIDE|SHOW" );
PIVOTPOINTCOLOR=6;
DAILYSUPPORTCOLOR=5;
DayCOLOR
=4;
weekCOLOR =9;
monthCOLOR
=34;
/*--------------------------------------*/
//
LABELS
for( i = 0; i < BarCount; i++ )
{
//day
if(i+slide1== BarCount && (PDP=="SHOW" OR
SHALD=="all") && SHALD!
="hide") PlotText( "daily
Pivot
"+pd ,i+slide,pd+slide_Hight
,PIVOTPOINTCOLOR);
if(i+slide1== BarCount &&
(PDR1=="SHOW" OR SHALD=="all")&& SHALD!
="hide") PlotText(
"daily
R1 "+rd1 ,i+slide,rd1+slide_Hight ,DayCOLOR );
if(i+slide1== BarCount && (PDR2=="SHOW" OR
SHALD=="all")&& SHALD!
="hide") PlotText( "daily
R2 "+rd2
,i+slide,rd2+slide_Hight ,DayCOLOR );
if(i+slide1== BarCount
&& (PDR3=="SHOW" OR SHALD=="all")&& SHALD!
="hide")
PlotText( "daily
R3 "+rd3 ,i+slide,rd3+slide_Hight ,DayCOLOR
);
if(i+slide1== BarCount && (PDR4=="SHOW" OR
SHALD=="all")&& SHALD!
="hide") PlotText( "daily
R4 "+rd4
,i+slide,rd4+slide_Hight ,DayCOLOR );
if(i+slide1== BarCount
&& (PDR5=="SHOW" OR SHALD=="all")&& SHALD!
="hide")
PlotText( "daily
R5 "+rd5 ,i+slide,rd5+slide_Hight ,DayCOLOR
);
if(i+slide1== BarCount && (PDS1=="SHOW" OR
SHALD=="all")&& SHALD!
="hide") PlotText( "daily
S1 "+sd1
,i+slide,sd1+slide_Hight ,DAILYSUPPORTCOLOR);
if(i+slide1==
BarCount && (PDS2=="SHOW" OR SHALD=="all")&&
SHALD!
="hide") PlotText( "daily
S2 "+sd2 ,i+slide,sd2+slide_Hight
,DAILYSUPPORTCOLOR );
if(i+slide1== BarCount && (PDS3=="SHOW"
OR SHALD=="all")&& SHALD!
="hide") PlotText( "daily
S3
"+sd3 ,i+slide,sd3+slide_Hight ,DAILYSUPPORTCOLOR
);
if(i+slide1== BarCount && (PDS4=="SHOW" OR
SHALD=="all")&& SHALD!
="hide") PlotText( "daily
S4 "+sd4
,i+slide,sd4+slide_Hight ,DAILYSUPPORTCOLOR );
if(i+slide1==
BarCount && (PDS5=="SHOW" OR SHALD=="all")&&
SHALD!
="hide") PlotText( "daily
S5 "+sd5 ,i+slide,sd5+slide_Hight
,DAILYSUPPORTCOLOR );
//week
if(i+slide2== BarCount &&
(PWP=="SHOW" OR SHALW=="all")&& SHALW!
="hide") PlotText(
"weekly
Pivot "+pw ,i+slide,pw+slide_Hight ,weekCOLOR
);
if(i+slide2== BarCount && (PWR1=="SHOW" OR
SHALW=="all")&& SHALW!
="hide") PlotText( "weekly
R1 "+rw1
,i+slide,rw1+slide_Hight ,weekCOLOR );
if(i+slide2== BarCount
&& (PWR2=="SHOW" OR SHALW=="all")&& SHALW!
="hide")
PlotText( "weekly
R2 "+rw2 ,i+slide,rw2+slide_Hight ,weekCOLOR
);
if(i+slide2== BarCount && (PWR3=="SHOW" OR
SHALW=="all")&& SHALW!
="hide") PlotText( "weekly
R3 "+rw3
,i+slide,rw3+slide_Hight ,weekCOLOR );
if(i+slide2== BarCount
&& (PWR4=="SHOW" OR SHALW=="all")&& SHALW!
="hide")
PlotText( "weekly
R4 "+rw4 ,i+slide,rw4+slide_Hight ,weekCOLOR
);
if(i+slide2== BarCount && (PWS1=="SHOW" OR
SHALW=="all")&& SHALW!
="hide") PlotText( "weekly
S1 "+sw1
,i+slide,sw1+slide_Hight ,weekCOLOR );
if(i+slide2== BarCount
&& (PWS2=="SHOW" OR SHALW=="all")&& SHALW!
="hide")
PlotText( "weekly
S2 "+sw2 ,i+slide,sw2+slide_Hight ,weekCOLOR
);
if(i+slide2== BarCount && (PWS3=="SHOW" OR
SHALW=="all")&& SHALW!
="hide") PlotText( "weekly
S3 "+sw3
,i+slide,sw3+slide_Hight ,weekCOLOR );
if(i+slide2== BarCount
&& (PWS4=="SHOW" OR SHALW=="all")&& SHALW!
="hide")
PlotText( "weekly
S4 "+sw4 ,i+slide,sw4+slide_Hight ,weekCOLOR
);
//month
if(i+slide3== BarCount && (PMP=="SHOW" OR
SHALM=="all")&& SHALM!
="hide") PlotText( "monthly
Pivot
"+pm ,i+slide,Pm+slide_Hight ,monthCOLOR );
if(i+slide3==
BarCount && (PMR1=="SHOW" OR SHALM=="all")&&
SHALM!
="hide") PlotText( "monthly
R1 "+rm1
,i+slide,rm1+slide_Hight ,monthCOLOR );
if(i+slide3== BarCount
&& (PMR2=="SHOW" OR SHALM=="all")&& SHALM!
="hide")
PlotText( "monthly
R2 "+rm2 ,i+slide,rm2+slide_Hight ,monthCOLOR
);
if(i+slide3== BarCount && (PMR3=="SHOW" OR
SHALM=="all")&& SHALM!
="hide") PlotText( "monthly
R3
"+rm3 ,i+slide,rm3+slide_Hight ,monthCOLOR );
if(i+slide3==
BarCount && (PMS1=="SHOW" OR SHALM=="all")&&
SHALM!
="hide")PlotText( "monthly
S1 "+sm1
,i+slide,sm1+slide_Hight ,monthCOLOR);
if(i+slide3==
BarCount && (PMS2=="SHOW" OR SHALM=="all")&&
SHALM!
="hide") PlotText( "monthly
S2 "+sm2
,i+slide,sm2+slide_Hight ,monthCOLOR );
if(i+slide3== BarCount
&& (PMS3=="SHOW" OR SHALM=="all")&& SHALM!
="hide")
PlotText( "monthly
S3 "+sm3 ,i+slide,sm3+slide_Hight ,monthCOLOR
);
}
/*--------------------------------------*/
//
PLOTS
// style = IIf(ParamList("Chart style",
"styleCandle|styleBar")
=="styleCandle",64,128);
// Plot
(C,Date ()+" close",11,style);
//day
if ((PDP=="SHOW" OR
SHALD=="all") && SHALD!="hide") Plot (pd,"daily
Pivot
",PIVOTPOINTCOLOR,8);
if ((PDR1=="SHOW" OR SHALD=="all")
&& SHALD!="hide") Plot
(rd1,"daily R1
",DayCOLOR,8);
if ((PDR2=="SHOW" OR SHALD=="all") &&
SHALD!="hide") Plot
(rd2,"daily R2 ",DayCOLOR,8);
if
((PDR3=="SHOW" OR SHALD=="all") && SHALD!="hide") Plot
(rd3,"daily R3 ",DayCOLOR,8);
if ((PDR4=="SHOW" OR
SHALD=="all") && SHALD!="hide") Plot
(rd4,"daily R4
",DayCOLOR,8);
if ((PDR5=="SHOW" OR SHALD=="all") &&
SHALD!="hide") Plot
(rd5,"daily R5 ",DayCOLOR,8);
if
((PDS1=="SHOW" OR SHALD=="all") && SHALD!="hide") Plot
(sd1,"daily S1 ",DAILYSUPPORTCOLOR,8);
if ((PDS2=="SHOW" OR
SHALD=="all") && SHALD!="hide") Plot
(Sd2,"daily S2
",DAILYSUPPORTCOLOR,8);
if ((PDS3=="SHOW" OR SHALD=="all")
&& SHALD!="hide") Plot
(Sd3,"daily S3
",DAILYSUPPORTCOLOR,8);
if ((PDS4=="SHOW" OR SHALD=="all")
&& SHALD!="hide") Plot
(Sd4,"daily S4
",DAILYSUPPORTCOLOR,8);
if ((PDS5=="SHOW" OR SHALD=="all")
&& SHALD!="hide") Plot
(Sd5,"daily S5
",DAILYSUPPORTCOLOR,8);
//week
if ((PWP=="SHOW" OR
SHALW=="all") && SHALW!="hide") Plot
(pW,"weekly Pivot
",weekCOLOR,1);
if ((PWR1=="SHOW" OR SHALW=="all") &&
SHALW!="hide") Plot
(rw1,"weekly R1 ",weekCOLOR,32);
if
((PWR2=="SHOW" OR SHALW=="all") && SHALW!="hide") Plot
(rw2,"weekly R2 ",weekCOLOR,32);
if ((PWR3=="SHOW" OR
SHALW=="all") && SHALW!="hide") Plot
(rw3,"weekly R3
",weekCOLOR,32);
if ((PWR4=="SHOW" OR SHALW=="all") &&
SHALW!="hide") Plot
(rw4,"weekly R4 ",weekCOLOR,32);
if
((PWS1=="SHOW" OR SHALW=="all") && SHALW!="hide") Plot
(sw1,"weekly S1 ",weekCOLOR,32);
if ((PWS2=="SHOW" OR
SHALW=="all") && SHALW!="hide") Plot
(Sw2,"weekly S2
",weekCOLOR,32);
if ((PWS3=="SHOW" OR SHALW=="all") &&
SHALW!="hide") Plot
(Sw3,"weekly S3 ",weekCOLOR,32);