Stock Portfolio Organizer

The ultimate porfolio management solution.

Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
For Portfolio Manager Click Here

WiseTrader Toolbox

#1 Selling Amibroker Plugin featuring:

Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Find Out More Here

ALL PIVOT EOD for Amibroker (AFL)
ameheta
almost 4 years ago
Amibroker (AFL)

Rating:
3 / 5 (Votes 5)
Tags:
amibroker, pivot

PIVOT FOR HOURLY, DAILY, WEEKLY, MONTHLY, QUARTERLY WITH PLOT

Indicator / Formula

Copy & Paste Friendly
_SECTION_BEGIN("ALL PIVOT POINT");

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", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 



k=IIf(ParamList("select type day","DAILY|next day")=="DAILY",-1,0);

k1=-1;
K2=-2;


TimeFrameSet(inDaily);
day_h= LastValue(Ref(H,K));
day_l= LastValue(Ref(L,K));
TimeFrameRestore();

TimeFrameSet(inWeekly);
Week_h= LastValue(Ref(H,K1));
Week_l= LastValue(Ref(L,K1));
TWOWEEK_h= LastValue(Ref(H,K2));
TWOWEEK_l= LastValue(Ref(L,K2));
TimeFrameRestore();

TimeFrameSet(inMonthly);
month_h= LastValue(Ref(H,K1));
month_l= LastValue(Ref(L,K1));
TimeFrameRestore();

TimeFrameSet(inQuarterly);
QUARTER_h= LastValue(Ref(H,K1));
QUARTER_l= LastValue(Ref(L,K1));
TimeFrameRestore();

TimeFrameSet(inYearly);
YEAR_h= LastValue(Ref(H,K1));
YEAR_l= LastValue(Ref(L,K1));
TimeFrameRestore();


// day
DH=Day_h;
DL=Day_L;
DR = DH-DL;
// DAY PIVOT Calculation
DH5 = DH + DR;
DH4 = DH + DR*0.62;
DH3 = DH + DR*0.38;
DH2 = DH;
DH1 = DH - DR*0.38;
DMID = (DH + DL) / 2;
DL1 = DL + DR*0.38;
DL2 = DL;
DL3 = DL - DR*0.38;
DL4 = DL - DR*0.62;
DL5 = DL - DR;


// week
WH=Week_h;
WL=Week_l;
WR=WH-WL;

// WEEK PIVOT Calculation
WH5 = WH + WR;
WH4 = WH + WR*0.62;
WH3 = WH + WR*0.38;
WH2 = WH;
WH1 = WH - WR*0.38;
WMID = (WH + WL) / 2;
WL1 = WL + WR*0.38;
WL2 = WL;
WL3 = WL - WR*0.38;
WL4 = WL - WR*0.62;
WL5 = WL - WR;

// TWO week
TWH=TWOWEEK_h;
TWL=TWOWEEK_l;
TWR=TWH-TWL;

//TWO WEEK PIVOT Calculation

TWH5 = TWH + TWR;
TWH4 = TWH + TWR*0.62;
TWH3 = TWH + TWR*0.38;
TWH2 = TWH;
TWH1 = TWH - TWR*0.38;
TWMID = (TWH + TWL) / 2;
TWL1 = TWL + TWR*0.38;
TWL2 = TWL;
TWL3 = TWL - TWR*0.38;
TWL4 = TWL - TWR*0.62;
TWL5 = TWL - TWR;

// month
MH=month_h;
ML=month_l;
MR=MH-ML;
// MONTH PIVOT Calculation

MH5 = MH + MR;
MH4 = MH + MR*0.62;
MH3 = MH + MR*0.38;
MH2 = MH;
MH1 = MH - MR*0.38;
MMID = (MH + ML) / 2;
ML1 = ML + MR*0.38;
ML2 = ML;
ML3 = ML - MR*0.38;
ML4 = ML - MR*0.62;
ML5 = ML - MR;

// QUARTER
QH=QUARTER_h;
QL=QUARTER_l;
QR=QH-QL;
// QUARTER PIVOT Calculation

QH5 = QH + QR;
QH4 = QH + QR*0.62;
QH3 = QH + QR*0.38;
QH2 = QH;
QH1 = QH - QR*0.38;
QMID = (QH + QL) / 2;
QL1 = QL + QR*0.38;
QL2 = QL;
QL3 = QL - QR*0.38;
QL4 = QL - QR*0.62;
QL5 = QL - QR;

// YEAR
YH=YEAR_h;
YL=YEAR_l;
YR=YH-YL;
// YEAR PIVOT Calculation

YH5 = YH + YR;
YH4 = YH + YR*0.62;
YH3 = YH + YR*0.38;
YH2 = YH;
YH1 = YH - YR*0.38;
YMID = (YH + YL) / 2;
YL1 = YL + YR*0.38;
YL2 = YL;
YL3 = YL - YR*0.38;
YL4 = YL - YR*0.62;
YL5 = YL - YR;



/*--------------------------------------*/
// PARAMETERS
slide =  Param("slide all",20,-1000,1000,1);
slide1 = Param("slide_day",22,0,1000,1);
slide2 = Param("slide_week",16,0,1000,1);
slide3 = Param("slide_TWOweek",26,0,1000,1);
slide4 = Param("slide_month",13,0,1000,1);
slide5 = Param("slide_QUARTER",29,0,1000,1);
slide6 = Param("slide_YEAR",33,0,1000,1);
slide7 = Param("slide_HOUR",19,0,1000,1);
slide_Hight =  Param("slide_Hight",0,-1000,1000,1);



SHALDH = ParamList("HOURLY Pivots", "selected only|all|hide" );
SHALD = ParamList("DAILY Pivots", "selected only|all|hide" );
SHALW = ParamList("weekly Pivots", "selected only|all|hide" );
SHALTW = ParamList("TWO weekly Pivots", "selected only|all|hide" );
SHALM = ParamList("monthly Pivots", "selected only|all|hide" ); 
SHALQ = ParamList("QUARTERLY Pivots", "selected only|all|hide" );
SHALY = ParamList("YEARLY Pivots", "selected only|all|hide" );

//HOUR

PHH5 = ParamList("HH5",   "HIDE|SHOW" );
PHH4 = ParamList("HH4",   "HIDE|SHOW" );
PHH3 = ParamList("HH3",   "HIDE|SHOW" );
PHH2 = ParamList("HH2",   "SHOW|HIDE" );
PHH1 = ParamList("HH1",   "HIDE|SHOW" );
PHMID = ParamList("HMID", "SHOW|HIDE" ); 
PHL1 = ParamList("HL1",   "HIDE|SHOW" );
PHL2 = ParamList("HL2",   "SHOW|HIDE" );
PHL3 = ParamList("HL3",   "HIDE|SHOW" );
PHL4 = ParamList("HL4",   "HIDE|SHOW" );
PHL5 = ParamList("HL5",   "HIDE|SHOW" );



//day

PDH5 = ParamList("DH5",   "HIDE|SHOW" );
PDH4 = ParamList("DH4",   "HIDE|SHOW" );
PDH3 = ParamList("DH3",   "HIDE|SHOW" );
PDH2 = ParamList("DH2",   "SHOW|HIDE" );
PDH1 = ParamList("DH1",   "HIDE|SHOW" );
PDMID = ParamList("DMID", "SHOW|HIDE" ); 
PDL1 = ParamList("DL1",   "HIDE|SHOW" );
PDL2 = ParamList("DL2",   "SHOW|HIDE" );
PDL3 = ParamList("DL3",   "HIDE|SHOW" );
PDL4 = ParamList("DL4",   "HIDE|SHOW" );
PDL5 = ParamList("DL5",   "HIDE|SHOW" );

//WEEK

PWH5 = ParamList("WH5",   "HIDE|SHOW" );
PWH4 = ParamList("WH4",   "HIDE|SHOW" );
PWH3 = ParamList("WH3",   "HIDE|SHOW" );
PWH2 = ParamList("WH2",   "SHOW|HIDE" );
PWH1 = ParamList("WH1",   "HIDE|SHOW" );
PWMID = ParamList("WMID", "HIDE|SHOW" ); 
PWL1 = ParamList("WL1",   "HIDE|SHOW" );
PWL2 = ParamList("WL2",   "SHOW|HIDE" );
PWL3 = ParamList("WL3",   "HIDE|SHOW" );
PWL4 = ParamList("WL4",   "HIDE|SHOW" );
PWL5 = ParamList("WL5",   "HIDE|SHOW" );

// TWO WEEK

PTWH5 = ParamList("TWH5",   "HIDE|SHOW" );
PTWH4 = ParamList("TWH4",   "HIDE|SHOW" );
PTWH3 = ParamList("TWH3",   "HIDE|SHOW" );
PTWH2 = ParamList("TWH2",   "SHOW|HIDE" );
PTWH1 = ParamList("TWH1",   "HIDE|SHOW" );
PTWMID = ParamList("TWMID", "HIDE|SHOW" ); 
PTWL1 = ParamList("TWL1",   "HIDE|SHOW" );
PTWL2 = ParamList("TWL2",   "SHOW|HIDE" );
PTWL3 = ParamList("TWL3",   "HIDE|SHOW" );
PTWL4 = ParamList("TWL4",   "HIDE|SHOW" );
PTWL5 = ParamList("TWL5",   "HIDE|SHOW" );

// MONTH

PMH5 = ParamList("MH5",   "HIDE|SHOW" );
PMH4 = ParamList("MH4",   "HIDE|SHOW" );
PMH3 = ParamList("MH3",   "HIDE|SHOW" );
PMH2 = ParamList("MH2",   "SHOW|HIDE");
PMH1 = ParamList("MH1",   "HIDE|SHOW" );
PMMID = ParamList("MMID", "HIDE|SHOW" ); 
PML1 = ParamList("ML1",   "HIDE|SHOW" );
PML2 = ParamList("ML2",   "SHOW|HIDE" );
PML3 = ParamList("ML3",   "HIDE|SHOW" );
PML4 = ParamList("ML4",   "HIDE|SHOW" );
PML5 = ParamList("ML5",   "HIDE|SHOW" );

// QUARTER

PQH5 = ParamList("QH5",   "HIDE|SHOW" );
PQH4 = ParamList("QH4",   "HIDE|SHOW" );
PQH3 = ParamList("QH3",   "HIDE|SHOW" );
PQH2 = ParamList("QH2",   "HIDE|SHOW" );
PQH1 = ParamList("QH1",   "HIDE|SHOW" );
PQMID = ParamList("QMID", "HIDE|SHOW" ); 
PQL1 = ParamList("QL1",   "HIDE|SHOW" );
PQL2 = ParamList("QL2",   "HIDE|SHOW" );
PQL3 = ParamList("QL3",   "HIDE|SHOW" );
PQL4 = ParamList("QL4",   "HIDE|SHOW" );
PQL5 = ParamList("QL5",   "HIDE|SHOW" );

// YEAR

PYH5 = ParamList("YH5",   "HIDE|SHOW" );
PYH4 = ParamList("YH4",   "HIDE|SHOW" );
PYH3 = ParamList("YH3",   "HIDE|SHOW" );
PYH2 = ParamList("YH2",   "HIDE|SHOW" );
PYH1 = ParamList("YH1",   "HIDE|SHOW" );
PYMID = ParamList("YMID", "HIDE|SHOW" ); 
PYL1 = ParamList("YL1",   "HIDE|SHOW" );
PYL2 = ParamList("YL2",   "HIDE|SHOW" );
PYL3 = ParamList("YL3",   "HIDE|SHOW" );
PYL4 = ParamList("YL4",   "HIDE|SHOW" );
PYL5 = ParamList("YL5",   "HIDE|SHOW" );

DayCOLOR = 10;
weekCOLOR =7; 
TWOWEEKCOLOR =9;
monthCOLOR =11;
QUARTERCOLOR = 14;
YearCOLOR = 6;
L2COLOR = 5;
H2COLOR = 4;

/*--------------------------------------*/

/*PRICE ANALYSIS OF STOCKS */
YH = Ref(HHV(High,255),-1);
YL =  Ref(LLV(Low,255),-1);
THREEYEARHIGH = Ref(HHV(High,760),-1);
THREEYEARLOW = Ref(LLV(Low,760),-1);
PQH = TimeFrameGetPrice( "H", inQuarterly, -1 );
PQL=  TimeFrameGetPrice( "L", inQuarterly, -1 );
PMH = TimeFrameGetPrice( "H", inMonthly, -1 );
PML =  TimeFrameGetPrice( "L", inMonthly, -1 );
PTWH = TimeFrameGetPrice( "H", inWeekly*2, -1 );
PTWL =  TimeFrameGetPrice( "L", inWeekly*2, -1 );
PWH = TimeFrameGetPrice( "H", inWeekly, -1 );
PWL =  TimeFrameGetPrice( "L", inWeekly, -1 );
PDH = TimeFrameGetPrice( "H", inDaily, -1 );
PDL =  TimeFrameGetPrice( "L", inDaily, -1 );



//      Add Pivot levels AND PRICE LEVELS on charts as text
Title = EncodeColor(colorDarkTeal)+ "\n"+ "\n"+"\n"+ "\n" +

EncodeColor(DayCOLOR)+"DH5 = "+ DH5 +"\n"+
EncodeColor(DayCOLOR)+"DH4 = "+ DH4 +"\n"+
EncodeColor(DayCOLOR)+"DH3 = "+ DH3 +"\n"+
EncodeColor(H2COLOR)+"DH2 = "+ DH2 + "\n"+
EncodeColor(DayCOLOR)+"DH1 = "+ DH1 + "\n"+ "\n"+
EncodeColor(DayCOLOR)+"DMID = "+ DMID + "\n"+ "\n" +
EncodeColor(DayCOLOR)+"DL1 = "+ DL1 + "\n"+
EncodeColor(L2COLOR)+"DL2 = "+ DL2 + "\n"+
EncodeColor(DayCOLOR)+"DL3 = "+ DL3 + "\n"+
EncodeColor(DayCOLOR)+"DL4 = "+ DL4 + " \n"+
EncodeColor(DayCOLOR)+"DL5 = "+ DL5 + "\n"+ "\n"+

EncodeColor(weekCOLOR)+"WH5 = "+ WH5 +"\n"+
EncodeColor(weekCOLOR)+"WH4 = "+ WH4 +"\n"+
EncodeColor(weekCOLOR)+"WH3 = "+ WH3 +"\n"+
EncodeColor(H2COLOR)+"WH2 = "+ WH2 + "\n"+
EncodeColor(weekCOLOR)+"WH1 = "+ WH1 + "\n"+ "\n"+
EncodeColor(weekCOLOR)+"WMID = "+ QMID + "\n"+ "\n" +
EncodeColor(weekCOLOR)+"WL1 = "+ WL1 + "\n"+
EncodeColor(L2COLOR)+"WL2 = "+ WL2 + "\n"+
EncodeColor(weekCOLOR)+"WL3 = "+ WL3 + "\n"+
EncodeColor(weekCOLOR)+"WL4 = "+ WL4 + " \n"+
EncodeColor(weekCOLOR)+"WL5 = "+ WL5 + "\n"+ "\n"+ 

EncodeColor(H2COLOR)+"THREE YEARLY HIGH = "+ THREEYEARHIGH +"\n"+
EncodeColor(H2COLOR)+"YEARLY HIGH = "+ YH +"\n"+
EncodeColor(H2COLOR)+"PQH = "+ PQH+"\n"+
EncodeColor(H2COLOR)+"PMH = "+ PMH +"\n"+
EncodeColor(H2COLOR)+"PTWH = "+ PTWH + "\n"+
EncodeColor(H2COLOR)+"PWH = "+ PWH + "\n"+
EncodeColor(H2COLOR)+"PDH = "+ PDH + "\n"+ "\n" +
EncodeColor(L2COLOR)+"PDL = "+ PDL + "\n"+
EncodeColor(L2COLOR)+"PWL = "+ PWL + " \n"+
EncodeColor(L2COLOR)+"PTWL = "+ PTWL + "\n"+ 
EncodeColor(L2COLOR)+"PML = "+ PML + "\n"+
EncodeColor(L2COLOR)+"PQL= "+ PQL + "\n"+
EncodeColor(L2COLOR)+"YEARLY LOW = "+ YL  + "\n"+
EncodeColor(L2COLOR)+"THREE YEARLY LOW = "+ THREEYEARLOW + " \n" ;

/*--------------------------------------*/
// LABELS
for( i = 0; i < BarCount; i++ ) 
{

  //day
 if(i+slide1== BarCount && (PDH5=="SHOW" OR SHALD=="all") && SHALD!="hide")
PlotText( "DAILY H5 =   "+DH5 ,i+slide,DH5+slide_Hight ,DayCOLOR);

 if(i+slide1== BarCount && (PDH4=="SHOW" OR SHALD=="all") && SHALD!="hide")
PlotText( "DAILY H4 =   "+DH4 ,i+slide,DH4+slide_Hight ,DayCOLOR);

 if(i+slide1== BarCount && (PDH3=="SHOW" OR SHALD=="all") && SHALD!="hide")
PlotText( "DAILY H3 =   "+DH3 ,i+slide,DH3+slide_Hight ,DayCOLOR);

 if(i+slide1== BarCount && (PDH2=="SHOW" OR SHALD=="all") && SHALD!="hide")
PlotText( "DAILY H2 =   "+DH2 ,i+slide,DH2+slide_Hight ,DayCOLOR);

 if(i+slide1== BarCount && (PDH1=="SHOW" OR SHALD=="all") && SHALD!="hide")
PlotText( "DAILY H1 =   "+DH1 ,i+slide,DH1+slide_Hight ,DayCOLOR);

 if(i+slide1== BarCount && (PDMID=="SHOW" OR SHALD=="all") && SHALD!="hide")
PlotText( "DAILY MID =   "+DMID ,i+slide,DMID+slide_Hight ,DayCOLOR);

 if(i+slide1== BarCount && (PDL1=="SHOW" OR SHALD=="all") && SHALD!="hide")
PlotText( "DAILY L1 =   "+DL1 ,i+slide,DL1+slide_Hight ,DayCOLOR);

if(i+slide1== BarCount && (PDL2=="SHOW" OR SHALD=="all") && SHALD!="hide")
PlotText( "DAILY L2 =   "+DL2 ,i+slide,DL2+slide_Hight ,DayCOLOR);

if(i+slide1== BarCount && (PDL3=="SHOW" OR SHALD=="all") && SHALD!="hide")
PlotText( "DAILY L3 =   "+DL3 ,i+slide,DL3+slide_Hight ,DayCOLOR);

if(i+slide1== BarCount && (PDL4=="SHOW" OR SHALD=="all") && SHALD!="hide")
PlotText( "DAILY L4 =   "+DL4 ,i+slide,DL4+slide_Hight ,DayCOLOR);

if(i+slide1== BarCount && (PDL5=="SHOW" OR SHALD=="all") && SHALD!="hide")
PlotText( "DAILY L5 =   "+DL5 ,i+slide,DL5+slide_Hight ,DayCOLOR);

 
 //WEEK
 if(i+slide2== BarCount && (PWH5=="SHOW" OR SHALW=="all") && SHALW!="hide")
PlotText( "WEEKLY H5 =   "+WH5 ,i+slide,WH5+slide_Hight ,WEEKCOLOR);

 if(i+slide2== BarCount && (PWH4=="SHOW" OR SHALW=="all") && SHALW!="hide")
PlotText( "WEEKLY H4 =   "+WH4 ,i+slide,WH4+slide_Hight ,WEEKCOLOR);

 if(i+slide2== BarCount && (PWH3=="SHOW" OR SHALW=="all") && SHALW!="hide")
PlotText( "WEEKLY H3 =   "+WH3 ,i+slide,WH3+slide_Hight ,WEEKCOLOR);

 if(i+slide2== BarCount && (PWH2=="SHOW" OR SHALW=="all") && SHALW!="hide")
PlotText( "WEEKLY H2 =   "+WH2 ,i+slide,WH2+slide_Hight ,WEEKCOLOR);

 if(i+slide2== BarCount && (PWH1=="SHOW" OR SHALW=="all") && SHALW!="hide")
PlotText( "WEEKLY H1 "+WH1 ,i+slide,WH1+slide_Hight ,WEEKCOLOR);

 if(i+slide2== BarCount && (PWMID=="SHOW" OR SHALW=="all") && SHALW!="hide")
PlotText( "WEEKLY MID =   "+WMID ,i+slide,WMID+slide_Hight ,WEEKCOLOR);

 if(i+slide2== BarCount && (PWL1=="SHOW" OR SHALW=="all") && SHALW!="hide")
PlotText( "WEEKLY L1 =   "+WL1 ,i+slide,WL1+slide_Hight ,WEEKCOLOR);

if(i+slide2== BarCount && (PWL2=="SHOW" OR SHALW=="all") && SHALW!="hide")
PlotText( "WEEKLY L2 "+WL2 ,i+slide,WL2+slide_Hight ,WEEKCOLOR);

if(i+slide2== BarCount && (PWL3=="SHOW" OR SHALW=="all") && SHALW!="hide")
PlotText( "WEEKLY L3 =   "+WL3 ,i+slide,WL3+slide_Hight ,WEEKCOLOR);

if(i+slide2== BarCount && (PWL4=="SHOW" OR SHALW=="all") && SHALW!="hide")
PlotText( "WEEKLY L4 =   "+WL4 ,i+slide,WL4+slide_Hight ,WEEKCOLOR);

if(i+slide2== BarCount && (PWL5=="SHOW" OR SHALW=="all") && SHALW!="hide")
PlotText( "WEEKLY L5 =   "+WL5 ,i+slide,WL5+slide_Hight ,WEEKCOLOR);

 // TWO WEEK
 if(i+slide3== BarCount && (PTWH5=="SHOW" OR SHALTW=="all") && SHALTW!="hide")
PlotText( "TWO WEEK H5 =   "+TWH5 ,i+slide,TWH5+slide_Hight ,TWOWEEKCOLOR);

 if(i+slide3== BarCount && (PTWH4=="SHOW" OR SHALTW=="all") && SHALTW!="hide")
PlotText( "TWO WEEK H4 =   "+TWH4 ,i+slide,TWH4+slide_Hight ,TWOWEEKCOLOR);

 if(i+slide3== BarCount && (PTWH3=="SHOW" OR SHALTW=="all") && SHALTW!="hide")
PlotText( "TWO WEEK H3 =   "+TWH3 ,i+slide,TWH3+slide_Hight ,TWOWEEKCOLOR);

 if(i+slide3== BarCount && (PTWH2=="SHOW" OR SHALTW=="all") && SHALTW!="hide")
PlotText( "TWO WEEK H2 =   "+TWH2 ,i+slide,TWH2+slide_Hight ,TWOWEEKCOLOR);

 if(i+slide3== BarCount && (PTWH1=="SHOW" OR SHALTW=="all") && SHALTW!="hide")
PlotText( "TWO WEEK H1 =   "+TWH1 ,i+slide,TWH1+slide_Hight ,TWOWEEKCOLOR);

 if(i+slide3== BarCount && (PTWMID=="SHOW" OR SHALTW=="all") && SHALTW!="hide")
PlotText( "TWO WEEK MID =   "+TWMID ,i+slide,TWMID+slide_Hight ,TWOWEEKCOLOR);

 if(i+slide3== BarCount && (PTWL1=="SHOW" OR SHALTW=="all") && SHALTW!="hide")
PlotText( "TWO WEEK L1 =   "+TWL1 ,i+slide,TWL1+slide_Hight ,TWOWEEKCOLOR);

if(i+slide3== BarCount && (PTWL2=="SHOW" OR SHALTW=="all") && SHALTW!="hide")
PlotText( "TWO WEEK L2 =   "+TWL2 ,i+slide,TWL2+slide_Hight ,TWOWEEKCOLOR);

if(i+slide3== BarCount && (PTWL3=="SHOW" OR SHALTW=="all") && SHALTW!="hide")
PlotText( "TWO WEEK L3 =   "+TWL3 ,i+slide,TWL3+slide_Hight ,TWOWEEKCOLOR);

if(i+slide3== BarCount && (PTWL4=="SHOW" OR SHALTW=="all") && SHALTW!="hide")
PlotText( "TWO WEEK L4 =   "+TWL4 ,i+slide,TWL4+slide_Hight ,TWOWEEKCOLOR);

if(i+slide3== BarCount && (PTWL5=="SHOW" OR SHALTW=="all") && SHALTW!="hide")
PlotText( "TWO WEEK L5 =   "+TWL5 ,i+slide,TWL5+slide_Hight ,TWOWEEKCOLOR);

// MONTHLY
 if(i+slide4== BarCount && (PMH5=="SHOW" OR SHALM=="all") && SHALM!="hide")
PlotText( "MONTHLY H5 =   "+MH5 ,i+slide,MH5+slide_Hight ,MONTHCOLOR);

 if(i+slide4== BarCount && (PMH4=="SHOW" OR SHALM=="all") && SHALM!="hide")
PlotText( "MONTHLY H4 =   "+MH4 ,i+slide,MH4+slide_Hight ,MONTHCOLOR);

 if(i+slide4== BarCount && (PMH3=="SHOW" OR SHALM=="all") && SHALM!="hide")
PlotText( "MONTHLY H3 =   "+MH3 ,i+slide,MH3+slide_Hight ,MONTHCOLOR);

 if(i+slide4== BarCount && (PMH2=="SHOW" OR SHALM=="all") && SHALM!="hide")
PlotText( "MONTHLY H2 =   "+MH2 ,i+slide,MH2+slide_Hight ,MONTHCOLOR);

 if(i+slide4== BarCount && (PMH1=="SHOW" OR SHALM=="all") && SHALM!="hide")
PlotText( "MONTHLY H1 =   "+MH1 ,i+slide,MH1+slide_Hight ,MONTHCOLOR);

 if(i+slide4== BarCount && (PMMID=="SHOW" OR SHALM=="all") && SHALM!="hide")
PlotText( "MONTHLY MID =   "+MMID ,i+slide,MMID+slide_Hight ,MONTHCOLOR);

 if(i+slide4== BarCount && (PML1=="SHOW" OR SHALM=="all") && SHALM!="hide")
PlotText( "MONTHLY L1 =   "+ML1 ,i+slide,ML1+slide_Hight ,MONTHCOLOR);

if(i+slide4== BarCount && (PML2=="SHOW" OR SHALM=="all") && SHALM!="hide")
PlotText( "MONTHLY L2 =   "+ML2 ,i+slide,ML2+slide_Hight ,MONTHCOLOR);

if(i+slide4== BarCount && (PML3=="SHOW" OR SHALM=="all") && SHALM!="hide")
PlotText( "MONTHLY L3 =   "+ML3 ,i+slide,ML3+slide_Hight ,MONTHCOLOR);

if(i+slide4== BarCount && (PML4=="SHOW" OR SHALM=="all") && SHALM!="hide")
PlotText( "MONTHLY L4 =   "+ML4 ,i+slide,ML4+slide_Hight ,MONTHCOLOR);

if(i+slide4== BarCount && (PML5=="SHOW" OR SHALM=="all") && SHALM!="hide")
PlotText( "MONTHLY L5 =   "+ML5 ,i+slide,ML5+slide_Hight ,MONTHCOLOR);


 // QUARTERLY
 if(i+slide5== BarCount && (PQH5=="SHOW" OR SHALQ=="all") && SHALQ!="hide")
PlotText( "QUARTERLY H5 =   "+QH5 ,i+slide,QH5+slide_Hight ,QUARTERCOLOR);

 if(i+slide5== BarCount && (PQH4=="SHOW" OR SHALQ=="all") && SHALQ!="hide")
PlotText( "QUARTERLY H4 =   "+QH4 ,i+slide,QH4+slide_Hight ,QUARTERCOLOR);

 if(i+slide5== BarCount && (PQH3=="SHOW" OR SHALQ=="all") && SHALQ!="hide")
PlotText( "QUARTERLY H3 "+QH3 ,i+slide,QH3+slide_Hight ,QUARTERCOLOR);

 if(i+slide5== BarCount && (PQH2=="SHOW" OR SHALQ=="all") && SHALQ!="hide")
PlotText( "QUARTERLY H2 =   "+QH2 ,i+slide,QH2+slide_Hight ,QUARTERCOLOR);

 if(i+slide5== BarCount && (PQH1=="SHOW" OR SHALQ=="all") && SHALQ!="hide")
PlotText( "QUARTERLY H1 =   "+QH1 ,i+slide,QH1+slide_Hight ,QUARTERCOLOR);

 if(i+slide5== BarCount && (PQMID=="SHOW" OR SHALQ=="all") && SHALQ!="hide")
PlotText( "QUARTERLY MID =   "+QMID ,i+slide,QMID+slide_Hight ,QUARTERCOLOR);

 if(i+slide5== BarCount && (PQL1=="SHOW" OR SHALQ=="all") && SHALQ!="hide")
PlotText( "QUARTERLY L1 =   "+QL1 ,i+slide,QL1+slide_Hight ,QUARTERCOLOR);

if(i+slide5== BarCount && (PQL2=="SHOW" OR SHALQ=="all") && SHALQ!="hide")
PlotText( "QUARTERLY L2 =   "+QL2 ,i+slide,QL2+slide_Hight ,QUARTERCOLOR);

if(i+slide5== BarCount && (PQL3=="SHOW" OR SHALQ=="all") && SHALQ!="hide")
PlotText( "QUARTERLY L3 =   "+QL3 ,i+slide,QL3+slide_Hight ,QUARTERCOLOR);

if(i+slide5== BarCount && (PQL4=="SHOW" OR SHALQ=="all") && SHALQ!="hide")
PlotText( "QUARTERLY L4 =   "+QL4 ,i+slide,QL4+slide_Hight ,QUARTERCOLOR);

if(i+slide5== BarCount && (PQL5=="SHOW" OR SHALQ=="all") && SHALQ!="hide")
PlotText( "QUARTERLY L5 =   "+QL5 ,i+slide,QL5+slide_Hight ,QUARTERCOLOR);

 // YAERLY
// YAERLY
 if(i+slide6== BarCount && (PYH5=="SHOW" OR SHALY=="all") && SHALY!="hide")
PlotText( "YAERLY H5 =   "+YH5 ,i+slide,YH5+slide_Hight ,YEARCOLOR);

 if(i+slide6== BarCount && (PYH4=="SHOW" OR SHALY=="all") && SHALY!="hide")
PlotText( "YAERLY H4 =   "+YH4 ,i+slide,YH4+slide_Hight ,YEARCOLOR);

 if(i+slide6== BarCount && (PYH3=="SHOW" OR SHALY=="all") && SHALY!="hide")
PlotText( "YAERLY H3  "+YH3 ,i+slide,YH3+slide_Hight ,YEARCOLOR);

 if(i+slide6== BarCount && (PYH2=="SHOW" OR SHALY=="all") && SHALY!="hide")
PlotText( "YAERLY H2 =   "+YH2 ,i+slide,YH2+slide_Hight ,YEARCOLOR);

 if(i+slide6== BarCount && (PYH1=="SHOW" OR SHALY=="all") && SHALY!="hide")
PlotText( "YAERLY H1 =   "+YH1 ,i+slide,YH1+slide_Hight ,YEARCOLOR);

 if(i+slide6== BarCount && (PYMID=="SHOW" OR SHALY=="all") && SHALY!="hide")
PlotText( "YAERLY MID =   "+YMID ,i+slide,YMID+slide_Hight ,YEARCOLOR);

 if(i+slide6== BarCount && (PYL1=="SHOW" OR SHALY=="all") && SHALY!="hide")
PlotText( "YAERLY L1 =   "+YL1 ,i+slide,YL1+slide_Hight ,YEARCOLOR);

if(i+slide6== BarCount && (PYL2=="SHOW" OR SHALY=="all") && SHALY!="hide")
PlotText( "YAERLY L2 =   "+YL2 ,i+slide,YL2+slide_Hight ,YEARCOLOR);

if(i+slide6== BarCount && (PYL3=="SHOW" OR SHALY=="all") && SHALY!="hide")
PlotText( "YAERLY L3 =   "+YL3 ,i+slide,YL3+slide_Hight ,YEARCOLOR);

if(i+slide6== BarCount && (PYL4=="SHOW" OR SHALY=="all") && SHALY!="hide")
PlotText( "YAERLY L4 =   "+YL4 ,i+slide,YL4+slide_Hight ,YEARCOLOR);

if(i+slide6== BarCount && (PYL5=="SHOW" OR SHALY=="all") && SHALY!="hide")
PlotText( "YAERLY L5 =   "+YL5 ,i+slide,YL5+slide_Hight ,YEARCOLOR);
}
/*--------------------------------------*/
// PLOTS


//day


if ((PDH5=="SHOW" OR SHALD=="all")  && SHALD!="hide") Plot (DH5,"daily H5",DayCOLOR,1);

if ((PDH4=="SHOW" OR SHALD=="all")  && SHALD!="hide") Plot (DH4,"daily H4",DayCOLOR,1);

if ((PDH3=="SHOW" OR SHALD=="all")  && SHALD!="hide") Plot (DH3,"daily H3",DayCOLOR,1);

if ((PDH2=="SHOW" OR SHALD=="all")  && SHALD!="hide") Plot (DH2,"daily H2",H2COLOR,32);

if ((PDH1=="SHOW" OR SHALD=="all")  && SHALD!="hide") Plot (DH1,"daily H1",DayCOLOR,1);

if ((PDMID=="SHOW" OR SHALD=="all")  && SHALD!="hide") Plot (DMID,"daily MID",DayCOLOR,1);

if ((PDL1=="SHOW" OR SHALD=="all")  && SHALD!="hide") Plot (DL1,"daily L1",DayCOLOR,1);

if ((PDL2=="SHOW" OR SHALD=="all")  && SHALD!="hide") Plot (DL2,"daily L2",L2COLOR,32);

if ((PDL3=="SHOW" OR SHALD=="all")  && SHALD!="hide") Plot (DL3,"daily L3",DayCOLOR,1);

if ((PDL4=="SHOW" OR SHALD=="all")  && SHALD!="hide") Plot (DL4,"daily L4",DayCOLOR,1);

if ((PDL5=="SHOW" OR SHALD=="all")  && SHALD!="hide") Plot (DL5,"daily L5",DayCOLOR,1);

//WEEK


if ((PWH5=="SHOW" OR SHALW=="all")  && SHALW!="hide") Plot (WH5,"WEEKLY H5",WEEKCOLOR,1);

if ((PWH4=="SHOW" OR SHALW=="all")  && SHALW!="hide") Plot (WH4,"WEEKLY H4",WEEKCOLOR,1);

if ((PWH3=="SHOW" OR SHALW=="all")  && SHALW!="hide") Plot (WH3,"WEEKLY H3",WEEKCOLOR,1);

if ((PWH2=="SHOW" OR SHALW=="all")  && SHALW!="hide") Plot (WH2,"WEEKLY H2",H2COLOR,32);

if ((PWH1=="SHOW" OR SHALW=="all")  && SHALW!="hide") Plot (WH1,"WEEKLY H1",WEEKCOLOR,1);

if ((PWMID=="SHOW" OR SHALW=="all")  && SHALW!="hide") Plot (WMID,"WEEKLY MID",WEEKCOLOR,1);

if ((PWL1=="SHOW" OR SHALW=="all")  && SHALW!="hide") Plot (WL1,"WEEKLY L1",WEEKCOLOR,1);

if ((PWL2=="SHOW" OR SHALW=="all")  && SHALW!="hide") Plot (WL2,"WEEKLY L2",L2COLOR,32);

if ((PWL3=="SHOW" OR SHALW=="all")  && SHALW!="hide") Plot (WL3,"WEEKLY L3",WEEKCOLOR,1);

if ((PWL4=="SHOW" OR SHALW=="all")  && SHALW!="hide") Plot (WL4,"WEEKLY L4",WEEKCOLOR,1);

if ((PWL5=="SHOW" OR SHALW=="all")  && SHALW!="hide") Plot (WL5,"WEEKLY L5",WEEKCOLOR,1);

//TWO WEEK

if ((PTWH5=="SHOW" OR SHALTW=="all")  && SHALTW!="hide") Plot (TWH5,"TWOWEEKLY H5",TWOWEEKCOLOR,1);

if ((PTWH4=="SHOW" OR SHALTW=="all")  && SHALTW!="hide") Plot (TWH4,"TWOWEEKLY H4",TWOWEEKCOLOR,1);

if ((PTWH3=="SHOW" OR SHALTW=="all")  && SHALTW!="hide") Plot (TWH3,"TWOWEEKLY H3",TWOWEEKCOLOR,1);

if ((PTWH2=="SHOW" OR SHALTW=="all")  && SHALTW!="hide") Plot (TWH2,"TWOWEEKLY H2",H2COLOR,32);

if ((PTWH1=="SHOW" OR SHALTW=="all")  && SHALTW!="hide") Plot (TWH1,"TWOWEEKLY H1",TWOWEEKCOLOR,1);

if ((PTWMID=="SHOW" OR SHALTW=="all")  && SHALTW!="hide") Plot (TWMID,"TWOWEEKLY MID",TWOWEEKCOLOR,1);

if ((PTWL1=="SHOW" OR SHALTW=="all")  && SHALTW!="hide") Plot (TWL1,"TWOWEEKLY L1",TWOWEEKCOLOR,1);

if ((PTWL2=="SHOW" OR SHALTW=="all")  && SHALTW!="hide") Plot (TWL2,"TWOWEEKLY L2",L2COLOR,32);

if ((PTWL3=="SHOW" OR SHALTW=="all")  && SHALTW!="hide") Plot (TWL3,"TWOWEEKLY L3",TWOWEEKCOLOR,1);

if ((PTWL4=="SHOW" OR SHALTW=="all")  && SHALTW!="hide") Plot (TWL4,"TWOWEEKLY L4",TWOWEEKCOLOR,1);

if ((PTWL5=="SHOW" OR SHALTW=="all")  && SHALTW!="hide") Plot (TWL5,"TWOWEEKLY L5",TWOWEEKCOLOR,1);

//MONTH


if ((PMH5=="SHOW" OR SHALM=="all")  && SHALM!="hide") Plot (MH5,"MONTHLY H5",MONTHCOLOR,1);

if ((PMH4=="SHOW" OR SHALM=="all")  && SHALM!="hide") Plot (MH4,"MONTHLY H4",MONTHCOLOR,1);

if ((PMH3=="SHOW" OR SHALM=="all")  && SHALM!="hide") Plot (MH3,"MONTHLY H3",MONTHCOLOR,1);

if ((PMH2=="SHOW" OR SHALM=="all")  && SHALM!="hide") Plot (MH2,"MONTHLY H2",H2COLOR,32);

if ((PMH1=="SHOW" OR SHALM=="all")  && SHALM!="hide") Plot (MH1,"MONTHLY H1",MONTHCOLOR,1);

if ((PMMID=="SHOW" OR SHALM=="all")  && SHALM!="hide") Plot (MMID,"MONTHLY MID",MONTHCOLOR,1);

if ((PML1=="SHOW" OR SHALM=="all")  && SHALM!="hide") Plot (ML1,"MONTHLY L1",MONTHCOLOR,1);

if ((PML2=="SHOW" OR SHALM=="all")  && SHALM!="hide") Plot (ML2,"MONTHLY L2",L2COLOR,32);

if ((PML3=="SHOW" OR SHALM=="all")  && SHALM!="hide") Plot (ML3,"MONTHLY L3",MONTHCOLOR,1);

if ((PML4=="SHOW" OR SHALM=="all")  && SHALM!="hide") Plot (ML4,"MONTHLY L4",MONTHCOLOR,1);

if ((PML5=="SHOW" OR SHALM=="all")  && SHALM!="hide") Plot (ML5,"MONTHLY L5",MONTHCOLOR,1);


//QUARTER


if ((PQH5=="SHOW" OR SHALQ=="all")  && SHALQ!="hide") Plot (QH5,"QUARTERLY H5",QUARTERCOLOR,1);

if ((PQH4=="SHOW" OR SHALQ=="all")  && SHALQ!="hide") Plot (QH4,"QUARTERLY H4",QUARTERCOLOR,1);

if ((PQH3=="SHOW" OR SHALQ=="all")  && SHALQ!="hide") Plot (QH3,"QUARTERLY H3",QUARTERCOLOR,1);

if ((PQH2=="SHOW" OR SHALQ=="all")  && SHALQ!="hide") Plot (QH2,"QUARTERLY H2",H2COLOR,32);

if ((PQH1=="SHOW" OR SHALQ=="all")  && SHALQ!="hide") Plot (QH1,"QUARTERLY H1",QUARTERCOLOR,1);

if ((PQMID=="SHOW" OR SHALQ=="all")  && SHALQ!="hide") Plot (QMID,"QUARTERLY MID",QUARTERCOLOR,1);

if ((PQL1=="SHOW" OR SHALQ=="all")  && SHALQ!="hide") Plot (QL1,"QUARTERLY L1",QUARTERCOLOR,1);

if ((PQL2=="SHOW" OR SHALQ=="all")  && SHALQ!="hide") Plot (QL2,"QUARTERLY L2",L2COLOR,32);

if ((PQL3=="SHOW" OR SHALQ=="all")  && SHALQ!="hide") Plot (QL3,"QUARTERLY L3",QUARTERCOLOR,1);

if ((PQL4=="SHOW" OR SHALQ=="all")  && SHALQ!="hide") Plot (QL4,"QUARTERLY L4",QUARTERCOLOR,1);

if ((PQL5=="SHOW" OR SHALQ=="all")  && SHALQ!="hide") Plot (QL5,"QUARTERLY L5",QUARTERCOLOR,1);


//YEAR


if ((PYH5=="SHOW" OR SHALY=="all")  && SHALY!="hide") Plot (YH5,"YEARLY H5",YEARCOLOR,1);

if ((PYH4=="SHOW" OR SHALY=="all")  && SHALY!="hide") Plot (YH4,"YEARLY H4",YEARCOLOR,1);

if ((PYH3=="SHOW" OR SHALY=="all")  && SHALY!="hide") Plot (YH3,"YEARLY H3",YEARCOLOR,1);

if ((PYH2=="SHOW" OR SHALY=="all")  && SHALY!="hide") Plot (YH2,"YEARLY H2",H2COLOR,32);

if ((PYH1=="SHOW" OR SHALY=="all")  && SHALY!="hide") Plot (YH1,"YEARLY H1",YEARCOLOR,1);

if ((PYMID=="SHOW" OR SHALY=="all")  && SHALY!="hide") Plot (YMID,"YEARLY MID",YEARCOLOR,1);

if ((PYL1=="SHOW" OR SHALY=="all")  && SHALY!="hide") Plot (YL1,"YEARLY L1",YEARCOLOR,1);

if ((PYL2=="SHOW" OR SHALY=="all")  && SHALY!="hide") Plot (YL2,"YEARLY L2",L2COLOR,32);

if ((PYL3=="SHOW" OR SHALY=="all")  && SHALY!="hide") Plot (YL3,"YEARLY L3",YEARCOLOR,1);

if ((PYL4=="SHOW" OR SHALY=="all")  && SHALY!="hide") Plot (YL4,"YEARLY L4",YEARCOLOR,1);

if ((PYL5=="SHOW" OR SHALY=="all")  && SHALY!="hide") Plot (YL5,"YEARLY L5",YEARCOLOR,1);

/*--------------------------------------*/
// TEXT
"high  = "+H;
"low   =  "+L;
"close = "+C;


GfxSetOverlayMode(1);
GfxSelectFont("Tahoma", Status("pxheight")/8 );
GfxSetTextAlign( 6 );// center alignment
GfxSetTextColor( ColorHSB( 42, 42, 42 ) );
GfxSetBkMode(1); // transparent
GfxTextOut( Name(), Status("pxwidth")/2, Status("pxheight")/12 );

C11=ParamColor("up panel",colorBlack );
C12=ParamColor("dn panel",colorBlack );
C13=Param("fonts",100,10,30,1 );
C14=Param("left-right",1.2,1.0,5.0,0.1 );
C15=Param("up-down",9,1,30,1 );
Miny = Status("axisminy");
Maxy = Status("axismaxy");
lvb = Status("lastvisiblebar");
fvb = Status("firstvisiblebar");
pxwidth = Status("pxwidth");
pxheight = Status("pxheight");
GfxSetBkMode( 0 ); 
GfxSelectFont("Tahoma", 12, 500, False, False, 0);
GfxSetTextColor(colorCustom12); 
GfxSetTextAlign( 6 );
GfxSelectFont("Tahoma", 40, 600, False, False, 0);
GfxSetTextColor(colorWhite); 
GfxSetTextAlign( 6 );
GfxTextOut( "LTP: "+WriteVal(C,1.2), Status("pxwidth")/C14, Status("pxheight")/C15);
GfxSelectFont("Tahoma", 12, 400, False, False, 0);
GfxSetTextColor(colorBrightGreen);
GfxSelectFont("Tahoma", 12, 400, False, False, 0);
GfxSetTextColor(colorRed);
GfxSelectFont("Tahoma", 12, 400, False, False, 0);
GfxSetTextColor(colorYellow);
GfxSelectFont("Tahoma", 12, 400, False, False, 0);
GfxSetTextColor(colorGreen);
GfxSelectFont("Tahoma", 12, 400, False, False, 0);
GfxSetTextColor(colorGreen);


pricechange=(C-Ref(C,-1))*100/Ref(C,-1);
changeponit=C-Ref(C,-1);
Vlp=Param("Volume lookback period",5,10,15,300,10);
Vrg=MA(V,Vlp);
St = StDev(Vrg,Vlp); 
VOC = Ref(HHV(Volume,10),-1);
Vp3 = Vrg + 3*st; 

x=Param("xposn",1,0,1000,1);
y=Param("yposn",1,0,1000,1);

GfxGradientRect( 1, 1, 1400, 40, colorGrey50, colorDarkGrey);
GfxSetBkMode(0);
GfxSelectFont( "Georgia", 18, 800, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "ALL PIVOT POINT EOD", x+600, y+10 );
GfxSelectFont( "Tahoma", 16, 800, False );
GfxSetTextColor( colorGold );
GfxTextOut( Name(), x+100, y+10 );
GfxSelectFont( "Century Gothic", 15, 100, False );
GfxSetTextColor( colorWhite );
GfxTextOut( Date(), x+1000, y+10 );
GfxSelectFont( "Comic Sans MS", 15, 500, False );
GfxSetTextColor( colorYellow );
GfxTextOut( Interval(2), x+275, y+10 );
//------------------------------------------------------------ H, L, O, C----------------------
GfxGradientRect( 1, 40, 1400, 55, colorGrey50, colorDarkGrey );
GfxSetBkMode(0);
GfxSelectFont( "Areal", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "High:"+WriteVal(H,1.2), x+100, y+40 );
GfxSelectFont( "Areal", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "Low:"+WriteVal(L,1.2), x+200, y+40 );
GfxSelectFont( "Areal", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "Open:"+WriteVal(O,1.2), x+300, y+40 );
GfxSelectFont( "Areal", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "Close:"+WriteVal(C,1.2), x+400, y+40 );
//-----------------------------------------------------------VOlume-------------------------------
GfxSelectFont( "Tahoma", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "Volume="+WriteVal(V,1.2), x+550, y+40 );
GfxSelectFont( "Tahoma", 9, 200, False );
GfxSetTextColor( colorLime );
GfxTextOut( WriteIf(V>Vp3,"VOLUME CONFIRMATION",""), x+1000, y+40 );
GfxSelectFont( "Tahoma", 9, 200, False );
GfxSetTextColor( colorLime );
GfxTextOut( "VOC="+WriteVal(VOC,1.2), x+800, y+40 );


_SECTION_END();

0 comments

Leave Comment

Please login here to leave a comment.

Back