112 lines
3.9 KiB
MQL5
112 lines
3.9 KiB
MQL5
//+------------------------------------------------------------------+
|
|
//| ASI.mq5 |
|
|
//| Copyright 2000-2025, MetaQuotes Ltd. |
|
|
//| https://www.mql5.com |
|
|
//+------------------------------------------------------------------+
|
|
#property copyright "Copyright 2000-2025, MetaQuotes Ltd."
|
|
#property link "https://www.mql5.com"
|
|
#property description "Accumulation Swing Index"
|
|
|
|
#property indicator_separate_window
|
|
#property indicator_buffers 3
|
|
#property indicator_plots 1
|
|
#property indicator_type1 DRAW_LINE
|
|
#property indicator_color1 clrDodgerBlue
|
|
#property indicator_style1 0
|
|
#property indicator_width1 1
|
|
#property indicator_label1 "ASI"
|
|
//--- input parameter
|
|
input double InpT=300.0; // T (maximum price changing)
|
|
//--- indicator buffers
|
|
double ExtASIBuffer[];
|
|
double ExtSIBuffer[];
|
|
double ExtTRBuffer[];
|
|
|
|
double ExtTpoints,ExtT;
|
|
//+------------------------------------------------------------------+
|
|
//| Custom indicator initialization function |
|
|
//+------------------------------------------------------------------+
|
|
void OnInit()
|
|
{
|
|
//--- check for input value
|
|
if(MathAbs(InpT)>1e-7)
|
|
ExtT=InpT;
|
|
else
|
|
{
|
|
ExtT=300.0;
|
|
PrintFormat("Input parameter T has wrong value. Indicator will use T = %f.",ExtT);
|
|
}
|
|
//--- define buffers
|
|
SetIndexBuffer(0,ExtASIBuffer);
|
|
SetIndexBuffer(1,ExtSIBuffer,INDICATOR_CALCULATIONS);
|
|
SetIndexBuffer(2,ExtTRBuffer,INDICATOR_CALCULATIONS);
|
|
//--- draw begin settings
|
|
PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,1);
|
|
//--- number of digits of indicator value
|
|
IndicatorSetInteger(INDICATOR_DIGITS,2);
|
|
//--- calculate ExtTpoints value
|
|
if(_Point>1e-7)
|
|
ExtTpoints=ExtT*_Point;
|
|
else
|
|
ExtTpoints=ExtT*MathPow(10,-_Digits);
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| 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<2)
|
|
return(0);
|
|
//--- start calculation
|
|
int pos=prev_calculated-1;
|
|
//--- correct position, when it's first iteration
|
|
if(pos<=0)
|
|
{
|
|
pos=1;
|
|
ExtASIBuffer[0]=0.0;
|
|
ExtSIBuffer[0]=0.0;
|
|
ExtTRBuffer[0]=high[0]-low[0];
|
|
}
|
|
//--- main cycle
|
|
for(int i=pos; i<rates_total && !IsStopped(); i++)
|
|
{
|
|
//--- get some data
|
|
double dPrevClose=close[i-1];
|
|
double dPrevOpen=open[i-1];
|
|
double dClose=close[i];
|
|
double dHigh=high[i];
|
|
double dLow=low[i];
|
|
//--- fill TR buffer
|
|
ExtTRBuffer[i]=MathMax(dHigh,dPrevClose)-MathMin(dLow,dPrevClose);
|
|
double ER=0.0;
|
|
if(!(dPrevClose>=dLow && dPrevClose<=dHigh))
|
|
{
|
|
if(dPrevClose>dHigh)
|
|
ER=MathAbs(dHigh-dPrevClose);
|
|
if(dPrevClose<dLow)
|
|
ER=MathAbs(dLow-dPrevClose);
|
|
}
|
|
double K=MathMax(MathAbs(dHigh-dPrevClose),MathAbs(dLow-dPrevClose));
|
|
double SH=MathAbs(dPrevClose-dPrevOpen);
|
|
double R=ExtTRBuffer[i]-0.5*ER+0.25*SH;
|
|
//--- calculate SI value
|
|
if(R==0.0 || ExtTpoints==0.0)
|
|
ExtSIBuffer[i]=0.0;
|
|
else
|
|
ExtSIBuffer[i]=50*(dClose-dPrevClose+0.5*(dClose-open[i])+0.25*(dPrevClose-dPrevOpen))*(K/ExtTpoints)/R;
|
|
//--- write down ASI buffer value
|
|
ExtASIBuffer[i]=ExtASIBuffer[i-1]+ExtSIBuffer[i];
|
|
}
|
|
//--- OnCalculate done. Return new prev_calculated.
|
|
return(rates_total);
|
|
}
|
|
//+------------------------------------------------------------------+
|