By calling upon Vax within the 30-minute window with a 398-sample dataset, the Fractal MFI divergence can receive an additional flag.

Looking at the Cumulative Volume Delta, you can see that Friday was a strong up day, buying from the start to the end, almost on the high.

Of course, still outside the prior volume block.

Now, my colored MFI divergence highlights are a good idea to start with, but it is tiresome going back and forth between 30-min and 1H just to get a picture of the volatility-compression readings. So, more text was my answer.

As you can see the red / bear line is over the bull line, which can be a crucial final information that tips the scale. The high of that candle is a promoted sell.

Next up, a Demoted buy.

Of course, things can get more nuanced than that.

For instance, a low volatility turn sequence plots first a “where” spike out of the 30 BB (triangular plots) then the “when” receives its plot (vertical highlights), and if the where block is unable to break through the peak of the triangle, that’s a priority turn.

As you can see, the Demoted supplementing flag was incorrect. 4 hours later, the Bears managed to overcome the Bulls. Time/sample size is just as important as the price level. No New HH.

Here’s one more example of a low-volatility turn.

No new LL.

///fractal MFI below
if (i>0  && Close[i+2]>Low[i] && Low[i+1]>Low[i] && Low[i]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i) && Close[i-1]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i-1)-20*Point && Low[i-1]>Low[i]-20*Point ){
   MFIDMEM[i]=MFI[i];
    ObjectCreate("Caligula"+IntegerToString(i),OBJ_TEXT, 3, Time[i],25);
    ObjectSetText("Caligula"+IntegerToString(i),DoubleToStr(NormalizeDouble(MFI[i],1),1), 16, "Impact", clrGray);
    if (MFIDMEM[i+1]<MFIDMEM[i] && MFI[i]<48 && MFI[i]>26 && (RSI2[i]<10 || RSI2[i]>20)) {ObjectSetText("Caligula"+IntegerToString(i),DoubleToStr(NormalizeDouble(MFI[i],1),1), 26, "Impact", clrGreen);
    ObjectCreate("Caligulas"+IntegerToString(i),OBJ_TEXT, 3, Time[i],95);
    ObjectSetText("Caligulas"+IntegerToString(i),"U-BB (S30Wide)/3BBx", 22, "Impact", clrBlue);
         if (ExtATRBuffer2[i+1]>ExtATRBuffer[i+1]) {
                 ObjectCreate("Caligulazz"+IntegerToString(i),OBJ_TEXT, 3, Time[i+8],25);
                 ObjectSetText("Caligulazz"+IntegerToString(i),"Promoted", 22, "Impact", clrMidnightBlue);
          }
          else {
                 ObjectCreate("Caligulazz"+IntegerToString(i),OBJ_TEXT, 3, Time[i+8],25);
                 ObjectSetText("Caligulazz"+IntegerToString(i),"Demoted", 22, "Impact", clrMidnightBlue);
          }
     ObjectCreate("Caligulasz"+IntegerToString(i),OBJ_TEXT, 3, Time[i],55);
    ObjectSetText("Caligulasz"+IntegerToString(i),"S4 -> E-", 22, "Impact", clrMidnightBlue);
     if (RSI2[i]<5) {ObjectSetText("Caligula"+IntegerToString(i),DoubleToStr(NormalizeDouble(MFI[i],1),1), 26, "Impact", clrAquamarine);
          if (ExtATRBuffer2[i+1]>ExtATRBuffer[i+1]) {
                 ObjectCreate("Caligulazz"+IntegerToString(i),OBJ_TEXT, 3, Time[i+8],25);
                 ObjectSetText("Caligulazz"+IntegerToString(i),"Promoted", 22, "Impact", clrMidnightBlue);
          }
          else {
                 ObjectCreate("Caligulazz"+IntegerToString(i),OBJ_TEXT, 3, Time[i+8],25);
                 ObjectSetText("Caligulazz"+IntegerToString(i),"Demoted", 22, "Impact", clrMidnightBlue);
          }
          
          
    ObjectSetText("Caligulas"+IntegerToString(i),"->3xBB,Vol,Fail/Fl-Stop", 22, "Impact", clrIndigo);
     }
    }
}

///fractal MFI above
if (i>0 && Close[i+2]<High[i] && High[i+1]<High[i] && High[i]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i) && Close[i-1]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i-1)+5*Point && High[i-1]<High[i]+20*Point){
   MFIUMEM[i]=MFI[i];
    ObjectCreate("Caligula"+IntegerToString(i),OBJ_TEXT, 3, Time[i],95);
    ObjectSetText("Caligula"+IntegerToString(i),DoubleToStr(NormalizeDouble(MFI[i],1),1), 16, "Impact", clrGray);
    if (MFI[i]>68 && MFI[i]<75 && RSI2[i]<96 ) ObjectSetText("Caligula"+IntegerToString(i),DoubleToStr(NormalizeDouble(MFI[i],1),1), 26, "Impact", clrBlue);
    if (MFIUMEM[i+1]<MFIUMEM[i] && MFI[i]>52 && MFI[i]<71 && RSI2[i]<96 ) {ObjectSetText("Caligula"+IntegerToString(i),DoubleToStr(NormalizeDouble(MFI[i],1),1), 26, "Impact", clrRed);
     if (ExtATRBuffer2[i+1]<ExtATRBuffer[i+1]) {
                 ObjectCreate("Caligulazz"+IntegerToString(i),OBJ_TEXT, 3, Time[i+8],75);
                 ObjectSetText("Caligulazz"+IntegerToString(i),"Promoted", 22, "Impact", clrMidnightBlue);
          }
          else {
                 ObjectCreate("Caligulazz"+IntegerToString(i),OBJ_TEXT, 3, Time[i+8],75);
                 ObjectSetText("Caligulazz"+IntegerToString(i),"Demoted", 22, "Impact", clrMidnightBlue);
          }
   }

If this is a low volatility turn – and I don’t think it is (- a stall), it would still have to test back into that triangle at least once. A lower low would mean a high volatility turn though.

There is a well-defined failure area between 1.1622 and 1.16, the prudent area to pick up a hedge / close shorts. The BRK level should remain untouched. If it blows past, you are in a Wave 3 down, and a new measuring leg just started printing.

---

After a while, it may pose a challenge to surprise yourself with what you can do in music. I am managing to do it still.

---

After a volatility compression anchor print, there should be a divergence, weaker compression achieved at a lower low.

I’ll show you something neat. Remember the circled menu item?

Below was the inspiration for enlisting it.

This much about fractals, a 30-minute chart, and a 30-sample BB.

Next thing – 60 sample stochastic on the hourly. Highlights for the last 4-percentile.

 if (i>0  && stoch60[i]<4)
   {
       ObjectCreate("DOTS"+i,OBJ_TEXT, 1, Time[i+1],(ExtATRBuffer2[i])+25);
        ObjectSetText("DOTS"+i, DoubleToStr(NormalizeDouble(stoch60[i],1),1), 16, "Impact", clrDarkGreen);
   }  
   
  if (i>0  && stoch60[i]>96)
   {
       ObjectCreate("DOTS"+i,OBJ_TEXT, 1, Time[i+1],(ExtATRBuffer2[i])-15);
        ObjectSetText("DOTS"+i, DoubleToStr(NormalizeDouble(stoch60[i],1),1), 16, "Impact", clrCrimson);
   }  

It does not always prompt an immediate reaction, but the countermove also holds predictive value.

For instance, a shallow pullback to the E-30 is a great continuation entry.

Otherwise, I have a couple of examples with an 86-pip counter move first.

This is a tough call with the Bulls and the Bears converging, being neck & neck.

The Bull / Bear strength plotter I came up with yesterday. Not sure how it would be useful, but I felt the need for it.

if (ExtATRBuffer<30) bulls=(100-ExtATRBuffer+20)/30*25;
else if (ExtATRBuffer>=30 && ExtATRBuffer<47) bulls=(100-ExtATRBuffer+26)/17*9+25;
else if (ExtATRBuffer>=47 && ExtATRBuffer<135) bulls=(100-ExtATRBuffer+36)/88*41+25;


if (ExtATRBuffer2<30) bears=(100-ExtATRBuffer2+20)/30*25;
else if (ExtATRBuffer2>=30 && ExtATRBuffer2<47) bears=(100-ExtATRBuffer2+26)/17*9+25;
else if (ExtATRBuffer2>=47 && ExtATRBuffer2<135) bears=(100-ExtATRBuffer2+36)/88*41+25;


ObjectCreate("LEVELOPE"+29,OBJ_LABEL,3, 0,0);
  ObjectSet("LEVELOPE"+29,OBJPROP_CORNER,3);
    ObjectSet("LEVELOPE"+29,OBJPROP_XDISTANCE,0);
  ObjectSet("LEVELOPE"+29,OBJPROP_YDISTANCE,60);
  if (bulls>bears) ObjectSet("LEVELOPE"+29,OBJPROP_COLOR,clrGreen);
  else ObjectSet("LEVELOPE"+29,OBJPROP_COLOR,clrCrimson);
  if (Period()==60) ObjectSetText("LEVELOPE"+29,"  ",24,"Arial Black");
   else ObjectSetText("LEVELOPE"+29,"Bulls: "+DoubleToStr(NormalizeDouble(bulls,1),1)+"%",24,"Arial Black");

ObjectCreate("LEVELOPE"+30,OBJ_LABEL,3, 0,0);
  ObjectSet("LEVELOPE"+30,OBJPROP_CORNER,3);
    ObjectSet("LEVELOPE"+30,OBJPROP_XDISTANCE,0);
  ObjectSet("LEVELOPE"+30,OBJPROP_YDISTANCE,90);
  if (bulls>bears) ObjectSet("LEVELOPE"+30,OBJPROP_COLOR,clrGreen);
  else ObjectSet("LEVELOPE"+30,OBJPROP_COLOR,clrCrimson);
  if (Period()==60) ObjectSetText("LEVELOPE"+30,"  ",24,"Arial Black");
   else ObjectSetText("LEVELOPE"+30,"Bears: "+DoubleToStr(NormalizeDouble(bears,1),1)+"%",24,"Arial Black");

The last time the Bulls were in the volatility compressor (aka Tool Shed) was Sept 9-11.

Notice that the Bears are also in the shed, and except for the last 6 hours, they were worse off, more beat down.

This time it is different.

The Bulls are in solitary confinement and are about to get it. This condition was last observed on August 28.

People are always trading the last trade. I see no bottom, I hear no bottom. The momentum has barely started coming on.

---

History’s worst murderers

---

The other thing was the deep disappointment in the YouTuber I used to have sympathy for. When he started shilling Sven’s take on the S&P – the monthly low was made on the first day of the month for many months, trying to steal credits, I had to realize that this Brian Shannon slogens boosted ego trip guy has folded under the pressure of having to show for, and all of his outrageous performance claims belong in that too good to be true bucket borrowed from the Scammer Supplies.

You have seen a mean reversion from a 4x fluctuation stretch. The projection was 1.1750

The shorts and the longs converged. Both parties are outside the beating area / the tool shed.

The price has been positioned above the market profile.

The small hint here is that there is no bounce back up happening, and the volatility breakout to the downside is a short breath away, still at 1.1741.

I have thought of talking about energy principles again, just have not had the time.

With the help of the CI (12-sample), it is easy to spot if a move is discharging energy (pushing) or consolidating it (relieving).

As I was asked, here’s what I said before the FOMC.

Now, if only I had looked at my desktop charts in the last hour, I could have nailed the exit scale out. I did sell out 0.5 lot at 1.1913 still.

The deflector dropped to 1.1914. I would have had orders at every single pip above.

Do we have a top? You bet your sweet ass.

S4 is 16 pips below S3, which is approximately 1.1806.

1.1741 is the volatility punch bag wuthout consolidation.

peg it to an hourly chart.

One thing should normally not happen: an upside fractal should not have a 7-sample MFI read below 54.

This places a pending order 2 pips beyond the fractal and targets the Volatility Breakout level plus 5 pips, with the missing hedge, plus 20% extra.

To test it, I run it for the last fractal without MFI. Here’s the result:

// Morbid MFI Overhedger by Macdulio for Automated Trading

#include <stdlib.mqh>
extern int percentage = 20;
extern int magic_number = 87;
extern int magic_number2 = 88;
extern int magic_number3 = 89;
extern double Ratio = 0.6;
#property copyright "by Macdulio in 2025" 
#property link      "https://forexfore.blog" 
#property description "Morbid MFI Overhedger"  

int profits;

  double nakedshorts[];
  double nakedlongs[];
  
  
  double open_price;
  double stop_loss_price;
  double take_profit_price;
  
  double open_price2;
  double stop_loss_price2;
  double take_profit_price2;
  double RSI2[];
  double ATRAVG[]; 
 double OrderOpenPrice;
 double OrderProfit;
double ExtUpperBuffer[], mfi[];
double ExtLowerBuffer[];
double ExtUpperBuffer_[],ExtLowerBuffer_[];
double ExtUpperBuffer_d[],ExtLowerBuffer_d[];
double ExtMapBuffer[];
double ufractals[],dfractals[];
  string symbol = Symbol();   
int init() {
   return(0);
}

int deinit() {
  return(0);
}

int start() {

  ArrayResize(ATRAVG, Bars);   
ArrayInitialize(ATRAVG, 0); 
  ArrayResize(RSI2, 600);   
ArrayInitialize(RSI2, 0); 
  ArrayResize(ExtMapBuffer, Bars);
  ArrayInitialize(ExtMapBuffer,EMPTY_VALUE); 
  ArrayResize(ExtUpperBuffer, Bars);
  ArrayInitialize(ExtUpperBuffer,EMPTY_VALUE); 
     ArrayResize(ExtLowerBuffer, Bars);
  ArrayInitialize(ExtLowerBuffer, EMPTY_VALUE); 
 ArrayResize(ExtUpperBuffer_, Bars);
  ArrayInitialize(ExtUpperBuffer_,EMPTY_VALUE); 
     ArrayResize(ExtLowerBuffer_, Bars);
  ArrayInitialize(ExtLowerBuffer_, EMPTY_VALUE);  
ArrayResize(ExtUpperBuffer_d, Bars);
  ArrayInitialize(ExtUpperBuffer_d,EMPTY_VALUE); 
     ArrayResize(ExtLowerBuffer_d, Bars);
  ArrayInitialize(ExtLowerBuffer_d, EMPTY_VALUE); 
ArrayResize(ufractals, Bars);
  ArrayInitialize(ufractals, EMPTY_VALUE); 
ArrayResize(dfractals, Bars);
  ArrayInitialize(dfractals, EMPTY_VALUE); 
ArrayResize(mfi, 600);   
ArrayInitialize(mfi, 0); 


int i, counter;
int counted_bars=IndicatorCounted();
int longcount, shortcount;
double nlongs;
double nshorts;
double longsize = 0;
double shortsize = 0;
double longaveragebuffer;
double shortaveragebuffer;
double buylevel=1000;
double sellevel=0;
double weight;
int order_type;
  
profits = 0;
 int hstTotal=OrdersHistoryTotal();

 counter = 0;
 
double    ATRA = 0;
   for (i=1; i<=3; i++){ 
     ATRA = ATRA+iATR(NULL,1440,14,i);}
   
   for (i=0; i<=160; i++){ 
     ATRAVG[i] = ATRA/3; }
    
   i=0;
   while (i<200){
      if (ChoppinessIndex(12*4,i)>53 && ChoppinessIndex(12*4,i+1)<53) break;
   i++;

  }
 
   
   if (i<200) weight=iClose(symbol,15,i);
 

 // Print("Ratio = ", Ratio);


for(i=100; i>=0; i--){
   if (iFractals(symbol,60,MODE_UPPER,i)) ufractals[i]=iHigh(symbol,60,i);
   else ufractals[i]=ufractals[i+1];
if (iFractals(symbol,60,MODE_LOWER,i)) dfractals[i]=iLow(symbol,60,i);
   else dfractals[i]=dfractals[i+1];

  RSI2[i]=iRSI(symbol,60,2,PRICE_MEDIAN,i);
    mfi[i]=iMFI(symbol,60,7,i);  
   ExtUpperBuffer[i]=iLow(symbol,0,iLowest(symbol,0,MODE_LOW,12,i))+460*Point;
       ExtLowerBuffer[i]=iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,12,i))-460*Point;
         
         if (ExtUpperBuffer[i]>ExtLowerBuffer[i]) {ExtUpperBuffer_[i]=ExtUpperBuffer[i]; ExtLowerBuffer_[i]=ExtLowerBuffer[i];
         
         ExtUpperBuffer_d[i]=ExtUpperBuffer_[i]+450*Point; ExtLowerBuffer_d[i]=ExtLowerBuffer_[i]-450*Point;
         }

} 

 for(i=OrdersTotal()-1; i>=0 ; i--)
 {   
   
   if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false)
        { 
           Print("Access to orders list failed with error (",GetLastError(),")");
           break;
        }
          // if ( Symbol()=="EURUSD" && OrderStopLoss()==0 ) {
          // Print("OderProfit: ", OrderProfit());
          
          //Print("AB:",AccountBalance()*-1*.025);
             if (OrderType() == OP_BUY) 
             {
               nlongs = nlongs+OrderLots();
               longcount = longcount+1;
               longaveragebuffer = longaveragebuffer+(OrderOpenPrice()*OrderLots()); 
                  
             }  
               
             if (OrderType() == OP_SELL )
             {
               nshorts = nshorts+OrderLots(); 
               shortcount = shortcount+1;         
               shortaveragebuffer = shortaveragebuffer+(OrderOpenPrice()*OrderLots()); 
             }
         // }
   }
   
   if (nlongs!=nshorts){
   
   
   double comparison = (AccountEquity()/AccountBalance())*100;
   
 //   Print("comparison = ", comparison);


i=1;
while (i<21){

if (iFractals(symbol,60,MODE_UPPER,i) && mfi[i]<54 && High[i]>ufractals[i+1]) break;
// && mfi[i]<54
i++;
} 
if (iFractals(symbol,60,MODE_UPPER,i) && mfi[i]<54 && High[i]>ufractals[i+1]) buylevel = High[i]+20*Point;


longsize = (nshorts-nlongs)*(100+percentage)/100;              
              

  // Overghedge for shorts
  if (nlongs<nshorts && buylevel!=1000 && i<21) {
  
  // if (comparison<Ratio) RemoveStopsandTargets();
    open_price2 = NormalizeDouble(buylevel, Digits);
    stop_loss_price2 = NormalizeDouble(0,Digits);
    take_profit_price2 = NormalizeDouble(weight+1010*Point,Digits);

 for (i = OrdersTotal() - 1; i >= 0; i--)

      if (OrderSelect(i, SELECT_BY_POS))
        if (OrderMagicNumber() == magic_number2) {
          order_type = OrderType();
          if (order_type == ORDER_TYPE_BUY_STOP) {
            if ((NormalizeDouble(OrderOpenPrice(), Digits) != open_price2) || (NormalizeDouble(OrderStopLoss(), Digits) != stop_loss_price2) || (NormalizeDouble(OrderTakeProfit(), Digits) != take_profit_price2)) {
              if (!OrderModify(OrderTicket(), open_price2, stop_loss_price2, take_profit_price2, OrderExpiration()))
                Print("Error: ", ErrorDescription(_LastError));
                
            }
            break;
          }
          else if (order_type == ORDER_TYPE_BUY)
            break;
        }
    if (i < 0)
      if (OrderSend(symbol, OP_BUYSTOP,  NormalizeDouble(longsize,2), open_price2, 3, stop_loss_price2, take_profit_price2, magic_number2+" Morbid MFI Overhedger BUY STOP",  magic_number2) < 0)
        
               Print("Error: ", ErrorDescription(_LastError));
  }
  else
    for (i = OrdersTotal() - 1; i >= 0; i--)

      if (OrderSelect(i, SELECT_BY_POS))
        if (OrderMagicNumber() == magic_number2 )
          if (OrderType() == ORDER_TYPE_BUY_STOP)
            if (!OrderDelete(OrderTicket()))
              Print("Error: ", ErrorDescription(_LastError));              
              
 
 
i=1;
while (i<21){

if (iFractals(symbol,60,MODE_LOWER,i)  && mfi[i]>46 && Low[i]<dfractals[i+1]) break;

i++;
} 
if (iFractals(symbol,60,MODE_LOWER,i) && mfi[i]>46 && Low[i]<dfractals[i+1]) sellevel = Low[i]-20*Point;

              

shortsize = (nlongs-nshorts)*(100+percentage)/100;             
              
              
// Overhedge For Longs
 if (nshorts<nlongs && sellevel!=0 && i<21 ) {
  
 // if (comparison<Ratio) RemoveStopsandTargets();
    open_price2 = NormalizeDouble(sellevel, Digits);
    stop_loss_price2 = NormalizeDouble(0,Digits);
    take_profit_price2 = NormalizeDouble(weight-1010*Point,Digits);
    for (i = OrdersTotal() - 1; i >= 0; i--)
      if (OrderSelect(i, SELECT_BY_POS))
        if (OrderMagicNumber() == magic_number2) {
          order_type = OrderType();
          if (order_type == ORDER_TYPE_SELL_STOP) {
            if ((NormalizeDouble(OrderOpenPrice(), Digits) != open_price2) || (NormalizeDouble(OrderStopLoss(), Digits) != stop_loss_price2) || (NormalizeDouble(OrderTakeProfit(), Digits) != take_profit_price2)) {
              if (!OrderModify(OrderTicket(), open_price2, stop_loss_price2, take_profit_price2, OrderExpiration()))
                Print("Error: ", ErrorDescription(_LastError));
            }
            break;
          }
                    else if (order_type == ORDER_TYPE_SELL)
            break;
        }
    if (i < 0)
      if (OrderSend(symbol, OP_SELLSTOP, NormalizeDouble(shortsize,2), open_price2, 3, stop_loss_price2, take_profit_price2, magic_number2+"  Morbid MFI Overhedger SELL STOP", magic_number2) < 0)
        Print("Error: ", ErrorDescription(_LastError));
  }
  else
    for (i = OrdersTotal() - 1; i >= 0; i--)
      if (OrderSelect(i, SELECT_BY_POS))
        if (OrderMagicNumber() == magic_number2)
          if (OrderType() == ORDER_TYPE_SELL_STOP)
            if (!OrderDelete(OrderTicket()))
              Print("Error: ", ErrorDescription(_LastError));              
 
 

        
  return(0);
}
}

double RemoveStopsandTargets()
{
   int i;
   for (i = OrdersTotal() - 1; i >= 0; i--){
   if( OrderSelect(i,SELECT_BY_POS, MODE_TRADES)) 
    if( OrderType()==OP_BUYSTOP && MathAbs(OrderOpenPrice()-Ask)<.003) 
       OrderDelete( OrderTicket() );
       else if( OrderType()==OP_SELLSTOP && MathAbs(OrderOpenPrice()-Bid)<.003) 
                 OrderDelete(OrderTicket());}
                 
 
 
 return(0);
 
}



double ChoppinessIndex(int period, int bar)
  {
    double Low0 = 0, High0 = 0, Close1 = 0;
    double TrueRangeLow = 0, TrueRangeHigh = 0, TrueRangeSum = 0, Input = 0;
    double PeriodTrueRangeLow = 999999999, PeriodTrueRangeHigh = 0, PeriodTrueRange = 0;

    for(int k=bar; k<bar+period; k++)
    {
      Low0   = iLow(NULL,15,k);
      High0  = iHigh(NULL,15,k);
      Close1 = iClose(NULL,15,k+1);

      if (Low0<Close1)  TrueRangeLow  = Low0;  else TrueRangeLow  = Close1;
      if (High0>Close1) TrueRangeHigh = High0; else TrueRangeHigh = Close1;
      
      if (TrueRangeLow <PeriodTrueRangeLow)  PeriodTrueRangeLow  = TrueRangeLow;  // find true low of period
      if (TrueRangeHigh>PeriodTrueRangeHigh) PeriodTrueRangeHigh = TrueRangeHigh; // find true high of period

      TrueRangeSum += TrueRangeHigh;
      TrueRangeSum -= TrueRangeLow;
    }

    PeriodTrueRange = PeriodTrueRangeHigh - PeriodTrueRangeLow;
    if (PeriodTrueRange==0) PeriodTrueRange = MathPow(10, -12); // avoid possibility of division by zero
    Input = TrueRangeSum / PeriodTrueRange;
    return ((logN(Input, 10, MathPow(10, -12)) / logN(period, 10, MathPow(10, -12))) * 100);
  }
  

double logN(double x, double base, double epsilon)
  {
    double integer = 0.0;
    if ((x < 1) || (base < 1)) return(0);

    while (x < 1)
    {
      integer -= 1;
      x *= base;
    }
  
    while (x >= base)
    {
      integer += 1;
      x /= base;
    }
  
    double partial = 0.5;
    x *= x;
    double decimal = 0.0;

    while (partial > epsilon)
    {
      if (x >= base)
      {
        decimal += partial;
        x = x / base;
      }
      partial *= 0.5;
      x *= x;
    }
    
    return (integer + decimal);
  } 


double StdDev(int shift, int samples)
  {
  double x0=0, x1=0, x2=0;
  for (int m=0; m<samples; m++)
    {
    x0 = ExtMapBuffer[m+shift];
    x1 += x0;
    x2 += MathPow(x0,2);
    }
  return(MathSqrt((x2-(x1*x1/samples))/(samples-1))); // minimum samples is 2, enforced in the init section
}

Here’s a gray divergence…

So I had this idea of monitoring fractals outside the 30 BB on the 30-min, first just for a count (2 on one side would usually mean a correction ending against the real move), but there was always this idea to get the short-term MFI provide with some ideas. 7-sample on the 30 is like a 14-sample 15-min.

I went way further by associating exits to the entries, but the main thing was finding an arbitrary filter to plot the diverging number green or aquamarine. I went with RSI2 below 5.

You see a backfoot rally on the left and a right foot rally on the right.

///fractal MFI below
if (i>0  && Close[i+2]>Low[i] && Low[i+1]>Low[i] && Low[i]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i) && Close[i-1]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i-1)-20*Point && Low[i-1]>Low[i]-20*Point ){
   MFIDMEM[i]=MFI[i];
    ObjectCreate("Caligula"+IntegerToString(i),OBJ_TEXT, 3, Time[i],25);
    ObjectSetText("Caligula"+IntegerToString(i),DoubleToStr(NormalizeDouble(MFI[i],1),1), 26, "Impact", clrGray);
    if (MFIDMEM[i+1]<MFIDMEM[i] && MFI[i]<50 && MFI[i]>26 && (RSI2[i]<10 || RSI2[i]>20)) {ObjectSetText("Caligula"+IntegerToString(i),DoubleToStr(NormalizeDouble(MFI[i],1),1), 26, "Impact", clrGreen);
    ObjectCreate("Caligulas"+IntegerToString(i),OBJ_TEXT, 3, Time[i],95);
    ObjectSetText("Caligulas"+IntegerToString(i),"U-BB (S30Wide)/3BBx", 22, "Impact", clrBlue);
    
     ObjectCreate("Caligulasz"+IntegerToString(i),OBJ_TEXT, 3, Time[i],55);
    ObjectSetText("Caligulasz"+IntegerToString(i),"S4 -> E-", 22, "Impact", clrMidnightBlue);
     if (RSI2[i]<5) {ObjectSetText("Caligula"+IntegerToString(i),DoubleToStr(NormalizeDouble(MFI[i],1),1), 26, "Impact", clrAquamarine);
          
    ObjectSetText("Caligulas"+IntegerToString(i),"->MFOB/Stop", 22, "Impact", clrIndigo);
     }
    }
}

Backfoot boys

The way the back foot operates is that it tries to get the Money Flow to overbought, but has a failure point just over the S30.

They pretty much all fail, except for one in recent history.

This one made it to overbought, and the second landing on the S30 was the end of a correction.

So my plan is to check if the S30 would hold twice for a continuation entry.

---

Album #86 is out, 16 tracks as typical, about 1Hr as typical, a French song, an instrumental as typical, some atypical stuff, like a song in Spanish and a good measure of Communards influence.

Back to the Audi business.

The S4 is 111 pips from the 200-sample hourly high.

The tool shed is the zone from the 200-sample high/low to the S4 / R4.

Who is in the toolshed (below the dark blue line) – the shorts. They are taking a beating.

The zone from the S4 to the SOB is the disadvantage block. The zone below the SOB is the maximum volatility-compression zone.

On Friday, we touched the SOB two more times after Thursday’s atrocity.

The top would be made once the S4 lets go. There could be a short here from the bottom of the disadvantage zone (SOB) to the top of it (S4).

By then, the longs would be inside the house for their turn for a beating.

---

Previews from Album #86

(Welcome…)

This is where nothing works all of the time.

I had my heart on a gray divergence. It was not meant to be.

Normally, you have a driven thrust made up of an acceleration, a higher high, and a thrust.

The acceleration was there all right, there were 28 hours before the HH 21 min (green), which was followed by 3 more prohibitive HH-s (red). The thrust ended up being only 2 hours long and made a lower high. Do not look for any more upside.

As per the Vax, it had a sell print (the diagonal by the top), and it could also remind you that the thrust would likely arrive from an undercut of the SOB level (leaving the volatility compression zone) at 1.1732. The orange highlight is an auto plot as well.

The next thing to prepare for is a volatility breakout. It is no longer a question that you would get it on the downside. If the market does not consolidate down here, the breakout level would be at 1.1664.

---

My “Madonna” tracks, 5 in total.

I have been ignoring some charts and signs, but things are getting abnormal here.

The market is about to print a volatility compression anchor to the upside (@ 3 or so currently).

That is not a final high, only a divergence after could be.

Note the last peak, which printed a yellow divergence relative to the lowest compression-read in recent history, a 5.2 reading.

A sharp divergence next is a possibility, but it still would have to be 3+ hours away. The separation from the hourly 8 EMO isn’t great at all here.

The ideal return would be a divergent compression print with a higher high and the price taking its time before (2+ hours -> gray divergence) before getting back below the 8 EMO.

The other thing to mention is how the pullback was holding above the S1 on closing-basis (see blue oval); you have to get yourself trained for the lines to be read in an upside-down manner with this indicator when going up.

---

Intermission. For those not in favour of my burdensome lyrics and poetry, there is a way to enjoy my purely instrumental works with this playlist:

---

& there is the volatility anchor vertical mark-up

I know there are a lot of surplus plots and unexplained things here, but here’s a working copy of the file I have:

#property copyright "Copyright © 2024, Macdulio" 
#property link      "https://forexfore.blog" 
#property description "V1.0"
#property description "Vax"
#property strict

//--- indicator settings
#property indicator_separate_window
#property indicator_buffers 3
#property indicator_color1  clrRed
#property indicator_color2  clrGreen
#property indicator_color3  clrPurple
#property indicator_color4  clrBlue
#property indicator_color5  clrRed
#property indicator_color6  clrDarkKhaki
#property indicator_color7  clrWhite
#property indicator_level1 0
#property indicator_level2 41
#property indicator_level3 62
#property indicator_level4 93
#property indicator_level5 166
#property indicator_level6 266
#property indicator_levelcolor clrBlue
#property indicator_levelstyle STYLE_DOT

//extern double valuetomonitor = 5.5;
extern int lookback = 400;
extern int dotplot = 100;
extern int indicator_window = 1;
extern int sample = 200;
extern double FSize=32;
double upper[], middle[], lower[];
double avg;
double FMax = FSize*6/5;
double iHi4[];
double iLo4[];    
double CI[];
  string symbol = Symbol();  
double ExtATRBuffer[],ExtATRBuffer2[],ExtATRBuffer3[],ExtATRBuffer4[],ExtATRBuffer5[],stoch60[];
double corr[],corr2[], RSI2[], squeeze[], ExtATRBufferf[],ExtATRBuffer2f[];
bool Anchor[];
double ExtMapBuffer[], tensharp[];
int pit[],dir[], magenta[];

int init(){
  
   SetIndexBuffer(0,ExtATRBuffer);   
   SetIndexStyle(0,DRAW_LINE,STYLE_SOLID,4,indicator_color1);
   SetIndexBuffer(1,ExtATRBuffer2);   
   SetIndexStyle(1,DRAW_LINE,STYLE_SOLID,4,indicator_color2);
   
   return(0);
}

//+------------------------------------------------------------------+
//| Average True Range                                               |
//+------------------------------------------------------------------+
int start(){
  
  ArrayResize(tensharp, Bars); 
  ArrayInitialize(tensharp, EMPTY_VALUE);     
  ArrayResize(ExtATRBuffer, Bars); 
  ArrayInitialize(ExtATRBuffer, EMPTY_VALUE);   
    ArrayResize(ExtATRBuffer2, Bars); 
  ArrayInitialize(ExtATRBuffer2, EMPTY_VALUE);   
  ArrayResize(ExtATRBufferf, Bars); 
  ArrayInitialize(ExtATRBufferf, EMPTY_VALUE);   
    ArrayResize(ExtATRBuffer2f, Bars); 
  ArrayInitialize(ExtATRBuffer2f, EMPTY_VALUE);   
        ArrayResize(ExtATRBuffer3, Bars); 
  ArrayInitialize(ExtATRBuffer3, EMPTY_VALUE);  
      ArrayResize(ExtATRBuffer4, Bars); 
  ArrayInitialize(ExtATRBuffer4, EMPTY_VALUE);  
     ArrayResize(ExtATRBuffer5, Bars); 
  ArrayInitialize(ExtATRBuffer5, EMPTY_VALUE);   
  ArrayResize(iHi4, Bars); 
  ArrayInitialize(iHi4, EMPTY_VALUE);   
  ArrayResize(iLo4, Bars); 
  ArrayInitialize(iLo4, EMPTY_VALUE);   
     ArrayResize(stoch60, Bars);   
 ArrayInitialize(stoch60,  EMPTY_VALUE);
  ArrayResize(RSI2, Bars);   
 ArrayInitialize(RSI2,  EMPTY_VALUE);
   ArrayResize(corr, Bars);   
 ArrayInitialize(corr,  EMPTY_VALUE);  
    ArrayResize(corr2, Bars);   
 ArrayInitialize(corr2,  EMPTY_VALUE);  
    ArrayResize(middle, Bars);   
 ArrayInitialize(middle,  EMPTY_VALUE);  
   ArrayResize(squeeze, Bars);   
 ArrayInitialize(squeeze,  0); 
  ArrayResize(upper, Bars);   
 ArrayInitialize(upper,  EMPTY_VALUE);  
 ArrayResize(lower, Bars);   
 ArrayInitialize(lower,  EMPTY_VALUE);  
  ArrayResize(Anchor, Bars);   
 ArrayInitialize(Anchor,  false); 
      ArrayResize(magenta, Bars);
  ArrayInitialize(magenta, 0);  
      ArrayResize(CI, Bars);
  ArrayInitialize(CI, 0);
    ArrayResize(ExtMapBuffer, Bars);
  ArrayInitialize(ExtMapBuffer, 0);
     ArrayResize(pit, Bars);
  ArrayInitialize(pit,0); 
ArrayResize(dir, Bars);
  ArrayInitialize(dir,0); 
    
    
   int i,j,k;
   double level;   

deletetxt1("Zingi");

  for(i=Bars-100; i>=0; i--){ 
   
     if (Period()==240)   iHi4[i]=iMA(NULL,0,52,0,MODE_EMA, PRICE_HIGH,i);
     else if (Period()==30) iHi4[i]=iMA(NULL,0,414,0,MODE_EMA, PRICE_HIGH,i);
     else if (Period()==60) iHi4[i]=iMA(NULL,0,207,0,MODE_EMA, PRICE_HIGH,i);
     if (Period()==240)  iLo4[i]=iMA(NULL,0,52,0,MODE_EMA, PRICE_LOW,i);
     else if (Period()==30) iLo4[i]=iMA(NULL,0,414,0,MODE_EMA, PRICE_LOW,i);
     else if (Period()==60) iLo4[i]=iMA(NULL,0,207,0,MODE_EMA, PRICE_LOW,i);
      stoch60[i]=iStochastic(symbol,60,60,3,3,MODE_SMA,0,MODE_SIGNAL,i);
      RSI2[i]=iRSI(symbol,0,2,PRICE_MEDIAN,i);
      CI[i]=ChoppinessIndex(7,i); 
      
      if(CI[i]>69 && CI[i+1]>69 && CI[i+2]<65 && CI[i+3]<65)  {
       if (indicator_window>2) ObjectCreate("Zingi"+IntegerToString(i), OBJ_TEXT, 2, Time[i+5], 60);  
       else ObjectCreate("Zingi"+IntegerToString(i), OBJ_TEXT, indicator_window, Time[i+5], 60); 
       ObjectSetText("Zingi"+IntegerToString(i), "E/H Accelerator! Look 4 vol shlf in 100", 16, "Impact", Purple);
        ObjectCreate("Zingis"+IntegerToString(i), OBJ_TEXT, indicator_window, Time[i+5], 40); 
       ObjectSetText("Zingis"+IntegerToString(i), "Scale to size in fresh OB/OS", 16, "Impact", Purple); 
      
      }
      
      if (Period()==60 && i<10) {
         int x=sample; if (x>30) x=10;
         tensharp[i]=iLow(symbol,0,iLowest(symbol,0,MODE_LOW,x,i))+520*Point;
         if (Close[i]<iMA(symbol,0,240,0,MODE_EMA,PRICE_MEDIAN,i)) tensharp[i]=iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,x,i))-520*Point;
      }
      
}

deletetxt1("Dipper");
deletetxt1("Panace");
deletetxt1("PLOT");
deletetxt1("MLINE");

for(i=lookback; i>=0; i--){ 
      middle[i] = iMA(NULL, 0, 20, 0, MODE_SMA, PRICE_TYPICAL, i);
      avg  = findAvg(20, i);
      upper[i] = middle[i] + avg;
      lower[i] = middle[i] - avg;
  
 
 ExtATRBuffer[i]= -1*(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,sample-1,i+1))-Low[i])*-10000;
 ExtATRBuffer2[i]=(High[i]-iLow(symbol,0,iLowest(symbol,0,MODE_LOW,sample-1,i+1)))*10000;
 ExtATRBufferf[i]= -1*(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,200-1,i+1))-Low[i])*-10000;
 ExtATRBuffer2f[i]=(High[i]-iLow(symbol,0,iLowest(symbol,0,MODE_LOW,200-1,i+1)))*10000;  


///S3 broken

if (ExtATRBufferf[i]>94 && ExtATRBufferf[i+1]>94 && ExtATRBufferf[i+2]>94 && ExtATRBufferf[i+3]<94 && Close[i]<Open[i]){
         ObjectCreate("MLINE"+IntegerToString(i),OBJ_VLINE,indicator_window, Time[i], 0);
            ObjectSet("MLINE"+IntegerToString(i),OBJPROP_COLOR,clrRed );
            ObjectSet("MLINE"+IntegerToString(i),OBJPROP_WIDTH,12);
            ObjectSet("MLINE"+IntegerToString(i),OBJPROP_STYLE,STYLE_DOT);
             ObjectSet("MLINE"+IntegerToString(i),OBJPROP_BACK,1);}


//R3 reclaimed

if (ExtATRBuffer2f[i]<94 && ExtATRBuffer2f[i+1]<94 && ExtATRBuffer2f[i+2]<94 && ExtATRBuffer2f[i+3]>94 && ExtATRBuffer2f[i+4]>94 && ExtATRBuffer2f[i+5]>94 && Close[i]<Open[i]){
         ObjectCreate("MLINE"+IntegerToString(i),OBJ_VLINE,indicator_window, Time[i], 0);
            ObjectSet("MLINE"+IntegerToString(i),OBJPROP_COLOR,clrRed );
            ObjectSet("MLINE"+IntegerToString(i),OBJPROP_WIDTH,12);
            ObjectSet("MLINE"+IntegerToString(i),OBJPROP_STYLE,STYLE_DOT);
             ObjectSet("MLINE"+IntegerToString(i),OBJPROP_BACK,1);}



///S3 reclaimed

if (ExtATRBufferf[i]<94 && ExtATRBufferf[i+1]<94 && ExtATRBufferf[i+2]<94 && ExtATRBufferf[i+3]>94  && ExtATRBufferf[i+4]>94    && Close[i]>Open[i]){
         ObjectCreate("MLINE"+IntegerToString(i),OBJ_VLINE,indicator_window, Time[i], 0);
            ObjectSet("MLINE"+IntegerToString(i),OBJPROP_COLOR,clrMediumSpringGreen );
            ObjectSet("MLINE"+IntegerToString(i),OBJPROP_WIDTH,12);
            ObjectSet("MLINE"+IntegerToString(i),OBJPROP_STYLE,STYLE_DOT);
             ObjectSet("MLINE"+IntegerToString(i),OBJPROP_BACK,1);}


//R3 broken

if (ExtATRBuffer2f[i]>94 && ExtATRBuffer2f[i+1]>94 && ExtATRBuffer2f[i+2]>94 && ExtATRBuffer2f[i+3]<94 && Close[i]>Open[i]){
         ObjectCreate("MLINE"+IntegerToString(i),OBJ_VLINE,indicator_window, Time[i], 0);
            ObjectSet("MLINE"+IntegerToString(i),OBJPROP_COLOR,clrMediumSpringGreen );
            if (ExtATRBufferf[i]<110) ObjectSet("MLINE"+IntegerToString(i),OBJPROP_COLOR,clrYellow );
            ObjectSet("MLINE"+IntegerToString(i),OBJPROP_WIDTH,12);
            ObjectSet("MLINE"+IntegerToString(i),OBJPROP_STYLE,STYLE_DOT);
             ObjectSet("MLINE"+IntegerToString(i),OBJPROP_BACK,1);}



 if (ExtATRBuffer[ArrayMaximum(ExtATRBuffer,14,i+1)]<50 && ExtATRBuffer[i]>47){
   ObjectCreate("Dipper"+IntegerToString(i), OBJ_TREND, indicator_window,  Time[i], ExtATRBuffer[i], Time[i], 31);
                     ObjectSetInteger(0,"Dipper"+IntegerToString(i),OBJPROP_COLOR,clrOrange);
                     ObjectSet("Dipper"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Dipper"+IntegerToString(i),OBJPROP_RAY_RIGHT,false);
                     ObjectSet("Dipper"+IntegerToString(i),OBJPROP_WIDTH,14);   }

   
 if (ExtATRBuffer[ArrayMaximum(ExtATRBuffer,45,i+1)]<50 && ExtATRBuffer[i]>50){
   ObjectCreate("Dipper"+IntegerToString(i), OBJ_TREND, indicator_window,  Time[i], ExtATRBuffer[i], Time[i], 31);
                     ObjectSetInteger(0,"Dipper"+IntegerToString(i),OBJPROP_COLOR,clrBlue);
                     ObjectSet("Dipper"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Dipper"+IntegerToString(i),OBJPROP_RAY_RIGHT,false);
                     ObjectSet("Dipper"+IntegerToString(i),OBJPROP_WIDTH,14);   
 
 }
   if (ExtATRBuffer2[ArrayMaximum(ExtATRBuffer2,14,i+1)]<50 && ExtATRBuffer2[i]>47){
   ObjectCreate("Dipper"+IntegerToString(i), OBJ_TREND, indicator_window,  Time[i], ExtATRBuffer2[i], Time[i], 31);
                     ObjectSetInteger(0,"Dipper"+IntegerToString(i),OBJPROP_COLOR,clrYellow);
                     ObjectSet("Dipper"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Dipper"+IntegerToString(i),OBJPROP_RAY_RIGHT,false);
                     ObjectSet("Dipper"+IntegerToString(i),OBJPROP_WIDTH,14);   
  }
 
  if (ExtATRBuffer2[ArrayMaximum(ExtATRBuffer2,42,i+1)]<50 && ExtATRBuffer2[i]>50){
   ObjectCreate("Dipper"+IntegerToString(i), OBJ_TREND, indicator_window,  Time[i], ExtATRBuffer2[i], Time[i], 31);
                     ObjectSetInteger(0,"Dipper"+IntegerToString(i),OBJPROP_COLOR,clrBlue);
                     ObjectSet("Dipper"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Dipper"+IntegerToString(i),OBJPROP_RAY_RIGHT,false);
                     ObjectSet("Dipper"+IntegerToString(i),OBJPROP_WIDTH,14);   
  }
 
   if (ExtATRBuffer2[ArrayMaximum(ExtATRBuffer2,14,i+3)]<50 && ExtATRBuffer2[i+2]>47 && ExtATRBuffer2[i]<47){
      ObjectCreate("Zingi"+IntegerToString(i), OBJ_TEXT, indicator_window, Time[i+5], 8); 
       ObjectSetText("Zingi"+IntegerToString(i), "5HRS 115PIPS LOAD UP!", 16, "Impact", Green); }
 
  if (ExtATRBuffer2[ArrayMaximum(ExtATRBuffer2,42,i+3)]<50 && ExtATRBuffer2[i+2]>50 && ExtATRBuffer2[i]<50){
      ObjectCreate("Zingi"+IntegerToString(i), OBJ_TEXT, indicator_window, Time[i+5], 18); 
       ObjectSetText("Zingi"+IntegerToString(i), "40HRS 70PIPS LOAD UP!", 16, "Impact", Green); }
       
 if (ExtATRBuffer[ArrayMaximum(ExtATRBuffer,14,i+3)]<50 && ExtATRBuffer[i+2]>47 && ExtATRBuffer[i]<47){
      ObjectCreate("Zingi"+IntegerToString(i), OBJ_TEXT, indicator_window, Time[i+5], 8); 
       ObjectSetText("Zingi"+IntegerToString(i), "5HRS 115PIPS LOAD UP!", 16, "Impact", Red); }      
 
  if (ExtATRBuffer[ArrayMaximum(ExtATRBuffer,45,i+3)]<50 && ExtATRBuffer[i+2]>50 && ExtATRBuffer[i]<50){
      ObjectCreate("Zingi"+IntegerToString(i), OBJ_TEXT, indicator_window, Time[i+5], 18); 
       ObjectSetText("Zingi"+IntegerToString(i), "40HRS 70PIPS LOAD UP!", 16, "Impact", Red); }
 
 
 

}

deletetxt1("AverD");

int twodigits = NormalizeDouble(ExtATRBuffer2[0],0);

if (MathAbs(ExtATRBuffer[0])<ExtATRBuffer2[0]) twodigits = NormalizeDouble(MathAbs(ExtATRBuffer[0]),0);

//string tds = IntegerToString(twodigits);

int tens = round(twodigits/10);

int ones = twodigits-tens*10; 

string stens, sones;

//Print("tens=",tens);
//Print("ones=",ones);


switch(tens)
{
case  1:   stens=CharToStr(140);
        break;
case  2:   stens=CharToStr(141);
        break;
case  3:   stens=CharToStr(142);
        break;        
case  4:   stens=CharToStr(143);
        break;
case  5:   stens=CharToStr(144);
        break;
case  6:   stens=CharToStr(145);
        break;        
case  7:   stens=CharToStr(146);
        break;                
case  8:   stens=CharToStr(147);
        break;                        
case  9:   stens=CharToStr(148);
        break;                      
  default: stens=CharToStr(139);
      break;
  }
  
//deletetxt1("AverD");

switch(ones)
{
case  1:   sones=CharToStr(140);
        break;
case  2:   sones=CharToStr(141);
        break;
case  3:   sones=CharToStr(142);
        break;        
case  4:   sones=CharToStr(143);
        break;
case  5:   sones=CharToStr(144);
        break;
case  6:   sones=CharToStr(145);
        break;        
case  7:   sones=CharToStr(146);
        break;                
case  8:   sones=CharToStr(147);
        break;                        
case  9:   sones=CharToStr(148);
        break;                      
  default: sones=CharToStr(139);
      break;
  }

 
string jointstring=stens+sones;

ObjectCreate("AverD",OBJ_LABEL,indicator_window, 0,0);

ObjectSet("AverD",OBJPROP_CORNER,3);
    ObjectSet("AverD",OBJPROP_XDISTANCE,20);
  ObjectSet("AverD",OBJPROP_YDISTANCE,27);
  
ObjectSetText("AverD",jointstring,40,"Wingdings",DimGray);
if (twodigits>30)  ObjectSetText("AverD",jointstring,40,"Wingdings",Yellow);  
if (twodigits>58)  ObjectSetText("AverD",jointstring,40,"Wingdings",DeepPink);  

    

deletetxt1("Crush");  
deletetxt1("Leap");  
deletetxt1("Frog"); 
deletetxt1("Countess");
deletetxt1("Missing");
deletetxt1("KAROLY");
deletetxt1("Firstpull");
deletetxt1("POT");
deletetxt1("LOTUS");
deletetxt1("HOT");
deletetxt1("LINUS");
  
int counter = 9;  

if (Period()<1440){  
for(i=lookback; i>=0; i--){   

if (Period()==60 && sample==10){
   dir[i]=dir[i+1];
   
   
   if (ExtATRBuffer2[i]>42 && ExtATRBuffer2[i+1]<42 && ExtATRBuffer2[i+1]>=ExtATRBuffer2[i+4] && ExtATRBuffer[i+1]>5 && High[i]<iMA(symbol,0,240,0,MODE_SMA,PRICE_MEDIAN,i)
      && (Close[i+1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_MEDIAN,i+1) || Low[i+1]<iMA(symbol,0,8,0,MODE_EMA,PRICE_MEDIAN,i+1)-500*Point)
   ){
      ObjectCreate("HOTT"+i,OBJ_TEXT, 2, Time[i],ExtATRBuffer2[i]+5);
      ObjectSetText("HOTT"+i,"+30..50", 26, "Impact", clrDarkGreen);
      
      if (i>0) {ObjectCreate("HOTTS"+i,OBJ_TEXT, 0, Time[i+4],Close[i]+10*Point);
      ObjectSetText("HOTTS"+i,"L@"+DoubleToStr(NormalizeDouble(Close[i],4),4), 19, "Impact", clrDarkGreen);}
   }
   
   ///trending down
   if (ExtATRBuffer2[i+1]>22 &&
   ExtATRBuffer2[i+1]<31 && RSI2[i]<90 &&
   ExtATRBuffer[i+2]>31 && ExtATRBuffer[i+1]<31 && ExtATRBuffer[i]<28 && ExtATRBuffer[ArrayMaximum(ExtATRBuffer,10,i)]>62
   && ExtATRBuffer2[i]>20
   ){
          ObjectCreate("LINUS"+IntegerToString(i),OBJ_VLINE,1, Time[i], 0);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_COLOR,clrBrown);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_WIDTH,6);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_STYLE,STYLE_DOT);
             ObjectSet("LINUS"+IntegerToString(i),OBJPROP_BACK,1);
             
             ObjectCreate("LINUSZ"+IntegerToString(i),OBJ_TEXT, 1, Time[i],75);
             ObjectSetText("LINUSZ"+IntegerToString(i),"Cut/OH: "+DoubleToStr(NormalizeDouble(High[i],4),4)+"+", 26, "Impact", clrCrimson);
             dir[i]=-1;
             }
   else if (ExtATRBuffer[i]<19 &&
   ExtATRBuffer[i+1]>31 && ExtATRBuffer[i+2]>31 && ExtATRBuffer[i+2]>53 ) dir[i]=0;         
   
   
   //trending down over   
   if (Close[i+1]<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i+1) && Close[i]>iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i) && ExtATRBuffer[ArrayMaximum(ExtATRBuffer,40,i)]<45){
          ObjectCreate("LINUS"+IntegerToString(i),OBJ_VLINE,1, Time[i], 0);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_COLOR,clrYellow);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_WIDTH,6);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_STYLE,STYLE_DOT);
             ObjectSet("LINUS"+IntegerToString(i),OBJPROP_BACK,1);
             
             ObjectCreate("LINUSZ"+IntegerToString(i),OBJ_TEXT, 1, Time[i],75);
             ObjectSetText("LINUSZ"+IntegerToString(i),"Trend over?! Buy "+DoubleToStr(NormalizeDouble(Close[i],4),4)+"-", 26, "Impact", clrGreen);
             dir[i]=0;
             }
   
      
             
   ///trending up          
   if (
   ExtATRBuffer[i+1]<31 && RSI2[i]>8 &&
   ExtATRBuffer2[i+2]>31 && ExtATRBuffer2[i+1]<31 && ExtATRBuffer2[i]<28 && ExtATRBuffer2[ArrayMaximum(ExtATRBuffer2,10,i)]>62
   && ExtATRBuffer[i]<20
   && iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i)-iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i)>1000*Point
   ){
          ObjectCreate("LINUS"+IntegerToString(i),OBJ_VLINE,1, Time[i], 0);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_COLOR,clrLimeGreen);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_WIDTH,6);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_STYLE,STYLE_DOT);
             ObjectSet("LINUS"+IntegerToString(i),OBJPROP_BACK,1);
             
             ObjectCreate("LINUSZ"+IntegerToString(i),OBJ_TEXT, 1, Time[i],75);
            ObjectSetText("LINUSZ"+IntegerToString(i),"Cut/OH: "+DoubleToStr(NormalizeDouble(Low[i],4),4)+"-", 26, "Impact", clrGreen);
            
            if (iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i)-Open[i]<320*Point){
            ObjectCreate("LINUSZZ"+IntegerToString(i),OBJ_TEXT, 1, Time[i],35);
            ObjectSetText("LINUSZZ"+IntegerToString(i),"Upper Band Too Close - 40 pips setback: "+DoubleToStr(NormalizeDouble(Low[i]-360*Point,4),4)+"-", 26, "Impact", clrGreen);
            }
            
                if (Open[i]>iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i)){
            ObjectCreate("LINUSZZ"+IntegerToString(i),OBJ_TEXT, 1, Time[i],35);
            ObjectSetText("LINUSZZ"+IntegerToString(i),"Last leg up - 100+ pips to be had", 26, "Impact", clrGreen);
            }
            
             dir[i]=1;
             }          

   else if (ExtATRBuffer2[i]<24 &&
   ExtATRBuffer2[i+1]>31 && ExtATRBuffer2[i+2]>31 && ExtATRBuffer2[i+2]>53 ) dir[i]=0;          



   ///trending up over          
if (Close[i+1]>iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i+1) && Close[i]<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i) && ExtATRBuffer2[ArrayMaximum(ExtATRBuffer2,40,i+10)]<45 && ExtATRBuffer2[i]<41){
          ObjectCreate("LINUS"+IntegerToString(i),OBJ_VLINE,1, Time[i], 0);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_COLOR,clrYellow);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_WIDTH,6);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_STYLE,STYLE_DOT);
             ObjectSet("LINUS"+IntegerToString(i),OBJPROP_BACK,1);
             
             ObjectCreate("LINUSZ"+IntegerToString(i),OBJ_TEXT, 1, Time[i],75);
            ObjectSetText("LINUSZ"+IntegerToString(i),"Trend over?! Sell"+DoubleToStr(NormalizeDouble(High[i],4),4)+"+", 26, "Impact", clrRed);
         dir[i]=0;
   }


}




//// fractal + 4 evaluator downside
if (Low[i+4]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+4) && iFractals(symbol,0,MODE_LOWER,i+4) && (iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i))>400*Point)
{
   
    ObjectCreate("HOT"+i,OBJ_TEXT, 0, Time[i],Low[i]-90*Point);
    ObjectSetText("HOT"+i,"N-¾", 26, "Impact", clrGreen);
    if (Low[i]<iMA(symbol,0,356,0,MODE_SMA,PRICE_MEDIAN,i))   ObjectSetText("HOT"+i,"N-¾", 16, "Impact", clrMagenta);
  
    if (High[i]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i) && Open[i]>Close[i]) ObjectSetText("HOT"+i,CharToStr(234), 26, "Wingdings", clrRed);
     if (Close[i]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i)-20*Point && Open[i]<Close[i] && ExtATRBuffer2[i]>25 && (ExtATRBuffer2[i]<41 || ExtATRBuffer2[i]>110)) ObjectSetText("HOT"+i,CharToStr(233), 26, "Wingdings", clrGreen);  
}

//// fractal + 4 evaluator upside
if (High[i+4]==iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,8,i+1)) &&  
High[i+4]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+4) && iFractals(symbol,0,MODE_UPPER,i+4) && 
(iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i))>400*Point)
{
   
    ObjectCreate("HOT"+i,OBJ_TEXT, 0, Time[i],High[i]+90*Point);
    ObjectSetText("HOT"+i,"N-¾", 16, "Impact", clrMagenta);
      if (High[i]<iMA(symbol,0,356,0,MODE_SMA,PRICE_MEDIAN,i))   ObjectSetText("HOT"+i,"N-¾", 26, "Impact", clrRed);
 
    if (Low[i]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i) && Open[i]<Close[i]) ObjectSetText("HOT"+i,CharToStr(233), 26, "Wingdings", clrGreen);
     if (Close[i]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i) && Open[i]>Close[i] && ExtATRBuffer[i]>25 && (ExtATRBuffer[i]<41 || ExtATRBuffer[i]>110)  && Low[i+3]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+3) && Open[i+2]>=Close[i+3]) ObjectSetText("HOT"+i,CharToStr(234), 26, "Wingdings", clrRed);  
}



//// ECHO on the downside
if (Low[i+1]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+1)+20*Point 
&& Low[i+1]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+1)-370*Point
&& (Open[i]<Close[i] || (i>0 && Low[i-1]>Low[i+1]))
&& High[i+1]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1)
&& High[i+3]-Low[i+3]<500*Point
//&& High[i+2]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+2)
&& (iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i))>400*Point
&& Low[i+1]<Low[i] 
&& Low[i+1]<(Low[i+2]+20*Point)
//&& Low[i+2]<Low[i+3]
&& High[i+3]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+3)
&& Close[i+1]>(Low[i+1]+((High[i+1]-Low[i+1])/3))
&& ExtATRBufferf[i+1]>50
&& Low[i+1]<Low[i+3]
)
{
    ObjectCreate("HOTE"+i,OBJ_TEXT, 0, Time[i+1],Low[i+1]-80*Point);
    ObjectSetText("HOTE"+i,"ECHO", 26, "Impact", clrYellow);     
    if (i>1) {ObjectSetText("HOTE"+i,"ECHO", 26, "Impact", clrWhite); level = Low[i+1]-100*Point;}    
    if (ExtATRBuffer2f[i+1]<50 && (iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+1)-iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+1))<320*Point) 
    ObjectSetText("HOTE"+i,"ECHO (MFI_R)", 26, "Impact", clrGray);  
  
}


//// BB ECHO on the downside 
if (Low[i+1]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+1)+20*Point 
&& Low[i+1]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+1)-190*Point
&& Open[i]<Close[i]
&& High[i]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i)+10*Point
&& Close[i+2]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+2)
&& Low[i+1]<Low[i] && Low[i+1]<Low[i+2] 
&& Low[i+2]<Low[i+3]
&& Open[i+3]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+3) 
&& (iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i))>400*Point
&& (Close[i+1]>(Low[i+1]+((High[i+1]-Low[i+1])/3)) || Close[i+1]-Low[i+1]>130*Point))

{
    ObjectCreate("HOTE"+i,OBJ_TEXT, 0, Time[i+1],Low[i+1]-60*Point);
    ObjectSetText("HOTE"+i,"BBECHO", 26, "Impact", clrYellow);     
    if (i>1) {ObjectSetText("HOTE"+i,"BBECHO", 26, "Impact", clrBlack);     
    level = Low[i+1]-100*Point;}
}



//// ECHO on the upside
if (((Close[i+1]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+1)-80*Point 
&& Close[i+1]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+1)+190*Point)
|| (High[i+1]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+1)-60*Point 
&& High[i+1]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+1)+190*Point))
&& Open[i]>Close[i]
&& ((Low[i+1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1) && Low[i+2]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+2))
|| (Low[i+1]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1) && Low[i+2]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+2)
&& Low[i+2]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+2)))
&& High[i+1]>High[i] && High[i+1]>High[i+2] 
&& Low[i+3]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+3)
//|| Low[i+4]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+4))
&& Close[i+1]<(High[i+1]-((High[i+1]-Low[i+1])/3)))
{
    ObjectCreate("HOTE"+i,OBJ_TEXT, 0, Time[i+1],High[i+1]+150*Point);
    ObjectSetText("HOTE"+i,"ECHO", 26, "Impact", clrYellow);     
    if (i>1) {ObjectSetText("HOTE"+i,"ECHO", 26, "Impact", clrWhite);     
    level = High[i+1]+100*Point;  }
}


//// BB ECHO on the upside 
if (High[i+1]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+1)-20*Point 
&& High[i+1]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+1)+190*Point
&& Open[i]>Close[i]
&& Low[i]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i)
&& Close[i+2]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+2)
&& High[i+1]>High[i] && High[i+1]>High[i+2] 
&& High[i+2]>High[i+3]
&& Open[i+3]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+3) 
//|| Open[i+4]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+4) 

&& Close[i+1]<(High[i+1]-((High[i+1]-Low[i+1])/3)))
{
    ObjectCreate("HOTE"+i,OBJ_TEXT, 0, Time[i+1],High[i+1]+90*Point);
    ObjectSetText("HOTE"+i,"BBECHO", 26, "Impact", clrYellow);     
    if (i>1) {ObjectSetText("HOTE"+i,"BBECHO", 26, "Impact", clrBlack);     
    level = High[i+1]+100*Point;  }
}


///hot lows
if (((Close[i+1]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+1) && Open[i+2]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+2)) 
|| (Low[i+3]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+3) && Low[i+2]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+2) && Low[i+1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1))
|| (Low[i+2]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+2) && Low[i+1]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1) && Low[i+1]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+1) ))
&&  Close[i]<(High[i]-((High[i]-Low[i])/3)) && High[i]>High[i+1]
&& ((Close[i]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-80*Point 
&& Close[i]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)+190*Point)
|| (High[i]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-60*Point 
&& High[i]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)+270*Point))
){
   ObjectCreate("HOTI"+i+1,OBJ_TEXT, 0, Time[i+1],Low[i+1]-40*Point);
    ObjectSetText("HOTI"+i+1, CharToStr(174), 26,"Wingdings", clrYellow);     
    if (i>1 && High[i-2]>High[i]) ObjectSetText("HOTI"+i+1, CharToStr(174), 26,"Wingdings", clrGreen);
   ///  else   if (i>1 && Open[i-1]>Close[i-1] && !(Low[i-1]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i-1) && (iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+1)-iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+1))<320*Point)) ObjectSetText("HOTI"+i+1, CharToStr(174), 26,"Wingdings", clrGreen);
    else if (i>1 && Open[i-1]>Close[i-1] && High[i-1]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i-1) && Low[i-1]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i-1) 
    && Close[i-1]>Close[i]) ObjectSetText("HOTI"+i+1, CharToStr(174), 26,"Wingdings", clrTeal);
    else if (i>1) ObjectSetText("HOTI"+i+1, CharToStr(174), 26,"Wingdings", clrRed);        
    ObjectDelete("HOTI"+i);
}

///hot highs
if (((Close[i+1]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+1) && Open[i+2]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+2)) 
|| (High[i+3]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+3) && High[i+2]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+2) && High[i+1]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1))
|| (High[i+2]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+2) && High[i+1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1) && High[i+1]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+1) ))
&&  Close[i]>(Low[i]+((High[i]-Low[i])/3)) && Low[i]<Low[i+1]
&& ((Close[i]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i)+80*Point 
&& Close[i]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i)-190*Point)
|| (Low[i]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i)+20*Point 
&& Low[i]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i)-270*Point))
&& High[i+2]-Low[i+2]<500*Point
){
   ObjectCreate("HOTII"+i+1,OBJ_TEXT, 0, Time[i+1],High[i+1]+90*Point);
    ObjectSetText("HOTII"+i+1, CharToStr(174), 26,"Wingdings", clrYellow);     
    if (i>1 && Low[i-2]<Low[i]) ObjectSetText("HOTII"+i+1, CharToStr(174), 26,"Wingdings", clrRed);
   ///  else   if (i>1 && Open[i-1]>Close[i-1] && !(Low[i-1]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i-1) && (iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+1)-iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+1))<320*Point)) ObjectSetText("HOTI"+i+1, CharToStr(174), 26,"Wingdings", clrGreen);
    else if (i>1 && Open[i-1]<Close[i-1] && Low[i-1]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i-1) && High[i-1]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i-1) && Close[i-1]<Close[i]) ObjectSetText("HOTII"+i+1, CharToStr(174), 26,"Wingdings", clrRed);
    else if (i>1) ObjectSetText("HOTII"+i+1, CharToStr(174)+CharToString(174), 26,"Wingdings", clrCadetBlue);        
    ObjectDelete("HOTII"+i);
}


///outside sequence on the upside, vol crush 
if (iFractals(symbol,0,MODE_LOWER,i+4) 
&& Low[i+4]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+4)
&& Close[i]<(High[i]-((High[i]-Low[i])/3)) 
&& Low[i+6]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+6)
&& Low[i+7]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+7)
&& Low[i+8]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+8) 
&& Low[i+9]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+9)

){
       ObjectCreate("Firstpulls"+IntegerToString(i), OBJ_TREND, 0,  Time[i+4], Low[i+4], Time[i+1], High[i+1]);
                     ObjectSetInteger(0,"Firstpulls"+IntegerToString(i),OBJPROP_COLOR,clrMagenta);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_RAY_RIGHT,false);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_WIDTH,16);   
       ObjectCreate("HOTEL"+i,OBJ_TEXT, 0, Time[i],High[i]+90*Point);
    ObjectSetText("HOTEL"+i,"OUTSIDE SHOCK -> Magenta RSI", 26, "Impact", clrBlack);     
    level = High[i+1]+80*Point;               
}



///last effort candle on the upside, return in 2
if (Low[i]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i) && High[i+2]>High[i+1] && High[i+2]>High[i+3] && 
High[i+2]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+2)-10*Point 
&& (ExtATRBufferf[i]<41 || ExtATRBuffer2f[i+2]>130) 
&& (iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i))>320*Point 
&& Open[i]>=Close[i+1]
&& Low[i+1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1)
&& dir[i]==0
){
 ObjectCreate("HOTE"+i,OBJ_TEXT, 0, Time[i+1],High[i+1]+200*Point);
    ObjectSetText("HOTE"+i,"BACHO", 26, "Impact", clrBlack);     
    level = High[i+2]+80*Point;   

       ObjectCreate("Firstpulls"+IntegerToString(i), OBJ_TREND, 0,  Time[i+2], High[i+2], Time[i], Low[i]);
                     ObjectSetInteger(0,"Firstpulls"+IntegerToString(i),OBJPROP_COLOR,clrYellow);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_RAY_RIGHT,false);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_WIDTH,16);   
}

///last effort candle on the upside, return in 1
if (Low[i]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i) && High[i+1]>High[i] && High[i+1]>High[i+2] && 
High[i+1]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+1)-10*Point &&  (ExtATRBuffer[i]<41 || ExtATRBuffer2[i+1]>130) && (iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i))>400*Point){
       ObjectCreate("Firstpulls"+IntegerToString(i), OBJ_TREND, 0,  Time[i+1], High[i+1], Time[i], Low[i]);
                     ObjectSetInteger(0,"Firstpulls"+IntegerToString(i),OBJPROP_COLOR,clrRed);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_RAY_RIGHT,false);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_WIDTH,26);   
}


///last effort candle on the downside, return in 2
if (High[i]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i) && Low[i+2]<Low[i+1] && Low[i+2]<Low[i+3] && 
Low[i+2]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+2)+20*Point && (ExtATRBuffer2[i]<31 || ExtATRBuffer2[i+6]<31 ) && (iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i))>400*Point 

){
       ObjectCreate("Firstpulls"+IntegerToString(i), OBJ_TREND, 0,  Time[i+2], Low[i+2], Time[i], High[i]);
                     ObjectSetInteger(0,"Firstpulls"+IntegerToString(i),OBJPROP_COLOR,clrOrange);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_RAY_RIGHT,false);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_WIDTH,16);   
}



///Volatility Compression Anchor For A Turn Down
if (ExtATRBuffer[i]<10 && (ExtATRBuffer2[i]>150 || Low[i]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i))
&& i>0 && High[i-1]<High[i] && (iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i))>360*Point) {
      Anchor[i]=true;
      ObjectCreate("LOTUS"+IntegerToString(i),OBJ_VLINE,indicator_window, Time[i], 0);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_COLOR,clrMistyRose);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_WIDTH,3);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_BACK,1);
}

///Volatility Compression Anchor For A Turn Up
if (ExtATRBuffer2[i]<7 && (ExtATRBuffer[i]>150 || Close[i]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i)) 
&& Close[i]>Low[i]+10*Point && i>0 
&& High[i-1]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i-1) 
) { Anchor[i]=true;
      ObjectCreate("LOTUS"+IntegerToString(i),OBJ_VLINE,indicator_window, Time[i], 0);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_COLOR,clrPaleGreen);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_WIDTH,3);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_BACK,1);
}




///End Of Move up
if (High[i+1]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+1) && High[i+1]>High[i+2] && High[i]<High[i+1]
   && Close[i]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i) && Close[i+1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1)
   && (iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i))>360*Point
)
   {
      ObjectCreate("Firstpull"+IntegerToString(i), OBJ_RECTANGLE, 0,  Time[i+6], High[i+1], Time[i], Low[i]);
       if (Low[i+1]>iMA(symbol,0,207,0,MODE_EMA,PRICE_LOW,i+1)) {ObjectSetInteger(0,"Firstpull"+IntegerToString(i),OBJPROP_COLOR,clrPink);
                   ObjectCreate("POT"+i,OBJ_TEXT, 0, Time[i+12],High[i+1]+100*Point);
      ObjectSetText("POT"+i,"FLIP OVER (5H)", 26, "Impact", clrCadetBlue);
      if (Close[i+1]>iMA(symbol,0,207,0,MODE_EMA,PRICE_LOW,i+1) && Close[i+1]<iMA(symbol,0,207,0,MODE_EMA,PRICE_HIGH,i+1))
       ObjectSetText("POT"+i,"CONT. SELL", 26, "Impact", clrCadetBlue);
          ObjectCreate("POTS"+i,OBJ_TEXT, 0, Time[i+3],(High[i+1]+Low[i])/2+50*Point);
        ObjectSetText("POTS"+i, "to F3-", 26, "Impact", clrBlack);
                     }
                     else ObjectSetInteger(0,"Firstpull"+IntegerToString(i),OBJPROP_COLOR,clrMediumSpringGreen);
                     ObjectSet("Firstpull"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Firstpull"+IntegerToString(i),OBJPROP_WIDTH,5);   
   }

///Exit Conditon Up #1

if (RSI2[i+2]<75 && RSI2[i+1]>95 && iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))-iLow(symbol,0,iLowest(symbol,0,MODE_LOW,3,i))>220*Point
&& High[i]>High[i+1] && Low[i]>iMA(symbol,0,207,0,MODE_EMA,PRICE_HIGH,i)
)
   {
      ObjectCreate("Firstpulls"+IntegerToString(i), OBJ_TREND, 0,  Time[i+2], Open[i]+200*Point, Time[i], Open[i]);
                     ObjectSetInteger(0,"Firstpulls"+IntegerToString(i),OBJPROP_COLOR,clrPink);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_RAY_RIGHT,false);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_WIDTH,6);   
   }

///Exit Conditon Up #2

if (High[i+2]>High[i+3] && High[i+2]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+2) &&  Close[i+2]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+2)
 && Low[i+1]>iMA(symbol,0,207,0,MODE_EMA,PRICE_HIGH,i+1)
 && iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i+1))>iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,20,i+3))
 && Low[i]<Low[i+1] && Close[i]<Open[i]
)
   {
      if (Close[i+1]<Open[i+1]) ObjectCreate("Firstpulls"+IntegerToString(i), OBJ_TREND, 0,  Time[i+3], Open[i+1]+200*Point, Time[i+1], Open[i+1]);
      else ObjectCreate("Firstpulls"+IntegerToString(i), OBJ_TREND, 0,  Time[i+3], Close[i+1]+200*Point, Time[i+1], Close[i+1]); 
                     ObjectSetInteger(0,"Firstpulls"+IntegerToString(i),OBJPROP_COLOR,clrDeepPink);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_RAY_RIGHT,false);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_WIDTH,6);   
   }

///Exit Conditon Up #3

if (ExtATRBuffer2[i]>353.5
)
   {
      ObjectCreate("Firstpulls"+IntegerToString(i), OBJ_TREND, 0,  Time[i+2], High[i]+200*Point, Time[i], High [i]);
                     ObjectSetInteger(0,"Firstpulls"+IntegerToString(i),OBJPROP_COLOR,clrRed);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_RAY_RIGHT,false);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_WIDTH,6);   
   }


///Buy Conditon Up #1

if (Close[i]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i) && Close[i+1]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1) && Close[i+2]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+2)
&& Close[i+3]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+3) && Close[i+4]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+4)  
&& Close[i+5]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+5) && Close[i+6]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+6)
//&& Close[i+7]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+7) && Close[i+8]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+8)
&& Low[i+1]>iMA(symbol,0,207,0,MODE_EMA,PRICE_HIGH,i+1) && ExtATRBuffer2[i]<140
&& High[i+1]<=iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,20,i+2))
&& iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i+10)<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i) 
&& iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i+20)+20*Point<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i) 
)
   {
      ObjectCreate("Firstpulls"+IntegerToString(i), OBJ_TREND, 0,  Time[i+2], Open[i]-200*Point, Time[i], Open[i]);
                     ObjectSetInteger(0,"Firstpulls"+IntegerToString(i),OBJPROP_COLOR,clrTeal);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_RAY_RIGHT,false);
                     ObjectSet("Firstpulls"+IntegerToString(i),OBJPROP_WIDTH,6);   
   }



///End Of Move dn
if (Low[i+2]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+2) && Low[i+1]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+1) && Low[i+1]<Low[i+2] && Low[i]>Low[i+1]
   && Close[i]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i) && Close[i+1]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1)
   && Low[i+1]<Low[i+2] && Low[i+1]<Low[i+3] && Low[i+1]<Low[i+4] && Low[i+1]<Low[i+5]
   && High[i+1]<iMA(symbol,0,207,0,MODE_EMA,PRICE_HIGH,i+1) && High[i+1]-Low[i]>35*Point
)
   {
      ObjectCreate("Firstpull"+IntegerToString(i), OBJ_RECTANGLE, 0,  Time[i+6], High[i], Time[i], Low[i+1]);
       if (High[i+1]<iMA(symbol,0,207,0,MODE_EMA,PRICE_HIGH,i+1)) {ObjectSetInteger(0,"Firstpull"+IntegerToString(i),OBJPROP_COLOR,clrLimeGreen);
                    ObjectCreate("POT"+i,OBJ_TEXT, 0, Time[i+8],Low[i+1]-40*Point);
      ObjectSetText("POT"+i,"FLIP OVER 5H", 26, "Impact", clrCadetBlue);
          ObjectCreate("POTS"+i,OBJ_TEXT, 0, Time[i+3],(High[i+1]+Low[i])/2-50*Point);
        ObjectSetText("POTS"+i, "to F3-", 26, "Impact", clrBlack);
                     }
                     else ObjectSetInteger(0,"Firstpull"+IntegerToString(i),OBJPROP_COLOR,clrSalmon);
                     ObjectSet("Firstpull"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Firstpull"+IntegerToString(i),OBJPROP_WIDTH,5);   
   }



////First Pullback Up
   if (Open[i]>Close[i] && iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))==iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,20,i)) && (
   (iFractals(symbol,0,MODE_LOWER,i+2) && Open[i+1]<Close[i+1] && Open[i+2]<Close[i+2] && High[i+1]-Low[i+1]>360*Point)
   || (iFractals(symbol,0,MODE_LOWER,i+3) && Open[i+1]<Close[i+1] && Open[i+2]<Close[i+2] && Open[i+3]<Close[i+3] && High[i+1]-Low[i+3]>360*Point)
   || (iFractals(symbol,0,MODE_LOWER,i+4) && Open[i+1]<Close[i+1] && Open[i+2]<Close[i+2] && Open[i+3]<Close[i+3] && Open[i+4]<Close[i+4] && High[i+1]-Low[i+4]>360*Point)
   || (iFractals(symbol,0,MODE_LOWER,i+5) && Open[i+1]<Close[i+1] && Open[i+2]<Close[i+2] && Open[i+3]<Close[i+3] && Open[i+4]<Close[i+4] && Open[i+5]<Close[i+5] && High[i+1]-Low[i+5]>360*Point && Low[i+4]<Low[i+3])
    ))
   {
      ObjectCreate("Firstpull"+IntegerToString(i), OBJ_RECTANGLE, 0,  Time[i+2], High[i], Time[i], Low[i]);
                     ObjectSetInteger(0,"Firstpull"+IntegerToString(i),OBJPROP_COLOR,clrChartreuse);
                     ObjectSet("Firstpull"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Firstpull"+IntegerToString(i),OBJPROP_WIDTH,5);   
   }


////First Pullback Down
   if (Open[i]<Close[i] && iLow(symbol,0,iLowest(symbol,0,MODE_LOW,2,i))==iLow(symbol,0,iLowest(symbol,0,MODE_LOW,20,i)) && (
   (iFractals(symbol,0,MODE_UPPER,i+2) && Open[i+1]>Close[i+1] && Open[i+2]>Close[i+2] && High[i+1]-Low[i+1]>360*Point)
   || (iFractals(symbol,0,MODE_UPPER,i+3) && Open[i+1]>Close[i+1] && Open[i+2]>Close[i+2] && Open[i+3]>Close[i+3] && High[i+3]-Low[i+1]>360*Point)
   || (iFractals(symbol,0,MODE_UPPER,i+4) && Open[i+1]>Close[i+1] && Open[i+2]>Close[i+2] && Open[i+3]>Close[i+3] && Open[i+4]>Close[i+4] && High[i+4]-Low[i+1]>360*Point)
   || (iFractals(symbol,0,MODE_UPPER,i+5) && Open[i+1]>Close[i+1] && Open[i+2]>Close[i+2] && Open[i+3]>Close[i+3] && Open[i+4]>Close[i+4] && Open[i+5]>Close[i+5] && High[i+5]-Low[i+1]>360*Point && High[i+4]>High[i+3])
    ))
   {
      if (Close[i]>iMA(symbol,0,207,0,MODE_EMA,PRICE_LOW,i)-100*Point) ObjectCreate("Firstpull"+IntegerToString(i), OBJ_RECTANGLE, 0,  Time[i+10], iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,20,i)), Time[i], iLow(symbol,0,iHighest(symbol,0,MODE_HIGH,20,i)));
      else ObjectCreate("Firstpull"+IntegerToString(i), OBJ_RECTANGLE, 0,  Time[i+2], High[i], Time[i], Low[i]);
      
                     ObjectSetInteger(0,"Firstpull"+IntegerToString(i),OBJPROP_COLOR,clrTomato);
                     if (Close[i+1]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+1)) ObjectSetInteger(0,"Firstpull"+IntegerToString(i),OBJPROP_COLOR,clrChartreuse);
                     ObjectSet("Firstpull"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Firstpull"+IntegerToString(i),OBJPROP_WIDTH,5);   
   }


       if (Close[i]<iLo4[i] )  {ObjectSetText("Crushi"+i, "Vol Crush > ", 21, "Impact", clrWhite); ObjectSetText("Crush"+i, "Vol Crush -> ", 19, "Impact", clrNavy); ObjectSetText("Crushy"+i,DoubleToStr(NormalizeDouble(iHi4[i],4),4), 21, "Impact", clrWhite); ObjectSetText("Crushd"+i, DoubleToStr(NormalizeDouble(iHi4[i],4),4), 19, "Impact", clrNavy);   }
       
       else if (Close[i]>iHi4[i] ) { ObjectSetText("Crushi"+i, "Vol Crush > ", 21, "Impact", clrWhite); ObjectSetText("Crush"+i, "Vol Crush -> ", 19, "Impact", clrNavy);  ObjectSetText("Crushy"+i, DoubleToStr(NormalizeDouble(iLo4[i],4),4), 21, "Impact", clrWhite); ObjectSetText("Crushd"+i, DoubleToStr(NormalizeDouble(iLo4[i],4),4), 19, "Impact", clrNavy);  }

///////Volatility Divergence On The Downside

   if (iFractals(symbol,0,MODE_LOWER,i) && iLow(symbol,0,iLowest(symbol,0,MODE_LOW,240,i))==iLow(symbol,0,i)
   && ExtATRBuffer2[ArrayMinimum(ExtATRBuffer2,240,i+1)]<10 
  // && ExtATRBuffer2[ArrayMaximum(ExtATRBuffer2,14,i+10)]<41
   && ExtATRBuffer2[ArrayMinimum(ExtATRBuffer2,240,i+1)]<ExtATRBuffer2[i] 
   && ExtATRBuffer2[i]<41
 //  && Close[i-1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i-1)
 //  && ExtATRBuffer[ArrayMaximum(ExtATRBuffer,70,i+10)]<ExtATRBuffer[i]
   )
   {
      ObjectCreate("Frog"+IntegerToString(i),OBJ_TREND,indicator_window, Time[i], ExtATRBuffer2[i], Time[ArrayMinimum(ExtATRBuffer2,240,i+1)], ExtATRBuffer2[ArrayMinimum(ExtATRBuffer2,240,i+1)]);
      ObjectSet("Frog"+IntegerToString(i),OBJPROP_COLOR,clrPowderBlue); 
   if (ExtATRBuffer2[ArrayMaximum(ExtATRBuffer2,14,i+10)]>41) { ObjectCreate("Frogg"+IntegerToString(i),OBJ_TEXT, 0, Time[i+8],Low[i]-40*Point);
      ObjectSetText("Frogg"+IntegerToString(i),"TAKE BCK 2 FRACT.(5H)", 26, "Impact", clrCadetBlue);
     // if (ExtATRBuffer[i]<140) ObjectSetText("Frogg"+IntegerToString(i),"TAKE BCK 1 FRACT.(5H)", 26, "Impact", clrCadetBlue);
      if (ExtATRBuffer[i]<105) ObjectSetText("Frogg"+IntegerToString(i),"TAKE BCK 3 FRACT.(5H)", 26, "Impact", clrCadetBlue);
      if (ExtATRBuffer[i]>140) ObjectSetText("Frogg"+IntegerToString(i),"TAKE BCK 1 FRACT.(5H)", 26, "Impact", clrCadetBlue);
      if (i>5 && (Low[i-5]<Low[i] || Low[i-4]<Low[i] || Low[i-3]<Low[i] || Low[i-2]<Low[i] || Low[i-1]<Low[i])) ObjectDelete("Frogg"+IntegerToString(i));
      
      }  
         
   if (ExtATRBuffer2[ArrayMaximum(ExtATRBuffer2,14,i+10)]<41) {
      ObjectSet("Frog"+IntegerToString(i),OBJPROP_COLOR,clrYellow); 
      if (ExtATRBuffer[i]>41 && Close[i-1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i-1)) {
         ObjectCreate("Frogg"+IntegerToString(i),OBJ_TEXT, 0, Time[i+8],Low[i]-40*Point);
         ObjectSetText("Frogg"+IntegerToString(i),"FLIP OVER ATTEMPT", 26, "Impact", clrYellow);}   
      


      
      if (ExtATRBuffer2[i]>41)  ObjectSet("Frog"+IntegerToString(i),OBJPROP_COLOR,clrPink); 
      if (i>0 && Close[i-1]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i-1)){ 
         ObjectSet("Frog"+IntegerToString(i),OBJPROP_COLOR,clrGray); }
   }
   if (i>0 && ExtATRBuffer2[ArrayMaximum(ExtATRBuffer2,14,i+10)]>41 && Close[i-1]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i-1)){ 
         ObjectSet("Frog"+IntegerToString(i),OBJPROP_COLOR,clrGray); }
      ObjectSet("Frog"+IntegerToString(i),OBJPROP_WIDTH,6);  
      ObjectSet("Frog"+IntegerToString(i),OBJPROP_RAY_RIGHT,false);
      ObjectSet("Frog"+IntegerToString(i),OBJPROP_BACK,true);           
   }


///////Volatility Divergence On The Upside
   
      if (iFractals(symbol,0,MODE_UPPER,i) && 
      iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,240,i))==iHigh(symbol,0,i)
   && ExtATRBuffer[ArrayMinimum(ExtATRBuffer,240,i+1)]<11 
  // && ExtATRBuffer[ArrayMaximum(ExtATRBuffer,10,i+14)]<62
   && ExtATRBuffer[ArrayMinimum(ExtATRBuffer,240,i+1)]<ExtATRBuffer[i] 
   && ExtATRBuffer[i]<45
 //  && ((Close[i-1]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i-1)) || (i>1 && Close[i-2]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i-1))) 
   && (
   ExtATRBuffer2[ArrayMaximum(ExtATRBuffer2,240,i+10)]<ExtATRBuffer2[i] || 
   Close[i]<High[i]-(High[i]-Low[i])/3)
   )
   {
      ObjectCreate("Frogi"+IntegerToString(i),OBJ_TREND,indicator_window, Time[i], ExtATRBuffer[i], Time[ArrayMinimum(ExtATRBuffer,240,i+1)], ExtATRBuffer[ArrayMinimum(ExtATRBuffer,240,i+1)]);
      ObjectSet("Frogi"+IntegerToString(i),OBJPROP_COLOR,clrYellow); 
      if (ExtATRBuffer[i]<31 && Close[i-1]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i-1)) {ObjectCreate("Frogg"+IntegerToString(i),OBJ_TEXT, 0, Time[i+12],High[i]+80*Point);
      ObjectSetText("Frogg"+IntegerToString(i),"FLIP OVER ATTEMPT", 26, "Impact", clrYellow);
      if (ExtATRBuffer2[i]>166) ObjectSetText("Frogg"+IntegerToString(i),"FLIP OVER - MUST HEDGE", 26, "Impact", clrYellow); }   
      if (ExtATRBuffer[i]>31)  ObjectSet("Frogi"+IntegerToString(i),OBJPROP_COLOR,clrPink); 
      else if (Close[i-1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i-1)) 
      {ObjectSet("Frogi"+IntegerToString(i),OBJPROP_COLOR,clrLightGray); 
       if (Low[i+2]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+2) && Close[i+2]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+2)) ObjectSet("Frogi"+IntegerToString(i),OBJPROP_COLOR,clrBlack);   
       if (Low[i]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)) ObjectSet("Frogi"+IntegerToString(i),OBJPROP_COLOR,clrGray);     
  //     ObjectCreate("POTA"+IntegerToString(i),OBJ_TEXT, 0, Time[i+8],(High[i])-50*Point);
  //     ObjectSetText("POTA"+IntegerToString(i), "10L to F2-", 36, "Impact", clrRed);
       if (ExtATRBuffer2[i]<129 && Anchor[ArrayMinimum(ExtATRBuffer,160,i+1)]==true) {ObjectSetText("POTA"+IntegerToString(i), "Extra Dangerous Flip Over", 36, "Impact", clrYellow);
        ObjectSet("Frogi"+IntegerToString(i),OBJPROP_COLOR,clrYellow); 
       }     
      }
      ObjectSet("Frogi"+IntegerToString(i),OBJPROP_WIDTH,6);  
      ObjectSet("Frogi"+IntegerToString(i),OBJPROP_RAY_RIGHT,false);
      ObjectSet("Frogi"+IntegerToString(i),OBJPROP_BACK,true);
              
   }
   

}
}

double rou=0;
double rod=0;

if (Period()==30){
deletetxt1("Libec");

i=0;
while(i<10){
   if (High[i]-iMA(NULL,0,17,0,MODE_EMA, PRICE_MEDIAN,i)>rou) rou=High[i]-iMA(NULL,0,17,0,MODE_EMA, PRICE_MEDIAN,i);
   if (iMA(NULL,0,17,0,MODE_EMA, PRICE_MEDIAN,i)-Low[i]>rod) rod=iMA(NULL,0,17,0,MODE_EMA, PRICE_MEDIAN,i)-Low[i];
i++;
}

  ObjectCreate("Libec"+4,OBJ_LABEL,indicator_window, 0,0);
   ObjectSetText("Libec"+4, DoubleToStr(rou*10000,2)+" ("+DoubleToStr(iMA(NULL,0,17,0,MODE_EMA, PRICE_MEDIAN,0)+rou,4)+")", 11, "Arial Black", DarkViolet);  
  ObjectSet("Libec"+4,OBJPROP_CORNER,2);
    ObjectSet("Libec"+4,OBJPROP_XDISTANCE,20);
  ObjectSet("Libec"+4,OBJPROP_YDISTANCE,67);
  if (rou>rod) ObjectSet("Libec"+4,OBJPROP_COLOR,clrDarkGreen);
  else if (rou<.0010) ObjectSet("Libec"+4,OBJPROP_COLOR,clrGray);
   else ObjectSet("Libec"+4,OBJPROP_COLOR,clrBlack);
  


  ObjectCreate("Libec"+5,OBJ_LABEL,indicator_window, 0,0);
   ObjectSetText("Libec"+5,DoubleToStr(rod*10000,2)+" ("+DoubleToStr(iMA(NULL,0,17,0,MODE_EMA, PRICE_MEDIAN,0)-rod,4)+")", 11, "Arial Black", DarkViolet);  
  ObjectSet("Libec"+5,OBJPROP_CORNER,2);
    ObjectSet("Libec"+5,OBJPROP_XDISTANCE,20);
  ObjectSet("Libec"+5,OBJPROP_YDISTANCE,47);
  if (rod>rou) ObjectSet("Libec"+5,OBJPROP_COLOR,clrCrimson); 
  else if (rod<.0010) ObjectSet("Libec"+5,OBJPROP_COLOR,clrGray);
   else ObjectSet("Libec"+5,OBJPROP_COLOR,clrBlack);

}
//////////////Pit Array
if (Period()==60){
i=0;
while (i<dotplot){
if (Close[i+3]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+3) && Close[i+2]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+2) && Close[i+1]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1)) 
pit[i]=-1;
if (Close[i+3]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+3) && Close[i+2]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+2) && Close[i+1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1)) 
pit[i]=1;
i++;
}

deletetxt1("PENELOPE");

i=0;
while (i<dotplot){
  ObjectCreate("PENELOPE"+i,OBJ_LABEL,0, 0,0);
  ObjectSet("PENELOPE"+i,OBJPROP_CORNER,1);
  ObjectSet("PENELOPE"+i,OBJPROP_XDISTANCE,305+i*16);
  ObjectSet("PENELOPE"+i,OBJPROP_YDISTANCE,510);
  ObjectSetText("PENELOPE"+i,CharToStr(108),19,"Wingdings");
  ObjectSet("PENELOPE"+i,OBJPROP_COLOR,clrBlack); 
  if (pit[i]>0) ObjectSet("PENELOPE"+i,OBJPROP_COLOR,clrGreen); 
  if (pit[i]<0) ObjectSet("PENELOPE"+i,OBJPROP_COLOR,clrRed);  
 i++; 
 if (iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i)>180*Point){ 
  if (pit[i]==0 && pit[i+1]==0 && pit[i+2]<0 && High[i]>iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i) ){
      ObjectCreate("PENELOPEZi"+i,OBJ_TEXT, 0, Time[i+2], iLow(symbol,0,iLowest(symbol,0,MODE_LOW,3,i))+15*Point);
      ObjectSetText("PENELOPEZi"+i,CharToStr(240),29,"Wingdings");
      ObjectSet("PENELOPEZi"+i,OBJPROP_COLOR,clrBlack); 

      ObjectCreate("PENELOPEZii"+i,OBJ_TEXT, 0, Time[i+2], iLow(symbol,0,iLowest(symbol,0,MODE_LOW,3,i))-25*Point);
      ObjectSetText("PENELOPEZii"+i,"B416p@ "+DoubleToStr(NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,3,i)),4),4)+"-(5)",29,"Impact");
      if (j>42) ObjectSetText("PENELOPEZii"+i,"B416p@ "+DoubleToStr(NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,3,i))-70*Point,4),4)+"-(5)",29,"Impact");
      
      ObjectSet("PENELOPEZii"+i,OBJPROP_COLOR,clrDarkGreen); 
      if (i>14) ObjectSet("PENELOPEZii"+i,OBJPROP_COLOR,clrBlue); 
      j=i-1;
      while (j>0){
         if (Low[j]<iLow(symbol,0,iLowest(symbol,0,MODE_LOW,3,i))-50*Point) {ObjectDelete("PENELOPEZii"+i); ObjectDelete("PENELOPEZi"+i);}
      j--;
      }
  }  
   
    if (pit[i]==0 && pit[i+1]==0 && pit[i+2]>0 && Low[i]<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i)){
      ObjectCreate("PENELOPEZi"+i,OBJ_TEXT, 0, Time[i+2], iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))+60*Point);
      ObjectSetText("PENELOPEZi"+i,CharToStr(240),29,"Wingdings");
      ObjectSet("PENELOPEZi"+i,OBJPROP_COLOR,clrBlack); 
      
      ObjectCreate("PENELOPEZii"+i,OBJ_TEXT, 0, Time[i+2], iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))+80*Point);
      ObjectSetText("PENELOPEZii"+i,"S416p@ "+DoubleToStr(NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i)),4),4)+"+(5)",29,"Impact");
      if (j>42) ObjectSetText("PENELOPEZii"+i,"S416p@ "+DoubleToStr(NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))+70*Point,4),4)+"+(5)",29,"Impact"); 
      ObjectSet("PENELOPEZii"+i,OBJPROP_COLOR,clrCrimson); 
       if (i>14) ObjectSet("PENELOPEZii"+i,OBJPROP_COLOR,clrBlue); 
        j=i-1;
      while (j>0){
         if (High[j]>iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))+50*Point) {ObjectDelete("PENELOPEZii"+i); ObjectDelete("PENELOPEZi"+i);}
      j--;
      } 
      
  }   
 }
}





if (Close[0]>iMA(symbol,0,8,0,MODE_EMA,PRICE_MEDIAN,207)){
   
     if (pit[10]==0 && Close[11]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,11) 
      && (Close[10]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,10)+50*Point || (Close[10]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,10) && Open[10]-Close[10]<30*Point)))
    {
      ObjectCreate("PENELOPEZ"+12,OBJ_LABEL,0, 0,0);
      ObjectSet("PENELOPEZ"+12,OBJPROP_CORNER,1);
      ObjectSet("PENELOPEZ"+12,OBJPROP_XDISTANCE,440);
      ObjectSet("PENELOPEZ"+12,OBJPROP_YDISTANCE,490);
      ObjectSetText("PENELOPEZ"+12,CharToStr(241),19,"Wingdings");
      ObjectSet("PENELOPEZ"+12,OBJPROP_COLOR,clrGreen); 
  }
  if (pit[9]==0 && Close[10]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,10) 
      && (Close[9]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,9)+50*Point || (Close[9]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,9) && Open[9]-Close[9]<30*Point)))
    {
      ObjectCreate("PENELOPEZ"+13,OBJ_LABEL,0, 0,0);
      ObjectSet("PENELOPEZ"+13,OBJPROP_CORNER,1);
      ObjectSet("PENELOPEZ"+13,OBJPROP_XDISTANCE,425);
      ObjectSet("PENELOPEZ"+13,OBJPROP_YDISTANCE,490);
      ObjectSetText("PENELOPEZ"+13,CharToStr(241),19,"Wingdings");
      ObjectSet("PENELOPEZ"+13,OBJPROP_COLOR,clrGreen); 
  }
  if (pit[8]==0 && Close[9]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,9) 
      && (Close[8]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,8)+50*Point || (Close[8]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,8) && Open[8]-Close[8]<30*Point)))
    {
      ObjectCreate("PENELOPEZ"+14,OBJ_LABEL,0, 0,0);
      ObjectSet("PENELOPEZ"+14,OBJPROP_CORNER,1);
      ObjectSet("PENELOPEZ"+14,OBJPROP_XDISTANCE,410);
      ObjectSet("PENELOPEZ"+14,OBJPROP_YDISTANCE,490);
      ObjectSetText("PENELOPEZ"+14,CharToStr(241),19,"Wingdings");
      ObjectSet("PENELOPEZ"+14,OBJPROP_COLOR,clrGreen); 
  }
 if (pit[7]==0 && Close[8]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,8) 
      && (Close[7]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,7)+50*Point || (Close[7]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,7) && Open[7]-Close[7]<30*Point)))
    {
      ObjectCreate("PENELOPEZ"+15,OBJ_LABEL,0, 0,0);
      ObjectSet("PENELOPEZ"+15,OBJPROP_CORNER,1);
      ObjectSet("PENELOPEZ"+15,OBJPROP_XDISTANCE,395);
      ObjectSet("PENELOPEZ"+15,OBJPROP_YDISTANCE,490);
      ObjectSetText("PENELOPEZ"+15,CharToStr(241),19,"Wingdings");
      ObjectSet("PENELOPEZ"+15,OBJPROP_COLOR,clrGreen); 
  }
 if (pit[6]==0 && Close[7]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,7) 
      && (Close[6]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,6)+50*Point || (Close[6]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,6) && Open[6]-Close[6]<30*Point)))
    {
      ObjectCreate("PENELOPEZ"+15,OBJ_LABEL,0, 0,0);
      ObjectSet("PENELOPEZ"+15,OBJPROP_CORNER,1);
      ObjectSet("PENELOPEZ"+15,OBJPROP_XDISTANCE,380);
      ObjectSet("PENELOPEZ"+15,OBJPROP_YDISTANCE,490);
      ObjectSetText("PENELOPEZ"+15,CharToStr(241),19,"Wingdings");
      ObjectSet("PENELOPEZ"+15,OBJPROP_COLOR,clrGreen); 
  }
 if (pit[5]==0 && Close[6]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,6) 
      && (Close[5]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,5)+50*Point || (Close[5]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,5) && Open[5]-Close[5]<30*Point)))
    {
      ObjectCreate("PENELOPEZ"+16,OBJ_LABEL,0, 0,0);
      ObjectSet("PENELOPEZ"+16,OBJPROP_CORNER,1);
      ObjectSet("PENELOPEZ"+16,OBJPROP_XDISTANCE,365);
      ObjectSet("PENELOPEZ"+16,OBJPROP_YDISTANCE,490);
      ObjectSetText("PENELOPEZ"+16,CharToStr(241),19,"Wingdings");
      ObjectSet("PENELOPEZ"+16,OBJPROP_COLOR,clrGreen); 
  }   
 if (pit[4]==0 && Close[5]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,5) 
      && (Close[4]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,4)+50*Point || (Close[4]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,4) && Open[4]-Close[4]<30*Point)))
    {
      ObjectCreate("PENELOPEZ"+17,OBJ_LABEL,0, 0,0);
      ObjectSet("PENELOPEZ"+17,OBJPROP_CORNER,1);
      ObjectSet("PENELOPEZ"+17,OBJPROP_XDISTANCE,350);
      ObjectSet("PENELOPEZ"+17,OBJPROP_YDISTANCE,490);
      ObjectSetText("PENELOPEZ"+17,CharToStr(241),19,"Wingdings");
      ObjectSet("PENELOPEZ"+17,OBJPROP_COLOR,clrGreen); 
  }       
 if (pit[3]==0 && Close[4]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,4) 
      && (Close[3]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,3)+50*Point || (Close[3]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,3) && Open[3]-Close[3]<30*Point)))
    {
      ObjectCreate("PENELOPEZ"+18,OBJ_LABEL,0, 0,0);
      ObjectSet("PENELOPEZ"+18,OBJPROP_CORNER,1);
      ObjectSet("PENELOPEZ"+18,OBJPROP_XDISTANCE,335);
      ObjectSet("PENELOPEZ"+18,OBJPROP_YDISTANCE,490);
      ObjectSetText("PENELOPEZ"+18,CharToStr(241),19,"Wingdings");
      ObjectSet("PENELOPEZ"+18,OBJPROP_COLOR,clrGreen); 
  }        
 if (pit[2]==0 && Close[3]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,3) 
      && (Close[2]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,2)+50*Point || (Close[2]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,2) && Open[2]-Close[2]<30*Point)))
    {
      ObjectCreate("PENELOPEZ"+19,OBJ_LABEL,0, 0,0);
      ObjectSet("PENELOPEZ"+19,OBJPROP_CORNER,1);
      ObjectSet("PENELOPEZ"+19,OBJPROP_XDISTANCE,320);
      ObjectSet("PENELOPEZ"+19,OBJPROP_YDISTANCE,490);
      ObjectSetText("PENELOPEZ"+19,CharToStr(241),19,"Wingdings");
      ObjectSet("PENELOPEZ"+19,OBJPROP_COLOR,clrGreen); 
  }        
if (pit[1]==0 && Close[2]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,2) 
      && (Close[1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,1)+50*Point || (Close[1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,1) && Open[1]-Close[1]<30*Point)))
    {
      ObjectCreate("PENELOPEZ"+20,OBJ_LABEL,0, 0,0);
      ObjectSet("PENELOPEZ"+20,OBJPROP_CORNER,1);
      ObjectSet("PENELOPEZ"+20,OBJPROP_XDISTANCE,305);
      ObjectSet("PENELOPEZ"+20,OBJPROP_YDISTANCE,490);
      ObjectSetText("PENELOPEZ"+20,CharToStr(241),19,"Wingdings");
      ObjectSet("PENELOPEZ"+20,OBJPROP_COLOR,clrGreen); 
  } 
 
  
}  




}


deletetxt1("DEVELOPE");
if (Period()<1440){

 ObjectCreate("DEVELOPE"+0,OBJ_TEXT,indicator_window, Time[0],41);
  ObjectSetText("DEVELOPE"+0,"                            S0: "+DoubleToStr(NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,200,0))-400*Point,4),4),19,"Impact",clrGray);
 
  ObjectCreate("DEVELOPE"+1,OBJ_TEXT,indicator_window, Time[0],63);
  ObjectSetText("DEVELOPE"+1,"                            S1: "+DoubleToStr(NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,200,0))-600*Point,4),4),19,"Impact",clrBlue);
  
  ObjectCreate("DEVELOPE"+2,OBJ_TEXT,indicator_window, Time[0],79);
  ObjectSetText("DEVELOPE"+2,"                            S2: "+DoubleToStr(NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,200,0))-760*Point,4),4),19,"Impact",clrBlue);

  ObjectCreate("DEVELOPE"+3,OBJ_TEXT,indicator_window, Time[0],95);
  ObjectSetText("DEVELOPE"+3,"                            S3: "+DoubleToStr(NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,200,0))-940*Point,4),4),19,"Impact",clrPurple);

ObjectCreate("DEVELOPE"+11,OBJ_TEXT,indicator_window, Time[0],25);
  ObjectSetText("DEVELOPE"+11,"                            E: "+DoubleToStr(NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,200,0))-300*Point,4),4),19,"Impact",clrMagenta);

ObjectCreate("DEVELOPE"+12,OBJ_TEXT,indicator_window, Time[0],115);
  ObjectSetText("DEVELOPE"+12,"                            SOB: "+DoubleToStr(NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,200,0))-470*Point,4),4),19,"Impact",clrYellow);


ObjectCreate("Firstpullz", OBJ_TREND, 0,  Time[2], iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,200,0))-470*Point, Time[0], iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,200,0))-470*Point);
                     ObjectSetInteger(0,"Firstpullz",OBJPROP_COLOR,clrYellow);
                     ObjectSet("Firstpullz",OBJPROP_BACK,0);
                     ObjectSet("Firstpullz",OBJPROP_RAY_RIGHT,true);
                     ObjectSet("Firstpullz",OBJPROP_WIDTH,6);   
ObjectCreate("Firstpullx", OBJ_TREND, 0,  Time[2], iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,200,0))-470*Point, Time[0], iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,200,0))-470*Point);
                     ObjectSetInteger(0,"Firstpullx",OBJPROP_COLOR,clrPurple);
                     ObjectSet("Firstpullx",OBJPROP_BACK,1);
                     ObjectSet("Firstpullx",OBJPROP_RAY_RIGHT,true);
                     ObjectSet("Firstpullx",OBJPROP_WIDTH,12);






if (ExtATRBuffer[0]>ExtATRBuffer2[0]){
    ObjectSetText("DEVELOPE"+0,"                            R0: "+DoubleToStr(NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,200,0))+400*Point,4),4),19,"Impact",clrGray);
    ObjectSetText("DEVELOPE"+1,"                            R1: "+DoubleToStr(NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,200,0))+600*Point,4),4),19,"Impact",clrBlue);
    ObjectSetText("DEVELOPE"+2,"                            R2: "+DoubleToStr(NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,200,0))+760*Point,4),4),19,"Impact",clrBlue);
    ObjectSetText("DEVELOPE"+3,"                            R3: "+DoubleToStr(NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,200,0))+940*Point,4),4),19,"Impact",clrPurple);
    ObjectSetText("DEVELOPE"+11,"                            E: "+DoubleToStr(NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,200,0))+300*Point,4),4),19,"Impact",clrMagenta);
    ObjectSetText("DEVELOPE"+12,"                            SOB: "+DoubleToStr(NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,200,0))+470*Point,4),4),19,"Impact",clrYellow);  
    ObjectDelete("Firstpullz");
    ObjectDelete("Firstpullx");
    ObjectCreate("Firstpullz", OBJ_TREND, 0,  Time[2], iLow(symbol,0,iLowest(symbol,0,MODE_LOW,200,0))+470*Point, Time[0], iLow(symbol,0,iLowest(symbol,0,MODE_LOW,200,0))+470*Point);  
                     ObjectSetInteger(0,"Firstpullz",OBJPROP_COLOR,clrYellow);
                     ObjectSet("Firstpullz",OBJPROP_BACK,0);
                     ObjectSet("Firstpullz",OBJPROP_RAY_RIGHT,true);
                     ObjectSet("Firstpullz",OBJPROP_WIDTH,6);   
    ObjectCreate("Firstpullx", OBJ_TREND, 0,  Time[2], iLow(symbol,0,iLowest(symbol,0,MODE_LOW,200,0))+470*Point, Time[0], iLow(symbol,0,iLowest(symbol,0,MODE_LOW,200,0))+470*Point);  
                     ObjectSetInteger(0,"Firstpullx",OBJPROP_COLOR,clrPurple);
                     ObjectSet("Firstpullx",OBJPROP_BACK,1);
                     ObjectSet("Firstpullx",OBJPROP_RAY_RIGHT,true);
                     ObjectSet("Firstpullx",OBJPROP_WIDTH,12);
}


 ObjectCreate("Firstpullyy", OBJ_TREND, 0,  Time[2], tensharp[0], Time[0], tensharp[0]);  
                     ObjectSetInteger(0,"Firstpullyy",OBJPROP_COLOR,clrPurple);
                     ObjectSet("Firstpullyy",OBJPROP_BACK,1);
                     ObjectSet("Firstpullyy",OBJPROP_RAY_RIGHT,true);
                     ObjectSet("Firstpullyy",OBJPROP_WIDTH,6);
                     
  
  if (Close[0]>iMA(symbol,0,240,0,MODE_SMA,PRICE_MEDIAN,0)){
  ObjectCreate("DEVELOPE"+14,OBJ_TEXT,0, Time[0],tensharp[0]+30*Point);
  ObjectSetText("DEVELOPE"+14,"                        Cover >"+DoubleToStr(NormalizeDouble(tensharp[0],4),4),19,"Arial Black",clrBlack);                    
 
   ObjectCreate("DEVELOPE"+16,OBJ_LABEL,1, 0,0);
  ObjectSet("DEVELOPE"+16,OBJPROP_CORNER,1);
    ObjectSet("DEVELOPE"+16,OBJPROP_XDISTANCE,0);
  ObjectSet("DEVELOPE"+16,OBJPROP_YDISTANCE,20);
  ObjectSet("DEVELOPE"+16,OBJPROP_COLOR,clrWhite); 
  ObjectSetText("DEVELOPE"+16,"Cover Level: "+DoubleToStr(NormalizeDouble(tensharp[0],4),4),19,"Arial Black");
  
  }                   
  else {ObjectCreate("DEVELOPE"+14,OBJ_TEXT,0, Time[0],tensharp[0]-10*Point);
  ObjectSetText("DEVELOPE"+14,"                        Cover <"+DoubleToStr(NormalizeDouble(tensharp[0],4),4),19,"Arial Black",clrBlack);                    
  
    ObjectCreate("DEVELOPE"+16,OBJ_LABEL,1, 0,0);
  ObjectSet("DEVELOPE"+16,OBJPROP_CORNER,1);
    ObjectSet("DEVELOPE"+16,OBJPROP_XDISTANCE,0);
  ObjectSet("DEVELOPE"+16,OBJPROP_YDISTANCE,20);
  ObjectSet("DEVELOPE"+16,OBJPROP_COLOR,clrWhite); 
  ObjectSetText("DEVELOPE"+16,"Cover Level: "+DoubleToStr(NormalizeDouble(tensharp[0],4),4),19,"Arial Black");
  }
  

ObjectCreate("DEVELOPE"+5,OBJ_TEXT,indicator_window, Time[0],49);
  ObjectSetText("DEVELOPE"+5,"                                                            W3M",19,"Impact",clrBlack);
 
 ObjectCreate("DEVELOPE"+10,OBJ_TEXT,indicator_window, Time[0],41);
  ObjectSetText("DEVELOPE"+10,"                                                             GL",19,"Impact",clrBlack);
 

 ObjectCreate("DEVELOPE"+4,OBJ_LABEL,indicator_window, 0,0);
  ObjectSet("DEVELOPE"+4,OBJPROP_CORNER,1);
    ObjectSet("DEVELOPE"+4,OBJPROP_XDISTANCE,0);
  ObjectSet("DEVELOPE"+4,OBJPROP_YDISTANCE,140);
  ObjectSet("DEVELOPE"+4,OBJPROP_COLOR,clrPowderBlue); 
  ObjectSetText("DEVELOPE"+4,"B: K/Fractal",19,"Arial Black");
  


 ObjectCreate("DEVELOPE"+6,OBJ_LABEL,indicator_window, 0,0);
  ObjectSet("DEVELOPE"+6,OBJPROP_CORNER,1);
    ObjectSet("DEVELOPE"+6,OBJPROP_XDISTANCE,0);
  ObjectSet("DEVELOPE"+6,OBJPROP_YDISTANCE,20);
  ObjectSet("DEVELOPE"+6,OBJPROP_COLOR,clrYellow); 
  ObjectSetText("DEVELOPE"+6,"Y: 210+",19,"Arial Black");
  

ObjectCreate("DEVELOPE"+9,OBJ_LABEL,indicator_window, 0,0);
  ObjectSet("DEVELOPE"+9,OBJPROP_CORNER,1);
    ObjectSet("DEVELOPE"+9,OBJPROP_XDISTANCE,0);
  ObjectSet("DEVELOPE"+9,OBJPROP_YDISTANCE,50);
  ObjectSet("DEVELOPE"+9,OBJPROP_COLOR,clrGray); 
  ObjectSetText("DEVELOPE"+9,"G,G: 140+",19,"Arial Black");

ObjectCreate("DEVELOPE"+8,OBJ_LABEL,indicator_window, 0,0);
  ObjectSet("DEVELOPE"+8,OBJPROP_CORNER,1);
    ObjectSet("DEVELOPE"+8,OBJPROP_XDISTANCE,0);
  ObjectSet("DEVELOPE"+8,OBJPROP_YDISTANCE,80);
  ObjectSet("DEVELOPE"+8,OBJPROP_COLOR,clrGray); 
  ObjectSetText("DEVELOPE"+8,"G: 88+(<135)",19,"Arial Black");

ObjectCreate("DEVELOPE"+7,OBJ_LABEL,indicator_window, 0,0);
  ObjectSet("DEVELOPE"+7,OBJPROP_CORNER,1);
    ObjectSet("DEVELOPE"+7,OBJPROP_XDISTANCE,0);
  ObjectSet("DEVELOPE"+7,OBJPROP_YDISTANCE,110);
  ObjectSet("DEVELOPE"+7,OBJPROP_COLOR,clrPink); 
  ObjectSetText("DEVELOPE"+7,"P: 65+",19,"Arial Black");


}

ObjectCreate("Firstpullw", OBJ_TREND, 0,  Time[2], level, Time[0], level);
                     ObjectSetInteger(0,"Firstpullw",OBJPROP_COLOR,clrBlack);
                     ObjectSet("Firstpullw",OBJPROP_BACK,1);
                     ObjectSet("Firstpullw",OBJPROP_RAY_RIGHT,true);
                     ObjectSet("Firstpullw",OBJPROP_WIDTH,12);


ObjectCreate("Firstpully", OBJ_TREND, 0,  Time[2], level, Time[0], level);
if (Close[0]>level)  ObjectSetInteger(0,"Firstpully",OBJPROP_COLOR,clrGreen);
else                     ObjectSetInteger(0,"Firstpully",OBJPROP_COLOR,clrRed);
                     ObjectSet("Firstpully",OBJPROP_BACK,0);
                     ObjectSet("Firstpully",OBJPROP_RAY_RIGHT,true);
                     ObjectSet("Firstpully",OBJPROP_WIDTH,6);   


//deletetxt1("PENELOPE");
if (sample<31 && Period()==60){

 ObjectCreate("PENELOPED"+6,OBJ_LABEL,2, 0,0);
  ObjectSet("PENELOPED"+6,OBJPROP_CORNER,1);
    ObjectSet("PENELOPED"+6,OBJPROP_XDISTANCE,0);
  ObjectSet("PENELOPED"+6,OBJPROP_YDISTANCE,20);
  ObjectSet("PENELOPED"+6,OBJPROP_COLOR,clrGray); 
  if (ExtATRBuffer[0]>24 && ExtATRBuffer[0]<32 && ExtATRBuffer[1]<28 && ExtATRBuffer[2]<28) ObjectSet("PENELOPED"+6,OBJPROP_COLOR,clrYellow); 
  ObjectSetText("PENELOPED"+6,DoubleToStr(NormalizeDouble(ExtATRBuffer[0],2),1)+"   "+DoubleToStr(NormalizeDouble(ExtATRBuffer[ArrayMaximum(ExtATRBuffer,10,0)],2),1),19,"Arial Black");
  if (dir[0]<0 && ExtATRBuffer[ArrayMaximum(ExtATRBuffer,10,0)]<35 && RSI2[ArrayMaximum(RSI2,10,0)]>8) {ObjectSetText("PENELOPED"+6,"TBUY "+DoubleToStr(NormalizeDouble(ExtATRBuffer[0],2),1)+"   "+DoubleToStr(NormalizeDouble(ExtATRBuffer[ArrayMaximum(ExtATRBuffer,10,0)],2),1),19,"Arial Black");
   ObjectSet("PENELOPED"+6,OBJPROP_COLOR,clrGreen); 
  }
  

  ObjectCreate("PENELOPED"+9,OBJ_LABEL,2, 0,0);
  ObjectSet("PENELOPED"+9,OBJPROP_CORNER,3);
  ObjectSet("PENELOPED"+9,OBJPROP_XDISTANCE,0);
  ObjectSet("PENELOPED"+9,OBJPROP_YDISTANCE,20);
  ObjectSet("PENELOPED"+9,OBJPROP_COLOR,clrGray); 
  ObjectSetText("PENELOPED"+9,DoubleToStr(NormalizeDouble(ExtATRBuffer2[0],2),1)+"   "+DoubleToStr(NormalizeDouble(ExtATRBuffer2[ArrayMaximum(ExtATRBuffer2,10,0)],2),1),19,"Arial Black");
  if (ExtATRBuffer2[0]>24 && ExtATRBuffer2[0]<32 && ExtATRBuffer2[1]<28 && ExtATRBuffer2[2]<28) ObjectSet("PENELOPED"+9,OBJPROP_COLOR,clrYellow); 
  if (dir[0]>0 && ExtATRBuffer2[ArrayMaximum(ExtATRBuffer2,10,0)]<35 && RSI2[ArrayMaximum(RSI2,10,0)]<92) {ObjectSetText("PENELOPED"+9,"TSELL "+DoubleToStr(NormalizeDouble(ExtATRBuffer2[0],2),1)+"   "+DoubleToStr(NormalizeDouble(ExtATRBuffer2[ArrayMaximum(ExtATRBuffer2,10,0)],2),1),19,"Arial Black");
   ObjectSet("PENELOPED"+9,OBJPROP_COLOR,clrRed); 
  }
}


if (Period()==60 && sample<31){
deletetxt1("Singende");
deletetxt1("Frogger");
deletetxt1("Bacardo");

 for(i = lookback; i >= 0; i--){
 
///breaker wave coming up 
if (ExtATRBuffer[i]>36 && ExtATRBuffer2[i]>15 && ExtATRBuffer2[i+1]<15 && Close[i]>Open[i]-50*Point && !(ExtATRBuffer[i]>41 && ExtATRBuffer[i]<53) && ExtATRBuffer[i+2]<62
&& dir[i]>-1
  
){
            ObjectCreate("LINUSS"+IntegerToString(i),OBJ_VLINE,1, Time[i], 0);
            ObjectSet("LINUSS"+IntegerToString(i),OBJPROP_COLOR,clrLimeGreen);
            ObjectSet("LINUSS"+IntegerToString(i),OBJPROP_WIDTH,6);
            ObjectSet("LINUSS"+IntegerToString(i),OBJPROP_STYLE,STYLE_DOT);
            ObjectSet("LINUSS"+IntegerToString(i),OBJPROP_BACK,1);
}

///breaker wave coming down
if (ExtATRBuffer2[i]>36 && ExtATRBuffer[i]>15 && ExtATRBuffer[i+1]<15 && ExtATRBuffer2[i]<=ExtATRBuffer2[i+1] 
&& ExtATRBuffer2[i+1]<=ExtATRBuffer2[i+2]
 ){
            ObjectCreate("LINUSS"+IntegerToString(i),OBJ_VLINE,1, Time[i], 0);
            ObjectSet("LINUSS"+IntegerToString(i),OBJPROP_COLOR,clrCoral);
            ObjectSet("LINUSS"+IntegerToString(i),OBJPROP_WIDTH,6);
            ObjectSet("LINUSS"+IntegerToString(i),OBJPROP_STYLE,STYLE_DOT);
            ObjectSet("LINUSS"+IntegerToString(i),OBJPROP_BACK,1);
}




 ///volatility expansion eval - buy side
  if (dir[i]>-1 && ExtATRBuffer2[i]>24 && ExtATRBuffer2[i]<32 && ExtATRBuffer2[i+1]<28 && ExtATRBuffer2[i+2]<28
  && (iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i)-iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i))>1000*Point
  && magenta[ArrayMaximum(magenta,20,i)]<1
  ){
    if ((Low[i]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i) && Low[i+1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1) && Low[i+2]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+2)  && Close[i+3]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+3))
    || (Close[i]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i)+80*Point && Close[i+1]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1)+40*Point && Close[i+1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1)-20*Point)
  
    )
    { if (High[i+2]<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i+2))
      ObjectCreate("HOTS"+i,OBJ_TEXT, 2, Time[i],ExtATRBuffer2[i]+30);
      ObjectSetText("HOTS"+i,CharToStr(241), 56, "Wingdings", clrDarkGreen);
    }
    else if ((Close[i]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i) || Close[i+1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1)) &&    
    High[i+2]<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_MAIN,i+2) && Low[i+2]>iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i+2)){
    ObjectCreate("HOTS"+i,OBJ_TEXT, 2, Time[i],ExtATRBuffer2[i]+30);
    ObjectSetText("HOTS"+i,CharToStr(242), 56, "Wingdings", clrCrimson);
    }
 }
 
 ///volatility expansion eval - sell side
  if (dir[i]<1 && ExtATRBuffer[i]>24 && ExtATRBuffer[i]<32 && ExtATRBuffer[i+1]<28 && ExtATRBuffer[i+2]<28
  && (iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i)-iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i))>1000*Point
  ){
    if ((High[i]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i) && High[i+1]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1) && High[i+2]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+2)  && Close[i+3]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+3))
    || (Close[i]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i)-80*Point && Close[i+1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1)+40*Point && Close[i+1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1)+20*Point)
  
    )
    { if (Low[i+2]>iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i+2))
      ObjectCreate("HOTS"+i,OBJ_TEXT, 2, Time[i],ExtATRBuffer[i]+30);
      ObjectSetText("HOTS"+i,CharToStr(234), 56, "Wingdings", clrCrimson);
    }
    else if ((Close[i]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i) || Close[i+1]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+1)) &&    
    Low[i+2]>iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_MAIN,i+2) && High[i+2]<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i+2)){
    ObjectCreate("HOTS"+i,OBJ_TEXT, 2, Time[i],ExtATRBuffer[i]+30);
    ObjectSetText("HOTS"+i,CharToStr(233), 56, "Wingdings", clrDarkGreen);
    }
 }
 
 
 
 ///shape long
   if ((i>0 && ExtATRBuffer[i]<52 && ExtATRBuffer[i+1]>52 && ExtATRBuffer[i]>ExtATRBuffer2[i]-10 && ExtATRBuffer[i-1]<ExtATRBuffer[i+1]
   && ExtATRBuffer2[ArrayMinimum(ExtATRBuffer2,10,i)]>1.8
   && ExtATRBuffer[ArrayMaximum(ExtATRBuffer,10,i)]<64)
   
   || (((ExtATRBuffer[i]<42 && ExtATRBuffer[i+1]>42) || (ExtATRBuffer[i]<47 && ExtATRBuffer[i+1]>47)) 
   && Close[i+2]<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i+2) 
   && ((Close[i]>iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i)-50*Point && Close[i+3]<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i+3))
   || Close[i+1]>iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i+1))
    ))
   {
      ObjectCreate("LINUS"+IntegerToString(i),OBJ_VLINE,2, Time[i], 0);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_COLOR,clrPurple);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_WIDTH,6);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_STYLE,STYLE_DOT);
             ObjectSet("LINUS"+IntegerToString(i),OBJPROP_BACK,1);
             
             
                  if (Low[i]>iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i) && !((Low[i+1]<iMA(symbol,0,207,0,MODE_EMA,PRICE_LOW,i+1) && Close[i+1]>iMA(symbol,0,207,0,MODE_EMA,PRICE_LOW,i+1)) || (Low[i+2]<iMA(symbol,0,207,0,MODE_EMA,PRICE_LOW,i+2) && Close[i+2]>iMA(symbol,0,207,0,MODE_EMA,PRICE_LOW,i+2))))
             {ObjectSet("LINUS"+IntegerToString(i),OBJPROP_COLOR,clrGray);
             if (ExtATRBuffer2[i]<6) ObjectSet("LINUS"+IntegerToString(i),OBJPROP_COLOR,clrBlack);
             else if ((ExtATRBuffer2[i]>ExtATRBuffer2[i+1]) || ExtATRBuffer2[i]>30) { ObjectCreate("LINUSZZS"+IntegerToString(i),OBJ_TEXT, 2, Time[i],25);
               ObjectSetText("LINUSZZS"+IntegerToString(i),"14 Hrs Immunity", 16, "Impact", clrDarkGreen);
               if (magenta[ArrayMaximum(magenta,100,i)]>0) {ObjectSetText("LINUSZZS"+IntegerToString(i),"44-47 Hrs of Immunity", 16, "Impact", clrDarkGreen);
                  ObjectSet("LINUS"+IntegerToString(i),OBJPROP_COLOR,clrMagenta);
                  magenta[i]=1;
               }
             }
               if (Low[i+1]-iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i+1)>240*Point)
               {ObjectCreate("LINUSZZZ"+IntegerToString(i),OBJ_TEXT, 1, Time[i],15);
               ObjectSetText("LINUSZZZ"+IntegerToString(i),"Dip Below 8-24 pips=buy", 16, "Impact", clrGreen);}
             }
             if (((ExtATRBuffer[i]<42 && ExtATRBuffer[i+1]>42) ) && Close[i+2]<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i+2) && Close[i+1]>iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i+1))
             {ObjectSet("LINUS"+IntegerToString(i),OBJPROP_COLOR,clrGray);
               if (ExtATRBuffer2[i]<6) ObjectSet("LINUS"+IntegerToString(i),OBJPROP_COLOR,clrBlack);
               ObjectCreate("LINUSZZZ"+IntegerToString(i),OBJ_TEXT, 1, Time[i],15);
               ObjectSetText("LINUSZZZ"+IntegerToString(i),"Dip Below 8-24 pips=buy", 16, "Impact", clrGreen);
               if (Low[i+1]<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i+1)) {ObjectSet("LINUS"+IntegerToString(i),OBJPROP_COLOR,clrBlue);
                  ObjectCreate("LINUSZZS"+IntegerToString(i),OBJ_TEXT, 2, Time[i],25);
                 ObjectSetText("LINUSZZS"+IntegerToString(i),"64 Hrs Immunity", 16, "Impact", clrDarkGreen); 
               }
             }
 
    
   
      ObjectCreate("LINUSZ"+IntegerToString(i),OBJ_TEXT, 1, Time[i],85);
      ObjectSetText("LINUSZ"+IntegerToString(i),"Shape long!", 16, "Impact", clrGreen);
      
      ObjectCreate("LINUSZZ"+IntegerToString(i),OBJ_TEXT, 1, Time[i],35);
      ObjectSetText("LINUSZZ"+IntegerToString(i),"53/63/80=Break", 16, "Impact", clrGreen);
   
      if (Close[i]<iMA(symbol,0,207,0,MODE_EMA,PRICE_MEDIAN,i)-600*Point)
         {
         ObjectCreate("LINUSZZZ"+IntegerToString(i),OBJ_TEXT, 1, Time[i],75); ObjectSetText("LINUSZZZ"+IntegerToString(i),"Continuation sell", 16, "Impact", clrCrimson);
       }   
   

if (Close[i]>iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i)-50*Point && Close[i+3]<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i+3)){ ObjectSet("LINUS"+IntegerToString(i),OBJPROP_COLOR,clrMagenta);
                 ObjectCreate("LINUSZZS"+IntegerToString(i),OBJ_TEXT, 2, Time[i],25);
                 ObjectSetText("LINUSZZS"+IntegerToString(i),"23/46Hrs Immunity", 16, "Impact", clrDarkGreen); 

                 ObjectDelete("LINUSZZ"+IntegerToString(i)); 
                 ObjectDelete("LINUSZZZ"+IntegerToString(i)); 
                 ObjectCreate("LINUSZZ"+IntegerToString(i),OBJ_TEXT, 1, Time[i],65);
                 ObjectSetText("LINUSZZ"+IntegerToString(i),"Sell 207L / 207H+FMax", 16, "Impact", clrCrimson);
                 ObjectCreate("LINUSZZZS"+IntegerToString(i),OBJ_TEXT, 1, Time[i],35);
                 ObjectSetText("LINUSZZZS"+IntegerToString(i),"NEXT Hoop is Final below Mag. vol line", 16, "Impact", clrGreen);
                 ObjectCreate("LINUSZZZ"+IntegerToString(i),OBJ_TEXT, 1, Time[i],15);
                 ObjectSetText("LINUSZZZ"+IntegerToString(i),"Buy LL 25-50 pips lower", 16, "Impact", clrGreen);
                 if (magenta[ArrayMaximum(magenta,80,i)]>0){
                 ObjectSetText("LINUSZZ"+IntegerToString(i),"2nd attempt, Low In", 16, "Impact", clrGreen);
                 ObjectSetText("LINUSZZS"+IntegerToString(i),"46 Hrs Immunity", 16, "Impact", clrDarkGreen); 
                 ObjectDelete("LINUSZZZ"+IntegerToString(i)); 
                 ObjectDelete("LINUSZZZS"+IntegerToString(i)); 
                }
                 magenta[i]=1;
            }     
           
   }
 
 
 ///shape short
   if (((ExtATRBuffer2[i]<52 && ExtATRBuffer2[i+1]>52) ||  (( ExtATRBuffer2[i]<47 && ExtATRBuffer2[i+1]>47) || ( ExtATRBuffer2[i]<41 && ExtATRBuffer2[i+1]>41 && dir[i]<1) ))
   //&& ExtATRBuffer2[ArrayMaximum(ExtATRBuffer2,10,i)]<64
   && ExtATRBuffer2[i+3]>10
   //&& (ExtATRBuffer2[i+2]<40 || ExtATRBuffer2[i+2]>50)
   && ExtATRBuffer[ArrayMinimum(ExtATRBuffer,10,i)]>2
   && ExtATRBuffer[ArrayMaximum(ExtATRBuffer,10,i)]<64
   && Open[i+7]<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i+7)
   && Close[i]>iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,6,i))-240*Point
   && Close[i]>iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i)-240*Point
   )
   {
      ObjectCreate("LINUS"+IntegerToString(i),OBJ_VLINE,2, Time[i], 0);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_COLOR,clrPink);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_WIDTH,6);
            ObjectSet("LINUS"+IntegerToString(i),OBJPROP_STYLE,STYLE_DOT);
             ObjectSet("LINUS"+IntegerToString(i),OBJPROP_BACK,1);
    if (((ExtATRBuffer2[i]<41 && ExtATRBuffer2[i+1]>41) ) && Close[i+2]>iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i+2) && Close[i+1]<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i+1))
            { ObjectSet("LINUS"+IntegerToString(i),OBJPROP_COLOR,clrBlue);
                 ObjectCreate("LINUSZZS"+IntegerToString(i),OBJ_TEXT, 2, Time[i],55);
                 ObjectSetText("LINUSZZS"+IntegerToString(i),"64-76 Hrs Immunity", 16, "Impact", clrBlue); 
                 
                 ObjectCreate("LINUSZZSS"+IntegerToString(i),OBJ_TEXT, 2, Time[i],10);
                 ObjectSetText("LINUSZZSS"+IntegerToString(i),"8-12 pips set back", 16, "Impact", clrBlue); 
            }
          else   if (High[i]<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i)) {ObjectSet("LINUS"+IntegerToString(i),OBJPROP_COLOR,clrGray);
               ObjectCreate("LINUSZZS"+IntegerToString(i),OBJ_TEXT, 2, Time[i],25);
                 ObjectSetText("LINUSZZS"+IntegerToString(i),"13-20 Pips Slip", 16, "Impact", clrCrimson);  
          }
   else {
      ObjectCreate("LINUSZZS"+IntegerToString(i),OBJ_TEXT, 2, Time[i],25);
                 ObjectSetText("LINUSZZS"+IntegerToString(i),"32/46 Hrs Immunity", 16, "Impact", clrCrimson); 
   }
   
      ObjectCreate("LINUSZ"+IntegerToString(i),OBJ_TEXT, 1, Time[i],85);
      ObjectSetText("LINUSZ"+IntegerToString(i),"Shape short!", 16, "Impact", clrRed);
      
      ObjectCreate("LINUSZZ"+IntegerToString(i),OBJ_TEXT, 1, Time[i],35);
      ObjectSetText("LINUSZZ"+IntegerToString(i),"53/63/80=Break", 16, "Impact", clrRed);
   }
 
 
   if (i>0 && dir[i]==0 && RSI2[i+1]>90 && RSI2[i+1]<95 && RSI2[i+2]<RSI2[i+1] && RSI2[i]<RSI2[i+1]){
         ObjectCreate("Bacardo"+IntegerToString(i), OBJ_RECTANGLE, 1,  Time[i+2], 95, Time[i], 90);
          ObjectSetInteger(0,"Bacardo"+IntegerToString(i),OBJPROP_COLOR,clrOrange);
          ObjectSet("Bacardo"+IntegerToString(i),OBJPROP_BACK,1);
          ObjectSet("Bacardo"+IntegerToString(i),OBJPROP_WIDTH,3);
          
           ObjectCreate("Bacardos"+IntegerToString(i),OBJ_TEXT, 0, Time[i+8],High[i]+90*Point);
         ObjectSetText("Bacardos"+IntegerToString(i),"SELL "+DoubleToStr(NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,6,i)),4),4)+"+", 16, "Impact", clrRed);
          
   }
      if (i>0 && dir[i]==0 && RSI2[i+1]<10 && RSI2[i+1]>5 && RSI2[i+2]>RSI2[i+1]+3 && RSI2[i]>RSI2[i+1]){
         ObjectCreate("Bacardo"+IntegerToString(i), OBJ_RECTANGLE, 1,  Time[i+2], 5, Time[i], 10);
          ObjectSetInteger(0,"Bacardo"+IntegerToString(i),OBJPROP_COLOR,clrLimeGreen);
          ObjectSet("Bacardo"+IntegerToString(i),OBJPROP_BACK,1);
          ObjectSet("Bacardo"+IntegerToString(i),OBJPROP_WIDTH,3);
          
        ObjectCreate("Bacardos"+IntegerToString(i),OBJ_TEXT, 0, Time[i+8],Low[i]-30*Point);
         ObjectSetText("Bacardos"+IntegerToString(i),"BUY "+DoubleToStr(NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,6,i)),4),4)+"-", 16, "Impact", clrGreen);    
   }
   
   
 
 
     ObjectCreate("Singende"+DoubleToStr(i), OBJ_TEXT, 1, Time[i], 50);
   if (dir[i]>0) ObjectSetText("Singende"+DoubleToStr(i), CharToStr(110), 8, "Wingdings", clrMediumSpringGreen);  
   if (dir[i]<0) ObjectSetText("Singende"+DoubleToStr(i), CharToStr(110), 8, "Wingdings", clrCrimson);  
   if (dir[i]==0) ObjectSetText("Singende"+DoubleToStr(i), CharToStr(110), 8, "Wingdings", clrBlue); 
   ObjectSetInteger(0,"Singende"+DoubleToStr(i),OBJPROP_BACK,1);

   if (dir[i]==0 && Low[i]<iMA(symbol,0,240,0,MODE_SMA,PRICE_MEDIAN,i)-20*Point && Close[i]>iMA(symbol,0,240,0,MODE_SMA,PRICE_MEDIAN,i)-10*Point 
   && (RSI2[i+2]>22 || ExtATRBuffer[i]>68) && High[i+2]<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i+2)
   && High[i]-Low[i]>120*Point
   ){
      ObjectCreate("Frogger"+IntegerToString(i),OBJ_TEXT, 0, Time[i],Low[i]-40*Point);
         ObjectSetText("Frogger"+IntegerToString(i),CharToStr(241), 36, "Wingdings", clrBlue);  
      
   }
   
      if (dir[i]==0 && High[i]>iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i)+20*Point && Close[i]<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i)-10*Point ){
      ObjectCreate("Froggeri"+IntegerToString(i),OBJ_TEXT, 0, Time[i],High[i]+90*Point);
         ObjectSetText("Froggeri"+IntegerToString(i),CharToStr(242), 36, "Wingdings", clrBlue);  
   }
   
   
   if (dir[i]==0 && High[i]>iMA(symbol,0,240,0,MODE_SMA,PRICE_MEDIAN,i)+20*Point && Close[i]<iMA(symbol,0,240,0,MODE_SMA,PRICE_MEDIAN,i)+10*Point 
   && RSI2[i+2]>22 && (RSI2[i+2]<78 || ExtATRBuffer2[i]>68) && Low[i+2]>iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i+2)
   ){
      ObjectCreate("Froggeri"+IntegerToString(i),OBJ_TEXT, 0, Time[i],High[i]+90*Point);
         ObjectSetText("Froggeri"+IntegerToString(i),CharToStr(242), 36, "Wingdings", clrBlue);  
   }
   
   
      if (dir[i]==-1 && RSI2[i+10]>92){
      ObjectCreate("Froggeri"+IntegerToString(i),OBJ_TEXT, 0, Time[i],High[i]+170*Point);
         ObjectSetText("Froggeri"+IntegerToString(i),CharToStr(242), 36, "Wingdings", clrRed);  
   }
   

}
}


  return(0);
}
//+------------------------------------------------------------------+
   void deletetxt1(string text){
   for(int iObj=ObjectsTotal()-1; iObj >= 0; iObj--){
      string   on = ObjectName(iObj);
      if(StringFind(on, text) == 0)  ObjectDelete(on);
}  }

   double findAvg(int period, int shift) {
      double sum=0;
      for (int x=shift;x<(shift+period);x++) {     
         sum += High[x]-Low[x];
      }
      sum = sum/period;
      return (sum);
   }
   

 
double ChoppinessIndex(int period, int bar)
  {
    double Low0 = 0, High0 = 0, Close1 = 0;
    double TrueRangeLow = 0, TrueRangeHigh = 0, TrueRangeSum = 0, Input = 0;
    double PeriodTrueRangeLow = 999999999, PeriodTrueRangeHigh = 0, PeriodTrueRange = 0;

    for(int k=bar; k<bar+period; k++)
    {
      Low0   = iLow(NULL,0,k);
      High0  = iHigh(NULL,0,k);
      Close1 = iClose(NULL,0,k+1);

      if (Low0<Close1)  TrueRangeLow  = Low0;  else TrueRangeLow  = Close1;
      if (High0>Close1) TrueRangeHigh = High0; else TrueRangeHigh = Close1;
      
      if (TrueRangeLow <PeriodTrueRangeLow)  PeriodTrueRangeLow  = TrueRangeLow;  // find true low of period
      if (TrueRangeHigh>PeriodTrueRangeHigh) PeriodTrueRangeHigh = TrueRangeHigh; // find true high of period

      TrueRangeSum += TrueRangeHigh;
      TrueRangeSum -= TrueRangeLow;
    }

    PeriodTrueRange = PeriodTrueRangeHigh - PeriodTrueRangeLow;
    if (PeriodTrueRange==0) PeriodTrueRange = MathPow(10, -12); // avoid possibility of division by zero
    Input = TrueRangeSum / PeriodTrueRange;
    return ((logN(Input, 10, MathPow(10, -12)) / logN(period, 10, MathPow(10, -12))) * 100);
  }
  

double logN(double x, double base, double epsilon)
  {
    double integer = 0.0;
    if ((x < 1) || (base < 1)) return(0);

    while (x < 1)
    {
      integer -= 1;
      x *= base;
    }
  
    while (x >= base)
    {
      integer += 1;
      x /= base;
    }
  
    double partial = 0.5;
    x *= x;
    double decimal = 0.0;

    while (partial > epsilon)
    {
      if (x >= base)
      {
        decimal += partial;
        x = x / base;
      }
      partial *= 0.5;
      x *= x;
    }
    
    return (integer + decimal);
  } 


double StdDev(int shift, int samples)
  {
  double x0=0, x1=0, x2=0;
  for (int m=0; m<samples; m++)
    {
    x0 = ExtMapBuffer[m+shift];
    x1 += x0;
    x2 += MathPow(x0,2);
    }
  return(MathSqrt((x2-(x1*x1/samples))/(samples-1))); // minimum samples is 2, enforced in the init section
}