//+------------------------------------------------------------------+
//|                                    smACME Rectangle_v1
//+------------------------------------------------------------------+
#property copyright "Copyright © 02.08.2020, SwingMan"
#property link      ""

#property indicator_chart_window
#property strict

/*--------------------------------------------------------------------
02.08.2020  -  v2.1 - algorithmus changed
01.08.2020  -  v1.0 - first version   CONWAY, BEHLE: Professional Stock Trading, System Design and Automation
12.09.2012 initial- smPA_PriceControlLines_v1
--------------------------------------------------------------------*/

//---- input parameters
//+------------------------------------------------------------------+
input int RectangleLength=4;
input int RangeLength    =12;
input int ATR_Period     =30;

input double ATR_RangeFactor =1.1;
input double RangeRatioLimit =1.5;

input int MiddleLine_Length=10;

extern int maxBars = 1500;
input bool Draw_Areas=true;
input bool Show_IndicatorName=true;
//+------------------------------------------------------------------+

//---- variables
string CR="\n";
datetime thisTime,oldTime;
bool newBar;

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- name for DataWindow and indicator subwindow label
   string short_name=WindowExpertName();
   IndicatorShortName(short_name);
   if(Show_IndicatorName==true)
      Comment(short_name,CR,
              "=================");

   int limitBars=Bars-RectangleLength-RangeLength-10;
   maxBars=MathMin(maxBars,limitBars);

   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
   ObjectsDeleteAll(0,"Rectangle_");
   ObjectsDeleteAll(0,"PCLine1_");
   ObjectsDeleteAll(0,"PCLine2_");
   ObjectsDeleteAll(0,"Middle_");

   if(Show_IndicatorName==true)
      Comment("");
   return(0);
  }

//####################################################################
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   int limit,checkBar;
   datetime time1, time2;
   double highValue,lowValue;

   int counted_bars=IndicatorCounted();
   if(counted_bars<0)
      return(-1);
   if(counted_bars>0)
      counted_bars--;
   limit=Bars-counted_bars;

//---- main loop
   checkBar=0;
   while(checkBar<maxBars)
     {
      newBar=false;
      thisTime=Time[checkBar];
      if(thisTime!=oldTime)
        {
         oldTime=thisTime;
         newBar=true;
        }
      if(newBar==true)
        {
         bool bRectangleConditions= Get_RectangleData(checkBar, time1, time2, highValue,lowValue);
         if(bRectangleConditions)
           {
            Draw_RectangleData(time1, time2, highValue,lowValue);
           }
        }
      checkBar++;
     }

//----
   return(0);
  }
//+------------------------------------------------------------------+
//####################################################################

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool Get_RectangleData(int& iB, datetime& time1, datetime& time2, double& highVal, double& lowVal)
  {
//int iBar=iB+1;
   int lastBar=iB+1;

   bool AcmeRectangular=false;

//---
   time2=Time[lastBar];
   time1=Time[lastBar+RectangleLength-1];

//---
//--- values for the default Rectangle; check first 4 bars
   double RectangleHeight,RangeHeight;
   Get_Rectangle_Values(lastBar,RectangleLength,highVal,lowVal,RectangleHeight);
   Get_Range_Values(lastBar+RectangleLength,RangeLength,RangeHeight);

   AcmeRectangular=Check_Rectangle_Condition(lastBar,RectangleHeight,RangeHeight);
   if(AcmeRectangular==false)
      return(false);


//---
//--- check bars to left side
   int newRecBar=iB+RectangleLength;
   bool newAcmeRectangular=true;

   int nBars=0;
   double newHighVal,newLowVal,newRectangleHeight,newRangeHeight;

   while(newAcmeRectangular==true)
     {
      newRecBar++;
      nBars++;

      Get_Rectangle_Values(lastBar,RectangleLength+nBars,newHighVal,newLowVal,newRectangleHeight);
      Get_Range_Values(lastBar+RectangleLength+nBars,RangeLength,newRangeHeight);

      //if(Time[iB]==D'2020.07.30 08:00')
      //  {
      //   int zz=9;
      //   double ATR=iATR(Symbol(),Period(),ATR_Period,lastBar);
      //   Comment(
      //      "lastBar= ",Time[lastBar],CR,
      //      "highVal= ",highVal,CR,
      //      "lowVal=  ",lowVal,CR,
      //      "RectangleHeight= ",RectangleHeight,CR,CR,
      //      "newHighVal= ",newHighVal,CR,
      //      "newLowVal=  ",newLowVal,CR,
      //      "newRectangleHeight= ",newRectangleHeight,CR,CR,
      //      "ATR= ",ATR
      //   );
      //  }

      newAcmeRectangular=Check_Rectangle_Condition(lastBar,newRectangleHeight,newRangeHeight);

      if(newAcmeRectangular==true)
        {
         time1=Time[newRecBar];
         highVal=newHighVal;
         lowVal =newLowVal;

         iB=newRecBar;
        }
     }

   return(true);
  }

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool Check_Rectangle_Condition(int iB,double recHeight,double rangeHeight)
  {
   bool AcmeRectangular=false;
   double ATR=iATR(Symbol(),Period(),ATR_Period,iB+1);

   if(recHeight>0 && rangeHeight>0)
     {
      bool rangeCondition=(recHeight/rangeHeight <=RangeRatioLimit);
      bool atrCondition  =(recHeight<=ATR*ATR_RangeFactor);
      AcmeRectangular=(rangeCondition && atrCondition);
     }

   return(AcmeRectangular);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void Get_Rectangle_Values(int iBar,int recLength,double& recHigh,double& recLow,double& recHeight)
  {
//--- Rectangle length = 4
   int highestBarRectangle=iHighest(Symbol(),Period(),MODE_HIGH,recLength,iBar);
   int lowestBarRectangle =iLowest(Symbol(),Period(),MODE_LOW,recLength,iBar);

   recHigh=iHigh(Symbol(),Period(),highestBarRectangle);
   recLow =iLow(Symbol(),Period(),lowestBarRectangle);
   recHeight=recHigh-recLow;
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void Get_Range_Values(int iBar,int rangeLength,double &rangeHeight)
  {
   int highestBarRange=iHighest(Symbol(),Period(),MODE_HIGH,rangeLength,iBar);
   int lowestBarRange =iHighest(Symbol(),Period(),MODE_HIGH,rangeLength,iBar);

   double RangeHigh=iHigh(Symbol(),Period(),highestBarRange);
   double RangeLow =iLow(Symbol(),Period(),lowestBarRange);

   rangeHeight=RangeHigh-RangeLow;
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void Draw_RectangleData(datetime time1, datetime time2, double highVal, double lowVal)
  {
   color dColor=0;
   bool bHiddenObject=true;

   string objName = "Rectangle_"+
                    TimeToStr(time2,TIME_DATE|TIME_MINUTES);
//---
   if(Draw_Areas==true)
     {
      dColor=clrAqua;
      if(ObjectFind(objName) != -1)
         ObjectDelete(0,objName);
        {
         ObjectCreate(objName, OBJ_RECTANGLE,0,time1,highVal,time2,lowVal);

         ObjectSet(objName, OBJPROP_COLOR,dColor);
         ObjectSet(objName, OBJPROP_BACK,false);
         ObjectSet(objName, OBJPROP_WIDTH,2);
         ObjectSet(objName, OBJPROP_HIDDEN,bHiddenObject);
        }
     }
   else
      //---
      if(Draw_Areas==false)
        {
         string objName1 = "PCLine1_"+
                           TimeToStr(time2,TIME_DATE|TIME_MINUTES);

         string objName2 = "PCLine2_"+
                           TimeToStr(time2,TIME_DATE|TIME_MINUTES);
         objName=objName1;
         if(ObjectFind(objName) != -1)
            ObjectDelete(0,objName);
           {
            ObjectCreate(objName, OBJ_TREND,0,time1,highVal,time2,highVal);
            ObjectSet(objName, OBJPROP_WIDTH,3);

            dColor=clrAqua;

            ObjectSet(objName, OBJPROP_COLOR,dColor);
            ObjectSet(objName, OBJPROP_BACK,true);
            ObjectSet(objName, OBJPROP_RAY,false);
            ObjectSet(objName, OBJPROP_HIDDEN,bHiddenObject);
           }

         objName=objName2;
         if(ObjectFind(objName) != -1)
            ObjectDelete(0,objName);
           {
            ObjectCreate(objName, OBJ_TREND,0,time1,lowVal,time2,lowVal);
            ObjectSet(objName, OBJPROP_WIDTH,3);

            dColor=clrGold;

            ObjectSet(objName, OBJPROP_COLOR,dColor);
            ObjectSet(objName, OBJPROP_BACK,true);
            ObjectSet(objName, OBJPROP_RAY,false);
            ObjectSet(objName, OBJPROP_HIDDEN,bHiddenObject);
           }
        }

//--- Draw middle line
   double middleVal=0.5*(highVal+lowVal);
   objName = "Middle_"+
             TimeToStr(time2,TIME_DATE|TIME_MINUTES);

   time1=time2;
   time2=time1+Period()*60*MiddleLine_Length;

   if(ObjectFind(objName) != -1)
      ObjectDelete(0,objName);
     {
      ObjectCreate(objName, OBJ_TREND,0,time1,middleVal,time2,middleVal);
      ObjectSet(objName, OBJPROP_WIDTH,3);

      dColor=clrYellow;

      ObjectSet(objName, OBJPROP_COLOR,dColor);
      ObjectSet(objName, OBJPROP_BACK,true);
      ObjectSet(objName, OBJPROP_RAY,false);
      ObjectSet(objName, OBJPROP_HIDDEN,bHiddenObject);
     }
  }
//+------------------------------------------------------------------+