//+------------------------------------------------------------------+
//| valasholic13 v2.5.mq4 |
//| Copyright © 2006, CT-Valas Software Corp. |
//| valasholic@yahoo.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, CT-Valas Software Corp."
#property link "valasholic@yahoo.com"
#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 5
#property indicator_color3 Blue
#property indicator_width3 5
#property indicator_color4 Pink
#property indicator_width4 5
#property indicator_color5 LightBlue
#property indicator_width5 5
#property indicator_color6 Lime
#property indicator_width6 5
#property indicator_color7 Lime
#property indicator_width7 5
//---- input parameters
//---- 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");
//----
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("Pivot Point");
//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);
/////////// MEMBUAT TULISAN PADA GARIS JUAL / BELI \\\\\\\\\\\\\
//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", Green);
ObjectCreate("Beli1", OBJ_TEXT, 0, 0, 0);
ObjectSetText("Beli1", " BUY AREA", fontsize, "Arial", Green);
ObjectCreate("Jual2", OBJ_TEXT, 0, 0, 0);
ObjectSetText("Jual2", " BREAK LOW", fontsize, "Arial", Green);
ObjectCreate("Beli2", OBJ_TEXT, 0, 0, 0);
ObjectSetText("Beli2", " BREAK HIGH", fontsize, "Arial", Green);
ObjectCreate("Jual3", OBJ_TEXT, 0, 0, 0);
ObjectSetText("Jual3", " TARGET", fontsize, "Arial", Green);
ObjectCreate("Beli3", OBJ_TEXT, 0, 0, 0);
ObjectSetText("Beli3", " TARGET", fontsize, "Arial", Green);
}
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));
//////////// RUMUS UNTUK MENENTUKAN BREAK \\\\\\\\\\\\\\\\\\\\\
P = (LastHigh + LastLow + Close[i+1]) / 3; // RUMUS UTK MENENTUKAN PIVOT
B1 = P + 20*Point; // PENENTUAN MASUK BUY AREA (BOLEH DIGANTI SESUAI ANALISA ANDA)
J1 = P - 20*Point; // PENENTUAN MASUK SELL AREA (BOLEH DIGANTI SESUAI ANALISA ANDA)
B2 = P + 40*Point; // PENENTUAN NILAI BREAK HIGH (BOLEH DIGANTI SESUAI ANALISA ANDA)
J2 = P - 40*Point; // PENENTUAN NIAI BREAK LOW (BOLEH DIGANTI SESUAI ANALISA ANDA)
B3 = P + 55*Point; // GARIS TARGET HIGH (BOLEH DIGANTI SESUAI ANALISA ANDA)
J3 = P - 55*Point; // GARIS TARGET LOW (BOLEH DIGANTI SESUAI ANALISA ANDA)
//Re2 = P + (LastHigh - LastLow); //ini adalah rumus dari Resistance 2
//Su2 = P - (LastHigh - LastLow); // ini adalah rumus dari Support 2
//Re3 = (2*P) + (LastHigh - (2*LastLow)); // ini adalah rumus dari resistance 3
//Su3 = (2*P) - ((2* LastHigh) - LastLow); //ni adalah rumus dari Support 3
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;
Comment ("\n VALASHOLIC13 v2.5 ( BREAKOUT STRATEGY ) \n Registered to: Latihan Bikin \n"
+"\n Copyright © 2006,CT-Valas Software Corp.\n contact support:valasholic@yahoo.com"
+"\n \n -------------------------------------------------------------------"
+"\n :::::::::::: SAAT DIANTARA 2 BREAK ::::::::::::"
+"\n -------------------------------------------------------------------"
+"\n BUY AREA (break) :"
+"\n # BUY STOP1 "+Symbol()+" pada "+(DoubleToStr (B1Buffer[i],Digits))
+"\n dengan TP "+(DoubleToStr (B2Buffer[i],Digits))+" dan SL pada "+(DoubleToStr(J1Buffer[i],Digits))
+"\n # BUY STOP2 "+Symbol()+" pada "+(DoubleToStr(B2Buffer[i],Digits))
+"\n dengan TP "+(DoubleToStr ((B2Buffer[i]+(10*Point)),Digits))+" dan SL pada "+(DoubleToStr (B1Buffer[i],Digits))
+"\n \n SELL AREA (break) :"
+"\n # SELL STOP "+Symbol()+" pada "+(DoubleToStr (J1Buffer[i],Digits))
+"\n dengan TP "+(DoubleToStr (J2Buffer[i],Digits))+" dan SL pada "+(DoubleToStr (B1Buffer[i],Digits))
+"\n # SELL STOP "+Symbol()+" pada "+(DoubleToStr (J2Buffer[i],Digits))
+"\n dengan TP "+(DoubleToStr ((J2Buffer[i]-(10*Point)),Digits))+" dan SL pada "+(DoubleToStr(J1Buffer[i],Digits))
+"\n \n -------------------------------------------------------------------"
+"\n :::::::::::: SAAT MELEWATI KOREKSI ::::::::::::"
+"\n -------------------------------------------------------------------"
+"\n KOREKSI BAWAH :"
+"\n # BUY STOP "+Symbol()+" pada "+(DoubleToStr(J2Buffer[i],Digits))
+"\n dengan TP "+(DoubleToStr(B1Buffer[i],Digits))+" dan SL pada "+(DoubleToStr(J3Buffer[i],Digits))
+"\n \n KOREKSI ATAS :"
+"\n # SELL STOP "+Symbol()+" pada "+(DoubleToStr(B2Buffer[i],Digits))
+"\n dengan TP "+(DoubleToStr(J1Buffer[i],Digits))+" dan SL pada "+(DoubleToStr(B3Buffer[i],Digits))
+"\n -------------------------------------------------------------------"
+"\n \n -------------------------------------------------------------------"
+"\n :::::: SUPPORT & RESISTANCE HARI INI :::::"
+"\n -------------------------------------------------------------------");
//Bagaimana caranya menampilkan nilai Support dan Resistance?
//Kita tunggu TIPs berikutnya
}
//----
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: