116 lines
4.3 KiB
Plaintext
116 lines
4.3 KiB
Plaintext
//+------------------------------------------------------------------+
|
|
//| DCC_Piercing.mq5 |
|
|
//| Rajesh Nait, Copyright 2023 |
|
|
//| https://www.mql5.com/en/users/rajeshnait/seller |
|
|
//+------------------------------------------------------------------+
|
|
#property copyright "Rajesh Nait, Copyright 2023"
|
|
#property link "https://www.mql5.com/en/users/rajeshnait/seller"
|
|
#property version "1.00"
|
|
#property indicator_chart_window
|
|
#property indicator_buffers 2
|
|
#property indicator_plots 2
|
|
|
|
//--- plot Bullish Marubozu
|
|
#property indicator_label1 "+DCCP"
|
|
#property indicator_type1 DRAW_ARROW
|
|
#property indicator_color1 clrSnow
|
|
#property indicator_style1 STYLE_SOLID
|
|
#property indicator_width1 1
|
|
//--- plot Bearish Marubozu
|
|
#property indicator_label2 "-DCCP"
|
|
#property indicator_type2 DRAW_ARROW
|
|
#property indicator_color2 clrSnow
|
|
#property indicator_style2 STYLE_SOLID
|
|
#property indicator_width2 1
|
|
|
|
|
|
//--- input parameters
|
|
input group "Bearish"
|
|
input uchar InpBullishDCCPCode = 217; // BullishDCCP: code for style DRAW_ARROW (font Wingdings)
|
|
input int InpBullishDCCPShift = 10; // BullishDCCP: vertical shift of arrows in pixels
|
|
input group "Bullish"
|
|
input uchar InpBearishDCCPCode = 218; // BearishDCCP: code for style DRAW_ARROW (font Wingdings)
|
|
input int InpBearishDCCPShift =10; // BearishDCCP: vertical shift of arrows in pixels
|
|
//--- indicator buffers
|
|
double BullishDCCPBuffer[];
|
|
double BearishDCCPBuffer[];
|
|
int min_rates_total;
|
|
//+------------------------------------------------------------------+
|
|
//| Custom indicator initialization function |
|
|
//+------------------------------------------------------------------+
|
|
int OnInit() {
|
|
min_rates_total=2;
|
|
//--- indicator buffers mapping
|
|
SetIndexBuffer(0,BullishDCCPBuffer,INDICATOR_DATA);
|
|
SetIndexBuffer(1,BearishDCCPBuffer,INDICATOR_DATA);
|
|
|
|
IndicatorSetInteger(INDICATOR_DIGITS,Digits());
|
|
//--- setting a code from the Wingdings charset as the property of PLOT_ARROW
|
|
PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total);
|
|
PlotIndexSetInteger(1,PLOT_DRAW_BEGIN,min_rates_total);
|
|
|
|
PlotIndexSetInteger(0,PLOT_ARROW,InpBullishDCCPCode);
|
|
PlotIndexSetInteger(1,PLOT_ARROW,InpBearishDCCPCode);
|
|
|
|
ArraySetAsSeries(BullishDCCPBuffer,true);
|
|
ArraySetAsSeries(BearishDCCPBuffer,true);
|
|
|
|
//--- set the vertical shift of arrows in pixels
|
|
PlotIndexSetInteger(0,PLOT_ARROW_SHIFT,InpBullishDCCPShift);
|
|
PlotIndexSetInteger(1,PLOT_ARROW_SHIFT,-InpBearishDCCPShift);
|
|
//--- set as an empty value 0.0
|
|
PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,0.0);
|
|
PlotIndexSetDouble(1,PLOT_EMPTY_VALUE,0.0);
|
|
//---
|
|
return(INIT_SUCCEEDED);
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| Custom indicator iteration function |
|
|
//+------------------------------------------------------------------+
|
|
int OnCalculate(const int rates_total,
|
|
const int prev_calculated,
|
|
const datetime &time[],
|
|
const double &open[],
|
|
const double &high[],
|
|
const double &low[],
|
|
const double &close[],
|
|
const long &tick_volume[],
|
|
const long &volume[],
|
|
const int &spread[]) {
|
|
//---
|
|
if(rates_total<min_rates_total)
|
|
return(0);
|
|
|
|
int limit;
|
|
|
|
if(prev_calculated>rates_total || prev_calculated<=0) {
|
|
limit=rates_total-min_rates_total;
|
|
} else {
|
|
limit=rates_total-prev_calculated;
|
|
}
|
|
ArraySetAsSeries(open,true);
|
|
ArraySetAsSeries(high,true);
|
|
ArraySetAsSeries(low,true);
|
|
ArraySetAsSeries(close,true);
|
|
|
|
//---
|
|
|
|
for(int i=limit; i>=0 && !IsStopped(); i--) {
|
|
BullishDCCPBuffer[i]=0.0;
|
|
BearishDCCPBuffer[i]=0.0;
|
|
|
|
|
|
BearishDCCPBuffer[0]=0.0;
|
|
if(open[i]>close[i] && open[i+1]<close[i+1] && open[i]>close[i+1])
|
|
BearishDCCPBuffer[i]=high[i];
|
|
|
|
BullishDCCPBuffer[0]=0.0;
|
|
if(open[i]<close[i] && open[i+1]>close[i+1] && open[i]<close[i+1])
|
|
BullishDCCPBuffer[i]=low[i];
|
|
|
|
}
|
|
//--- return value of prev_calculated for next call
|
|
return(rates_total);
|
|
}
|
|
//+------------------------------------------------------------------+
|