384 lines
7.0 KiB
Plaintext
384 lines
7.0 KiB
Plaintext
/////////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// SaherElm IT Center MQL5 XRSI Oscillator Helper for Signal Providers
|
|
// --------------------------------------------------------------------------
|
|
//
|
|
// Maintainer:
|
|
// ------------
|
|
// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
|
|
//
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Global Properties ...
|
|
#property library
|
|
#property copyright "Copyright 2023, SaherElm IT Center"
|
|
#property link "https://www.saherelm.ir"
|
|
#property version "1.00"
|
|
#property strict
|
|
|
|
//
|
|
// Includes ...
|
|
#include "..\Libraries\x-saherelm.log.lib.mq5"
|
|
#include "..\Libraries\x-saherelm.common.lib.mq5"
|
|
|
|
//
|
|
// START Enum Definitions ...
|
|
//
|
|
|
|
//
|
|
// XRSI Oscillator Buffer Lines ...
|
|
//
|
|
|
|
//
|
|
// END Enum Definitions ...
|
|
//
|
|
|
|
//
|
|
// START Inputs ...
|
|
//
|
|
|
|
input group "XRSI Oscillator";
|
|
|
|
//
|
|
input group "XRSI Market";
|
|
input int xRSILength = 18; // Market Length
|
|
input ENUM_APPLIED_PRICE xRSIAppliedTo = PRICE_OPEN; // Applied To
|
|
|
|
//
|
|
input group "XRSI Short Entry";
|
|
input double xRSIShortEntryValue = 70; // Short Entry Level
|
|
input color xRSIShortEntryColor = clrRed; // Short Entry Level Color
|
|
input ENUM_LINE_STYLE xRSIShortEntryLineStyle = STYLE_SOLID; // Short Entry Style
|
|
|
|
//
|
|
input group "XRSI Short Exit";
|
|
input double xRSIShortExitValue = 40; // Short Exit Level
|
|
input color xRSIShortExitColor = clrFuchsia; // Short Exit Level Color
|
|
input ENUM_LINE_STYLE xRSIShortExitLineStyle = STYLE_DOT; // Short Exit Style
|
|
|
|
//
|
|
input group "XRSI Long Entry";
|
|
input double xRSILongEntryValue = 30; // Long Entry Level
|
|
input color xRSILongEntryColor = clrGreen; // Long Entry Level Color
|
|
input ENUM_LINE_STYLE xRSILongEntryLineStyle = STYLE_SOLID; // Long Entry Style
|
|
|
|
//
|
|
input group "XRSI Long Exit";
|
|
input double xRSILongExitValue = 60; // Long Exit Level
|
|
input color xRSILongExitColor = clrAqua; // Long Exit Level Color
|
|
input ENUM_LINE_STYLE xRSILongExitLineStyle = STYLE_DOT; // Long Exit Style
|
|
|
|
//
|
|
// END Inputs ...
|
|
//
|
|
|
|
//
|
|
// START Definitions ...
|
|
//
|
|
|
|
int xRSIHandler = INVALID_HANDLE;
|
|
double xRSIBuffer[];
|
|
|
|
//
|
|
// END Definitions ...
|
|
//
|
|
|
|
//
|
|
// START Handler Functions ...
|
|
//
|
|
|
|
//
|
|
// Init Oscillators ...
|
|
bool XRSIInitHandlers()
|
|
{
|
|
//
|
|
bool result = false;
|
|
|
|
//
|
|
// Initialize Indicator/Oscillator Handlers ...
|
|
ResetLastError();
|
|
|
|
//
|
|
// XRSI Handler ...
|
|
ArraySetAsSeries(xRSIBuffer, true);
|
|
xRSIHandler = iCustom(
|
|
_Symbol,
|
|
_Period,
|
|
"x-saherelm.xrsi.oscillator",
|
|
//
|
|
// Inputs ...
|
|
//
|
|
// Market ...
|
|
"",
|
|
xRSILength,
|
|
xRSIAppliedTo,
|
|
//
|
|
// Short Entry ...
|
|
"",
|
|
xRSIShortEntryValue,
|
|
xRSIShortEntryColor,
|
|
xRSIShortEntryLineStyle,
|
|
//
|
|
// Short Exit ...
|
|
"",
|
|
xRSIShortExitValue,
|
|
xRSIShortExitColor,
|
|
xRSIShortExitLineStyle,
|
|
//
|
|
// Long Entry ...
|
|
"",
|
|
xRSILongEntryValue,
|
|
xRSILongEntryColor,
|
|
xRSILongEntryLineStyle,
|
|
//
|
|
// Long Exit ...
|
|
"",
|
|
xRSILongExitValue,
|
|
xRSILongExitColor,
|
|
xRSILongExitLineStyle
|
|
//
|
|
);
|
|
if (xRSIHandler == INVALID_HANDLE)
|
|
{
|
|
//
|
|
LogMessage("failed to Initialize XRSI Oscillator: " + (string)GetLastError());
|
|
return result;
|
|
}
|
|
|
|
//
|
|
result = true;
|
|
|
|
//
|
|
return result;
|
|
}
|
|
|
|
//
|
|
// Release Oscillators ...
|
|
void XRSIReleaseHandlers()
|
|
{
|
|
IndicatorRelease(xRSIHandler);
|
|
}
|
|
|
|
//
|
|
// Handle Reading Buffers ...
|
|
void XRSIReadBuffers(
|
|
int xRSIItemsPerTick // Number Of Reading Buffer Items Per Tick
|
|
)
|
|
{
|
|
//
|
|
// XRSI Signal ...
|
|
CopyBuffer(
|
|
xRSIHandler,
|
|
0,
|
|
0,
|
|
xRSIItemsPerTick,
|
|
xRSIBuffer);
|
|
}
|
|
|
|
//
|
|
// END Handler Funcions ...
|
|
//
|
|
|
|
//
|
|
// START XRSI Custom Functions ...
|
|
//
|
|
|
|
//
|
|
// Check SC is Peak ...
|
|
bool XRSIIsPeak(
|
|
int bar_index, // Specified Index ...
|
|
int length = 10 // Specified Length ...
|
|
)
|
|
{
|
|
//
|
|
bool result = false;
|
|
|
|
//
|
|
if (
|
|
length <= 0 ||
|
|
bar_index <= 0 ||
|
|
!XRSIIsValidBuffersSize(bar_index + length + 1))
|
|
{
|
|
return result;
|
|
}
|
|
|
|
//
|
|
// Must Decreasing ...
|
|
bool isIncreasing = IsIncreasing(
|
|
bar_index + length,
|
|
bar_index,
|
|
xRSIBuffer
|
|
//
|
|
);
|
|
|
|
//
|
|
return result;
|
|
}
|
|
|
|
//
|
|
// Check SC is Vale ...
|
|
bool XRSIIsVale(
|
|
int bar_index, // Specified Index ...
|
|
int length = 10 // Specified Length ...
|
|
)
|
|
{
|
|
//
|
|
bool result = false;
|
|
|
|
//
|
|
if (
|
|
length <= 0 ||
|
|
bar_index <= 0 ||
|
|
!XRSIIsValidBuffersSize(bar_index + length + 1))
|
|
{
|
|
return result;
|
|
}
|
|
|
|
//
|
|
result = IsDecreasing(
|
|
bar_index + length,
|
|
bar_index,
|
|
xRSIBuffer
|
|
//
|
|
);
|
|
|
|
//
|
|
return result;
|
|
}
|
|
|
|
//
|
|
// RSI Value GO Up from Long Entry ...
|
|
bool XRSIIsCrossedOverLongEntry(
|
|
int bar_index // Specified Index ...
|
|
)
|
|
{
|
|
//
|
|
bool result = false;
|
|
|
|
//
|
|
if (
|
|
bar_index <= 0 ||
|
|
!XRSIIsValidBuffersSize(bar_index + 2))
|
|
{
|
|
return result;
|
|
}
|
|
|
|
//
|
|
result =
|
|
xRSIBuffer[bar_index + 1] > xRSILongEntryValue &&
|
|
xRSIBuffer[bar_index + 2] <= xRSILongEntryValue;
|
|
|
|
//
|
|
return result;
|
|
}
|
|
|
|
//
|
|
// RSI Value GO Up from Long Exit ...
|
|
bool XRSIIsCrossedOverLongExit(
|
|
int bar_index // Specified Index ...
|
|
)
|
|
{
|
|
//
|
|
bool result = false;
|
|
|
|
//
|
|
if (
|
|
bar_index <= 0 ||
|
|
!XRSIIsValidBuffersSize(bar_index + 2))
|
|
{
|
|
return result;
|
|
}
|
|
|
|
//
|
|
result =
|
|
xRSIBuffer[bar_index + 1] > xRSILongExitValue &&
|
|
xRSIBuffer[bar_index + 2] <= xRSILongExitValue;
|
|
|
|
//
|
|
return result;
|
|
}
|
|
|
|
//
|
|
// RSI Value Go Down Short Entry ...
|
|
bool XRSIIsCrossedUnderShortEntry(
|
|
int bar_index // Specified Index ...
|
|
)
|
|
{
|
|
//
|
|
bool result = false;
|
|
|
|
//
|
|
if (
|
|
bar_index <= 0 ||
|
|
!XRSIIsValidBuffersSize(bar_index + 2))
|
|
{
|
|
return result;
|
|
}
|
|
|
|
//
|
|
result =
|
|
xRSIBuffer[bar_index + 1] < xRSIShortEntryValue &&
|
|
xRSIBuffer[bar_index + 2] >= xRSIShortEntryValue;
|
|
|
|
//
|
|
return result;
|
|
}
|
|
|
|
//
|
|
// RSI Value Go Down Short Exit ...
|
|
bool XRSIIsCrossedUnderShortExit(
|
|
int bar_index // Specified Index ...
|
|
)
|
|
{
|
|
//
|
|
bool result = false;
|
|
|
|
//
|
|
if (
|
|
bar_index <= 0 ||
|
|
!XRSIIsValidBuffersSize(bar_index + 2))
|
|
{
|
|
return result;
|
|
}
|
|
|
|
//
|
|
result =
|
|
xRSIBuffer[bar_index + 1] < xRSIShortExitValue &&
|
|
xRSIBuffer[bar_index + 2] >= xRSIShortExitValue;
|
|
|
|
//
|
|
return result;
|
|
}
|
|
|
|
//
|
|
// Check all Buffers has valid Size ...
|
|
bool XRSIIsValidBuffersSize(
|
|
int size // the size of buffers which min size for requirements
|
|
)
|
|
{
|
|
//
|
|
bool result = false;
|
|
|
|
//
|
|
if (
|
|
size <= 0 ||
|
|
//
|
|
ArraySize(xRSIBuffer) < size
|
|
//
|
|
)
|
|
{
|
|
result = false;
|
|
}
|
|
else
|
|
{
|
|
result = true;
|
|
}
|
|
|
|
//
|
|
return result;
|
|
}
|
|
|
|
//
|
|
// END XRSI Custom Functions ...
|
|
//
|