//+------------------------------------------------------------------+
//| Dolly (the famous sheep) |
//| original indicator is called valasholic13 v2.5.mq4 |
//| |
//| and the original author is valasholic@yahoo.com |
//| |
//| mods and stuff by Linuxser for Forex-TSD |
//| (there is a lot of usefull code inside here)|
//|Credits: hulahula (traslation from original indonesian language) |
//+------------------------------------------------------------------+
#property copyright ""
#property link ""
#property indicator_chart_window
//#property indicator_separate_window
#property indicator_buffers 7
#property indicator_color1 Snow
#property indicator_width1 0
#property indicator_color2 Red
#property indicator_width2 2
#property indicator_color3 Blue
#property indicator_width3 2
#property indicator_color4 Crimson
#property indicator_width4 2
#property indicator_color5 SteelBlue
#property indicator_width5 2
#property indicator_color6 LimeGreen
#property indicator_width6 1
#property indicator_color7 LimeGreen
#property indicator_width7 1
//---- input parameters
extern bool pivotlines = false;
//---- buffers
double PBuffer[];
double J1Buffer[];
double B1Buffer[];
double J2Buffer[];
double B2Buffer[];
double J3Buffer[];
double B3Buffer[];
string Pivot = "Pivot Point", Jual1 = "S 1", Beli1 = "R 1";
string Jual2="S 2", Beli2="R 2", Jual3="S 3", Beli3="R 3";
int fontsize = 10;
double P, J1, B1, J2, B2, J3, B3;
double LastHigh, LastLow, x;
double D4=0.55;
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
// ObjectDelete("Pivot");
ObjectDelete("Jual1");
ObjectDelete("Beli1");
ObjectDelete("Jual2");
ObjectDelete("Beli2");
ObjectDelete("Jual3");
ObjectDelete("Beli3");
ObjectDelete("r1 Label");
ObjectDelete("r1_Line");
ObjectDelete("r2 Label");
ObjectDelete("r2_Line");
ObjectDelete("r3 Label");
ObjectDelete("r3_Line");
ObjectDelete("r1 Label");
ObjectDelete("r1_Line");
ObjectDelete("r2 Label");
ObjectDelete("r2_Line");
ObjectDelete("r3 Label");
ObjectDelete("r3_Line");
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");
ObjectDelete("P Label");
ObjectDelete("P_Line");
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- indicator line
SetIndexStyle(0, DRAW_NONE);
SetIndexStyle(1, DRAW_LINE);
SetIndexStyle(2, DRAW_LINE);
SetIndexStyle(3, DRAW_LINE);
SetIndexStyle(4, DRAW_LINE);
SetIndexStyle(5, DRAW_LINE);
SetIndexStyle(6, DRAW_LINE);
SetIndexBuffer(0, PBuffer);
SetIndexBuffer(1, J1Buffer);
SetIndexBuffer(2, B1Buffer);
SetIndexBuffer(3, J2Buffer);
SetIndexBuffer(4, B2Buffer);
SetIndexBuffer(5, J3Buffer);
SetIndexBuffer(6, B3Buffer);
//---- name for DataWindow and indicator subwindow label
IndicatorShortName("PP");
//SetIndexLabel(0, "Pivot Point");
//----
SetIndexDrawBegin(0,1);
IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS));
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int counted_bars = IndicatorCounted();
int limit, i;
Print(DoubleToStr(Close[i], Digits));
Print(DoubleToStr(Close[0], Digits));
Print(DoubleToStr(Close[0], Digits));
//---- indicator calculation
if(counted_bars == 0)
{
x = Period();
if(x > 240)
return(-1);
///////////To Make a Line for SELL/BUY \\\\\\\\\\\\\
//ObjectCreate("Pivot", OBJ_TEXT, 0, 0, 0);
//ObjectSetText("Pivot", " PIVOT", fontsize, "Arial", Black);
ObjectCreate("Jual1", OBJ_TEXT, 0, 0, 0);
ObjectSetText("Jual1", " SELL AREA", fontsize, "Arial ", Lime);
ObjectCreate("Beli1", OBJ_TEXT, 0, 0, 0);
ObjectSetText("Beli1", " BUY AREA", fontsize, "Arial ", Lime);
ObjectCreate("Jual2", OBJ_TEXT, 0, 0, 0);
ObjectSetText("Jual2", " 1st SELL TARGET (take profit), BREAK LOW, ", fontsize, "Arial ", Lime);
ObjectCreate("Beli2", OBJ_TEXT, 0, 0, 0);
ObjectSetText("Beli2", " 1st BUY TARGET (take profit) BREAK HIGH", fontsize, "Arial ", Lime);
ObjectCreate("Jual3", OBJ_TEXT, 0, 0, 0);
ObjectSetText("Jual3", " 2nd TARGET", fontsize, "Arial ", Lime);
ObjectCreate("Beli3", OBJ_TEXT, 0, 0, 0);
ObjectSetText("Beli3", " 2nd TARGET", fontsize, "Arial ", Lime);
}
if(counted_bars < 0)
return(-1);
//---- last counted bar will be recounted
// if(counted_bars>0) counted_bars--;
limit = (Bars - counted_bars) - 1;
//----
for(i = limit; i >= 0; i--)
{
if(High[i+1] > LastHigh)
LastHigh = High[i+1];
//----
if(Low[i+1] < LastLow)
LastLow=Low[i+1];
if(TimeDay(Time[i]) != TimeDay(Time[i+1]))
{
Print(DoubleToStr(Close[i], Digits));
Print(DoubleToStr(High[0], Digits));
Print(DoubleToStr(Low[0], Digits));
//////////// Logic for determinate Momentum Break \\\\\\\\\\\\\\\\\\\\\
P = (LastHigh + LastLow + Close[i+1]) / 3; // Logic for determinating pivot
B1 = P + 20*Point; // Logic to determinate Buy Area (Can be change as you analize)
J1 = P - 20*Point; // Logic to determinate Sell Area (Can be change as you analize)
B2 = P + 40*Point; // Logic to determinate High Break Area (Can be change as you analize)
J2 = P - 40*Point; // Logic to determinate Low Break Area (Can be change as you analize)
B3 = P + 55*Point; // Logic to determinate High Target Area (Can be change as you analize)
J3 = P - 55*Point; // Logic to determinate Low Target Area (Can be change as you analize)
//Re2 = P + (LastHigh - LastLow); //This is the logic for R3
//Su2 = P - (LastHigh - LastLow); // This is the logic for S3
//Re3 = (2*P) + (LastHigh - (2*LastLow)); // This is the logic for R3
//Su3 = (2*P) - ((2* LastHigh) - LastLow); //This is the logic for S3
LastLow = Open[i];
LastHigh = Open[i];
//----
//ObjectMove("Pivot", 0, Time[i], P);
ObjectMove("Jual1", 0, Time[i], J1);
ObjectMove("Beli1", 0, Time[i], B1);
ObjectMove("Jual2", 0, Time[i], J2);
ObjectMove("Beli2", 0, Time[i], B2);
ObjectMove("Jual3", 0, Time[i], J3);
ObjectMove("Beli3", 0, Time[i], B3);
}
PBuffer[i] = P;
J1Buffer[i] = J1;
B1Buffer[i] = B1;
J2Buffer[i] = J2;
B2Buffer[i] = B2;
J3Buffer[i] = J3;
B3Buffer[i] = B3;
//----
double rates[1][6],yesterday_close,yesterday_high,yesterday_low;
ArrayCopyRates(rates, Symbol(), PERIOD_D1);
if(DayOfWeek() == 1)
{
if(TimeDayOfWeek(iTime(Symbol(),PERIOD_D1,1)) == 5)
{
yesterday_close = rates[1][4];
yesterday_high = rates[1][3];
yesterday_low = rates[1][2];
}
else
{
for(int d = 5;d>=0;d--)
{
if(TimeDayOfWeek(iTime(Symbol(),PERIOD_D1,d)) == 5)
{
yesterday_close = rates[d][4];
yesterday_high = rates[d][3];
yesterday_low = rates[d][2];
}
}
}
}
else
{
yesterday_close = rates[1][4];
yesterday_high = rates[1][3];
yesterday_low = rates[1][2];
}
if (pivotlines==true)
{
//---- Calculate Pivots
double R = yesterday_high - yesterday_low;//range
double p = (yesterday_high + yesterday_low + yesterday_close)/3;// Standard Pivot
double r3 = (2*p)+(yesterday_high-(2*yesterday_low));
double r2 = p+(yesterday_high - yesterday_low);
double r1 = (2*p)-yesterday_low;
double s1 = (2*p)-yesterday_high;
double s2 = p-(yesterday_high - yesterday_low);
double s3 = (2*p)-((2* yesterday_high)-yesterday_low);
//------ DRAWING LINES ------
ObjectDelete("p_Line");
ObjectCreate("p_Line", OBJ_HLINE,0, CurTime(),p);
ObjectSet("p_Line",OBJPROP_COLOR,DeepPink);
ObjectSet("p_Line",OBJPROP_STYLE,STYLE_SOLID);
ObjectDelete("r1_Line");
ObjectCreate("r1_Line", OBJ_HLINE,0, CurTime(),r1);
ObjectSet("r1_Line",OBJPROP_COLOR,Yellow);
ObjectSet("r1_Line",OBJPROP_STYLE,STYLE_SOLID);
ObjectDelete("r2_Line");
ObjectCreate("r2_Line", OBJ_HLINE,0, CurTime(),r2);
ObjectSet("r2_Line",OBJPROP_COLOR,Orange);
ObjectSet("r2_Line",OBJPROP_STYLE,STYLE_SOLID);
ObjectDelete("r3_Line");
ObjectCreate("r3_Line", OBJ_HLINE,0, CurTime(),r3);
ObjectSet("r3_Line",OBJPROP_COLOR,Red);
ObjectSet("r3_Line",OBJPROP_STYLE,STYLE_SOLID);
ObjectDelete("s1_Line");
ObjectCreate("s1_Line", OBJ_HLINE,0, CurTime(),s1);
ObjectSet("s1_Line",OBJPROP_COLOR,Yellow);
ObjectSet("s1_Line",OBJPROP_STYLE,STYLE_SOLID);
ObjectDelete("s2_Line");
ObjectCreate("s2_Line", OBJ_HLINE,0, CurTime(),s2);
ObjectSet("s2_Line",OBJPROP_COLOR,Orange);
ObjectSet("s2_Line",OBJPROP_STYLE,STYLE_SOLID);
ObjectDelete("s3_Line");
ObjectCreate("s3_Line", OBJ_HLINE,0, CurTime(),s3);
ObjectSet("s3_Line",OBJPROP_COLOR,Red);
ObjectSet("s3_Line",OBJPROP_STYLE,STYLE_SOLID);
ObjectsRedraw();
// --- Typing Labels
if(ObjectFind("R3 label") != 0)
{
ObjectCreate("R3 label", OBJ_TEXT, 0, Time[0], r3);
ObjectSetText("R3 label", " R3 ", 8, "Arial", Red);
}
else
{
ObjectMove("R3 label", 0, Time[0], r3);
}
if(ObjectFind("S3 label") != 0)
{
ObjectCreate("S3 label", OBJ_TEXT, 0, Time[0], s3);
ObjectSetText("S3 label", " S3 ", 8, "Arial", Red);
}
else
{
ObjectMove("S3 label", 0, Time[0], s3);
}
if(ObjectFind("R2 label") != 0)
{
ObjectCreate("R2 label", OBJ_TEXT, 0, Time[0], r2);
ObjectSetText("R2 label", " R2 ", 8, "Arial", Orange);
}
else
{
ObjectMove("R2 label", 0, Time[0], r2);
}
if(ObjectFind("S2 label") != 0)
{
ObjectCreate("S2 label", OBJ_TEXT, 0, Time[0], s2);
ObjectSetText("S2 label", " S2 ", 8, "Arial", Orange);
}
else
{
ObjectMove("S2 label", 0, Time[0], s2);
}
if(ObjectFind("R1 label") != 0)
{
ObjectCreate("R1 label", OBJ_TEXT, 0, Time[0], r1);
ObjectSetText("R1 label", " R1 ", 8, "Arial", Yellow);
}
else
{
ObjectMove("R1 label", 0, Time[0], r1);
}
if(ObjectFind("S1 label") != 0)
{
ObjectCreate("S1 label", OBJ_TEXT, 0, Time[0], s1);
ObjectSetText("S1 label", " S1 ", 8, "Arial", Yellow);
}
else
{
ObjectMove("S1 label", 0, Time[0], s1);
}
if(ObjectFind("P label") != 0)
{
ObjectCreate("P label", OBJ_TEXT, 0, Time[0], p);
ObjectSetText("P label", " Pivot ", 8, "Arial", DeepPink);
}
else
{
ObjectMove("P label", 0, Time[0], p);
}
}
Comment ("\n Dolly 0.2 ( BREAKOUT STRATEGY ) "
+"\n -------------------------------------------------------------------"
+"\n :::::::::::: DURING AROUND 2 BREAK :::::::::::"
+"\n -------------------------------------------------------------------"
+"\n BUY AREA (break) :"
+"\n # BUY STOP1 "+Symbol()+" TO "+(DoubleToStr (B1Buffer[i],Digits))
+"\n Set TP "+(DoubleToStr (B2Buffer[i],Digits))+" and SL TO "+(DoubleToStr(J1Buffer[i],Digits))
+"\n # BUY STOP2 "+Symbol()+" TO "+(DoubleToStr(B2Buffer[i],Digits))
+"\n Set TP "+(DoubleToStr ((B2Buffer[i]+(10*Point)),Digits))+" and SL TO "+(DoubleToStr (B1Buffer[i],Digits))
+"\n \n SELL AREA (break) :"
+"\n # SELL STOP "+Symbol()+" TO "+(DoubleToStr (J1Buffer[i],Digits))
+"\n Set TP "+(DoubleToStr (J2Buffer[i],Digits))+" and SL to "+(DoubleToStr (B1Buffer[i],Digits))
+"\n # SELL STOP2 "+Symbol()+" TO "+(DoubleToStr (J2Buffer[i],Digits))
+"\n Set TP "+(DoubleToStr ((J2Buffer[i]-(10*Point)),Digits))+" and SL TO "+(DoubleToStr(J1Buffer[i],Digits))
+"\n -------------------------------------------------------------------"
+"\n ::::: POSSIBLE REVERSAL TRADES (DO NOT USE) :::::"
+"\n -------------------------------------------------------------------"
+"\n LOWER CORRECTION :"
+"\n # BUY STOP "+Symbol()+" TO "+(DoubleToStr(J2Buffer[i],Digits))
+"\n Set TP "+(DoubleToStr(B1Buffer[i],Digits))+" and SL TO "+(DoubleToStr(J3Buffer[i],Digits))
+"\n \n UPPER CORRECTION :"
+"\n # SELL STOP "+Symbol()+" TO "+(DoubleToStr(B2Buffer[i],Digits))
+"\n Set TP "+(DoubleToStr(J1Buffer[i],Digits))+" and SL TO "+(DoubleToStr(B3Buffer[i],Digits))
+"\n -------------------------------------------------------------------");
//+"\n \n -------------------------------------------------------------------"
//+"\n :::::: SUPPORT & RESISTANCE TODAY :::::"
//+"\n -------------------------------------------------------------------"
//+"\n Resistance 3 :"+(DoubleToStr(r3,Digits))
//+"\n Resistance 2 :"+(DoubleToStr(r2,Digits))
//+"\n Resistance 1 :"+(DoubleToStr(r1,Digits))
//+"\n -------------------------------------------------------------------"
//+"\n \n Pivot level :"+(DoubleToStr(p,Digits))
//+"\n \n -------------------------------------------------------------------"
//+"\n Support 1 :"+(DoubleToStr(s1,Digits))
//+"\n Support 2 :"+(DoubleToStr(s2,Digits))
//+"\n Support 3 :"+(DoubleToStr(s3,Digits))
//+"\n -------------------------------------------------------------------");
//HOW TO MAKE THE PRICE LINE OF THE SUPPORT & RESISTANT APPEAR?
//WAITING FOR NEXT TIP & UP DATE
}
//----
return(0);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains close prices for each bar
Series array that contains the highest prices of each bar
Series array that contains the lowest prices of each bar
Series array that contains open time of each bar
Series array that contains open prices of each bar
Indicator Curves created:
Implements a curve of type DRAW_NONE
Implements a curve of type DRAW_LINE
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Other Features: