请老师改写一个指标　[文华财经]

//+------------------------------------------------------------------+　　

//|                                                    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.CXH99.COM