saherelm/xMQL4
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial Commit ...

Browse Source
This commit is contained in:
saherelm
2024-01-25 04:03:36 +03:30
commit 0a19e0f4e1
217 changed files with 41677 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
xSamples/Parabolic.mq4
+239
View File
@@ -0,0 +1,239 @@
//+------------------------------------------------------------------+
//| Parabolic.mq4 |
//| Copyright 2005-2014, MetaQuotes Software Corp. |
//| http://www.mql4.com |
//+------------------------------------------------------------------+
#property copyright "2005-2014, MetaQuotes Software Corp."
#property link "http://www.mql4.com"
#property description "Parabolic Stop-And-Reversal system"
#property strict
//--- indicator settings
#property indicator_chart_window
#property indicator_buffers 1
#property indicator_color1 Lime
//--- input parameters
input double InpSARStep=0.02; // Step
input double InpSARMaximum=0.2; // Maximum
//---- buffers
double ExtSARBuffer[];
//--- global variables
double ExtSarStep;
double ExtSarMaximum;
int ExtLastReverse;
bool ExtDirectionLong;
double ExtLastStep,ExtLastEP,ExtLastSAR;
double ExtLastHigh,ExtLastLow;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
void OnInit()
{
//--- checking input data
if(InpSARStep<0.0)
{
ExtSarStep=0.02;
Print("Input parametr InpSARStep has incorrect value. Indicator will use value ",
ExtSarStep," for calculations.");
}
else
ExtSarStep=InpSARStep;
if(InpSARMaximum<0.0)
{
ExtSarMaximum=0.2;
Print("Input parametr InpSARMaximum has incorrect value. Indicator will use value ",
ExtSarMaximum," for calculations.");
}
else
ExtSarMaximum=InpSARMaximum;
//--- drawing settings
IndicatorDigits(Digits);
SetIndexStyle(0,DRAW_ARROW);
SetIndexArrow(0,159);
//---- indicator buffers
SetIndexBuffer(0,ExtSARBuffer);
//--- set short name
IndicatorShortName("SAR("+DoubleToString(ExtSarStep,2)+","+DoubleToString(ExtSarMaximum,2)+")");
//--- set global variables
ExtLastReverse=0;
ExtDirectionLong=false;
ExtLastStep=ExtLastEP=ExtLastSAR=0.0;
ExtLastHigh=ExtLastLow=0.0;
//----
}
//+------------------------------------------------------------------+
//| Parabolic SAR |
//+------------------------------------------------------------------+
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[])
{
bool dir_long;
double last_high,last_low,ep,sar,step;
int i;
//--- check for minimum rates count
if(rates_total<3)
return(0);
//--- counting from 0 to rates_total
ArraySetAsSeries(ExtSARBuffer,false);
ArraySetAsSeries(high,false);
ArraySetAsSeries(low,false);
//--- detect current position for calculations
i=prev_calculated-1;
//--- calculations from start?
if(i<1)
{
ExtLastReverse=0;
dir_long=true;
step=ExtSarStep;
last_high=-10000000.0;
last_low=10000000.0;
sar=0;
i=1;
while(i<rates_total-1)
{
ExtLastReverse=i;
if(last_low>low[i])
last_low=low[i];
if(last_high<high[i])
last_high=high[i];
if(high[i]>high[i-1] && low[i]>low[i-1])
break;
if(high[i]<high[i-1] && low[i]<low[i-1])
{
dir_long=false;
break;
}
i++;
}
//--- initialize with zero
ArrayInitialize(ExtSARBuffer,0.0);
//--- go check
if(dir_long)
{
ExtSARBuffer[i]=low[i-1];
ep=high[i];
}
else
{
ExtSARBuffer[i]=high[i-1];
ep=low[i];
}
i++;
}
else
{
//--- calculations to be continued. restore last values
i=ExtLastReverse;
step=ExtLastStep;
dir_long=ExtDirectionLong;
last_high=ExtLastHigh;
last_low=ExtLastLow;
ep=ExtLastEP;
sar=ExtLastSAR;
}
//---main cycle
while(i<rates_total)
{
//--- check for reverse
if(dir_long && low[i]<ExtSARBuffer[i-1])
{
SaveLastReverse(i,true,step,low[i],last_high,ep,sar);
step=ExtSarStep;
dir_long=false;
ep=low[i];
last_low=low[i];
ExtSARBuffer[i++]=last_high;
continue;
}
if(!dir_long && high[i]>ExtSARBuffer[i-1])
{
SaveLastReverse(i,false,step,last_low,high[i],ep,sar);
step=ExtSarStep;
dir_long=true;
ep=high[i];
last_high=high[i];
ExtSARBuffer[i++]=last_low;
continue;
}
//---
sar=ExtSARBuffer[i-1]+step*(ep-ExtSARBuffer[i-1]);
//--- LONG?
if(dir_long)
{
if(ep<high[i])
{
if((step+ExtSarStep)<=ExtSarMaximum)
step+=ExtSarStep;
}
if(high[i]<high[i-1] && i==2)
sar=ExtSARBuffer[i-1];
if(sar>low[i-1])
sar=low[i-1];
if(sar>low[i-2])
sar=low[i-2];
if(sar>low[i])
{
SaveLastReverse(i,true,step,low[i],last_high,ep,sar);
step=ExtSarStep; dir_long=false; ep=low[i];
last_low=low[i];
ExtSARBuffer[i++]=last_high;
continue;
}
if(ep<high[i])
ep=last_high=high[i];
}
else // SHORT
{
if(ep>low[i])
{
if((step+ExtSarStep)<=ExtSarMaximum)
step+=ExtSarStep;
}
if(low[i]<low[i-1] && i==2)
sar=ExtSARBuffer[i-1];
if(sar<high[i-1])
sar=high[i-1];
if(sar<high[i-2])
sar=high[i-2];
if(sar<high[i])
{
SaveLastReverse(i,false,step,last_low,high[i],ep,sar);
step=ExtSarStep;
dir_long=true;
ep=high[i];
last_high=high[i];
ExtSARBuffer[i++]=last_low;
continue;
}
if(ep>low[i])
ep=last_low=low[i];
}
ExtSARBuffer[i++]=sar;
}
//---- OnCalculate done. Return new prev_calculated.
return(rates_total);
}
//+------------------------------------------------------------------+
//| save last values to continue further calculations |
//+------------------------------------------------------------------+
void SaveLastReverse(int reverse,bool dir,double step,double last_low,double last_high,double ep,double sar)
{
ExtLastReverse=reverse;
if(ExtLastReverse<2)
ExtLastReverse=2;
ExtDirectionLong=dir;
ExtLastStep=step;
ExtLastLow=last_low;
ExtLastHigh=last_high;
ExtLastEP=ep;
ExtLastSAR=sar;
}
//+------------------------------------------------------------------+