Initial Commit ...
This commit is contained in:
@@ -0,0 +1,402 @@
|
||||
///////////////////////////////////////////////////////
|
||||
//
|
||||
// SaherElm IT Center XSHPD Indicator
|
||||
// ---------------------------------------------
|
||||
// saherelm implementation of above indicator ...
|
||||
// this indicator uses two ma line:
|
||||
// - fast ma;
|
||||
// - slow ma;
|
||||
//
|
||||
// Maintainer:
|
||||
// ------------
|
||||
// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
|
||||
//
|
||||
//////////////////////////////////////////////////////
|
||||
//
|
||||
// Global Properties ...
|
||||
#property copyright "Copyright 2023, SaherElm IT Center"
|
||||
#property link "https://saherelm.ir"
|
||||
#property version "1.00"
|
||||
#property description "SaherElm XSHPD Indicator"
|
||||
#property strict
|
||||
|
||||
//
|
||||
// START Inputs ...
|
||||
//
|
||||
input int marketLength = 7; // Market Length ...
|
||||
input double sharpDetectMultiplier = 70; // Sharp Detect Multiplier
|
||||
|
||||
//
|
||||
input bool drawLabels = true; // Draw Labels on Founded Sharps
|
||||
|
||||
//
|
||||
input string sharpBullishLabel = "SH_BULL"; // Sharp Bullish Label
|
||||
input color sharpBullishColor = clrAqua; // Sharp Bullish color
|
||||
|
||||
//
|
||||
input string sharpBearishLabel = "SH_BEAR"; // Sharp Bearish Label
|
||||
input color sharpBearishColor = clrFuchsia; // Sharp Bearish color
|
||||
//
|
||||
// END Inputs ...
|
||||
//
|
||||
|
||||
//
|
||||
// START Global Definitions: Variables, Properties and etc ...
|
||||
//
|
||||
#property indicator_chart_window
|
||||
|
||||
#property indicator_buffers 4
|
||||
#property indicator_plots 4
|
||||
|
||||
//
|
||||
// Declare Buffers ...
|
||||
#define marketHighestHighBufferIndex 0
|
||||
#define marketLowestLowBufferIndex 1
|
||||
#define sharpBullishBufferIndex 2
|
||||
#define sharpBearishBufferIndex 3
|
||||
|
||||
//
|
||||
double marketHighestHighBuffer[];
|
||||
double marketLowestLowBuffer[];
|
||||
double sharpBullishBuffer[];
|
||||
double sharpBearishBuffer[];
|
||||
|
||||
//
|
||||
#include "../Libraries/x-saherelm.lib.mq4"
|
||||
#include "../Libraries/x-saherelm.draw.lib.mq4"
|
||||
//
|
||||
// END Global Definitions: Variables, Properties and etc ...
|
||||
//
|
||||
|
||||
//
|
||||
// Start Event Handlers ...
|
||||
//
|
||||
//
|
||||
// Initialization ...
|
||||
int OnInit() {
|
||||
//
|
||||
// Initialize what we want ...
|
||||
if (
|
||||
marketLength <= 0
|
||||
) {
|
||||
return INIT_PARAMETERS_INCORRECT;
|
||||
}
|
||||
|
||||
//
|
||||
enableLogging = true;
|
||||
|
||||
//
|
||||
logTag = "X_SHPD";
|
||||
|
||||
//
|
||||
// Highest High ...
|
||||
SetIndexLabel(marketHighestHighBufferIndex, "");
|
||||
SetIndexBuffer(marketHighestHighBufferIndex, marketHighestHighBuffer);
|
||||
SetIndexStyle(
|
||||
marketHighestHighBufferIndex,
|
||||
DRAW_LINE, // DRAW_NONE,
|
||||
STYLE_DOT,
|
||||
1, // 0,
|
||||
clrAqua // clrNONE
|
||||
);
|
||||
|
||||
//
|
||||
// Lowest Low ...
|
||||
SetIndexLabel(marketLowestLowBufferIndex, "");
|
||||
SetIndexBuffer(marketLowestLowBufferIndex, marketLowestLowBuffer);
|
||||
SetIndexStyle(
|
||||
marketLowestLowBufferIndex,
|
||||
DRAW_NONE,
|
||||
STYLE_DOT,
|
||||
0,
|
||||
clrNONE
|
||||
);
|
||||
|
||||
//
|
||||
// Sharp Bullish Buffer ...
|
||||
SetIndexLabel(sharpBullishBufferIndex, "");
|
||||
SetIndexBuffer(sharpBullishBufferIndex, sharpBullishBuffer);
|
||||
SetIndexStyle(
|
||||
sharpBullishBufferIndex,
|
||||
DRAW_NONE,
|
||||
STYLE_DOT,
|
||||
0,
|
||||
clrNONE
|
||||
);
|
||||
|
||||
//
|
||||
// Sharp Bearish Buffer ...
|
||||
SetIndexLabel(sharpBearishBufferIndex, "");
|
||||
SetIndexBuffer(sharpBearishBufferIndex, sharpBearishBuffer);
|
||||
SetIndexStyle(
|
||||
sharpBearishBufferIndex,
|
||||
DRAW_NONE,
|
||||
STYLE_DOT,
|
||||
0,
|
||||
clrNONE
|
||||
);
|
||||
|
||||
//
|
||||
return INIT_SUCCEEDED;
|
||||
}
|
||||
|
||||
//
|
||||
// DeInitialization ...
|
||||
void OnDeinit(const int reason) {
|
||||
//
|
||||
RemoveDraws(logTag);
|
||||
}
|
||||
|
||||
//
|
||||
// Calculating what we want ...
|
||||
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[]
|
||||
) {
|
||||
//
|
||||
// this counts Available Bars ...
|
||||
int limit;
|
||||
|
||||
//
|
||||
// because in some cases we may have more than one input for
|
||||
// calculation and we must prevent any calculation
|
||||
// untill we pass the biggest input length, here we get max Input length
|
||||
// and then wait until pass it ...
|
||||
int maxLength = MathMax(0, marketLength);
|
||||
|
||||
//
|
||||
// input variable, we return 0 means nothing passed ...
|
||||
if (rates_total < maxLength) {
|
||||
return 0;
|
||||
}
|
||||
|
||||
//
|
||||
// found which candles calculated before ...
|
||||
limit = (prev_calculated == 0) ? rates_total - maxLength - 1 : rates_total - prev_calculated + 1;
|
||||
|
||||
//
|
||||
// this is the main loop of calculations, for each bar index ...
|
||||
for (int i = limit - 1; i >= 0; i--) {
|
||||
//
|
||||
// Start Calculation here ...
|
||||
// i is bar_index ...
|
||||
|
||||
//
|
||||
// Calculate Sharp ...
|
||||
CalculateSharp(i);
|
||||
}
|
||||
|
||||
//
|
||||
return rates_total;
|
||||
}
|
||||
//
|
||||
// END Event Handlers ...
|
||||
//
|
||||
|
||||
//
|
||||
// START Functions ...
|
||||
//
|
||||
//
|
||||
// Calculating Sharp ...
|
||||
void CalculateSharp(
|
||||
const int &bar_index
|
||||
) {
|
||||
//
|
||||
int index = 0;
|
||||
|
||||
//
|
||||
double high = iHigh(
|
||||
_Symbol,
|
||||
_Period,
|
||||
bar_index + 1
|
||||
);
|
||||
|
||||
//
|
||||
double low = iLow(
|
||||
_Symbol,
|
||||
_Period,
|
||||
bar_index + 1
|
||||
);
|
||||
|
||||
//
|
||||
double open = iOpen(
|
||||
_Symbol,
|
||||
_Period,
|
||||
bar_index + 1
|
||||
);
|
||||
|
||||
//
|
||||
double close = iClose(
|
||||
_Symbol,
|
||||
_Period,
|
||||
bar_index + 1
|
||||
);
|
||||
|
||||
//
|
||||
marketHighestHighBuffer[bar_index] = GetMarketHighestHigh(
|
||||
bar_index,
|
||||
marketLength
|
||||
);
|
||||
|
||||
//
|
||||
marketLowestLowBuffer[bar_index] = GetMarketLowestLow(
|
||||
bar_index,
|
||||
marketLength
|
||||
);
|
||||
|
||||
//
|
||||
double maHHs[];
|
||||
ArrayResize(
|
||||
maHHs,
|
||||
marketLength
|
||||
);
|
||||
|
||||
//
|
||||
double maLLs[];
|
||||
ArrayResize(
|
||||
maLLs,
|
||||
marketLength
|
||||
);
|
||||
|
||||
//
|
||||
index = 0;
|
||||
for (int i = bar_index; i < bar_index + marketLength; i++) {
|
||||
//
|
||||
maLLs[index] = marketLowestLowBuffer[i];
|
||||
maHHs[index] = marketHighestHighBuffer[i];
|
||||
|
||||
//
|
||||
index++;
|
||||
}
|
||||
|
||||
//
|
||||
int maxHighIdx = ArrayMaximum(maHHs);
|
||||
double maxHigh = maHHs[maxHighIdx];
|
||||
|
||||
//
|
||||
int minHighIdx = ArrayMinimum(maHHs);
|
||||
double minHigh = maHHs[minHighIdx];
|
||||
|
||||
//
|
||||
double highDiffRate = (maxHigh - minHigh) / 100;
|
||||
|
||||
//
|
||||
int maxLowIdx = ArrayMaximum(maLLs);
|
||||
double maxLow = maLLs[maxLowIdx];
|
||||
|
||||
//
|
||||
int minLowIdx = ArrayMinimum(maLLs);
|
||||
double minLow = maLLs[minLowIdx];
|
||||
|
||||
//
|
||||
double lowDiffRate = (maxLow - minLow) / 100;
|
||||
|
||||
//
|
||||
bool isSharpBullishDetected =
|
||||
high == maxHigh
|
||||
&& low > minLow
|
||||
&& marketHighestHighBuffer[bar_index] == maxHigh
|
||||
&& maxHigh - minHigh > highDiffRate * sharpDetectMultiplier
|
||||
;
|
||||
sharpBullishBuffer[bar_index] = isSharpBullishDetected ? 1 : 0;
|
||||
|
||||
//
|
||||
bool isSharpBearishDetected =
|
||||
low == minLow
|
||||
&& high < maxHigh
|
||||
&& marketLowestLowBuffer[bar_index] == minLow
|
||||
&& maxLow - minLow > lowDiffRate * sharpDetectMultiplier
|
||||
;
|
||||
sharpBearishBuffer[bar_index] = isSharpBearishDetected ? 1 : 0;
|
||||
|
||||
//
|
||||
if (
|
||||
drawLabels
|
||||
&& (
|
||||
isSharpBearishDetected
|
||||
|| isSharpBullishDetected
|
||||
)
|
||||
) {
|
||||
//
|
||||
datetime time = iTime(
|
||||
_Symbol,
|
||||
_Period,
|
||||
bar_index
|
||||
);
|
||||
|
||||
//
|
||||
string lbl = StringConcatenate(
|
||||
logTag,
|
||||
isSharpBullishDetected ? "Bullish_" : "Bearish_",
|
||||
bar_index
|
||||
);
|
||||
|
||||
//
|
||||
double price =
|
||||
isSharpBullishDetected
|
||||
?
|
||||
marketLowestLowBuffer[bar_index] - (10 * _Point)
|
||||
:
|
||||
marketHighestHighBuffer[bar_index] + (10 * _Point)
|
||||
;
|
||||
|
||||
//
|
||||
uchar arrowCode =
|
||||
isSharpBullishDetected
|
||||
?
|
||||
SYMBOL_ARROWUP
|
||||
:
|
||||
SYMBOL_ARROWDOWN
|
||||
;
|
||||
|
||||
//
|
||||
ENUM_ARROW_ANCHOR anchor =
|
||||
isSharpBullishDetected
|
||||
?
|
||||
ANCHOR_BOTTOM
|
||||
:
|
||||
ANCHOR_TOP
|
||||
;
|
||||
|
||||
//
|
||||
color clr =
|
||||
isSharpBullishDetected
|
||||
?
|
||||
sharpBullishColor
|
||||
:
|
||||
sharpBearishColor
|
||||
;
|
||||
|
||||
//
|
||||
string lblText =
|
||||
isSharpBullishDetected
|
||||
?
|
||||
sharpBullishLabel
|
||||
:
|
||||
sharpBearishLabel
|
||||
;
|
||||
|
||||
//
|
||||
DrawText(
|
||||
0,
|
||||
lbl,
|
||||
0,
|
||||
time,
|
||||
price,
|
||||
lblText,
|
||||
"Tahoma",
|
||||
5,
|
||||
clr
|
||||
);
|
||||
}
|
||||
}
|
||||
//
|
||||
// END Functions ...
|
||||
//
|
||||
Reference in New Issue
Block a user