291 lines
6.8 KiB
Plaintext
291 lines
6.8 KiB
Plaintext
///////////////////////////////////////////////////////
|
|
//
|
|
// SaherElm IT Center Trend Power 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 MA Indicator"
|
|
#property strict
|
|
|
|
//
|
|
// START Inputs ...
|
|
//
|
|
input int marketLength = 7; // Market Length
|
|
input int shift = 0; // Shift
|
|
//
|
|
// START Global Definitions: Variables, Properties and etc ...
|
|
//
|
|
#property indicator_separate_window
|
|
|
|
//
|
|
#property indicator_plots 3
|
|
#property indicator_buffers 3
|
|
// #property indicator_minimum 0
|
|
// #property indicator_maximum 200
|
|
|
|
//
|
|
#property indicator_levelcolor clrGray
|
|
#property indicator_levelstyle STYLE_DOT
|
|
|
|
//
|
|
// Start Define Indicator Buffer Styles ...
|
|
//
|
|
#property indicator_type1 DRAW_HISTOGRAM
|
|
#property indicator_color1 clrLime
|
|
#property indicator_style1 STYLE_DOT
|
|
#property indicator_width1 1
|
|
|
|
//
|
|
#property indicator_type2 DRAW_HISTOGRAM
|
|
#property indicator_color2 clrRed
|
|
#property indicator_style2 STYLE_DOT
|
|
#property indicator_width2 1
|
|
|
|
//
|
|
#property indicator_type3 DRAW_LINE
|
|
#property indicator_color3 clrYellow
|
|
#property indicator_style3 STYLE_DOT
|
|
#property indicator_width3 1
|
|
|
|
//
|
|
// #property indicator_type4 DRAW_LINE
|
|
// #property indicator_color4 clrAqua
|
|
// #property indicator_style4 STYLE_DASHDOT
|
|
// #property indicator_width4 1
|
|
//
|
|
// End Define Indicator Buffer Styles ...
|
|
//
|
|
|
|
//
|
|
// Buffers ...
|
|
#define powerUpBufferIndex 0
|
|
#define powerDownBufferIndex 1
|
|
#define signalBufferIndex 2
|
|
// #define diBufferIndex 3
|
|
|
|
double powerUpBuffer[];
|
|
double powerDownBuffer[];
|
|
double signalBuffer[];
|
|
// double diBuffer[];
|
|
|
|
//
|
|
#include "../Libraries/x-saherelm.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;
|
|
}
|
|
|
|
// //
|
|
// SetLevelValue(0, 0.0);
|
|
// IndicatorSetString(INDICATOR_LEVELTEXT,0,"");
|
|
|
|
// //
|
|
// SetLevelValue(1, 50);
|
|
// IndicatorSetString(INDICATOR_LEVELTEXT,1,"");
|
|
|
|
// //
|
|
// SetLevelValue(2, 100);
|
|
// IndicatorSetString(INDICATOR_LEVELTEXT,2,"");
|
|
|
|
//
|
|
string pUpLbl = StringConcatenate(
|
|
"P Up (", marketLength, ")"
|
|
);
|
|
SetIndexLabel(powerUpBufferIndex, pUpLbl);
|
|
SetIndexBuffer(powerUpBufferIndex, powerUpBuffer);
|
|
SetIndexDrawBegin(powerUpBufferIndex, marketLength + 1);
|
|
|
|
//
|
|
string pDownLbl = StringConcatenate(
|
|
"P Down (", marketLength, ")"
|
|
);
|
|
SetIndexLabel(powerDownBufferIndex, pDownLbl);
|
|
SetIndexBuffer(powerDownBufferIndex, powerDownBuffer);
|
|
SetIndexDrawBegin(powerDownBufferIndex, marketLength + 1);
|
|
|
|
//
|
|
string pSignalLbl = StringConcatenate(
|
|
"P Signal (", marketLength, ")"
|
|
);
|
|
SetIndexLabel(signalBufferIndex, pSignalLbl);
|
|
SetIndexBuffer(signalBufferIndex, signalBuffer);
|
|
SetIndexDrawBegin(signalBufferIndex, marketLength + 1);
|
|
|
|
// //
|
|
// string pDiLbl = StringConcatenate(
|
|
// "P DI (", marketLength, ")"
|
|
// );
|
|
// SetIndexLabel(diBufferIndex, pDiLbl);
|
|
// SetIndexBuffer(diBufferIndex, diBuffer);
|
|
// SetIndexDrawBegin(diBufferIndex, marketLength + 1);
|
|
|
|
//
|
|
// here we specify logging enabled or not ...
|
|
enableLogging = true;
|
|
|
|
//
|
|
// this is a Tag which attached to our Logger ...
|
|
logTag = "X_TPW_OSC";
|
|
|
|
//
|
|
return INIT_SUCCEEDED;
|
|
}
|
|
|
|
//
|
|
// 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 Buffers ...
|
|
CalculateBuffers(i);
|
|
}
|
|
|
|
//
|
|
return rates_total;
|
|
}
|
|
//
|
|
// END Event Handlers ...
|
|
//
|
|
|
|
//
|
|
// START Functions ...
|
|
//
|
|
//
|
|
// Calculating Ma ...
|
|
void CalculateBuffers(
|
|
const int &bar_index
|
|
) {
|
|
//
|
|
double powerUp = 0;
|
|
double powerDown = 0;
|
|
|
|
//
|
|
int dailyCount = GetDailyCandleCount();
|
|
double dailyHH = GetMarketHighestHigh(
|
|
bar_index,
|
|
dailyCount
|
|
);
|
|
double dailyLL = GetMarketLowestLow(
|
|
bar_index,
|
|
dailyCount
|
|
);
|
|
double dailyDiff = dailyHH - dailyLL;
|
|
double rate = dailyDiff / 100;
|
|
|
|
//
|
|
for (int i = bar_index + shift; i < bar_index + marketLength + shift; i++) {
|
|
//
|
|
XOHCL c = GetCandleModel(i);
|
|
|
|
//
|
|
double cRange =
|
|
MathAbs(c.open - c.close)
|
|
// MathAbs(c.high - c.low)
|
|
;
|
|
bool isBullish = c.open < c.close;
|
|
|
|
//
|
|
if (isBullish) {
|
|
powerUp += cRange;
|
|
} else {
|
|
powerDown += cRange;
|
|
}
|
|
}
|
|
|
|
//
|
|
powerUp = powerUp / rate;
|
|
powerDown = powerDown / rate;
|
|
|
|
|
|
//
|
|
double ema = GetMA(
|
|
bar_index,
|
|
(marketLength * 2),
|
|
0,
|
|
MODE_EMA,
|
|
PRICE_WEIGHTED
|
|
);
|
|
|
|
//
|
|
powerUpBuffer[bar_index] = powerUp;
|
|
|
|
//
|
|
powerDownBuffer[bar_index] = -1 * powerDown;
|
|
|
|
//
|
|
double emaRate = MathAbs(powerUp - MathAbs(powerDown)) / 100;
|
|
double signal = (ema / 100) * emaRate;
|
|
|
|
//
|
|
bool isPowerUp = powerUp > MathAbs(powerDown);
|
|
double signalAddition = isPowerUp ? (-1 * powerDown) : powerUp;
|
|
signalBuffer[bar_index] = signal + signalAddition;
|
|
//
|
|
// double pDiff = powerUpBuffer[bar_index] - powerDownBuffer[bar_index];
|
|
// double cDiValue = pDiff + signalBuffer[bar_index];
|
|
// diBuffer[bar_index] = cDiValue;
|
|
}
|
|
//
|
|
// END Functions ...
|
|
// |