打印本文
關(guān)閉窗口
//+------------------------------------------------------------------+
//|?????????????????????????????????????????????? ?????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;
? }
//+------------------------------------------------------------------+
?
?
?來源:程序化99
?
?來源: www.weiqiv.net.cn
?