//+------------------------------------------------------------------+
//| Camarilla Pivots.mq4 |
//| modified from Pivots.mq4 found on MT yahoo group by forex2stay |
//| |
//+------------------------------------------------------------------+
#property copyright "forex2stay"
#property link " "
//----
#property indicator_chart_window
#property indicator_buffers 1
#property indicator_color1 EMPTY
//----
extern bool camarilla=true;
extern int gmt_offset=7;
//----
double day_high=0;
double day_low=0;
double yesterday_high=0;
double yesterday_open=0;
double yesterday_low=0;
double yesterday_close=0;
double today_open=0;
double today_high=0;
double today_low=0;
double P=0;
double wP=0;
double Q=0;
double CH4,CH3,CH2,CH1,CL4,CL3,CL2,CL1;
double nQ=0;
double nD=0;
double D=0;
double rates_h1[2][6];
double ExtMapBuffer1[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
IndicatorBuffers(4);
SetIndexStyle(0,DRAW_ARROW);
SetIndexArrow(0,159);
SetIndexBuffer(0, ExtMapBuffer1);
//---- indicators
CH4=0; CH3=0; CH2=0; CH1=0; CL4=0; CL3=0; CL2=0; CL1=0;
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//---- TODO: add your code here
ObjectDelete("CH4 Label");
ObjectDelete("CH4 Line");
ObjectDelete("CH3 Label");
ObjectDelete("CH3 Line");
ObjectDelete("CH2 Label");
ObjectDelete("CH2 Line");
ObjectDelete("CH1 Label");
ObjectDelete("CH1 Line");
ObjectDelete("CL1 Label");
ObjectDelete("CL2 Line");
ObjectDelete("CL3 Label");
ObjectDelete("CL3 Line");
ObjectDelete("CL4 Label");
ObjectDelete("CL4 Line");
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
//---- TODO: add your code here
//---- exit if period is greater than daily charts
if(Period() > 1440)
{
Print("Error - Chart period is greater than 1 day.");
return(-1); // then exit
}
//---- Get new daily prices
ArrayCopyRates(rates_h1, Symbol(), PERIOD_H1);
for(int i=0;i < 24;i++)
{
if((TimeHour(rates_h1[i][0]) - gmt_offset)==0)
{
yesterday_open=rates_h1[i+24][1];
yesterday_close=rates_h1[i][1];
today_open=rates_h1[i][1];
yesterday_high=rates_h1[i+1][3];
yesterday_low=rates_h1[i+1][2];
for(int j=0;j < 24;j++)
{
if(rates_h1[i+j][3] > yesterday_high) yesterday_high=rates_h1[i+j][3];
if(rates_h1[i+j][2] < yesterday_low) yesterday_low=rates_h1[i+j][2];
}
day_high=rates_h1[i][3];
day_low=rates_h1[i][2];
while(i>=0)
{
if(rates_h1[i][3] > day_high) day_high=rates_h1[i][3];
if(rates_h1[i][2] < day_low) day_low=rates_h1[i][2];
i--;
}
break;
}
}
//---- Calculate Pivots
CH4=(((yesterday_high-yesterday_low)* 1.1)/2)+ yesterday_close;
CH3=(((yesterday_high-yesterday_low)* 1.1)/4)+ yesterday_close;
CH2=(((yesterday_high-yesterday_low)* 1.1)/6)+ yesterday_close;
CH1=(((yesterday_high-yesterday_low)* 1.1)/12)+ yesterday_close;
CL1=yesterday_close-(((yesterday_high-yesterday_low) * 1.1)/12);
CL2=yesterday_close-(((yesterday_high-yesterday_low) * 1.1)/6);
CL3=yesterday_close-(((yesterday_high-yesterday_low)* 1.1)/4);
CL4=yesterday_close-(((yesterday_high-yesterday_low) * 1.1)/2);
if (Q > 5)
{
nQ=Q;
}
else
{
nQ=Q*10000;
}
if (D > 5)
{
nD=D;
}
else
{
nD=D*10000;
}
Comment("High= ",yesterday_high," Previous Days Range= ",nQ,"\nLow= ",yesterday_low," Current Days Range= ",nD,"\nClose= ",yesterday_close);
//Comment("High= ",yesterday_high," Previous Days Range= ",nQ,"\nLow= ",yesterday_low,"\nClose= ",yesterday_close);
//Comment("High= "+yesterday_high+" Low= "+yesterday_low+" Open= "+today_open);
//---- Set line labels on chart window
//----- Camarilla Lines
if (camarilla==true)
{
if(ObjectFind("CH4label")!=0)
{
ObjectCreate("CH4label", OBJ_TEXT, 0, Time[20], CH4);
ObjectSetText("CH4label", " H4", 8, "Arial", EMPTY);
}
else
{
ObjectMove("CH4label", 0, Time[20], CH4);
}
if(ObjectFind("CH3 label")!=0)
{
ObjectCreate("CH3 label", OBJ_TEXT, 0, Time[20], CH3);
ObjectSetText("CH3 label", " H3", 8, "Arial", DarkGray);
}
else
{
ObjectMove("CH3 label", 0, Time[20], CH3);
}
if(ObjectFind("CH2 label")!=0){
ObjectCreate("CH2 label", OBJ_TEXT, 0, Time[20], CH2);
ObjectSetText("CH2 label", " H2", 8, "Arial", DarkGray);
}
else
{
ObjectMove("CH2 label", 0, Time[20], CH2);
}
if(ObjectFind("CH1 label")!=0)
{
ObjectCreate("CH1 label", OBJ_TEXT, 0, Time[20], CH1);
ObjectSetText("CH1 label", " H1", 8, "Arial", DarkGray);
}
else
{
ObjectMove("CH1 label", 0, Time[20], CH1);
}
if(ObjectFind("CL1 label")!=0)
{
ObjectCreate("CL1 label", OBJ_TEXT, 0, Time[20], CL1);
ObjectSetText("CL1 label", " L1", 8, "Arial", DarkGray);
}
else
{
ObjectMove("CL1 label", 0, Time[20], CL1);
}
if(ObjectFind("CL2 label")!=0)
{
ObjectCreate("CL2 label", OBJ_TEXT, 0, Time[20], CL2);
ObjectSetText("CL2 label", " L2", 8, "Arial", DarkGray);
}
else
{
ObjectMove("CL2 label", 0, Time[20], CL2);
}
if(ObjectFind("L3 label")!=0)
{
ObjectCreate("L3 label", OBJ_TEXT, 0, Time[20], CL3);
ObjectSetText("L3 label", " L3", 8, "Arial", DarkGray);
}
else
{
ObjectMove("L3 label", 0, Time[20], CL3);
}
if(ObjectFind("L4 label")!=0)
{
ObjectCreate("L4 label", OBJ_TEXT, 0, Time[20], CL4);
ObjectSetText("L4 label", " L4", 8, "Arial", DarkGray);
}
else
{
ObjectMove("L4 label", 0, Time[20], CL4);
}
//---- Draw Camarilla lines on Chart
if(ObjectFind("CH4 line")!=0)
{
ObjectCreate("CH4 line", OBJ_HLINE, 0, Time[40], CH4);
ObjectSet("CH4 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("CH4 line", OBJPROP_COLOR, Navy);
}
else
{
ObjectMove("CH4 line", 0, Time[40], CH4);
}
if(ObjectFind("CH3 line")!=0)
{
ObjectCreate("CH3 line", OBJ_HLINE, 0, Time[40], CH3);
ObjectSet("CH3 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("CH3 line", OBJPROP_COLOR, Navy);
}
else
{
ObjectMove("CH3 line", 0, Time[40], CH3);
}
if(ObjectFind("CH2 line")!=0)
{
ObjectCreate("CH2 line", OBJ_HLINE, 0, Time[40], CH2);
ObjectSet("CH2 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("CH2 line", OBJPROP_COLOR, FireBrick);
}
else
{
ObjectMove("CH2 line", 0, Time[40], CH2);
}
if(ObjectFind("CH1 line")!=0)
{
ObjectCreate("CH1 line", OBJ_HLINE, 0, Time[40], CH1);
ObjectSet("CH1 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("CH1 line", OBJPROP_COLOR, FireBrick);
}
else
{
ObjectMove("CH1 line", 0, Time[40], CH1);
}
if(ObjectFind("CL1 line")!=0)
{
ObjectCreate("CL1 line", OBJ_HLINE, 0, Time[40], CL1);
ObjectSet("CL1 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("CL1 line", OBJPROP_COLOR, FireBrick);
}
else
{
ObjectMove("CL1 line", 0, Time[40], CL1);
}
if(ObjectFind("CL2 line")!=0)
{
ObjectCreate("CL2 line", OBJ_HLINE, 0, Time[40], CL2);
ObjectSet("CL2 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("CL2 line", OBJPROP_COLOR, FireBrick);
}
else
{
ObjectMove("CL3 line", 0, Time[40], CL2);
}
if(ObjectFind("CL3 line")!=0)
{
ObjectCreate("CL3 line", OBJ_HLINE, 0, Time[40], CL3);
ObjectSet("CL3 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("CL3 line", OBJPROP_COLOR, Navy);
}
else
{
ObjectMove("CL3 line", 0, Time[40], CL3);
}
if(ObjectFind("CL4 line")!=0)
{
ObjectCreate("CL4 line", OBJ_HLINE, 0, Time[40], CL4);
ObjectSet("CL4 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("CL4 line", OBJPROP_COLOR, Navy);
}
else
{
ObjectMove("CL4 line", 0, Time[40], CL4);
}
}
//-------End of Draw Camarilla Lines
//---- End Of Program
return(0);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Indicator Curves created:
Implements a curve of type DRAW_ARROW
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Other Features: