//+------------------------------------------------------------------+
//| camarilladt8.mq4 |
//| Copyright © 2005, MetaQuotes Software Corp. |
//| http://www.metaquotes.net |
//| Fixed Sunday/Monday problem |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, MetaQuotes Software Corp."
#property link "http://www.metaquotes.net"
#property indicator_chart_window
//---- input parameters
extern bool Alerts = false;
extern int GMTshift = 0;
extern int LabelShift = 20;
extern int LineShift = 40;
extern bool Pivot = true;
extern color PivotColor = Yellow;
extern color PivotFontColor = White;
extern int PivotFontSize = 8;
extern int PivotWidth = 1;
extern int PipDistance = 20;
extern bool Cams = false;
extern color CamFontColor = White;
extern int CamFontSize = 10;
extern bool Fibs = false;
extern color FibColor = GreenYellow;
extern color FibFontColor = White;
extern int FibFontSize = 8;
extern bool StandardPivots = true;
extern color StandardFontColor = White;
extern int StandardFontSize = 8;
extern color SupportColor = White;
extern color ResistanceColor = FireBrick;
extern bool MidPivots = false;
extern color MidPivotColor = White;
extern int MidFontSize = 8;
datetime LabelShiftTime, LineShiftTime;
double P, H3, H4, H5;
double L3, L4, L5;
double LastHigh,LastLow,x;
double day_high;
double day_low;
double yesterday_open;
double today_open;
double cur_day;
double prev_day;
bool firstL3=true;
bool firstH3=true;
double D1=0.091667;
double D2=0.183333;
double D3=0.2750;
double D4=0.55;
// Fib variables
double yesterday_high=0;
double yesterday_low=0;
double yesterday_close=0;
double r1=0;
double r2=0;
double r3=0;
double r4=0;
double r5=0;
double r6=0;
double r7=0;
double p=0;
double s1=0;
double s2=0;
double s3=0;
double s4=0;
double s5=0;
double s6=0;
double s7=0;
double R;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- indicators
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//---- TODO: add your code here
if (Fibs)
{
ObjectDelete("FibR1 Label");
ObjectDelete("FibR1 Line");
ObjectDelete("FibR2 Label");
ObjectDelete("FibR2 Line");
ObjectDelete("FibR3 Label");
ObjectDelete("FibR3 Line");
ObjectDelete("FibR4 Label");
ObjectDelete("FibR4 Line");
ObjectDelete("FibR5 Label");
ObjectDelete("FibR5 Line");
ObjectDelete("FibR6 Label");
ObjectDelete("FibR6 Line");
ObjectDelete("FibR7 Label");
ObjectDelete("FibR7 Line");
ObjectDelete("FibS1 Label");
ObjectDelete("FibS1 Line");
ObjectDelete("FibS2 Label");
ObjectDelete("FibS2 Line");
ObjectDelete("FibS3 Label");
ObjectDelete("FibS3 Line");
ObjectDelete("FibS4 Label");
ObjectDelete("FibS4 Line");
ObjectDelete("FibS5 Label");
ObjectDelete("FibS5 Line");
ObjectDelete("FibS6 Label");
ObjectDelete("FibS6 Line");
ObjectDelete("FibS7 Label");
ObjectDelete("FibS7 Line");
}
if (Pivot)
{
ObjectDelete("P Label");
ObjectDelete("P Line");
}
if (Cams)
{
ObjectDelete("H5 Label");
ObjectDelete("H5 Line");
ObjectDelete("H4 Label");
ObjectDelete("H4 Line");
ObjectDelete("H3 Label");
ObjectDelete("H3 Line");
ObjectDelete("L3 Label");
ObjectDelete("L3 Line");
ObjectDelete("L4 Label");
ObjectDelete("L4 Line");
ObjectDelete("L5 Label");
ObjectDelete("L5 Line");
}
//----
if (StandardPivots)
{
ObjectDelete("R1 Label");
ObjectDelete("R1 Line");
ObjectDelete("R2 Label");
ObjectDelete("R2 Line");
ObjectDelete("R3 Label");
ObjectDelete("R3 Line");
ObjectDelete("S1 Label");
ObjectDelete("S1 Line");
ObjectDelete("S2 Label");
ObjectDelete("S2 Line");
ObjectDelete("S3 Label");
ObjectDelete("S3 Line");
}
if (MidPivots)
{
ObjectDelete("M5 Label");
ObjectDelete("M5 Line");
ObjectDelete("M4 Label");
ObjectDelete("M4 Line");
ObjectDelete("M3 Label");
ObjectDelete("M3 Line");
ObjectDelete("M2 Label");
ObjectDelete("M2 Line");
ObjectDelete("M1 Label");
ObjectDelete("M1 Line");
ObjectDelete("M0 Label");
ObjectDelete("M0 Line");
}
Comment ("");
return(0);
}
int DoAlerts()
{
double DifAboveL3,PipsLimit;
double DifBelowH3;
DifBelowH3 = H3 - Close[0];
DifAboveL3 = Close[0] - L3;
PipsLimit = PipDistance*Point;
if (DifBelowH3 > PipsLimit) firstH3 = true;
if (DifBelowH3 <= PipsLimit && DifBelowH3 > 0)
{
if (firstH3)
{
Alert("Below Cam H3 Line by ",DifBelowH3, " for ", Symbol(),"-",Period());
PlaySound("alert.wav");
firstH3=false;
}
}
if (DifAboveL3 > PipsLimit) firstL3 = true;
if (DifAboveL3 <= PipsLimit && DifAboveL3 > 0)
{
if (firstL3)
{
Alert("Above Cam L3 Line by ",DifAboveL3," for ", Symbol(),"-",Period());
Sleep(2000);
PlaySound("timeout.wav");
firstL3=false;
}
}
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int counted_bars=IndicatorCounted();
//---- TODO: add your code here
double Q=0,S=0,R=0,M2=0,M3=0,S1=0,R1=0,M1=0,M4=0,S2=0,R2=0,M0=0,M5=0,S3=0,R3=0,nQ=0,nD=0,D=0;
int cnt=720;
//---- 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 & calculate pivots
day_high=0;
day_low=0;
yesterday_open=0;
today_open=0;
cur_day=0;
prev_day=0;
while (cnt!= 0)
{
if (TimeDayOfWeek(Time[cnt]) == 0)
{
cur_day = prev_day;
}
else
{
cur_day = TimeDay(Time[cnt]- (GMTshift*3600));
}
if (prev_day != cur_day)
{
yesterday_close = Close[cnt+1];
today_open = Open[cnt];
yesterday_high = day_high;
yesterday_low = day_low;
day_high = High[cnt];
day_low = Low[cnt];
prev_day = cur_day;
}
if (High[cnt]>day_high)
{
day_high = High[cnt];
}
if (Low[cnt]<day_low)
{
day_low = Low[cnt];
}
cnt--;
}
D = (day_high - day_low);
Q = (yesterday_high - yesterday_low);
//------ Pivot Points ------
P = (yesterday_high + yesterday_low + yesterday_close)/3;//Pivot
if (Cams)
{
//---- To display all 8 Camarilla pivots remove comment symbols below and
// add the appropriate object functions below
H5 = (yesterday_high/yesterday_low)*yesterday_close;
H4 = ((yesterday_high - yesterday_low)* D4) + yesterday_close;
H3 = ((yesterday_high - yesterday_low)* D3) + yesterday_close;
//H2 = ((yesterday_high - yesterday_low) * D2) + yesterday_close;
//H1 = ((yesterday_high - yesterday_low) * D1) + yesterday_close;
//L1 = yesterday_close - ((yesterday_high - yesterday_low)*(D1));
//L2 = yesterday_close - ((yesterday_high - yesterday_low)*(D2));
L3 = yesterday_close - ((yesterday_high - yesterday_low)*(D3));
L4 = yesterday_close - ((yesterday_high - yesterday_low)*(D4));
L5 = yesterday_close - (H5 - yesterday_close);
}
if (Fibs)
{
// R = yesterday_high - yesterday_low;//range
// p = (yesterday_high + yesterday_low + yesterday_close)/3;// Standard Pivot
r1 = P + (Q * 0.236);
r2 = P + (Q * 0.382);
r3 = P + (Q * 0.50);
r4 = P + (Q * 0.618);
r5 = P + (Q * 0.99);
r6 = P + (Q * 1.382);
r7 = P + (Q * 1.618);
s1 = P - (Q * 0.236);
s2 = P - (Q * 0.382);
s3 = P - (Q * 0.50);
s4 = P - (Q * 0.618);
s5 = P - (Q * 0.99);
s6 = P - (Q * 1.382);
s7 = P - (Q * 1.618);
}
if (StandardPivots)
{
R1 = (2*P)-yesterday_low;
S1 = (2*P)-yesterday_high;
R2 = P-S1+R1;
S2 = P-R1+S1;
R3 = (2*P)+(yesterday_high-(2*yesterday_low));
S3 = (2*P)-((2* yesterday_high)-yesterday_low);
}
if (MidPivots && StandardPivots)
{
M0 = (S2+S3)/2;
M1 = (S1+S2)/2;
M2 = (P+S1)/2;
M3 = (P+R1)/2;
M4 = (R1+R2)/2;
M5 = (R2+R3)/2;
}
//comment on OHLC and daily range
if (Q > 5)
{
nQ = Q;
}
else
{
nQ = Q*10000;
}
if (D > 5)
{
nD = D;
}
else
{
nD = D*10000;
}
if (StringSubstr(Symbol(),3,3)=="JPY")
{
nQ=nQ/100;
nD=nD/100;
}
Comment("High= ",yesterday_high," Previous Days Range= ",nQ,"\nLow= ",yesterday_low," Current Days Range= ",nD,"\nClose= ",yesterday_close);
LabelShiftTime = Time[LabelShift];
LineShiftTime = Time[LineShift];
if (Pivot)
{
DisplayLabel("P label", "Pivot", P, PivotFontSize, PivotFontColor);
DisplayLine("P line", P, 0, STYLE_DASH, PivotColor);
}
if (StandardPivots)
{
DisplayLabel("R1 label", "R1", R1, StandardFontSize, StandardFontColor);
DisplayLabel("R2 label", "R2", R2, StandardFontSize, StandardFontColor);
DisplayLabel("R3 label", "R3", R3, StandardFontSize, StandardFontColor);
DisplayLabel("S1 label", "S1", S1, StandardFontSize, StandardFontColor);
DisplayLabel("S2 label", "S2", S2, StandardFontSize, StandardFontColor);
DisplayLabel("S3 label", "S3", S3, StandardFontSize, StandardFontColor);
DisplayLine("S1 line", S1, 0, STYLE_DASHDOTDOT, SupportColor);
DisplayLine("S2 line", S2, 0, STYLE_DASHDOTDOT, SupportColor);
DisplayLine("S3 line", S3, 0, STYLE_DASHDOTDOT, SupportColor);
DisplayLine("R1 line", R1, 0, STYLE_DASHDOTDOT, ResistanceColor);
DisplayLine("R2 line", R2, 0, STYLE_DASHDOTDOT, ResistanceColor);
DisplayLine("R3 line", R3, 0, STYLE_DASHDOTDOT, ResistanceColor);
}
if (MidPivots)
{
DisplayLabel("M5 label", " M5", M5, MidFontSize, MidPivotColor);
DisplayLabel("M4 label", " M4", M4, MidFontSize, MidPivotColor);
DisplayLabel("M3 label", " M3", M3, MidFontSize, MidPivotColor);
DisplayLabel("M2 label", " M2", M2, MidFontSize, MidPivotColor);
DisplayLabel("M1 label", " M1", M1, MidFontSize, MidPivotColor);
DisplayLabel("M0 label", " M0", M0, MidFontSize, MidPivotColor);
DisplayLine("M5 line", M5, 0, STYLE_DASHDOTDOT, MidPivotColor);
DisplayLine("M4 line", M4, 0, STYLE_DASHDOTDOT, MidPivotColor);
DisplayLine("M3 line", M3, 0, STYLE_DASHDOTDOT, MidPivotColor);
DisplayLine("M2 line", M2, 0, STYLE_DASHDOTDOT, MidPivotColor);
DisplayLine("M1 line", M1, 0, STYLE_DASHDOTDOT, MidPivotColor);
DisplayLine("M0 line", M0, 0, STYLE_DASHDOTDOT, MidPivotColor);
}
if (Fibs)
{
DisplayLabel("FibR1 label", "Fib R1 23.6", r1, FibFontSize, FibFontColor);
DisplayLabel("FibR2 label", "Fib R2 38.2", r2, FibFontSize, FibFontColor);
DisplayLabel("FibR3 label", "Fib R3 50", r3, FibFontSize, FibFontColor);
DisplayLabel("FibR4 label", "Fib R4 61.8", r4, FibFontSize, FibFontColor);
DisplayLabel("FibR5 label", "Fib R5 100", r5, FibFontSize, FibFontColor);
DisplayLabel("FibR6 label", "Fib R6 138.2", r6, FibFontSize, FibFontColor);
DisplayLabel("FibR7 label", "Fib R7 161.8", r7, FibFontSize, FibFontColor);
DisplayLabel("FibS1 label", "Fib S1 23.6", s1, FibFontSize, FibFontColor);
DisplayLabel("FibS2 label", "Fib S2 38.2", s2, FibFontSize, FibFontColor);
DisplayLabel("FibS3 label", "Fib S3 50", s3, FibFontSize, FibFontColor);
DisplayLabel("FibS4 label", "Fib S4 61.8", s4, FibFontSize, FibFontColor);
DisplayLabel("FibS5 label", "Fib S5 100", s5, FibFontSize, FibFontColor);
DisplayLabel("FibS6 label", "Fib S6 138.2", s6, FibFontSize, FibFontColor);
DisplayLabel("FibS7 label", "Fib S7 161.8", s7, FibFontSize, FibFontColor);
DisplayLine("FibR1 line", r1, 0, STYLE_DASHDOTDOT, FibColor);
DisplayLine("FibR2 line", r2, 0, STYLE_DASHDOTDOT, FibColor);
DisplayLine("FibR3 line", r3, 0, STYLE_DASHDOTDOT, FibColor);
DisplayLine("FibR4 line", r4, 0, STYLE_DASHDOTDOT, FibColor);
DisplayLine("FibR5 line", r5, 0, STYLE_DASHDOTDOT, FibColor);
DisplayLine("FibR6 line", r6, 0, STYLE_DASHDOTDOT, FibColor);
DisplayLine("FibR7 line", r7, 0, STYLE_DASHDOTDOT, FibColor);
DisplayLine("FibS1 line", s1, 0, STYLE_DASHDOTDOT, FibColor);
DisplayLine("FibS2 line", s2, 0, STYLE_DASHDOTDOT, FibColor);
DisplayLine("FibS3 line", s3, 0, STYLE_DASHDOTDOT, FibColor);
DisplayLine("FibS4 line", s4, 0, STYLE_DASHDOTDOT, FibColor);
DisplayLine("FibS5 line", s5, 0, STYLE_DASHDOTDOT, FibColor);
DisplayLine("FibS6 line", s6, 0, STYLE_DASHDOTDOT, FibColor);
DisplayLine("FibS7 line", s7, 0, STYLE_DASHDOTDOT, FibColor);
}
if (Cams)
{
// --- THE CAMARILLA ---
DisplayLabel("H5 label", " H5 LB TARGET", H5, CamFontSize, CamFontColor);
DisplayLabel("H4 label", " H4 LONG BREAKOUT", H4, CamFontSize, CamFontColor);
DisplayLabel("H3 label", " H3 SHORT", H3, CamFontSize, CamFontColor);
DisplayLabel("L3 label", " L3 LONG", L3, CamFontSize, CamFontColor);
DisplayLabel("L4 label", " L4 SHORT BREAKOUT", L4, CamFontSize, CamFontColor);
DisplayLabel("L5 label", " L5 SB TARGET", L5, CamFontSize, CamFontColor);
DisplayLine("H5 line", H5, 1, STYLE_SOLID, SpringGreen);
DisplayLine("H4 line", H4, 1, STYLE_SOLID, SpringGreen);
DisplayLine("H3 line", H3, 2, STYLE_SOLID, SpringGreen);
DisplayLine("L5 line", L5, 1, STYLE_SOLID, Red);
DisplayLine("L4 line", L4, 1, STYLE_SOLID, Red);
DisplayLine("L3 line", L3, 2, STYLE_SOLID, Red);
}
//---- done
// Now check for Alert
if (Alerts) DoAlerts();
//----
return(0);
}
//---- Set line labels on chart window
void DisplayLabel(string LabelName, string LabelText, double LabelPos, int LabelFontSize, color LabelColor)
{
if(ObjectFind(LabelName) != 0)
{
ObjectCreate(LabelName, OBJ_TEXT, 0, LabelShiftTime, LabelPos);
ObjectSetText(LabelName, LabelText, LabelFontSize, "Arial", LabelColor);
}
else
{
ObjectMove(LabelName, 0, LabelShiftTime, LabelPos);
}
}
//--- Draw Pivot lines on chart
void DisplayLine(string LineName, double LinePos, int LineWidth, int LineStyle, color LineColor)
{
if(ObjectFind(LineName) != 0)
{
ObjectCreate(LineName, OBJ_HLINE, 0, LineShiftTime, LinePos);
ObjectSet(LineName, OBJPROP_STYLE, LineStyle);
ObjectSet(LineName, OBJPROP_COLOR, LineColor);
if (LineWidth > 0) ObjectSet(LineName, OBJPROP_WIDTH, LineWidth);
}
else
{
ObjectMove(LineName, 0, LineShiftTime, LinePos);
}
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains close prices for each bar
Series array that contains open time of each bar
Series array that contains open prices of each bar
Series array that contains the highest prices of each bar
Series array that contains the lowest prices of each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Other Features:
It issuies visual alerts to the screen
It plays sound alerts