The last subject of the year is smart & funny comcepts.

I’ve got inner city mama on the hook, so you know this is gonna be a bit of an ego trip.

Here are 3 different ways I could call the reversal zone.

#1 – By the way of the Rabbit – energy signals placed the zone between 1.1121 and 1.1151. The high was 1.11393

Energy Trading is a framework invented by me, and is replicable, since it is code based. “Smart Money Concepts” are a bunch of unverifiable linguistic stunts vomited into a bucket.

#2 The Money Flow Droop highlighted the 1.1130-1.1144 zone

#3 the bonus software / powder boxes highighted the zone starting 1.1124. The powder boxes only receive shading outside the bumper lines which are at at 20-sample delay and a 100-pip displacement.

Once price comes off the box, a 14-sample counter is started. This “incubation” is to prove the available volatiliy. This time it made it back inside the E-52 EMA Band’s surrounding Guard Rails. More dowside is confirmed.

A capitulation move is often a 100 or so extra pips move to knock somebody out of their holdings.

The Final Divergence near the top was a Crown Royale.

This plot came in handy at calling the end of the Wave 4 as well.

As Dickens once said, all the chickens come home to defrost.

People are preoccupied with all the wrong things. To me everything starts with a binary code.

Wishing a Scammer Free New Year to you.

//+------------------------------------------------------------------+
//|                                           Projected Distance 240 |
//|                                                 aka Powder Boxes |
//|                                                      by Macdulio |
//|                                                                  |
//+------------------------------------------------------------------+

#include <stdlib.mqh>

#property copyright "Copyright © 2018, Macdulio" 
#property link      "https://forexfore.blog" 
#property description "V1.0"
#property description "Projected Distance 240"
#property description ""
#property description "Extension / Beat Possibilities"
#property description "Plotted for figuring Termminal Move"
#property description "Targets."


#property indicator_chart_window
#property indicator_buffers 14
extern int lookback = 250;
extern bool plot_projections = false;
extern bool plot_engulfing=false;
double ATRA;
double ATRAVG[], RSI2[];
double upperbumper[], lowerbumper[];
double guardrailu[],guardraild[];
double HighBuffer[];
double LowBuffer[];
double HighBuffer2[];
double LowBuffer2[];
 int ucount[],dcount[];
 double gp60[],gp100[],gp138[],gm60[],gm100[],gm138[];
double FSize=32;
double FMax = FSize*6/5;
string symbol = Symbol(); 
int last_encounter_u, last_encounter_d;
int init()
  {
 
   IndicatorBuffers(8);
   
      SetIndexBuffer(0,HighBuffer);
   SetIndexBuffer(1,LowBuffer);   
   SetIndexStyle(0,DRAW_HISTOGRAM,STYLE_SOLID,4,Green);
   SetIndexStyle(1,DRAW_HISTOGRAM,STYLE_SOLID,4,Green);
   SetIndexBuffer(2,HighBuffer2);
   SetIndexBuffer(3,LowBuffer2);   
   SetIndexStyle(2,DRAW_HISTOGRAM,STYLE_SOLID,4,Crimson);
   SetIndexStyle(3,DRAW_HISTOGRAM,STYLE_SOLID,4,Crimson);   
 SetIndexBuffer(4,lowerbumper);
   SetIndexStyle(4,DRAW_LINE,2,5,clrChartreuse);
    SetIndexBuffer(5,upperbumper);
   SetIndexStyle(5,DRAW_LINE,2,5,clrCoral);

 SetIndexBuffer(6,guardrailu);
   SetIndexStyle(6,DRAW_LINE,2,2,clrChartreuse);
    SetIndexBuffer(7,guardraild);
   SetIndexStyle(7,DRAW_LINE,2,2,clrCoral);
   
 SetIndexBuffer(8,gp60);
   SetIndexStyle(8,DRAW_LINE,2,1,clrDarkGreen);
    SetIndexBuffer(9,gm60);
   SetIndexStyle(9,DRAW_LINE,2,1,clrCrimson); 
   
 SetIndexBuffer(10,gp100);
   SetIndexStyle(10,DRAW_LINE,2,1,clrDarkGreen);
    SetIndexBuffer(11,gm100);
   SetIndexStyle(11,DRAW_LINE,2,1,clrCrimson);      
   

 SetIndexBuffer(12,gp138);
   SetIndexStyle(12,DRAW_LINE,2,1,clrDarkGreen);
    SetIndexBuffer(13,gm138);
   SetIndexStyle(13,DRAW_LINE,2,1,clrCrimson);      
     
   
   

  ArrayResize(ATRAVG, 103);
   ArrayInitialize(ATRAVG, 0); 


  ArrayResize(HighBuffer, Bars);
   ArrayInitialize(HighBuffer, EMPTY_VALUE); 
  ArrayResize(LowBuffer, Bars);
   ArrayInitialize(LowBuffer, EMPTY_VALUE);              

  ArrayResize(HighBuffer2, Bars);
   ArrayInitialize(HighBuffer2, EMPTY_VALUE); 
  ArrayResize(LowBuffer2, Bars);
   ArrayInitialize(LowBuffer2, EMPTY_VALUE);    

    ArrayResize(upperbumper, Bars);   
 ArrayInitialize(upperbumper,  EMPTY_VALUE);  
 ArrayResize(lowerbumper, Bars);   
 ArrayInitialize(lowerbumper,  EMPTY_VALUE);  
   ArrayResize(guardrailu, Bars);   
 ArrayInitialize(guardrailu,  EMPTY_VALUE);  
 ArrayResize(guardraild, Bars);   
 ArrayInitialize(guardraild,  EMPTY_VALUE);  
   ArrayResize(gp60, Bars);   
 ArrayInitialize(gp60,  EMPTY_VALUE);  
 ArrayResize(gm60, Bars);   
 ArrayInitialize(gm60,  EMPTY_VALUE);  
  ArrayResize(gp100, Bars);   
 ArrayInitialize(gp100,  EMPTY_VALUE);  
 ArrayResize(gm100, Bars);   
 ArrayInitialize(gm100,  EMPTY_VALUE);
   ArrayResize(gp138, Bars);   
 ArrayInitialize(gp138,  EMPTY_VALUE);  
 ArrayResize(gm138, Bars);   
 ArrayInitialize(gm138,  EMPTY_VALUE);    
ArrayResize(RSI2, Bars);
ArrayInitialize(RSI2, 0);

  ArrayResize(ucount, Bars);  
  ArrayInitialize(ucount, 0); 
  
 ArrayResize(dcount, Bars);  
  ArrayInitialize(dcount, 0); 
  
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int start()
  {
 int j;

deletetxt1("HOCUS");   
   
   ATRA = 0;
   for (int i=1; i<=3; i++){ 
     ATRA = ATRA+iATR(NULL,1440,14,i);}
   
   for (i=0; i<=120; i++){ 
     ATRAVG[i] = ATRA/3; }


deletetxt1("Projected");
deletetxt1("EPERJES");
deletetxt1("KAROLY");
deletetxt1("EGULF");
deletetxt1("LOTUS");
deletetxt1("Counter");

  for(i=lookback; i>=0; i--) {  
       LowBuffer[i]=EMPTY_VALUE;
    HighBuffer[i]=EMPTY_VALUE;
     LowBuffer2[i]=EMPTY_VALUE;
    HighBuffer2[i]=EMPTY_VALUE;
    upperbumper[i]=upperbumper[i+1];
    lowerbumper[i]=lowerbumper[i+1];
    
    if (ucount[i+1]!=0 && ucount[i+1]<=14) ucount[i]=ucount[i+1]+1; else ucount[i]=0;
    if (dcount[i+1]!=0 && dcount[i+1]<=14) dcount[i]=dcount[i+1]+1; else dcount[i]=0;
    
        
    guardrailu[i] =  iMA(symbol,0,52,0,MODE_EMA, PRICE_HIGH,i)+FMax*10*Point;
    
    if (Close[i]>guardrailu[i]) {
     gp60[i]=guardrailu[i]+600*Point;
      gp100[i]=guardrailu[i]+1000*Point;
    }
    
     if (Close[i]>gp60[i]) {
     gp138[i]=guardrailu[i]+1380*Point;
    }
    
    
    guardraild[i] =  iMA(symbol,0,52,0,MODE_EMA, PRICE_LOW,i)-FMax*10*Point;
  

    if (Close[i]<guardraild[i]) {
     gm60[i]=guardraild[i]-600*Point;
      gm100[i]=guardraild[i]-1000*Point;
    }
    
     if (Close[i]<gm60[i] && gm60[i]!=EMPTY_VALUE) {
     gm138[i]=guardraild[i]-1380*Point;
    }  
    
    
    if (High[i+20]>iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,200,i+21))) upperbumper[i]=High[i+20]+1000*Point;
    if (Low[i+20]<iLow(symbol,0,iLowest(symbol,0,MODE_LOW,200,i+21))) lowerbumper[i]=Low[i+20]-1000*Point;

if (Period()==240){

/// insta toffee up pink

     if (i>0 && High[i]>upperbumper[i] && iRSI(symbol,0,2,PRICE_MEDIAN,i)>99){
         ObjectCreate("LOTUS"+IntegerToString(i),OBJ_VLINE,0, Time[i], 0);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_COLOR,clrDeepPink);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_WIDTH,3);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_BACK,1);
      
          ObjectCreate("LOTUSb"+IntegerToString(i), OBJ_RECTANGLE, 0,  Time[i+3], High[i]+640*Point, Time[i-1], High[i]+840*Point);
       ObjectSetInteger(0,"LOTUSb"+IntegerToString(i),OBJPROP_COLOR,clrGreen);
       ObjectSet("LOTUSb"+IntegerToString(i),OBJPROP_BACK,0);
       ObjectSet("LOTUSb"+IntegerToString(i),OBJPROP_WIDTH,5); 
      
      
        ObjectCreate("LOTUSc"+IntegerToString(i), OBJ_RECTANGLE, 0,  Time[i+3], High[i], Time[i-1], High[i]+640*Point);
       ObjectSetInteger(0,"LOTUSc"+IntegerToString(i),OBJPROP_COLOR,clrDodgerBlue);
       ObjectSet("LOTUSc"+IntegerToString(i),OBJPROP_BACK,1);
       ObjectSet("LOTUSc"+IntegerToString(i),OBJPROP_WIDTH,5);   
       ucount[i]=1;
   }

/// insta toffee up magenta
   
   if (i>0 && guardrailu[i+1]!=EMPTY_VALUE && High[i]>guardrailu[i] && iMFI(symbol,0,14,i)>iMFI(symbol,0,14,i-1) && iMFI(symbol,0,14,i)>iMFI(symbol,0,14,i+1) && iMFI(symbol,0,14,i)>75 && iMFI(symbol,0,14,i)<85 && iRSI(symbol,0,2,PRICE_MEDIAN,i)>99.5
      && iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))>iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,20,i+3))
   ){
         ObjectCreate("LOTUS"+IntegerToString(i),OBJ_VLINE,0, Time[i], 0);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_COLOR,clrMagenta);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_WIDTH,3);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_BACK,1);
      
       ObjectCreate("LOTUSb"+IntegerToString(i), OBJ_RECTANGLE, 0,  Time[i+3], Close[i]+640*Point, Time[i-1], Close[i]+840*Point);
       ObjectSetInteger(0,"LOTUSb"+IntegerToString(i),OBJPROP_COLOR,clrGreen);
       ObjectSet("LOTUSb"+IntegerToString(i),OBJPROP_BACK,0);
       ObjectSet("LOTUSb"+IntegerToString(i),OBJPROP_WIDTH,5); 
      
      
      ObjectCreate("LOTUSc"+IntegerToString(i), OBJ_RECTANGLE, 0,  Time[i+3], Close[i], Time[i-1], Close[i]+640*Point);
       ObjectSetInteger(0,"LOTUSc"+IntegerToString(i),OBJPROP_COLOR,clrDodgerBlue);
       ObjectSet("LOTUSc"+IntegerToString(i),OBJPROP_BACK,0);
       ObjectSet("LOTUSc"+IntegerToString(i),OBJPROP_WIDTH,5);   
      ucount[i]=1;
   } 
   
   
/// hump 1 up

   if (High[i]>upperbumper[i] && iRSI(symbol,0,2,PRICE_MEDIAN,i)>90 && iRSI(symbol,0,2,PRICE_MEDIAN,i)<95){
         ObjectCreate("LOTUS"+IntegerToString(i),OBJ_VLINE,0, Time[i], 0);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_COLOR,clrSalmon);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_WIDTH,3);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_BACK,1);
      if (!(High[i+1]>upperbumper[i+1] && iRSI(symbol,0,2,PRICE_MEDIAN,i+1)>90 && iRSI(symbol,0,2,PRICE_MEDIAN,i+1)<95)){
      ObjectCreate("LOTUSS"+IntegerToString(i), OBJ_TEXT, 0, Time[i+2], High[i]+130*Point); 
      ObjectSetText("LOTUSS"+IntegerToString(i), "H1", 26, "Impact", Blue);}
   }
/// hump 1 dn   
   
   if (i>0 && Low[i]<guardraild[i] && iMFI(symbol,0,14,i)<iMFI(symbol,0,14,i-1) && iMFI(symbol,0,14,i)<iMFI(symbol,0,14,i+1) && iMFI(symbol,0,14,i)<25 && iRSI(symbol,0,2,PRICE_MEDIAN,i)>1.5 && iRSI(symbol,0,2,PRICE_MEDIAN,i)<3){
         ObjectCreate("LOTUS"+IntegerToString(i),OBJ_VLINE,0, Time[i], 0);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_COLOR,clrLime);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_WIDTH,3);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_BACK,1);
      if (!(Low[i+1]<guardraild[i+1] && iMFI(symbol,0,14,i+1)<iMFI(symbol,0,14,i) && iMFI(symbol,0,14,i+1)<iMFI(symbol,0,14,i) && iMFI(symbol,0,14,i+1)<25 && iRSI(symbol,0,2,PRICE_MEDIAN,i+1)>1.5 && iRSI(symbol,0,2,PRICE_MEDIAN,i+1)<3)){
      ObjectCreate("LOTUSS"+IntegerToString(i), OBJ_TEXT, 0, Time[i+2], Low[i]-130*Point); 
      ObjectSetText("LOTUSS"+IntegerToString(i), "H1", 36, "Impact", Blue);}
   }
   
/// insta toffee dn magenta  
   
   if (i>0 && Low[i]<guardraild[i] && iMFI(symbol,0,14,i)<iMFI(symbol,0,14,i-1) && iMFI(symbol,0,14,i)<iMFI(symbol,0,14,i+1) && iMFI(symbol,0,14,i)<25 && iMFI(symbol,0,14,i)>12 && iRSI(symbol,0,2,PRICE_MEDIAN,i)<.5){
         ObjectCreate("LOTUS"+IntegerToString(i),OBJ_VLINE,0, Time[i], 0);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_COLOR,clrMagenta);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_WIDTH,3);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_BACK,1);
      
       ObjectCreate("LOTUSb"+IntegerToString(i), OBJ_RECTANGLE, 0,  Time[i+3], Close[i]-640*Point, Time[i-1], Close[i]-840*Point);
       ObjectSetInteger(0,"LOTUSb"+IntegerToString(i),OBJPROP_COLOR,clrRed);
       ObjectSet("LOTUSb"+IntegerToString(i),OBJPROP_BACK,0);
       ObjectSet("LOTUSb"+IntegerToString(i),OBJPROP_WIDTH,5);   
       
         ObjectCreate("LOTUSc"+IntegerToString(i), OBJ_RECTANGLE, 0,  Time[i+3], Close[i], Time[i-1], Close[i]-640*Point);
       ObjectSetInteger(0,"LOTUSc"+IntegerToString(i),OBJPROP_COLOR,clrDodgerBlue);
       ObjectSet("LOTUSc"+IntegerToString(i),OBJPROP_BACK,0);
       ObjectSet("LOTUSc"+IntegerToString(i),OBJPROP_WIDTH,5);   
       
       dcount[i]=1;
   }


/// insta toffee dn pink

     if (i>0 && Low[i]<guardraild[i] && Low[i]<lowerbumper[i] && iRSI(symbol,0,2,PRICE_MEDIAN,i+1)<1 && iRSI(symbol,0,2,PRICE_MEDIAN,i)<1 && iRSI(symbol,0,2,PRICE_MEDIAN,i-1)>iRSI(symbol,0,2,PRICE_MEDIAN,i)){
         ObjectCreate("LOTUS"+IntegerToString(i),OBJ_VLINE,0, Time[i], 0);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_COLOR,clrDeepPink);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_WIDTH,3);
      ObjectSet("LOTUS"+IntegerToString(i),OBJPROP_BACK,1);
      
           
       ObjectCreate("LOTUSb"+IntegerToString(i), OBJ_RECTANGLE, 0,  Time[i+3], Low[i]-640*Point, Time[i-1], Low[i]-840*Point);
       ObjectSetInteger(0,"LOTUSb"+IntegerToString(i),OBJPROP_COLOR,clrRed);
       ObjectSet("LOTUSb"+IntegerToString(i),OBJPROP_BACK,0);
       ObjectSet("LOTUSb"+IntegerToString(i),OBJPROP_WIDTH,5);   
      
        ObjectCreate("LOTUSc"+IntegerToString(i), OBJ_RECTANGLE, 0,  Time[i+3], Low[i], Time[i-1], Low[i]-640*Point);
       ObjectSetInteger(0,"LOTUSc"+IntegerToString(i),OBJPROP_COLOR,clrDodgerBlue);
       ObjectSet("LOTUSc"+IntegerToString(i),OBJPROP_BACK,1);
       ObjectSet("LOTUSc"+IntegerToString(i),OBJPROP_WIDTH,5);   
       dcount[i]=1;
   }   
    
    if (dcount[i]>0 && dcount[i]<=14){
        ObjectCreate("Counterd"+IntegerToString(i), OBJ_TEXT, 0, Time[i], Low[i]-40*Point); 
        ObjectSetText("Counterd"+IntegerToString(i), IntegerToString(dcount[i]), 11, "Impact", Maroon);
        if (dcount[i]==14) ObjectSetText("Counterd"+IntegerToString(i), IntegerToString(dcount[i]), 21, "Impact", Blue);
   } 
    if (ucount[i]>0 && ucount[i]<=14){
        ObjectCreate("Counteru"+IntegerToString(i), OBJ_TEXT, 0, Time[i], High[i]+90*Point); 
        ObjectSetText("Counteru"+IntegerToString(i), IntegerToString(ucount[i]), 11, "Impact", Maroon);
        if (ucount[i]==14) ObjectSetText("Counteru"+IntegerToString(i), IntegerToString(ucount[i]), 21, "Impact", Blue);
   }
   
}


if (plot_projections){    
    
 if (plot_engulfing){
 
   if (Open[i]>=Close[i+1]-20*Point && Close[i+1]>Open[i+1] && Close[i]<Open[i+1] && Low[i]<Low[i+1]){
          ObjectCreate("EGULF"+IntegerToString(i), OBJ_TEXT, 0, Time[i+1], (High[i]+Low[i])/2+150*Point);  
                ObjectSetText("EGULF"+IntegerToString(i), " E", 46, "Impact",  clrFireBrick);
                ObjectSet("EGULF"+IntegerToString(i),OBJPROP_BACK,1);
      }
 
    if (Open[i]<=Close[i+1]+20*Point && Close[i+1]<Open[i+1] && Close[i]>Open[i+1] && High[i]>High[i+1]){
          ObjectCreate("EGULF"+IntegerToString(i), OBJ_TEXT, 0, Time[i+1], (High[i]+Low[i])/2+150*Point);  
                ObjectSetText("EGULF"+IntegerToString(i), " E", 46, "Impact",  clrDarkGreen);
                ObjectSet("EGULF"+IntegerToString(i),OBJPROP_BACK,1);
      }
 }
 
 ////upside projection
 
 
        if (Period()==5 && i<30 && iHigh(NULL,240,i+1)-iLow(NULL,240,i+3)>FSize*27*Point && iHigh(NULL,240,i+1)>iHigh(NULL,240,i+3) && iHigh(NULL,240,i+1)+(iHigh(NULL,240,i+1)-iLow(NULL,240,i+3))*.5>iMA(NULL,0,52,0,MODE_EMA, PRICE_HIGH,i)+FMax*5*Point && !(iLow(symbol,240,i+1)<iMA(NULL,240,52,0,MODE_EMA, PRICE_MEDIAN,i+1))){
               LowBuffer[i*48]=iHigh(NULL,240,i+1);
               HighBuffer[i*48]=iHigh(NULL,240,i+1)+(iHigh(NULL,240,i+1)-iLow(NULL,240,i+3))*.5;
            }    
 
   else
          if (Period()==60 && iHigh(NULL,240,i+1)-iLow(NULL,240,i+3)>FSize*27*Point && iHigh(NULL,240,i+1)>iHigh(NULL,240,i+3) && iHigh(NULL,240,i+1)+(iHigh(NULL,240,i+1)-iLow(NULL,240,i+3))*.5>iMA(NULL,0,52,0,MODE_EMA, PRICE_HIGH,i)+FMax*5*Point && !(iLow(symbol,240,i+1)<iMA(NULL,240,52,0,MODE_EMA, PRICE_MEDIAN,i+1))) {
             LowBuffer[i*4]=iHigh(NULL,240,i+1);
             HighBuffer[i*4]=iHigh(NULL,240,i+1)+(iHigh(NULL,240,i+1)-iLow(NULL,240,i+3))*.5;}
         
else 
 if (Period()>60 && iHigh(NULL,240,i+1)-iLow(NULL,240,i+3)>FSize*27*Point && iHigh(NULL,240,i+1)>iHigh(NULL,240,i+3) && iHigh(NULL,240,i+1)+(iHigh(NULL,240,i+1)-iLow(NULL,240,i+3))*.5>iMA(NULL,0,52,0,MODE_EMA, PRICE_HIGH,i)+FMax*5*Point && !(iLow(symbol,240,i+1)<iMA(NULL,240,52,0,MODE_EMA, PRICE_MEDIAN,i+1))) {
            if (Period()==240){ LowBuffer[i]=iHigh(NULL,240,i+1);
             HighBuffer[i]=iHigh(NULL,240,i+1)+(iHigh(NULL,240,i+1)-iLow(NULL,240,i+3))*.5;}
             
              ObjectCreate("ProjectedXLR"+IntegerToString(i), OBJ_TEXT, 0, Time[i+2], iHigh(NULL,240,i+1)+(iHigh(NULL,240,i+1)-iLow(NULL,240,i+3))*.5+20*Point);  
                ObjectSetText("ProjectedXLR"+IntegerToString(i), " "+DoubleToStr(NormalizeDouble(iHigh(NULL,240,i+1)+((iHigh(NULL,240,i+1)-iLow(NULL,240,i+3)))*.5,4),4), 16, "Arial Black",  clrBlack);
             
              ObjectCreate("ProjectedXR"+IntegerToString(i), OBJ_TEXT, 0, Time[i+2], iHigh(NULL,240,i+1)+(iHigh(NULL,240,i+1)-iLow(NULL,240,i+3))*.5+20*Point);  
                ObjectSetText("ProjectedXR"+IntegerToString(i), DoubleToStr(NormalizeDouble(iHigh(NULL,240,i+1)+((iHigh(NULL,240,i+1)-iLow(NULL,240,i+3)))*.5,4),4), 16, "Arial Black",  clrCrimson);
                if (iHigh(NULL,240,i)-iLow(NULL,240,iLowest(NULL,240,MODE_LOW,50,i))<1800*Point) ObjectSetText("ProjectedXR"+IntegerToString(i), DoubleToStr(NormalizeDouble(iHigh(NULL,240,i+1)+((iHigh(NULL,240,i+1)-iLow(NULL,240,i+3)))*.5,4),4), 16, "Arial Black",  clrGray);
             
                   
                   if (HighBuffer[i+2]==EMPTY_VALUE && HighBuffer[i+1]!=EMPTY_VALUE && HighBuffer[i]<HighBuffer[i+1]) {
                      ObjectCreate("ProjectedXCR"+IntegerToString(i), OBJ_TEXT, 0, Time[i+2], iHigh(NULL,240,i+1)+(iHigh(NULL,240,i+1)-iLow(NULL,240,i+3))*.5-400*Point+20*Point);  
                ObjectSetText("ProjectedXCR"+IntegerToString(i), " Sq. Exit: "+DoubleToStr(NormalizeDouble(iHigh(NULL,240,i+1)+((iHigh(NULL,240,i+1)-iLow(NULL,240,i+3)))*.5-400*Point,4),4), 16, "Impact",  clrBlack);
             
              ObjectCreate("ProjectedXDR"+IntegerToString(i), OBJ_TEXT, 0, Time[i+2], iHigh(NULL,240,i+1)+(iHigh(NULL,240,i+1)-iLow(NULL,240,i+3))*.5-400*Point+20*Point);  
                ObjectSetText("ProjectedXDR"+IntegerToString(i), "Sq. Exit: "+DoubleToStr(NormalizeDouble(iHigh(NULL,240,i+1)+((iHigh(NULL,240,i+1)-iLow(NULL,240,i+3)))*.5-400*Point,4),4), 16, "Impact",  clrDodgerBlue);
                   
                   }
      
             if (Period()>60 && i>0){
               j=i-1;
               while (j>=0){
                  if (iHigh(symbol,0,j)>HighBuffer[i] && iClose(symbol,0,j)<HighBuffer[i]) break;    
                 j--;            
               }
               if (iHigh(symbol,0,j)>HighBuffer[i] && iClose(symbol,0,j)<HighBuffer[i] && HighBuffer[i]>iMA(NULL,0,52,0,MODE_EMA, PRICE_HIGH,i)+FMax*5*Point) {
               
                if (i<1000){                  
                 ObjectCreate(0,"Projected"+i,OBJ_TREND,0,Time[i],HighBuffer[i],Time[j],HighBuffer[i]);
                 ObjectSetInteger(0,"Projected"+i,OBJPROP_RAY_RIGHT,false);
                 ObjectSet("Projected"+i,OBJPROP_COLOR,clrRed);
                 ObjectSet("Projected"+i,OBJPROP_WIDTH,3); 
                 ObjectSet("Projected"+i,OBJPROP_BACK,1); 
                 last_encounter_u = j;
                 }
                 
                 if (i<40){
                  ObjectCreate("Projected"+IntegerToString(j), OBJ_TEXT, 0, Time[j+2], HighBuffer[i]+20*Point);  
                ObjectSetText("Projected"+IntegerToString(j), "X-Fill!", 16, "Arial Black",  clrCrimson);
   
                }
                 
                 
                 }
                 
                else if (j<0){ 
                 
                                      
                   ObjectCreate(0,"Projected"+i,OBJ_TREND,0,Time[5],HighBuffer[i],Time[0],HighBuffer[i]);
                   ObjectSetInteger(0,"Projected"+i,OBJPROP_RAY_RIGHT,false);
                   ObjectSet("Projected"+i,OBJPROP_COLOR,clrPurple);
                   ObjectSet("Projected"+i,OBJPROP_WIDTH,3); 
                   ObjectSet("Projected"+i,OBJPROP_BACK,1); 
                 
                 if (i<140 && j>=0){
                  ObjectCreate("Projectedx"+IntegerToString(i), OBJ_TEXT, 0, Time[13], HighBuffer[i]+80*Point);  
                   ObjectSetText("Projectedx"+IntegerToString(i), "UnFilled: "+DoubleToStr(HighBuffer[i],4), 16, "Arial Black",  clrMagenta);}
                 }
                 
             }
             
         }
         
  
         
//downside projection         
         
         
       if (Period()==5 && i<30 && iHigh(NULL,240,i+3)-iLow(NULL,240,i+1)>FSize*27*Point && iLow(NULL,240,i+1)<iLow(NULL,240,i+3) && iLow(NULL,240,i+1)-(iHigh(NULL,240,i+3)-iLow(NULL,240,i+1))*.5<iMA(NULL,0,52,0,MODE_EMA, PRICE_LOW,i)-FMax*5.5*Point && !(iClose(symbol,240,i+1)>iMA(NULL,240,52,0,MODE_EMA, PRICE_MEDIAN,i+1) && iLow(symbol,240,i+1)<iMA(NULL,240,52,0,MODE_EMA, PRICE_MEDIAN,i+1))  ){
            LowBuffer2[i*48]=iLow(NULL,240,i+1);
            HighBuffer2[i*48]=iLow(NULL,240,i+1)-(iHigh(NULL,240,i+3)-iLow(NULL,240,i+1))*.5;    
            
         }


     else  if (Period()==60 && iHigh(NULL,240,i+3)-iLow(NULL,240,i+1)>FSize*27*Point && iLow(NULL,240,i+1)<iLow(NULL,240,i+3) && iLow(NULL,240,i+1)-(iHigh(NULL,240,i+3)-iLow(NULL,240,i+1))*.5<iMA(NULL,0,52,0,MODE_EMA, PRICE_LOW,i)-FMax*5.5*Point && !(iClose(symbol,240,i+1)>iMA(NULL,240,52,0,MODE_EMA, PRICE_MEDIAN,i+1) && iLow(symbol,240,i+1)<iMA(NULL,240,52,0,MODE_EMA, PRICE_MEDIAN,i+1)) && iLow(NULL,240,iLowest(NULL,0,MODE_LOW,3,i))<iLow(NULL,240,iLowest(NULL,0,MODE_LOW,9,i+3))-250*Point){
           LowBuffer2[i*4]=iLow(NULL,240,i+1);
            HighBuffer2[i*4]=iLow(NULL,240,i+1)-(iHigh(NULL,240,i+3)-iLow(NULL,240,i+1))*.5;  }
            
         
         
        else  if (Period()>60 && iHigh(NULL,240,i+3)-iLow(NULL,240,i+1)>FSize*27*Point && iLow(NULL,240,i+1)<iLow(NULL,240,i+3) && iLow(NULL,240,i+1)-(iHigh(NULL,240,i+3)-iLow(NULL,240,i+1))*.5<iMA(NULL,0,52,0,MODE_EMA, PRICE_LOW,i)-FMax*5.5*Point && !(iClose(symbol,240,i+1)>iMA(NULL,240,52,0,MODE_EMA, PRICE_MEDIAN,i+1) && iLow(symbol,240,i+1)<iMA(NULL,240,52,0,MODE_EMA, PRICE_MEDIAN,i+1)) && iLow(NULL,240,iLowest(NULL,0,MODE_LOW,3,i))<iLow(NULL,240,iLowest(NULL,0,MODE_LOW,9,i+3))-250*Point){
         if (Period()==240){   LowBuffer2[i]=iLow(NULL,240,i+1);
            HighBuffer2[i]=iLow(NULL,240,i+1)-(iHigh(NULL,240,i+3)-iLow(NULL,240,i+1))*.5;  }
            
            
            ObjectCreate("ProjectedXLR"+IntegerToString(i), OBJ_TEXT, 0, Time[i+2], iLow(NULL,240,i+1)-(iHigh(NULL,240,i+3)-iLow(NULL,240,i+1))*.5+50*Point);  
                ObjectSetText("ProjectedXLR"+IntegerToString(i), " "+DoubleToStr(NormalizeDouble(iLow(NULL,240,i+1)-(iHigh(NULL,240,i+3)-iLow(NULL,240,i+1))*.5,4),4), 16, "Arial Black",  clrBlack);
              ObjectCreate("ProjectedXR"+IntegerToString(i), OBJ_TEXT, 0, Time[i+2], iLow(NULL,240,i+1)-(iHigh(NULL,240,i+3)-iLow(NULL,240,i+1))*.5+50*Point);  
                ObjectSetText("ProjectedXR"+IntegerToString(i), DoubleToStr(NormalizeDouble(iLow(NULL,240,i+1)-(iHigh(NULL,240,i+3)-iLow(NULL,240,i+1))*.5,4),4), 16, "Arial Black",  clrDarkGreen);
                if (iHigh(NULL,240,iHighest(NULL,240,MODE_HIGH,50,i))-iLow(NULL,240,i)<1700*Point) ObjectSetText("ProjectedXR"+IntegerToString(i), DoubleToStr(NormalizeDouble(iLow(NULL,240,i+1)-(iHigh(NULL,240,i+3)-iLow(NULL,240,i+1))*.5,4),4), 16, "Arial Black",  clrGray);
      
                 if (Period()>60 && i>0){
               j=i-1;
               while (j>=0){
                  if (iLow(symbol,0,j)<HighBuffer2[i] && iHigh(symbol,0,j)>HighBuffer2[i]) break;    
                 j--;            
               }
               if (iLow(symbol,0,j)<HighBuffer2[i] && iHigh(symbol,0,j)>HighBuffer2[i] && HighBuffer2[i]<iMA(NULL,0,52,0,MODE_EMA, PRICE_LOW,i)-FMax*5*Point) {
               
                 if (i<1000){               
                 ObjectCreate(0,"Projectedx"+i,OBJ_TREND,0,Time[i],HighBuffer2[i],Time[j],HighBuffer2[i]);
                 ObjectSetInteger(0,"Projectedx"+i,OBJPROP_RAY_RIGHT,false);
                 ObjectSet("Projectedx"+i,OBJPROP_COLOR,clrDarkGreen);
                 ObjectSet("Projectedx"+i,OBJPROP_WIDTH,3); 
                 ObjectSet("Projectedx"+i,OBJPROP_BACK,1); 
                 last_encounter_d = j;
                 }
                 
                 
                 if (i<40){
                 ObjectCreate("Projected"+IntegerToString(j), OBJ_TEXT, 0, Time[j+2], HighBuffer2[i]-10*Point);  
                ObjectSetText("Projected"+IntegerToString(j), "X-Fill!", 16, "Arial Black",  clrDarkGreen);
   
                }
             }
             
             else if (j<0){ 
                  ObjectCreate(0,"Projectedx"+i,OBJ_TREND,0,Time[5],HighBuffer2[i],Time[0],HighBuffer2[i]);
                 ObjectSetInteger(0,"Projectedx"+i,OBJPROP_RAY_RIGHT,false);
                 ObjectSet("Projectedx"+i,OBJPROP_COLOR,clrBlue);
                 ObjectSet("Projectedx"+i,OBJPROP_WIDTH,3); 
                 ObjectSet("Projectedx"+i,OBJPROP_BACK,1); 
                 
                 
                 if (i<140 && j>=0){
                 ObjectCreate("Projectedy"+IntegerToString(i), OBJ_TEXT, 0, Time[13], HighBuffer2[i]+50*Point);  
                ObjectSetText("Projectedy"+IntegerToString(i), "UnFilled: "+DoubleToStr(HighBuffer2[i],4), 16, "Arial Black",  clrPurple);}
             }
            }
            
            }

      if (Period()==240 && HighBuffer[i+9]!=EMPTY_VALUE && i<50  && High[i+8]<HighBuffer[i+9] && High[i+7]<HighBuffer[i+9] && High[i+6]<HighBuffer[i+9] && High[i+5]<HighBuffer[i+9] && High[i+4]<HighBuffer[i+9] && High[i+3]<HighBuffer[i+9] && High[i+2]<HighBuffer[i+9] && High[i+1]<HighBuffer[i+9]) {
        
       if (i>1) {
        
        j=i-1;
        
        while (j>=0){
         if (High[j]>HighBuffer[i+9]) break;
         j--;}
        
         if (j<0) {
        
         ObjectCreate("EPERJES"+DoubleToStr(i), OBJ_RECTANGLE, 0, Time[i+2], HighBuffer[i+9], Time[i], HighBuffer[i+9]+FSize/2*10*Point);
         ObjectSetInteger(0,"EPERJES"+DoubleToStr(i),OBJPROP_COLOR,clrOrange);
      }}}
      
       if (Period()==240 && HighBuffer2[i+9]!=EMPTY_VALUE && i<50  && Low[i+8]>HighBuffer2[i+9] && Low[i+7]>HighBuffer2[i+9] && Low[i+6]>HighBuffer2[i+9] && Low[i+5]>HighBuffer2[i+9] && Low[i+4]>HighBuffer2[i+9] && Low[i+3]>HighBuffer2[i+9] && Low[i+2]>HighBuffer2[i+9] && Low[i+1]>HighBuffer2[i+9]) {
       
          if (i>1) {
        
        j=i-1;
        
        while (j>0){
         if (Low[j]<HighBuffer2[i+9]) break;
         j--;}
        
         if (j==0) {
         ObjectCreate("EPERJES"+DoubleToStr(i), OBJ_RECTANGLE, 0, Time[i+2], HighBuffer2[i+9], Time[i], HighBuffer2[i+9]-FSize/2*10*Point);
         ObjectSetInteger(0,"EPERJES"+DoubleToStr(i),OBJPROP_COLOR,clrOrange);
      }}}

}
}


deletetxt1("KAROLY");

if (last_encounter_u>8 && last_encounter_u<last_encounter_d){ 
            ObjectCreate("EPERJES", OBJ_TEXT, 0, Time[25], Close[0]+250*Point);  
            ObjectSetText("EPERJES", "Play Short Below: "+DoubleToStr(NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,8,last_encounter_u-8)),4),4), 16, "Arial Black",  clrCrimson);
            
            
             ObjectCreate("KAROLY", OBJ_TEXT, 0, Time[25], Close[0]+150*Point);  
            ObjectSetText("KAROLY", "Play Long From: "+DoubleToStr(NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,8,last_encounter_u-8))+60*Point,4),4), 16, "Arial Black",  clrPurple);
            
     
   }


if (last_encounter_d>8 && last_encounter_u>last_encounter_d){ 
            ObjectCreate("EPERJES", OBJ_TEXT, 0, Time[25], Close[0]+250*Point);  
            ObjectSetText("EPERJES", "Play Long Above: "+DoubleToStr(NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,8,last_encounter_d-8)),4),4), 16, "Arial Black",  clrDarkGreen);
            
            ObjectCreate("KAROLY", OBJ_TEXT, 0, Time[25], Close[0]+150*Point);  
            ObjectSetText("KAROLY", "Play Short From: "+DoubleToStr(NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,8,last_encounter_d-8))-60*Point,4),4), 16, "Arial Black",  clrPurple);
            
           
   }
   
   if (last_encounter_u>8){
   
             ObjectCreate("EPERJESRACK"+i, OBJ_RECTANGLE, 0, Time[last_encounter_u], Close[last_encounter_u], Time[last_encounter_u-8], iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,9,last_encounter_u-8)));
           ObjectSet("EPERJESRACK"+i,OBJPROP_BACK,1);
           if (Close[0]<iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,9,last_encounter_u-8))+60*Point) ObjectSetInteger(0,"EPERJESRACK"+i,OBJPROP_COLOR,clrCrimson);
            else ObjectSetInteger(0,"EPERJESRACK"+i,OBJPROP_COLOR,clrGreen);
}


   if (last_encounter_d>8){
    ObjectCreate("EPERJESBACK"+i, OBJ_RECTANGLE, 0, Time[last_encounter_d], Close[last_encounter_d], Time[last_encounter_d-8], iLow(symbol,0,iLowest(symbol,0,MODE_LOW,9,last_encounter_d-8)));
           ObjectSet("EPERJESBACK"+i,OBJPROP_BACK,1);
            
         if (Close[0]>iLow(symbol,0,iLowest(symbol,0,MODE_LOW,9,last_encounter_d-8))-60*Point) ObjectSetInteger(0,"EPERJESBACK"+i,OBJPROP_COLOR,clrGreen);
         else ObjectSetInteger(0,"EPERJESBACK"+i,OBJPROP_COLOR,clrCrimson);
            

}


for (i = 1200 ; i >= 0; i--){ 
   RSI2[i]=iRSI(symbol,0,2,PRICE_MEDIAN,i); 
}
 
for (i = 1200 ; i >= 0; i--){    
   if (i>0 
///   && RSI2[i-1]<=RSI2[i] 
&& High[i+1]>High[i+2] 
   && RSI2[i+2]<99.9 
  && RSI2[i+2]>96.2
  && RSI2[i+3]<99.8 
  && RSI2[i+5]<93.5   
  && High[i]>guardrailu[i]+100*Point
  && (Close[i]<High[i]-100*Point || Close[i-1]<High[i-1]-100*Point)
  && (RSI2[i-1]>99 || RSI2[i-1]<67) 
  && (High[i]<guardrailu[i]+400*Point || High[i]>guardrailu[i]+680*Point)
  && ((iMFI(symbol,0,14,i+2)<65 && iMFI(symbol,0,14,i+2)>51.5) || iMFI(symbol,0,14,i)>83 )
  && RSI2[i+2]<99.8
 /// && RSI2[i+1]>=RSI2[i+2]
  && RSI2[i]>65
  && RSI2[i]>99 
 // && RSI2[i-1]<77
  ){
     ObjectCreate("HOCUS"+IntegerToString(i),OBJ_VLINE,1, Time[i], 0);
      ObjectSet("HOCUS"+IntegerToString(i),OBJPROP_COLOR,clrYellow);
      ObjectSet("HOCUS"+IntegerToString(i),OBJPROP_WIDTH,12);
      ObjectSet("HOCUS"+IntegerToString(i),OBJPROP_BACK,1);
      if (i>0 && RSI2[i]>98 ){
      ObjectCreate("LOTUSS"+IntegerToString(i), OBJ_TEXT, 1, Time[i+2], 60); 
      ObjectSetText("LOTUSS"+IntegerToString(i), "H3?", 36, "Impact", Blue);
   }}
   
   if (i>0 && RSI2[i-1]>RSI2[i] && Low[i+1]<guardraild[i+1] && RSI2[i]>2 && 
   ((RSI2[i]<RSI2[i+1] && RSI2[i+1]>.5 && RSI2[i+1]<3.5 && RSI2[i+2]<4.5)
   || (RSI2[i]>RSI2[i+1] && RSI2[i+1]>.5 && RSI2[i+1]<3.5 && RSI2[i+2]>3.5  && RSI2[i+2]<7 
   && iMFI(symbol,0,14,i+1)<45 
   && iMFI(symbol,0,14,i+1)>25  ))
   && iLow(symbol,0,iLowest(symbol,0,MODE_LOW,6,i))< iLow(symbol,0,iLowest(symbol,0,MODE_LOW,10,i+7))
   )
   
   
   {
     ObjectCreate("HOCUS"+IntegerToString(i),OBJ_VLINE,1, Time[i+1], 0);
      ObjectSet("HOCUS"+IntegerToString(i),OBJPROP_COLOR,clrGold);
      ObjectSet("HOCUS"+IntegerToString(i),OBJPROP_WIDTH,12);
      ObjectSet("HOCUS"+IntegerToString(i),OBJPROP_BACK,1);
   }
}

if (Period()<240){
for(i=lookback; i>=0; i--) {  
  if (i>0 && HighBuffer[i]!=EMPTY_VALUE ){
    
               j=i-1;
               while (j>=0){
                  if (High[j]>HighBuffer[i] && Low[j]<HighBuffer[i] && HighBuffer[i]!=EMPTY_VALUE) break;    
                 j--;            
               }
               if (High[j]>HighBuffer[i] && Low[j]<HighBuffer[i] && HighBuffer[i]!=EMPTY_VALUE) {
               
                 ObjectCreate(0,"Projected"+i,OBJ_TREND,0,Time[i],HighBuffer[i],Time[j],HighBuffer[i]);
                 ObjectSetInteger(0,"Projected"+i,OBJPROP_RAY_RIGHT,false);
                 ObjectSet("Projected"+i,OBJPROP_COLOR,clrRed);
                 ObjectSet("Projected"+i,OBJPROP_WIDTH,3); 
                 ObjectSet("Projected"+i,OBJPROP_BACK,1); 
                                  
                 ObjectCreate("Projected"+IntegerToString(j), OBJ_TEXT, 0, Time[j+2], HighBuffer[i]+20*Point);  
                ObjectSetText("Projected"+IntegerToString(j), "X-Fill! 40+pips counter", 16, "Arial Black",  clrCrimson);
                 
                 
                 }
                 
                else if (j<0 && HighBuffer[i]!=EMPTY_VALUE){ 
                 
                  ObjectCreate(0,"Projected"+i,OBJ_TREND,0,Time[5],HighBuffer[i],Time[0],HighBuffer[i]);
                   ObjectSetInteger(0,"Projected"+i,OBJPROP_RAY_RIGHT,false);
                   ObjectSet("Projected"+i,OBJPROP_COLOR,clrPurple);
                   ObjectSet("Projected"+i,OBJPROP_WIDTH,3); 
                   ObjectSet("Projected"+i,OBJPROP_BACK,1); 
                 
                 if (j>=0){
                  ObjectCreate("Projectedx"+IntegerToString(i), OBJ_TEXT, 0, Time[13], HighBuffer[i]+80*Point);  
                   ObjectSetText("Projectedx"+IntegerToString(i), "UnFilled: "+DoubleToStr(HighBuffer[i],4), 16, "Arial Black",  clrMagenta);}
                 }
                 
             }

     if (i>0 && HighBuffer2[i]!=EMPTY_VALUE){
               
               j=i-1;
               while (j>=0){
                  if (Low[j]<HighBuffer2[i] && High[j]>HighBuffer2[i] && HighBuffer2[i]!=EMPTY_VALUE) break;    
                 j--;            
               }
               if (Low[j]<HighBuffer2[i] && High[j]>HighBuffer2[i] && HighBuffer2[i]!=EMPTY_VALUE) {
               
                 ObjectCreate(0,"Projectedx"+i,OBJ_TREND,0,Time[i],HighBuffer2[i],Time[j],HighBuffer2[i]);
                 ObjectSetInteger(0,"Projectedx"+i,OBJPROP_RAY_RIGHT,false);
                 ObjectSet("Projectedx"+i,OBJPROP_COLOR,clrDarkGreen);
                 ObjectSet("Projectedx"+i,OBJPROP_WIDTH,3); 
                 ObjectSet("Projectedx"+i,OBJPROP_BACK,1); 
                 
                 
                 ObjectCreate("Projected"+IntegerToString(j), OBJ_TEXT, 0, Time[j+2], HighBuffer2[i]-10*Point);  
                ObjectSetText("Projected"+IntegerToString(j), "X-Fill! 40+pips counter", 16, "Arial Black",  clrDarkGreen);
             }
             
             else if (j<0 && HighBuffer2[i]!=EMPTY_VALUE){ 
                  ObjectCreate(0,"Projected"+i,OBJ_TREND,0,Time[5],HighBuffer2[i],Time[j],HighBuffer2[i]);
                 ObjectSetInteger(0,"Projected"+i,OBJPROP_RAY_RIGHT,false);
                 ObjectSet("Projected"+i,OBJPROP_COLOR,clrBlue);
                 ObjectSet("Projected"+i,OBJPROP_WIDTH,3); 
                 ObjectSet("Projected"+i,OBJPROP_BACK,1); 
                 
                 
                 if (j>=0){
                 ObjectCreate("Projectedy"+IntegerToString(i), OBJ_TEXT, 0, Time[13], HighBuffer2[i]+50*Point);  
                ObjectSetText("Projectedy"+IntegerToString(i), "UnFilled: "+DoubleToStr(HighBuffer2[i],4), 16, "Arial Black",  clrPurple);}
             }
            }

}
}




  ObjectCreate("Projected", OBJ_TEXT, 0, Time[13], (iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,30,0))+iLow(symbol,0,iLowest(symbol,0,MODE_LOW,30,0)))/2);  
                ObjectSetText("Projected", "Q: "+DoubleToStr(NormalizeDouble(ATRAVG[1]*10000,4),1), 16, "Arial Black",  clrPurple);

deletetxt1("ENVELOPE");
deletetxt1("MINIATAURE");

  

deletetxt1("KLOPF");

if (iMA(Symbol(),0,11,0,MODE_EMA, PRICE_MEDIAN,0)>iMA(Symbol(),0,17,0,MODE_EMA, PRICE_MEDIAN,0)){ 
  ObjectCreate("KLOPF1", OBJ_TEXT, 0, Time[0], iMA(Symbol(),0,11,0,MODE_EMA, PRICE_MEDIAN,0)+265*Point);  
   ObjectSetText("KLOPF1", "                                    "+DoubleToStr(NormalizeDouble(iMA(Symbol(),0,11,0,MODE_EMA, PRICE_MEDIAN,0)+220*Point,4),4)+" MA SELL", 12, "Arial Black", Black);
    ObjectCreate("KLOPF2", OBJ_TEXT, 0, Time[0], iMA(Symbol(),0,17,0,MODE_EMA, PRICE_MEDIAN,0)-200*Point);  
   ObjectSetText("KLOPF2", "                                    "+DoubleToStr(NormalizeDouble(iMA(Symbol(),0,17,0,MODE_EMA, PRICE_MEDIAN,0)-220*Point,4),4)+" MA BUY", 12, "Arial Black", Black);
}
else {
ObjectCreate("KLOPF1", OBJ_TEXT, 0, Time[0], iMA(Symbol(),0,17,0,MODE_EMA, PRICE_MEDIAN,0)+265*Point);  
   ObjectSetText("KLOPF1", "                                    "+DoubleToStr(NormalizeDouble(iMA(Symbol(),0,17,0,MODE_EMA, PRICE_MEDIAN,0)+220*Point,4),4)+" MA SELL", 12, "Arial Black", Black);
    ObjectCreate("KLOPF2", OBJ_TEXT, 0, Time[0], iMA(Symbol(),0,11,0,MODE_EMA, PRICE_MEDIAN,0)-200*Point);  
   ObjectSetText("KLOPF2", "                                    "+DoubleToStr(NormalizeDouble(iMA(Symbol(),0,11,0,MODE_EMA, PRICE_MEDIAN,0)-220*Point,4),4)+" MA BUY", 12, "Arial Black", Black);
}



if (gp100[i]!=EMPTY_VALUE){ 
   ObjectCreate("KLOPF3", OBJ_TEXT, 0, Time[0], gp100[0]+265*Point);  
   ObjectSetText("KLOPF3", "                                    "+DoubleToStr(NormalizeDouble(gp100[0]+50*Point,4),4)+" H3 SELL", 12, "Arial Black", Black);
 //   ObjectCreate("KLOPF4", OBJ_TEXT, 0, Time[0], iMA(Symbol(),0,17,0,MODE_EMA, PRICE_MEDIAN,0)-200*Point);  
 //  ObjectSetText("KLOPF4", "                                    "+DoubleToStr(NormalizeDouble(iMA(Symbol(),0,17,0,MODE_EMA, PRICE_MEDIAN,0)-220*Point,4),4)+" MA BUY", 12, "Arial Black", Black);
}
else if (gm100[i]!=EMPTY_VALUE){
   ObjectCreate("KLOPF3", OBJ_TEXT, 0, Time[0], gm100[0]+265*Point);  
   ObjectSetText("KLOPF3", "                                    "+DoubleToStr(NormalizeDouble(gm100[0]-50*Point,4),4)+" H3 BUY", 12, "Arial Black", Black);
 //   ObjectCreate("KLOPF4", OBJ_TEXT, 0, Time[0], iMA(Symbol(),0,11,0,MODE_EMA, PRICE_MEDIAN,0)-200*Point);  
 //  ObjectSetText("KLOPF4", "                                    "+DoubleToStr(NormalizeDouble(iMA(Symbol(),0,11,0,MODE_EMA, PRICE_MEDIAN,0)-220*Point,4),4)+" MA BUY", 12, "Arial Black", Black);
}


 ObjectCreate("MINIATAURE"+15,OBJ_LABEL,2, 2,0);
      ObjectSetText("MINIATAURE"+15,"Insta Toffee (14th bar) -> Corr / Deep Corr",21,"Impact");
  ObjectSet("MINIATAURE"+15,OBJPROP_CORNER,2);
    ObjectSet("MINIATAURE"+15,OBJPROP_XDISTANCE,35);
  ObjectSet("MINIATAURE"+15,OBJPROP_YDISTANCE,57);
 ObjectSet("MINIATAURE"+15,OBJPROP_COLOR,clrDeepPink);

 ObjectCreate("MINIATAURE"+16,OBJ_LABEL,2, 2,0);
      ObjectSetText("MINIATAURE"+16,"H2 -> +1 LINE BACK",21,"Impact");
  ObjectSet("MINIATAURE"+16,OBJPROP_CORNER,2);
    ObjectSet("MINIATAURE"+16,OBJPROP_XDISTANCE,35);
  ObjectSet("MINIATAURE"+16,OBJPROP_YDISTANCE,87);
 ObjectSet("MINIATAURE"+16,OBJPROP_COLOR,clrDeepPink);


  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);
}  }
  

Typical. I come up with a top notch signal and the first live call turns out to be an exception. Here’s the missing maual, Murphy.

After the lift call button is pressed, the game of rock, paper, volatility is played.

Duration: 3hrs. The bears win and the lift call gets carried out with the call button representing a peak.

However if the volatility shows up first, price would not get too far on the downside / embedding shall persist and the next BB breach would be a continiation entry.

///lift button dn 
    if (i>0 && stoch120[i]>94 && stoch120[i]>=stoch120[i+1] && stoch120[i]>stoch120[i-1]
   && (((High[i]>iBands(symbol,30,240,2,0,PRICE_MEDIAN,MODE_UPPER,i)+180*Point && mfi[i]>70)) 
   || (mfi[i]>79 && stoch120[i]>96 && 
  ( High[i]<iBands(symbol,30,240,2,0,PRICE_MEDIAN,MODE_UPPER,i)-100*Point || High[i]>iBands(symbol,30,240,2,0,PRICE_MEDIAN,MODE_UPPER,i)+100*Point)
  ))
   && (High[i]<iBands(symbol,30,60,2,0,PRICE_MEDIAN,MODE_UPPER,i)+150*Point || (High[i]>iBands(symbol,30,240,2,0,PRICE_MEDIAN,MODE_UPPER,i)+400*Point && High[i]<iBands(symbol,30,240,2,0,PRICE_MEDIAN,MODE_UPPER,i)+450*Point)) ){
           if (High[i-1]>High[i])ObjectCreate("Pretty"+IntegerToString(i),OBJ_VLINE,0, Time[i-1], 0);
           else ObjectCreate("Pretty"+IntegerToString(i),OBJ_VLINE,0, Time[i], 0);
           ObjectSet("Pretty"+IntegerToString(i),OBJPROP_COLOR,clrOrange );
           ObjectSet("Pretty"+IntegerToString(i),OBJPROP_WIDTH,9);
           ObjectSet("Pretty"+IntegerToString(i),OBJPROP_STYLE,STYLE_DOT);
           ObjectSet("Pretty"+IntegerToString(i),OBJPROP_BACK,1); 
   }   

An F-1 market ends in a reversal is started by two closes on the other side of the S30, confirmed by a 40+ pip counter volatility print if these two do not coincide. This would lead to an almost neutral, F1 market.
Target W3 ATR near end.

I bet you don’t believe that a parabolic move’s ending point can be projected in any way. It can be. It is measured from the last consolidation level and uses the 3-day ATR 10-30 percent. You can have this number figured for the day, scaling out is advised. Sell some at 1.1113, more at 1.1120 etc.

Touching down on the lower BB is a zeroing, a reset / start of new leg (yellow hoop). An F0 market may end in a Flash Gordon (momentum divergence).

As the market spins up, it changes character from F0 to F-1 (F-1: 14 out of the last 16 candles closed above/below the S-30). If you look at the image above, the market can be called qualified if one side prints values beyond 80 pips (200 sample distance of current price).

 ///F qualifier
 if (ExtATRBuffer[i]<-80) q[i]=-1;
 if (ExtATRBuffer2[i]>80) q[i]=1;
 
 ///C qualifier
 if (Close[i]<iMA(symbol,0,30,0,MODE_SMA,PRICE_MEDIAN,i)) c[i]=-1;
 if (Close[i]>iMA(symbol,0,30,0,MODE_SMA,PRICE_MEDIAN,i)) c[i]=1;

...

ObjectCreate("Libec"+6,OBJ_LABEL,3, 0,0);
ObjectSetText("Libec"+6, "Unqualified Market", 41, "Arial Black", Gray);  
if (q[0]+q[1]+q[2]+q[3]+q[4]+q[5]+q[6]+q[7]+q[8]+q[9]+q[10]+q[11]+q[12]+q[13]+q[14]+q[15]>13) ObjectSetText("Libec"+6, "Qualified Bull", 41, "Arial Black", LimeGreen);
if (q[0]+q[1]+q[2]+q[3]+q[4]+q[5]+q[6]+q[7]+q[8]+q[9]+q[10]+q[11]+q[12]+q[13]+q[14]+q[15]<-13) ObjectSetText("Libec"+6, "Qualified Bear", 41, "Arial Black", DeepPink);
ObjectSet("Libec"+6,OBJPROP_CORNER,3);
ObjectSet("Libec"+6,OBJPROP_XDISTANCE,20);
ObjectSet("Libec"+6,OBJPROP_YDISTANCE,67);
ObjectSet("Libec"+6,OBJPROP_BACK,1);

There are a lot of ways you can use the color scale (for the No. 1 plots). They are “hot green / red” if the price is beyond the 8EMO (and 14 out of the last 16 closes fall on one side of the S-30). Blue is a close back inside the 8EMO, but outside the the S-30. Black is a close back at the other side of the S-30. For instance, the continuation buys above are starting the black print. You may want to dump a little bit on the 3rd Green block – see ATR projection above for a winning combo.

if (q[i]==1 || q[i]==-1) {
///F0 market
   if (q[i]==1 && Close[i+2]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+2)) {ObjectCreate("CLOT"+IntegerToString(i),OBJ_TEXT, 3, Time[i], 24.5); ObjectSetText("CLOT"+IntegerToString(i), CharToStr(108), 24, "WingDings", clrSpringGreen);}
   if (q[i]==-1 && Close[i+2]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i+2)){ObjectCreate("CLOT"+IntegerToString(i),OBJ_TEXT, 3, Time[i], 14.5); ObjectSetText("CLOT"+IntegerToString(i), CharToStr(108), 24, "WingDings", clrRed);}
/// F-1 
   if (q[i]==1 && c[i]+c[i+1]+c[i+2]+c[i+3]+c[i+4]+c[i+5]+c[i+6]+c[i+7]+c[i+8]+c[i+9]+c[i+10]+c[i+11]+c[i+12]+c[i+13]+c[i+14]+c[i+15]>13) {ObjectCreate("CLOTS"+IntegerToString(i),OBJ_TEXT, 3, Time[i], 75.5); ObjectSetText("CLOTS"+IntegerToString(i), CharToStr(140), 24, "WingDings", clrSpringGreen); if (Close[i]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i)) ObjectSet("CLOTS"+IntegerToString(i), OBJPROP_COLOR, Blue); if (Close[i]<iMA(symbol,0,30,0,MODE_SMA,PRICE_MEDIAN,i)) ObjectSet("CLOTS"+IntegerToString(i), OBJPROP_COLOR, Black); }
   if (q[i]==-1 && c[i]+c[i+1]+c[i+2]+c[i+3]+c[i+4]+c[i+5]+c[i+6]+c[i+7]+c[i+8]+c[i+9]+c[i+10]+c[i+11]+c[i+12]+c[i+13]+c[i+14]+c[i+15]<-13) {ObjectCreate("CLOTS"+IntegerToString(i),OBJ_TEXT, 3, Time[i], -55.5); ObjectSetText("CLOTS"+IntegerToString(i), CharToStr(140), 24, "WingDings", clrRed);  if (Close[i]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i)) ObjectSet("CLOTS"+IntegerToString(i), OBJPROP_COLOR, Blue); if (Close[i]>iMA(symbol,0,30,0,MODE_SMA,PRICE_MEDIAN,i)) ObjectSet("CLOTS"+IntegerToString(i), OBJPROP_COLOR, Black);}   
}

 

Chicane has a song called Middledistance Runner. It is good to know that there are other smartasses out there.

The Guy made a full time carrer of scamming. Not sure that he would die of natural causes.

I’m exploring Aztec Records stuff lately.

What else would I be doing with this much time on my hands if not filtering?

The orange stripes are the call buttons. Can be exact, but if not they are in the ballpark based on 2 oscillators and a bit of play around the 240 sample Bollinger. Add on for the Bouncer. Beam me down, Scotty.

///lift button dn 
    if (i>0 && stoch120[i]>94 && stoch120[i]>=stoch120[i+1] && stoch120[i]>stoch120[i-1]
   && (((High[i]>iBands(symbol,30,240,2,0,PRICE_MEDIAN,MODE_UPPER,i)+180*Point && mfi[i]>70)) || (mfi[i]>79 && stoch120[i]>96 ))
   ){
           ObjectCreate("Pretty"+IntegerToString(i),OBJ_VLINE,0, Time[i], 0);
           ObjectSet("Pretty"+IntegerToString(i),OBJPROP_COLOR,clrOrange );
           ObjectSet("Pretty"+IntegerToString(i),OBJPROP_WIDTH,9);
           ObjectSet("Pretty"+IntegerToString(i),OBJPROP_STYLE,STYLE_DOT);
           ObjectSet("Pretty"+IntegerToString(i),OBJPROP_BACK,1); 
   }   

Your pals, the municipals using Cannons => CannonBall Run, get it?

Trench 207 add on for the CounterForce.

///Yellow Snow Patrol Chasing Down
if (High[i]>iMA(NULL,0,207,0,MODE_EMA, PRICE_LOW,i)+30*Point
&& High[i]<iMA(NULL,0,207,0,MODE_EMA, PRICE_HIGH,i) 
&& Low[i]<iMA(NULL,0,207,0,MODE_EMA, PRICE_LOW,i) && 
   ExtATRBuffer2[i]>62 && High[i+1]<iMA(NULL,0,207,0,MODE_EMA, PRICE_LOW,i+1)
   && High[i+2]<iMA(NULL,0,207,0,MODE_EMA, PRICE_LOW,i+2) && High[i+3]<iMA(NULL,0,207,0,MODE_EMA, PRICE_LOW,i+3)
   &&  iBands(symbol,30,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-iBands(symbol,30,30,2,0,PRICE_MEDIAN,MODE_LOWER,i)>320*Point
   ){
    ObjectCreate("PLOTZ"+i,OBJ_TEXT, 0, Time[i], High[i]+135*Point);
   ObjectSetText("PLOTZ"+i, CharToStr(112), 86, "WebDings", clrYellow);
}

///Yellow Snow Patrol Chasing Up
if (Low[i]<iMA(NULL,0,207,0,MODE_EMA, PRICE_HIGH,i)+10*Point
&& Low[i]>iMA(NULL,0,207,0,MODE_EMA, PRICE_LOW,i) 
&& High[i]>iMA(NULL,0,207,0,MODE_EMA, PRICE_HIGH,i) && 
   ExtATRBuffer[i]<-62 && Low[i+2]>iMA(NULL,0,207,0,MODE_EMA, PRICE_HIGH,i+2) && Low[i+3]>iMA(NULL,0,207,0,MODE_EMA, PRICE_HIGH,i+3)
   &&  iBands(symbol,30,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-iBands(symbol,30,30,2,0,PRICE_MEDIAN,MODE_LOWER,i)>320*Point
   ){
    ObjectCreate("PLOTZ"+i,OBJ_TEXT, 0, Time[i], Low[i]+75*Point);
   ObjectSetText("PLOTZ"+i, CharToStr(112), 86, "WebDings", clrYellow);
}

Everything is about the distance. Everything, but the girl.

Crack 1-3 are BB and moving averges closed back inside.

Crack 4 is a 40+ pips dip.

Crack 5 is a 62.5+ pips dip.

In a nutshell, this is why I hold my greatest invention to be the CounterForce.

Blue highlights:

if (ExtATRBuffer4[i]==EMPTY_VALUE && ExtATRBuffer4[i+1]==EMPTY_VALUE && ExtATRBuffer4[i+2]!=EMPTY_VALUE){
    ObjectCreate("PAHOLY"+DoubleToStr(i), OBJ_RECTANGLE, 0, Time[i+3], High[i+2], Time[i+1], Low[i+2]);
              ObjectSetInteger(0,"PAHOLY"+DoubleToStr(i),OBJPROP_COLOR,clrBlue);
}

Now, more about the distance is the importance of the stretch from the most important mean.

Yea, that number measured by the Stretch Marker. Since this chart is always buried away, and that 2.8x stretch is a very important clue for a reversal taking place, I had to transplant this info some way.

It is only the last print, but at least it is there with a DeepPink highlight as a reminder on a main chart now.

Thems be the tools for going in to war this coming year. I added the following to the Bouncer.


deletetxt1(“Vignetta”);


int twodigits = MathAbs((High[0]-iMA(NULL,0,414,0,MODE_EMA, PRICE_HIGH,0))/FMax*10000)*100;
if (Close[0]<iMA(symbol,0,414,0,MODE_EMA,PRICE_MEDIAN,0)) MathAbs((iMA(NULL,0,414,0,MODE_EMA, PRICE_LOW,0)-Low[0])/FMax*10000)*100;


int hundreds = round(twodigits/100);
twodigits = twodigits-hundreds*100;

int tens = round(twodigits/10);
int ones = twodigits-tens*10;

string shundreds, stens, sones;


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


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;
}


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=shundreds+CharToStr(115)+stens+sones;

ObjectCreate(“Vignetta”,OBJ_LABEL,0,0,0,0,0);
ObjectSet(“Vignetta”,OBJPROP_XDISTANCE,3*15);
ObjectSet(“Vignetta”,OBJPROP_YDISTANCE,3*15);


if (MathAbs((High[i]-iMA(NULL,0,414,0,MODE_EMA, PRICE_HIGH,i))/FMax*10000)*100>280 || MathAbs((iMA(NULL,0,414,0,MODE_EMA, PRICE_LOW,i)-Low[i])/FMax*10000)*100>280) ObjectSetText(“Vignetta”,jointstring,30,”Wingdings”,DeepPink);
else ObjectSetText(“Vignetta”,jointstring,30,”Wingdings”,DimGray);

A moment I want to remember from 2003 is when I said this on the 14th of December.

Another moment to remember is when Crypto Face asked in his stream: “On the southern equator, do they celebrate Christmas differently?”

Happier new year, since you have nothing left to lose.

Re-light my Turkish Delight!

A group is in the heart.

It’s starting to feel a lot like you have lost your frisbies.

I should had gone with the obvious, RSI2 continuation divergence when splitting up the wave structure.

Year of Napoleon it’s only apt to gift you with a current version of a QuarterLoo. 777 rows, here we go!

---

#property copyright "by Macdulio in 2023" 
#property link      "forexfore.blog" 
#property description "Quarterloo"

#property indicator_chart_window
#property indicator_buffers 10

extern int lookback = 40;
extern int std = 2;
double FSize=32;
double FMax = FSize*6/5;
bool embedded[];
double e16d1[], e16d2[], e16d3[], e16d4[], E16[], RSI2[];
double E32L[], AxelU[], AxelU1[], AxelL[], AxelL2[], AxelHU[], AxelHL[];
double env_u[],env_d[];
double ws1[],ws2[],ws3[],wr1[],wr2[],wr3[];
double HighBuffer[],HighBuffer2[];
double LowBuffer[],LowBuffer2[];
bool push[], house[]; 
int Market[];
double bofu[],bofd[];
double bofup[],bofdp[];

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
  SetIndexBuffer(0,ws1);
   SetIndexStyle(0,DRAW_LINE,2,2,clrDarkGray); 

   SetIndexBuffer(1,wr1);
   SetIndexStyle(1,DRAW_LINE,2,2,clrDarkGray); 
   
   
  SetIndexBuffer(2,ws2);
   SetIndexStyle(2,DRAW_LINE,2,1,clrBlack); 

   SetIndexBuffer(3,wr2);
   SetIndexStyle(3,DRAW_LINE,2,1,clrBlack); 

  SetIndexBuffer(4,ws3);
   SetIndexStyle(4,DRAW_LINE,3,2,clrDarkOliveGreen); 

   SetIndexBuffer(5,wr3);
   SetIndexStyle(5, DRAW_LINE,3,2,clrTomato); 
      
    
  
  SetIndexBuffer(6,env_u);
   SetIndexStyle(6,DRAW_LINE,6,2,clrBlue); 

   SetIndexBuffer(7,env_d);
   SetIndexStyle(7,DRAW_LINE,6,2,clrBlue); 
  
 
  SetIndexBuffer(8,bofup);
   SetIndexStyle(8,DRAW_LINE,6,2,clrRed); 

   SetIndexBuffer(9,bofdp);
   SetIndexStyle(9,DRAW_LINE,6,2,clrGreen);   
   
   
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
{

   int    i,j;             // Number of counted bars
  
   
  string symbol = Symbol();
 
  ArrayResize(bofu, Bars); 
  ArrayInitialize(bofu, EMPTY_VALUE);
  ArrayResize(bofd, Bars); 
  ArrayInitialize(bofd, EMPTY_VALUE);     
  ArrayResize(bofup, Bars); 
  ArrayInitialize(bofup, EMPTY_VALUE);
  ArrayResize(bofdp, Bars); 
  ArrayInitialize(bofdp, EMPTY_VALUE);  
 
  
  ArrayResize(ws1, Bars); 
  ArrayInitialize(ws1, EMPTY_VALUE);
  ArrayResize(ws2, Bars); 
  ArrayInitialize(ws2, EMPTY_VALUE);      
  ArrayResize(ws3, Bars); 
  ArrayInitialize(ws3, EMPTY_VALUE);    
  ArrayResize(wr1, Bars); 
  ArrayInitialize(wr1, EMPTY_VALUE);
  ArrayResize(wr2, Bars); 
  ArrayInitialize(wr2, EMPTY_VALUE);      
  ArrayResize(wr3, Bars); 
  ArrayInitialize(wr3, EMPTY_VALUE);    

    ArrayResize(HighBuffer, Bars); 
  ArrayInitialize(HighBuffer, EMPTY_VALUE);   
      ArrayResize(LowBuffer, Bars); 
  ArrayInitialize(LowBuffer, EMPTY_VALUE); 
     ArrayResize(HighBuffer2, Bars); 
  ArrayInitialize(HighBuffer2, EMPTY_VALUE);   
      ArrayResize(LowBuffer2, Bars); 
  ArrayInitialize(LowBuffer2, EMPTY_VALUE);   
      ArrayResize(embedded, Bars);   
 ArrayInitialize(embedded, false); 
     ArrayResize(Market, Bars);   
 ArrayInitialize(Market, 0); 
    ArrayResize(E16, Bars);   
 ArrayInitialize(E16, EMPTY_VALUE); 
   ArrayResize(env_u, Bars);   
 ArrayInitialize(env_u, EMPTY_VALUE); 
    ArrayResize(env_d, Bars);   
 ArrayInitialize(env_d, EMPTY_VALUE); 
   ArrayResize(push, Bars);   
 ArrayInitialize(push, false); 
    ArrayResize(house, Bars);   
 ArrayInitialize(house, false);  
 
   ArrayResize(e16d1, Bars);   
 ArrayInitialize(e16d1, EMPTY_VALUE);  
    ArrayResize(e16d2, lookback);   
 ArrayInitialize(e16d2, EMPTY_VALUE); 
    ArrayResize(e16d3, lookback);   
 ArrayInitialize(e16d3, EMPTY_VALUE);  
    ArrayResize(e16d4, lookback);   
 ArrayInitialize(e16d4, EMPTY_VALUE); 
    ArrayResize(E16, lookback);   
 ArrayInitialize(E16, EMPTY_VALUE);  
    ArrayResize(RSI2, lookback);   
 ArrayInitialize(RSI2, EMPTY_VALUE);  
     ArrayResize(AxelU, lookback);   
 ArrayInitialize(AxelU, EMPTY_VALUE); 
      ArrayResize(AxelHU, lookback);   
 ArrayInitialize(AxelHU, EMPTY_VALUE); 
      ArrayResize(AxelU1, lookback);   
 ArrayInitialize(AxelU1, EMPTY_VALUE); 
      ArrayResize(AxelL, lookback);   
 ArrayInitialize(AxelL, EMPTY_VALUE); 
       ArrayResize(AxelHL, lookback);   
 ArrayInitialize(AxelHL, EMPTY_VALUE); 
      ArrayResize(AxelL2, lookback);   
 ArrayInitialize(AxelL2, EMPTY_VALUE); 
 
       ArrayResize(E32L, Bars);  
  ArrayInitialize(E32L, EMPTY_VALUE);  


double dt14;
   double db14;
   double pacing;
   double oversold;
   double overbought;
   int N = 1590;
   dt14 = iHigh(NULL,240,iHighest(NULL, 240, MODE_HIGH, N));
   db14 = iLow(NULL,240,iLowest(NULL, 240, MODE_LOW, N));
   pacing = (dt14-db14)*.1;
   oversold = db14+2*pacing;
   overbought = db14+8*pacing;  

//--------------------------------------------------------------------




deletetxt1("Titus");
deletetxt1("TRIAGE");
deletetxt1("ANGL");
deletetxt1("Claim");
deletetxt1("Mile");
deletetxt1("Fracabb");
deletetxt1("PBACK");


for (i = lookback ; i >=0; i--) {
ws1[i]=ws1[i+1];
ws2[i]=ws2[i+1];
ws3[i]=ws3[i+1];
wr1[i]=wr1[i+1];
wr2[i]=wr2[i+1];
wr3[i]=wr3[i+1];
bofu[i]=bofu[i+1];
bofd[i]=bofd[i+1];


//if (iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,4,i)-Low[i]>250*Point){
if (Close[i]>iMA(symbol,0,21,0,MODE_EMA,PRICE_MEDIAN,i)){
   ws1[i]=iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,4,i))-2500*Point;
   ws2[i]=iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,4,i))-3300*Point;
   ws3[i]=iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,4,i))-4150*Point;
   wr1[i]=EMPTY_VALUE;
   wr2[i]=EMPTY_VALUE;
   wr3[i]=EMPTY_VALUE;
}

if (Close[i]<iMA(symbol,0,21,0,MODE_EMA,PRICE_MEDIAN,i)){
   wr1[i]=iLow(symbol,0,iLowest(symbol,0,MODE_LOW,4,i))+2500*Point;
   wr2[i]=iLow(symbol,0,iLowest(symbol,0,MODE_LOW,4,i))+3300*Point;
   wr3[i]=iLow(symbol,0,iLowest(symbol,0,MODE_LOW,4,i))+4150*Point;
   ws1[i]=EMPTY_VALUE;
   ws2[i]=EMPTY_VALUE;
   ws3[i]=EMPTY_VALUE;
}


Market[i]=Market[i+1];

if (iStochastic(symbol,10080,18,3,3,MODE_SMA,0,MODE_SIGNAL,i+2)<24 && iStochastic(symbol,10080,18,3,3,MODE_SMA,0,MODE_SIGNAL,i+1)<24 && iStochastic(symbol,10080,18,3,3,MODE_SMA,0,MODE_SIGNAL,i)<24 ){
 
                     ObjectCreate("Fracabbb"+IntegerToString(i), OBJ_RECTANGLE, 1,  Time[i+1], 24, Time[i], 0);
                     ObjectSetInteger(0,"Fracabbb"+IntegerToString(i),OBJPROP_COLOR,clrSalmon);
                     ObjectSet("Fracabbb"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Fracabbb"+IntegerToString(i),OBJPROP_WIDTH,5);   
                     embedded[i]=true;
}

if (iStochastic(symbol,10080,18,3,3,MODE_SMA,0,MODE_SIGNAL,i+2)>78 && iStochastic(symbol,10080,18,3,3,MODE_SMA,0,MODE_SIGNAL,i+1)>78 && iStochastic(symbol,10080,18,3,3,MODE_SMA,0,MODE_SIGNAL,i)>78){
                      ObjectCreate("Fracabbbb"+IntegerToString(i), OBJ_RECTANGLE, 1,  Time[i+1], 80, Time[i], 100);
                     ObjectSetInteger(0,"Fracabbbb"+IntegerToString(i),OBJPROP_COLOR,clrChartreuse);
                     ObjectSet("Fracabbbb"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Fracabbbb"+IntegerToString(i),OBJPROP_WIDTH,5);   
                     embedded[i]=true;
}
  
  


   if (Period()==30) E16[i]=iMA(NULL,0,32,0,MODE_EMA, PRICE_MEDIAN,i);       
   else E16[i]=iMA(NULL,0,16,0,MODE_EMA, PRICE_MEDIAN,i);
          
   if (Period()==60) E32L[i]=iMA(NULL,0,32,0,MODE_EMA, PRICE_MEDIAN,i);
   else E32L[i]=iMA(NULL,0,32*2,0,MODE_EMA, PRICE_MEDIAN,i);
   
         e16d1[i]=E16[i]+450*Point;
         
         e16d2[i]=E16[i]-450*Point;
           
        if (iMA(NULL,60,67,0,MODE_EMA, PRICE_HIGH,0)>iMA(NULL,60,207,0,MODE_EMA, PRICE_HIGH,0)) e16d4[i]=e16d2[i];
        if (iMA(NULL,60,67,0,MODE_EMA, PRICE_HIGH,0)<iMA(NULL,60,207,0,MODE_EMA, PRICE_HIGH,0)) e16d3[i]=e16d1[i];
        
     AxelU[i]=(High[i+1]-Low[i+1])/100*15+High[i+1];
     AxelHU[i]=(High[i+1]-Low[i+1])/2+High[i+1];
     AxelU1[i]=(High[i+1]-Low[i+1])/2+Low[i+1];
    
     
     AxelL[i]=Low[i+1]-(High[i+1]-Low[i+1])/100*15;
     
     AxelHL[i]=Low[i+1]-(High[i+1]-Low[i+1])/2;

   env_u[i]=iEnvelopes(symbol,0,14,0,0,0,2,MODE_UPPER,i);
   env_d[i]=iEnvelopes(symbol,0,14,0,0,0,2,MODE_LOWER,i);  
   
 if (i<346){
 
      if (push[i+1] && Close[i+1]<iMA(symbol,0,21,0,MODE_EMA, PRICE_MEDIAN,i+1) && Low[i]<Low[i+1] && i>0 && Low[i]<Low[i-1]){
          ObjectCreate("Miles"+DoubleToStr(i), OBJ_TEXT, 0, Time[i], Low[i]-40*Point); 
          ObjectSetText("Miles"+DoubleToStr(i), "D", 29, "Webdings", clrMagenta);
          house[i]=true;
      }
      if (push[i+2] && Close[i+2]<iMA(symbol,0,21,0,MODE_EMA, PRICE_MEDIAN,i+1)  && (Low[i+1]>Low[i+2] || Low[i]<Low[i+1] )){
          ObjectCreate("Miles"+DoubleToStr(i), OBJ_TEXT, 0, Time[i], Low[i]-40*Point); 
          ObjectSetText("Miles"+DoubleToStr(i), "D", 29, "Webdings", clrMagenta);
         house[i]=true;
      }
    if (push[i+1] && Close[i+1]>iMA(symbol,0,21,0,MODE_EMA, PRICE_MEDIAN,i+1) && High[i]>High[i+1] && i>0 && High[i]>High[i-1]){
          ObjectCreate("Miles"+DoubleToStr(i), OBJ_TEXT, 0, Time[i], High[i]+1170*Point); 
          ObjectSetText("Miles"+DoubleToStr(i), "D", 29, "Webdings", clrMagenta);
         house[i]=true;
      }
      if (push[i+2] && Close[i+2]>iMA(symbol,0,21,0,MODE_EMA, PRICE_MEDIAN,i+1) && (High[i+1]<High[i+2] || High[i]>High[i+1]) ){
          ObjectCreate("Miles"+DoubleToStr(i), OBJ_TEXT, 0, Time[i], High[i]+1170*Point); 
          ObjectSetText("Miles"+DoubleToStr(i), "D", 29, "Webdings", clrMagenta);
         house[i]=true;
      }
        if (push[i+3] && Close[i+3]>iMA(symbol,0,21,0,MODE_EMA, PRICE_MEDIAN,i+2) && (High[i]>High[i+1] && High[i+1]>High[i+2]) ){
          ObjectDelete("Miles"+DoubleToStr(i+1));
          ObjectCreate("Miles"+DoubleToStr(i), OBJ_TEXT, 0, Time[i], High[i]+1170*Point); 
          ObjectSetText("Miles"+DoubleToStr(i), "D", 29, "Webdings", clrMagenta);
         house[i+1]=false;
         house[i]=true;
      }
      
      
      if (i==0) ObjectSetText("Miles"+DoubleToStr(i), "D", 29, "Webdings", clrGray);
 
 
 
      if (iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_MAIN,i)<25 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_MAIN,i+1)<25 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_MAIN,i+2)<25 && iMA(symbol,0,21,0,MODE_EMA, PRICE_MEDIAN,i)>AxelU[i]){
         HighBuffer[i]=iMA(symbol,0,21,0,MODE_EMA, PRICE_MEDIAN,i);
         LowBuffer[i]=AxelHU[i];
      }
      else {
         HighBuffer[i]=AxelHU[i];
         LowBuffer[i]=AxelU[i];
      }
      
      
          if (iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_MAIN,i)>75 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_MAIN,i+1)>75 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_MAIN,i+2)>75 && iMA(symbol,0,21,0,MODE_EMA, PRICE_MEDIAN,i)<AxelL[i]){
         HighBuffer2[i]=AxelHL[i];
         LowBuffer2[i]=iMA(symbol,0,21,0,MODE_EMA, PRICE_MEDIAN,i);
      }
      else {
         HighBuffer2[i]=AxelL[i];
         LowBuffer2[i]=AxelHL[i];
      }
      if (iLow(symbol,10080,i)<AxelHL[i]) {
          HighBuffer2[i]=iLow(symbol,0,i);
         LowBuffer2[i]=iBands(symbol,0,18,std,4,PRICE_LOW,MODE_LOWER,i);
         if (iLow(symbol,0,iLowest(symbol,0,MODE_LOW,8,i))==iLow(symbol,0,i)
                  
         ){
         j=i+2;
         while (j<i+5){
         if (Low[j]<Low[j+1] && Low[j]<Low[j-1]) break;   
         j++;
         }
         if (!push[j] && !push[i+3]){
         ObjectCreate("Mile"+DoubleToStr(i), OBJ_TEXT, 0, Time[i], Low[i]-40*Point); 
          if (Close[i]<Low[i]+100*Point && !embedded[i]) ObjectSetText("Mile"+DoubleToStr(i), CharToStr(73), 29, "Wingdings", clrWhite);
          else if (Close[i]<env_d[i]) {ObjectSetText("Mile"+DoubleToStr(i), CharToStr(73), 39, "Wingdings", clrMagenta);
           ObjectCreate(0,"TRIAGE"+IntegerToString(i),OBJ_TRIANGLE,0,Time[i],iLow(symbol,0,iLowest(symbol,0,MODE_LOW,2,i))-250*Point,Time[i+3],iLow(symbol,0,iLowest(symbol,0,MODE_LOW,2,i))-250*Point,Time[i+4],iLow(symbol,0,iLowest(symbol,0,MODE_LOW,2,i)));
            ObjectSetInteger(0,"TRIAGE"+IntegerToString(i),OBJPROP_COLOR,clrLightGray);  ObjectSetInteger(0,"TRIAGE"+IntegerToString(i),OBJPROP_WIDTH,1); ObjectSetInteger(0,"TRIAGE"+IntegerToString(i),OBJPROP_BACK,1); 
            
               ObjectCreate("ANGL"+IntegerToString(i), OBJ_TEXT, 0, Time[i+3],  iLow(symbol,0,iLowest(symbol,0,MODE_LOW,2,i))-250*Point+99*Point);  
             ObjectSetText("ANGL"+IntegerToString(i),"              c1_"+DoubleToString(NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,2,i))-250*Point,4),4), 16, "Impact",  Blue);  
            
            ObjectCreate(0,"TRIAGES"+IntegerToString(i),OBJ_TRIANGLE,0,Time[i],iLow(symbol,0,iLowest(symbol,0,MODE_LOW,2,i))-1100*Point,Time[i+4],iLow(symbol,0,iLowest(symbol,0,MODE_LOW,2,i))-1100*Point,Time[i+4],iLow(symbol,0,iLowest(symbol,0,MODE_LOW,2,i)));
            ObjectSetInteger(0,"TRIAGES"+IntegerToString(i),OBJPROP_COLOR,clrLightGray);  ObjectSetInteger(0,"TRIAGES"+IntegerToString(i),OBJPROP_WIDTH,1); ObjectSetInteger(0,"TRIAGES"+IntegerToString(i),OBJPROP_BACK,1); 
       
        ObjectCreate("ANGLia"+IntegerToString(i), OBJ_TEXT, 0, Time[i+3],  iLow(symbol,0,iLowest(symbol,0,MODE_LOW,2,i))-1100*Point+99*Point);  
             ObjectSetText("ANGLia"+IntegerToString(i),"              c2_"+DoubleToString(NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,2,i))-1100*Point,4),4), 16, "Impact",  Blue);  
       
                ObjectCreate(0,"TRIAGEZ"+IntegerToString(i),OBJ_TRIANGLE,0,Time[i],iLow(symbol,0,iLowest(symbol,0,MODE_LOW,2,i))-1250*Point,Time[i+4],iLow(symbol,0,iLowest(symbol,0,MODE_LOW,2,i))-1250*Point,Time[i+4],iLow(symbol,0,iLowest(symbol,0,MODE_LOW,2,i)));
            ObjectSetInteger(0,"TRIAGEZ"+IntegerToString(i),OBJPROP_COLOR,clrLightGray);  ObjectSetInteger(0,"TRIAGEZ"+IntegerToString(i),OBJPROP_WIDTH,1); ObjectSetInteger(0,"TRIAGEZ"+IntegerToString(i),OBJPROP_BACK,1); 
            
             ObjectCreate("PBACK"+IntegerToString(i), OBJ_RECTANGLE, 0,  Time[i+1], Low[i]+1100*Point, Time[i], Low[i]+1700*Point);
                   
            ObjectSetInteger(0,"PBACK"+IntegerToString(i),OBJPROP_COLOR,clrPurple);
            ObjectSet("PBACK"+IntegerToString(i),OBJPROP_BACK,0);
            ObjectSet("PBACK"+IntegerToString(i),OBJPROP_WIDTH,5);
            
            push[i]=true;
            bofd[i]=iLow(symbol,0,iLowest(symbol,0,MODE_LOW,2,i))-1320*Point;         
          }
          else ObjectSetText("Mile"+DoubleToStr(i), CharToStr(73), 29, "Wingdings", clrBlack);     
         ObjectSet("Mile"+DoubleToStr(i), OBJPROP_BACK, 1 );    }
         
         if (embedded[i] && Low[i]>Close[i]-400*Point && Low[i]<Close[i]-300*Point){
             ObjectCreate("Milef"+DoubleToStr(i), OBJ_TEXT, 0, Time[i], Low[i]-340*Point); 
           ObjectSetText("Milef"+DoubleToStr(i), CharToStr(182), 29, "Wingdings", clrBlack);     
         ObjectSet("Milef"+DoubleToStr(i), OBJPROP_BACK, 1 );  
         }
         
         
                  
      }
     }
          if (iHigh(symbol,10080,i)>AxelHU[i] ) {
          //&& !(iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_MAIN,i)<25 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_MAIN,i+1)<25 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_MAIN,i+2)<25)
          HighBuffer[i]=iHigh(symbol,10080,i);
         LowBuffer[i]=iBands(symbol,0,18,std,4,PRICE_LOW,MODE_UPPER,i);
         if (iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,8,i))==iHigh(symbol,0,i)
         //iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,i)>9 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,i)<80
         ){
          j=i+2;
         while (j<i+5){
         if (High[j]>High[j+1] && High[j]>High[j-1]) break;   
         j++;
         }
         if (!push[j] && !push[i+3]){
         
         ObjectCreate("Mile"+DoubleToStr(i), OBJ_TEXT, 0, Time[i], High[i]+990*Point); 
         if (Close[i]>High[i]-100*Point && !embedded[i]) ObjectSetText("Mile"+DoubleToStr(i), CharToStr(73), 29, "Wingdings", clrWhite);
         else if (Close[i]>env_u[i]) {ObjectSetText("Mile"+DoubleToStr(i), CharToStr(73), 39, "Wingdings", clrMagenta);               
           ObjectCreate(0,"TRIAGE"+IntegerToString(i),OBJ_TRIANGLE,0,Time[i],iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))+250*Point,Time[i+3],iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))+250*Point,Time[i+4],iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i)));
            ObjectSetInteger(0,"TRIAGE"+IntegerToString(i),OBJPROP_COLOR,clrLightGray);  ObjectSetInteger(0,"TRIAGE"+IntegerToString(i),OBJPROP_WIDTH,1); ObjectSetInteger(0,"TRIAGE"+IntegerToString(i),OBJPROP_BACK,1); 
            
               ObjectCreate("ANGL"+IntegerToString(i), OBJ_TEXT, 0, Time[i+3],  iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))+250*Point+99*Point);  
             ObjectSetText("ANGL"+IntegerToString(i),"              c1_"+DoubleToString(NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))+250*Point,4),4), 16, "Impact",  Blue);  
            
            ObjectCreate(0,"TRIAGES"+IntegerToString(i),OBJ_TRIANGLE,0,Time[i],iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))+1100*Point,Time[i+4],iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))+1100*Point,Time[i+4],iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i)));
            ObjectSetInteger(0,"TRIAGES"+IntegerToString(i),OBJPROP_COLOR,clrLightGray);  ObjectSetInteger(0,"TRIAGES"+IntegerToString(i),OBJPROP_WIDTH,1); ObjectSetInteger(0,"TRIAGES"+IntegerToString(i),OBJPROP_BACK,1); 
       
        ObjectCreate("ANGLia"+IntegerToString(i), OBJ_TEXT, 0, Time[i+3],  iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))+1100*Point+99*Point);  
             ObjectSetText("ANGLia"+IntegerToString(i),"              c2_"+DoubleToString(NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))+1100*Point,4),4), 16, "Impact",  Blue);  
       
                ObjectCreate(0,"TRIAGEZ"+IntegerToString(i),OBJ_TRIANGLE,0,Time[i],iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))+1250*Point,Time[i+4],iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))+1250*Point,Time[i+4],iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i)));
            ObjectSetInteger(0,"TRIAGEZ"+IntegerToString(i),OBJPROP_COLOR,clrLightGray);  ObjectSetInteger(0,"TRIAGEZ"+IntegerToString(i),OBJPROP_WIDTH,1); ObjectSetInteger(0,"TRIAGEZ"+IntegerToString(i),OBJPROP_BACK,1); 
            
            
             ObjectCreate("PBACK"+IntegerToString(i), OBJ_RECTANGLE, 0,  Time[i+1], High[i]-800*Point, Time[i], High[i]-1300*Point);
                   
            ObjectSetInteger(0,"PBACK"+IntegerToString(i),OBJPROP_COLOR,clrPurple);
            ObjectSet("PBACK"+IntegerToString(i),OBJPROP_BACK,0);
            ObjectSet("PBACK"+IntegerToString(i),OBJPROP_WIDTH,5);
            
            push[i]=true;
            bofu[i]=iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))+1350*Point;
         }
          else ObjectSetText("Mile"+DoubleToStr(i), CharToStr(73), 29, "Wingdings", clrBlack);     
         ObjectSet("Mile"+DoubleToStr(i), OBJPROP_BACK, 0 );
         if (i>1 && Market[i]<0){
            ObjectCreate("MileLOPEZ"+IntegerToString(i), OBJ_ELLIPSE, 0, Time[i], Open[i-1]+250*Point, Time[i-2], Open[i-1]-250*Point);
            ObjectSetInteger(0,"MileLOPEZ"+IntegerToString(i),OBJPROP_COLOR,clrPowderBlue);
            ObjectSetDouble(0,"MileLOPEZ"+IntegerToString(i),OBJPROP_SCALE,.05);
            ObjectSet("MileLOPEZ"+IntegerToString(i),OBJPROP_WIDTH,8);
            ObjectSet("MileLOPEZ"+IntegerToString(i),OBJPROP_BACK,0);
          }
         }   
      }
      }
}   

if (Close[i]<iMA(NULL,0,21,0,MODE_EMA, PRICE_MEDIAN,i) && !house[i+1])   bofdp[i]=bofd[i];
if (Close[i]>iMA(NULL,0,21,0,MODE_EMA, PRICE_MEDIAN,i) && (push[i+1] || push[i+2] || push[i+3]) &&!house[i+2]) bofup[i]=bofu[i];

if (Low[i]<bofd[i] && Close[i]>bofd[i+1] && Low[i]<env_d[i]){
          ObjectCreate("Miless"+DoubleToStr(i), OBJ_TEXT, 0, Time[i], Low[i]+5900*Point); 
          ObjectSetText("Miless"+DoubleToStr(i), "TGT:"+DoubleToStr(NormalizeDouble(Low[i]+4600*Point,4),4) , 29, "Impact", clrDarkGreen);
        }
        
if (High[i]>bofu[i] && Close[i]<bofu[i+1] && High[i]>env_u[i]){
          ObjectCreate("Miless"+DoubleToStr(i), OBJ_TEXT, 0, Time[i], High[i]-3900*Point); 
          ObjectSetText("Miless"+DoubleToStr(i), "TGT:"+DoubleToStr(NormalizeDouble(High[i]-4700*Point,4),4) , 29, "Impact", clrCrimson);
        }        
        


}
 


    deletetxt1("Batch");
    for(i=lookback; i>=0; i--){
          ObjectCreate("Batch"+DoubleToStr(i), OBJ_TEXT, 1, Time[i], 50); 
          if (Market[i]<0) ObjectSetText("Batch"+DoubleToStr(i), CharToStr(174), 16, "Wingdings", Tomato); 
          else if (Market[i]>0)  ObjectSetText("Batch"+DoubleToStr(i), CharToStr(174), 16, "Wingdings", SpringGreen);
          else ObjectSetText("Batch"+DoubleToStr(i), CharToStr(174), 16, "Wingdings", Yellow);
          ObjectSet("Batch"+DoubleToStr(i),OBJPROP_BACK, 1);
    }


deletetxt1("Penalisation");
deletetxt1("Quarter");
deletetxt1("Heat");


               ObjectCreate( "Penalisation"+IntegerToString(i), OBJ_TREND, 0,  Time[1], AxelU[0] ,  Time[0], AxelU[0] );
               ObjectSet("Penalisation"+IntegerToString(i), OBJPROP_COLOR, clrCadetBlue );
               ObjectSet("Penalisation"+IntegerToString(i), OBJPROP_WIDTH, 3 );
               ObjectSet("Penalisation"+IntegerToString(i), OBJPROP_RAY_RIGHT, true );
               ObjectSet("Penalisation"+IntegerToString(i), OBJPROP_STYLE, 1 );


               ObjectCreate( "Penalisations"+IntegerToString(i), OBJ_TREND, 0,  Time[1], AxelL[0],  Time[0], AxelL[0] );
               ObjectSet("Penalisations"+IntegerToString(i), OBJPROP_COLOR, clrCadetBlue );
               ObjectSet("Penalisations"+IntegerToString(i), OBJPROP_WIDTH, 3 );
               ObjectSet("Penalisations"+IntegerToString(i), OBJPROP_RAY_RIGHT, true );
               ObjectSet("Penalisations"+IntegerToString(i), OBJPROP_STYLE, 1 );
               
                        ObjectCreate( "Penalisationz"+IntegerToString(i), OBJ_TREND, 0,  Time[1], AxelU1[0],  Time[0], AxelU1[0] );
               ObjectSet("Penalisationz"+IntegerToString(i), OBJPROP_COLOR, clrOrangeRed );
               ObjectSet("Penalisationz"+IntegerToString(i), OBJPROP_WIDTH, 3 );
               ObjectSet("Penalisationz"+IntegerToString(i), OBJPROP_RAY_RIGHT, true );
               ObjectSet("Penalisationz"+IntegerToString(i), OBJPROP_STYLE, 1 );



   if (embedded[0]) { ObjectCreate("Quarter"+9,OBJ_LABEL,1, 0,0);
  ObjectSet("Quarter"+9,OBJPROP_CORNER,3);
    ObjectSet("Quarter"+9,OBJPROP_XDISTANCE,330);
  ObjectSet("Quarter"+9,OBJPROP_YDISTANCE,60);
  ObjectSet("Quarter"+9,OBJPROP_COLOR,clrBlue); 
  ObjectSetText("Quarter"+9,"EMBEDDED!!!",19,"Arial Black");}


////embedded oversold PUSHING below the envelope
if (embedded[0] && iLow(symbol,10080,1)<AxelHL[1] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<25 && iLow(symbol,10080,1)<iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_LOWER,1)){
   
        ObjectCreate("Heat", OBJ_ELLIPSE, 0, Time[2], iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_LOWER,1)+330*Point, Time[0], iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_LOWER,1)-330*Point);
        ObjectSetInteger(0,"Heat",OBJPROP_COLOR,clrCrimson);
         ObjectSetDouble(0,"Heat",OBJPROP_SCALE,.015);
        ObjectSet("Heat",OBJPROP_BACK,0);
        ObjectSet("Heat",OBJPROP_WIDTH,2);
   
   ObjectCreate("QuarterWWWW", OBJ_TEXT, 0, Time[0],iLow(symbol,10080,1)-500*Point+.0022); 
                     ObjectSetText("QuarterWWWW", "                                  "+DoubleToString(NormalizeDouble(iLow(symbol,10080,1)-600*Point,4),4)+" - ANY", 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWW____", OBJ_TEXT, 0, Time[0], iLow(symbol,10080,1)-500*Point+.0022); 
                     ObjectSetText("QuarterWWW____", "                                 "+DoubleToString(NormalizeDouble(iLow(symbol,10080,1)-600*Point,4),4)+" - ANY", 12, "Arial Black", clrMagenta);
}


////embedded oversold going below the envelope
else if (embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<25 && iLow(symbol,10080,1)<iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_LOWER,1)){
   
        ObjectCreate("Heat", OBJ_ELLIPSE, 0, Time[2], iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_LOWER,1)+330*Point, Time[0], iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_LOWER,1)-330*Point);
        ObjectSetInteger(0,"Heat",OBJPROP_COLOR,clrCrimson);
         ObjectSetDouble(0,"Heat",OBJPROP_SCALE,.015);
        ObjectSet("Heat",OBJPROP_BACK,0);
        ObjectSet("Heat",OBJPROP_WIDTH,2);
   
   ObjectCreate("QuarterWWWW", OBJ_TEXT, 0, Time[0],iLow(symbol,10080,1)-300*Point+.0022); 
                     ObjectSetText("QuarterWWWW", "                                  "+DoubleToString(NormalizeDouble(iLow(symbol,10080,1)-300*Point,4),4)+", "+DoubleToString(NormalizeDouble(iLow(symbol,10080,1)-400*Point,4),4), 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWW____.", OBJ_TEXT, 0, Time[0], iLow(symbol,10080,1)-300*Point+.0022); 
                     ObjectSetText("QuarterWWW____.", "                                 "+DoubleToString(NormalizeDouble(iLow(symbol,10080,1)-300*Point,4),4)+", "+DoubleToString(NormalizeDouble(iLow(symbol,10080,1)-400*Point,4),4), 12, "Arial Black", clrMagenta);
}
///embedded oversold beat of last swing low
if (embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<25 && iLow(symbol,10080,1)>iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_LOWER,1)){
   ObjectCreate("QuarterWWWW,", OBJ_TEXT, 0, Time[0],iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-20*Point+.0022); 
                     ObjectSetText("QuarterWWWW,", "                                  "+DoubleToString(NormalizeDouble(iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-20*Point,4),4)+", ("+DoubleToString(NormalizeDouble(iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-100*Point,4),4)+")", 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWW____,", OBJ_TEXT, 0, Time[0], iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-20*Point+.0022); 
                     ObjectSetText("QuarterWWW____,", "                                 "+DoubleToString(NormalizeDouble(iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-20*Point,4),4)+", ("+DoubleToString(NormalizeDouble(iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-100*Point,4),4)+")", 12, "Arial Black", clrMagenta);
}

////embedded oversold push to the upside
if (embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<25){
   ObjectCreate("QuarterWWWWW", OBJ_TEXT, 0, Time[0],LowBuffer[1]+300*Point+.0022); 
                     ObjectSetText("QuarterWWWWW", "                                  "+DoubleToString(NormalizeDouble(LowBuffer[1]+300*Point,4),4)+", ("+DoubleToString(NormalizeDouble(LowBuffer[1]+400*Point,4),4)+")", 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWWW____?", OBJ_TEXT, 0, Time[0], LowBuffer[1]+300*Point+.0022); 
                     ObjectSetText("QuarterWWWW____?", "                                 "+DoubleToString(NormalizeDouble(LowBuffer[1]+300*Point,4),4)+", ("+DoubleToString(NormalizeDouble(LowBuffer[1]+400*Point,4),4)+")", 12, "Arial Black", clrMagenta);
}

///////embedded overbought with weekly low outside the envelope
if (embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>75 && iLow(symbol,10080,1)>iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_HIGH,1)){
   ObjectCreate("QuarterWWWW&", OBJ_TEXT, 0, Time[0],iHigh(symbol,10080,1)+900*Point+.0022); 
                     ObjectSetText("QuarterWWWW&", "                                  "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,1)+900*Point,4),4), 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWW____&", OBJ_TEXT, 0, Time[0], iHigh(symbol,10080,1)+900*Point+.0022); 
                     ObjectSetText("QuarterWWW____&", "                                 "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,1)+900*Point,4),4), 12, "Arial Black", clrMagenta);
}

///////embedded overbought going above the envelope
if (embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>75 && iHigh(symbol,10080,1)>iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_HIGH,1)){
   ObjectCreate("QuarterWWWW'", OBJ_TEXT, 0, Time[0],iHigh(symbol,10080,1)+350*Point+.0022); 
                     ObjectSetText("QuarterWWWW'", "                                  "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,1)+350*Point,4),4), 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWW____'", OBJ_TEXT, 0, Time[0], iHigh(symbol,10080,1)+350*Point+.0022); 
                     ObjectSetText("QuarterWWW____'", "                                 "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,1)+350*Point,4),4), 12, "Arial Black", clrMagenta);
}

///embedded overbought beat of last swing high
if (embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>75 && iHigh(symbol,10080,1)<iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_HIGH,1)){
   ObjectCreate("QuarterWWWW:", OBJ_TEXT, 0, Time[0],iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+100*Point+.0022); 
                     ObjectSetText("QuarterWWWW:", "                                  "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+100*Point,4),4), 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWW____:", OBJ_TEXT, 0, Time[0], iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+100*Point+.0022); 
                     ObjectSetText("QuarterWWW____:", "                                 "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+100*Point,4),4), 12, "Arial Black", clrMagenta);
}

////embedded overbought push to the downside
if (embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>75){
   ObjectCreate("QuarterWWWWW", OBJ_TEXT, 0, Time[0],HighBuffer2[1]-300*Point+.0022); 
                     ObjectSetText("QuarterWWWWW", "                                  "+DoubleToString(NormalizeDouble(HighBuffer2[1]-300*Point,4),4)+", ("+DoubleToString(NormalizeDouble(HighBuffer2[1]-400*Point,4),4)+")", 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWWW____", OBJ_TEXT, 0, Time[0], HighBuffer2[1]-300*Point+.0022); 
                     ObjectSetText("QuarterWWWW____", "                                 "+DoubleToString(NormalizeDouble(HighBuffer2[1]-300*Point,4),4)+", ("+DoubleToString(NormalizeDouble(HighBuffer2[1]-400*Point,4),4)+")", 12, "Arial Black", clrMagenta);
}


///not embedded going up - beat of last swing high
if (!embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>25 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>=iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,1)){
   ObjectCreate("QuarterWWWW..", OBJ_TEXT, 0, Time[0],iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+300*Point+.0022); 
                     ObjectSetText("QuarterWWWW..", "                                  "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+300*Point,4),4)+", "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+400*Point,4),4), 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWW____..", OBJ_TEXT, 0, Time[0], iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+300*Point+.0022); 
                     ObjectSetText("QuarterWWW____..", "                                 "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+300*Point,4),4)+", "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+400*Point,4),4), 12, "Arial Black", clrMagenta);
}

///not embedded going up - push on the downside
if (!embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>25 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>=iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,1)){
 ObjectCreate("QuarterWWWWW", OBJ_TEXT, 0, Time[0],HighBuffer2[1]-100*Point+.0022); 
                     ObjectSetText("QuarterWWWWW", "                                     "+DoubleToString(NormalizeDouble(HighBuffer2[1]-100*Point,4),4)+", ("+DoubleToString(NormalizeDouble(HighBuffer2[1]-100*Point,4),4)+")", 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWWW____", OBJ_TEXT, 0, Time[0], HighBuffer2[1]-100*Point+.0022); 
                     ObjectSetText("QuarterWWWW____", "                                    "+DoubleToString(NormalizeDouble(HighBuffer2[1]-100*Point,4),4)+", ("+DoubleToString(NormalizeDouble(HighBuffer2[1]-100*Point,4),4)+")", 12, "Arial Black", clrMagenta);
}



///not embedded going down - beat of last swing low
if (!embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<75 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<=iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,1)){
   ObjectCreate("QuarterWWWW!", OBJ_TEXT, 0, Time[0],iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-160*Point+.0022); 
                     ObjectSetText("QuarterWWWW!", "                                  "+DoubleToString(NormalizeDouble(iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-160*Point,4),4)+", "+DoubleToString(NormalizeDouble(iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-260*Point,4),4), 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWW____!", OBJ_TEXT, 0, Time[0], iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-160*Point+.0022); 
                     ObjectSetText("QuarterWWW____!", "                                 "+DoubleToString(NormalizeDouble(iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-160*Point,4),4)+", "+DoubleToString(NormalizeDouble(iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-260*Point,4),4), 12, "Arial Black", clrMagenta);
}

///not embedded going down - push on the upside
if (!embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<75 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<=iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,1)){
 ObjectCreate("QuarterWWWWW", OBJ_TEXT, 0, Time[0],LowBuffer[1]+100*Point+.0022); 
                     ObjectSetText("QuarterWWWWW", "                                     "+DoubleToString(NormalizeDouble(LowBuffer[1]+100*Point,4),4), 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWWW____", OBJ_TEXT, 0, Time[0], LowBuffer[1]+100*Point+.0022); 
                     ObjectSetText("QuarterWWWW____", "                                    "+DoubleToString(NormalizeDouble(LowBuffer[1]+100*Point,4),4), 12, "Arial Black", clrMagenta);
}




if (Close[0]>(db14+dt14)/2){

ObjectCreate("QuarterWWW", OBJ_TEXT, 0, Time[0],overbought+.0022); 
                     ObjectSetText("QuarterWWW", "                                  "+DoubleToString(NormalizeDouble(overbought,4),4)+" OB", 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWW____", OBJ_TEXT, 0, Time[0], overbought+.0022); 
                     ObjectSetText("QuarterWW____", "                                 "+DoubleToString(NormalizeDouble(overbought,4),4)+" OB", 12, "Arial Black", clrMagenta);

}


if (Close[0]<(db14+dt14)/2){
ObjectCreate("QuarterWW", OBJ_TEXT, 0, Time[0],oversold+.0022); 
                     ObjectSetText("QuarterWW", "                                  "+DoubleToString(NormalizeDouble(oversold,4),4)+" OS", 12, "Arial Black", clrBlack);
ObjectCreate("QuarterW____", OBJ_TEXT, 0, Time[0], oversold+.0022); 
                     ObjectSetText("QuarterW____", "                                 "+DoubleToString(NormalizeDouble(oversold,4),4)+" OS", 12, "Arial Black", clrMagenta);


 ObjectCreate("QuarterWWWWWZ", OBJ_TEXT, 0, Time[0],LowBuffer2[0]+.0022); 
                     ObjectSetText("QuarterWWWWWZ", "                                  "+DoubleToString(NormalizeDouble(LowBuffer2[0],4),4), 12, "Arial Black", clrWhite);
ObjectCreate("QuarterWWWWZ____", OBJ_TEXT, 0, Time[0], LowBuffer2[0]+.0022); 
                     ObjectSetText("QuarterWWWWZ____", "                                    "+DoubleToString(NormalizeDouble(LowBuffer2[0],4),4), 12, "Arial Black", clrBlack);
}



ObjectCreate("QuarterW", OBJ_TEXT, 0, Time[0], AxelU1[0]+.0022); 
                     ObjectSetText("QuarterW", "                                  "+DoubleToString(NormalizeDouble(AxelU1[0],4),4)+" MID PT.", 12, "Arial Black", clrBlack);
ObjectCreate("Quarter____", OBJ_TEXT, 0, Time[0], AxelU1[0]+.0022); 
                     ObjectSetText("Quarter____", "                                 "+DoubleToString(NormalizeDouble(AxelU1[0],4),4)+" MID PT.", 12, "Arial Black", clrMagenta);


if (Market[0]<0){

ObjectCreate("QuarterD", OBJ_TEXT, 0, Time[0], env_d[0]+.0022); 
                     ObjectSetText("QuarterD", "                                  "+DoubleToString(NormalizeDouble(env_d[0],4),4)+" TGT (2.14)", 12, "Arial Black", clrWhite);
ObjectCreate("QuarterD____", OBJ_TEXT, 0, Time[0], env_d[0]+.0022); 
                     ObjectSetText("QuarterD____", "                                 "+DoubleToString(NormalizeDouble(env_d[0],4),4)+" TGT (2.14)", 12, "Arial Black", clrBlue);

ObjectCreate("QuarterX", OBJ_TEXT, 1, Time[0], 50+.0022); 
                     ObjectSetText("QuarterX", "                                  BAER MARKET", 12, "Arial Black", clrBlack);
ObjectCreate("QuarterX____", OBJ_TEXT, 1, Time[0], 50+.0022); 
                     ObjectSetText("QuarterX____", "                                 BAER MARKET", 12, "Arial Black", clrMediumVioletRed);


ObjectCreate("QuarterF", OBJ_TEXT, 0, Time[0], iEnvelopes(symbol,0,14,0,0,0,3.5,MODE_LOWER,0)+.0022); 
                     ObjectSetText("QuarterF", "                                  "+DoubleToString(NormalizeDouble(iEnvelopes(symbol,0,14,0,0,0,3.5,MODE_LOWER,0),4),4)+" TGT (3.14)", 12, "Arial Black", clrWhite);
ObjectCreate("QuarterF____", OBJ_TEXT, 0, Time[0], iEnvelopes(symbol,0,14,0,0,0,3.5,MODE_LOWER,0)+.0022); 
                     ObjectSetText("QuarterF____", "                                 "+DoubleToString(NormalizeDouble(iEnvelopes(symbol,0,14,0,0,0,3.5,MODE_LOWER,0),4),4)+" TGT (3.14)", 12, "Arial Black", clrBlue);


}

if (Market[0]>0){

ObjectCreate("QuarterD", OBJ_TEXT, 0, Time[0], env_u[0]+.0022); 
                     ObjectSetText("QuarterD", "                                  "+DoubleToString(NormalizeDouble(env_u[0],4),4)+" TGT (0.214)", 12, "Arial Black", clrWhite);
ObjectCreate("QuarterD____", OBJ_TEXT, 0, Time[0], env_u[0]+.0022); 
                     ObjectSetText("QuarterD____", "                                 "+DoubleToString(NormalizeDouble(env_u[0],4),4)+" TGT (0.214)", 12, "Arial Black", clrBlue);

ObjectCreate("QuarterX", OBJ_TEXT, 1, Time[0], 50+.0022); 
                     ObjectSetText("QuarterX", "                                  BULK MARKET", 12, "Arial Black", clrBlack);
ObjectCreate("QuarterX____", OBJ_TEXT, 1, Time[0], 50+.0022); 
                     ObjectSetText("QuarterX____", "                                 BULK MARKET", 12, "Arial Black", clrTeal);
                     

ObjectCreate("QuarterF", OBJ_TEXT, 0, Time[0], iEnvelopes(symbol,0,14,0,0,0,3.5,MODE_UPPER,0)+.0022); 
                     ObjectSetText("QuarterF", "                                  "+DoubleToString(NormalizeDouble(iEnvelopes(symbol,0,14,0,0,0,3.5,MODE_UPPER,0),4),4)+" TGT (0.314)", 12, "Arial Black", clrWhite);
ObjectCreate("QuarterF____", OBJ_TEXT, 0, Time[0], iEnvelopes(symbol,0,14,0,0,0,3.5,MODE_UPPER,0)+.0022); 
                     ObjectSetText("QuarterF____", "                                 "+DoubleToString(NormalizeDouble(iEnvelopes(symbol,0,14,0,0,0,3.5,MODE_UPPER,0),4),4)+" TGT (0.314)", 12, "Arial Black", clrBlue);

                     
}


//ObjectCreate("Quarter_", OBJ_TEXT, 0, Time[0], AxelU[0]+.0014); 
//if (iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,2)<25 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,1)<25 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<25 && Close[0]<iMA(symbol,0,21,0,MODE_EMA,PRICE_MEDIAN,0)+200*Point) 
//                     ObjectSetText("Quarter_", "                                 "+DoubleToString(NormalizeDouble(AxelU[0],4),4)+" NO SELL ZONE", 12, "Arial Black", clrNONE);
//                     else ObjectSetText("Quarter_", "                                 "+DoubleToString(NormalizeDouble(AxelU[0],4),4)+" SELL ZONE 1", 12, "Arial Black", clrNavy);

//ObjectCreate("Quarter", OBJ_TEXT, 0, Time[0], AxelL[0]+.0002); 
//                     ObjectSetText("Quarter", "                                 "+DoubleToString(NormalizeDouble(AxelL[0],4),4)+" BUY ZONE 1", 12, "Arial Black", clrNavy);



//ObjectCreate("Quarter__", OBJ_TEXT, 0, Time[0], AxelHU[0]+.0014); 
//if (iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,2)<25 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,1)<25 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<25 && Close[0]<iMA(symbol,0,21,0,MODE_EMA,PRICE_MEDIAN,0)+200*Point) 
//ObjectSetText("Quarter__", "                                 "+DoubleToString(NormalizeDouble(AxelHU[0],4),4)+" SELL ZONE 2", 12, "Arial Black", clrCrimson);
//                     else ObjectSetText("Quarter__", "  NO SHORTING BEYOND         "+DoubleToString(NormalizeDouble(AxelHU[0],4),4), 12, "Impact", clrGreen);

//ObjectCreate("Quarter___", OBJ_TEXT, 0, Time[0], AxelHL[0]+.0002); 
//if (iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,2)>75 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,1)>75 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>75 && Close[0]>iMA(symbol,0,21,0,MODE_EMA,PRICE_MEDIAN,0)-400*Point) 
//ObjectSetText("Quarter___", "  DOUBLE BUY          "+DoubleToString(NormalizeDouble(AxelHL[0],4),4), 12, "Arial Black", clrGreen);
//else                 ObjectSetText("Quarter___", "                                 "+DoubleToString(NormalizeDouble(AxelHL[0],4),4)+" NO BUY ZONE", 12, "Arial Black", clrNONE);



//ObjectCreate("Quarter_1___", OBJ_TEXT, 0, Time[0], iBands(symbol,0,18,2,4,PRICE_LOW,MODE_LOWER,0)+.0002); 
//if (iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,2)>75 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,1)>75 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>75 && Close[0]>iMA(symbol,0,21,0,MODE_EMA,PRICE_MEDIAN,0)-400*Point) 
//ObjectSetText("Quarter_1___", "  TRIPLE BUY          "+DoubleToString(NormalizeDouble(iBands(symbol,0,18,2,4,PRICE_LOW,MODE_LOWER,0),4),4), 12, "Arial Black", clrGreen);
//else                 ObjectSetText("Quarter_1___", "                                 "+DoubleToString(NormalizeDouble(iBands(symbol,0,18,2,4,PRICE_LOW,MODE_LOWER,0),4),4)+" NO BUY ZONE", 12, "Arial Black", clrNONE);


deletetxt1("DENTURE");


  ObjectCreate("DENTURE"+1,OBJ_LABEL,0, 0,0);
    ObjectSetText("DENTURE"+1,"S1-2.5: "+NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,5,0))-2500*Point,4),11,"Arial Black");
  ObjectSet("DENTURE"+1,OBJPROP_CORNER,3);
    ObjectSet("DENTURE"+1,OBJPROP_XDISTANCE,190);
  ObjectSet("DENTURE"+1,OBJPROP_YDISTANCE,67);
 ObjectSet("DENTURE"+1,OBJPROP_COLOR,clrMaroon);

  ObjectCreate("DENTURE"+2,OBJ_LABEL,0, 0,0);
    ObjectSetText("DENTURE"+2,"S2-3.3: "+NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,5,0))-3300*Point,4),11,"Arial Black");
  ObjectSet("DENTURE"+2,OBJPROP_CORNER,3);
    ObjectSet("DENTURE"+2,OBJPROP_XDISTANCE,190);
  ObjectSet("DENTURE"+2,OBJPROP_YDISTANCE,47);
ObjectSet("DENTURE"+2,OBJPROP_COLOR,clrMaroon);
    
      ObjectCreate("DENTURE"+3,OBJ_LABEL,0, 0,0);
    ObjectSetText("DENTURE"+3,"S3-4.15: "+NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,5,0))-4150*Point,4),11,"Arial Black");
  ObjectSet("DENTURE"+3,OBJPROP_CORNER,3);
    ObjectSet("DENTURE"+3,OBJPROP_XDISTANCE,190);
  ObjectSet("DENTURE"+3,OBJPROP_YDISTANCE,27);
 ObjectSet("DENTURE"+3,OBJPROP_COLOR,clrMaroon);


  ObjectCreate("DENTURE"+4,OBJ_LABEL,0, 0,0);
 ObjectSetText("DENTURE"+4,"R1-2.5: "+NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,5,0))+2500*Point,4),11,"Arial Black");    
  ObjectSet("DENTURE"+4,OBJPROP_CORNER,3);
    ObjectSet("DENTURE"+4,OBJPROP_XDISTANCE,30);
  ObjectSet("DENTURE"+4,OBJPROP_YDISTANCE,67);
  ObjectSet("DENTURE"+4,OBJPROP_COLOR,clrBlue);

  ObjectCreate("DENTURE"+5,OBJ_LABEL,0, 0,0);
   ObjectSetText("DENTURE"+5,"R2-3.3: "+NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,5,0))+3300*Point,4),11,"Arial Black");    
  ObjectSet("DENTURE"+5,OBJPROP_CORNER,3);
    ObjectSet("DENTURE"+5,OBJPROP_XDISTANCE,30);
  ObjectSet("DENTURE"+5,OBJPROP_YDISTANCE,47);
  ObjectSet("DENTURE"+5,OBJPROP_COLOR,clrBlue);
    
      ObjectCreate("DENTURE"+6,OBJ_LABEL,0, 0,0);
  ObjectSetText("DENTURE"+6,"R3-4.15: "+NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,5,0))+4150*Point,4),11,"Arial Black");    
  ObjectSet("DENTURE"+6,OBJPROP_CORNER,3);
    ObjectSet("DENTURE"+6,OBJPROP_XDISTANCE,30);
  ObjectSet("DENTURE"+6,OBJPROP_YDISTANCE,27);
  ObjectSet("DENTURE"+6,OBJPROP_COLOR,clrBlue);


  ObjectCreate("DENTURE"+7,OBJ_LABEL,0, 0,0);
  ObjectSetText("DENTURE"+7,"Echo in 3WKS MAX",11,"Arial Black");    
  ObjectSet("DENTURE"+7,OBJPROP_CORNER,3);
  ObjectSet("DENTURE"+7,OBJPROP_XDISTANCE,30);
  ObjectSet("DENTURE"+7,OBJPROP_YDISTANCE,107);
  ObjectSet("DENTURE"+7,OBJPROP_COLOR,clrBlue);

  ObjectCreate("DENTURE"+8,OBJ_LABEL,0, 0,0);
  ObjectSetText("DENTURE"+8,"3rd/4th WK R1/S1 MIN",11,"Arial Black");    
  ObjectSet("DENTURE"+8,OBJPROP_CORNER,3);
  ObjectSet("DENTURE"+8,OBJPROP_XDISTANCE,30);
  ObjectSet("DENTURE"+8,OBJPROP_YDISTANCE,87);
  ObjectSet("DENTURE"+8,OBJPROP_COLOR,clrBlue);


  ObjectCreate("DENTURE"+9,OBJ_LABEL,0, 0,0);
  ObjectSetText("DENTURE"+9,"4x3 BRK 1st leg 400-500",11,"Arial Black");    
  ObjectSet("DENTURE"+9,OBJPROP_CORNER,3);
  ObjectSet("DENTURE"+9,OBJPROP_XDISTANCE,30);
  ObjectSet("DENTURE"+9,OBJPROP_YDISTANCE,127);
  ObjectSet("DENTURE"+9,OBJPROP_COLOR,clrBlue);


   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);
}  }

---

I also had a one liner about Napoleon in one of my books in Hungarian. For my chance Magyar reader, here’s what I would like to be remebered by:

Kenegetném, de nem találom a Bonaparte napolajom.

Have a Santastic Christmas!

Also, for the 3rd crack, it seems like you do need 2 consecutive closes.

Baby, don’t you want to kill them with your gun…

War has never been so much fun,

Lying in your uniform, dying in the sun…

So, to answer the question, who’s-where-the-why-what, here are the clues.

The enemy at the Guard Rails is militia. Shotguns for size.

The second line of defense is the municipals in the E207 trench (orange + addes white highlights). They roll with cannons.

Not a financial advice of course, just trying to prop up my own reaction time.

You’re gonna get a kick out of this. Only works on the downside. I plot “count 25, the lowest close minus 4 pips is the cover level” when the second progression low is made. Need to disregard the first couple of candles.

The close, 1.09394 (black arrow) suggested a buy at 1.09354. The actual low was 1.09353.

The overhead supply is at arm’s length. A spinner printed. Going lower and coming back up they might throw some kerosine on the fire at the mid point.

Lil life of the stock picker…

A self proclaimed “institute” is getting extra loud again. If you listen in on one of your 60k priced courses – I shit you not – this is what you get under “idea generation”. Ford is coming out with new Mustang. They like to buy leather seats with it. By call options on a random leather factory.

You would also have to surrender more than half of your profits, because they like to live for free lavishly (Singapore ain’t cheap), and also inside info costs money. We’re talking ex Goldman Sachs here.

Those are the edges at your disposal. Making up fairy tales or going full blown criminal.

Now, with Forex you can have an edge by accurately classifying the market type based on the counter directional volatility (see CounterForce).

One thing you definitely don’t want to do is chasing a parabolic market when the daily max consolidation level is keep on moving away from you.

After the 3 cracks of the one side muted volatility, it is unsafe even thinking about a continuation.

Notice how the previous parabolic run only managed to find footing in this low volume environment only after 120-pips of a break, an RSI2 reversal divergence and all returns into the Bollinger were dragged out regressions not triggering the start of a downside progression count and nullifying the upside count the second time around.

Yes, there’s such thing as an F0 market, where the counter dir vol does not reach 40 pips, still it manages to get ouside the BB – this is not it, for this was right after another parabolic phase.

To answer the question of “are you in a push” without getting enegy measurements involved, the breach (and a decisive close outside) of the weekly 14-sample window envelope and 50% larger range than the previous week are good telltales.

Weekly R1 is 1.0973. White hand = fake push, did not manage to close outside far enough.

bjectCreate("DENTURE"+4,OBJ_LABEL,0, 0,0);
 ObjectSetText("DENTURE"+4,"R1-2.5: "+NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,5,0))+2500*Point,4),11,"Arial Black");    
  ObjectSet("DENTURE"+4,OBJPROP_CORNER,3);
    ObjectSet("DENTURE"+4,OBJPROP_XDISTANCE,30);
  ObjectSet("DENTURE"+4,OBJPROP_YDISTANCE,67);
  ObjectSet("DENTURE"+4,OBJPROP_COLOR,clrBlue);

No Michael, nothing has been started on the upside yet and you’re just a wannabe anyways.

Look where the price would find its rest today (yellow) and tomorrow by the close (brown #). You may be able to postpone these, but not indefinitely.

So what is this market doing currently?

It just made the opening move, the first progression low down.

…and is back testing the weekly R1 one more time.

Break down delayed once again. Always around the Guard Rail (chartreuse).

extern double FSize=32;
double FMax = FSize*6/5;

guardrailu[i] =  iMA(symbol,0,414,0,MODE_EMA, PRICE_HIGH,i)+FMax*10*Point;
guardraild[i] =  iMA(symbol,0,414,0,MODE_EMA, PRICE_LOW,i)-FMax*10*Point;

////embedded oversold PUSHING below the envelope
if (embedded[0] && iLow(symbol,10080,1)<AxelHL[1] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<25 && iLow(symbol,10080,1)<iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_LOWER,1)){
   
        ObjectCreate("Heat", OBJ_ELLIPSE, 0, Time[2], iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_LOWER,1)+330*Point, Time[0], iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_LOWER,1)-330*Point);
        ObjectSetInteger(0,"Heat",OBJPROP_COLOR,clrCrimson);
         ObjectSetDouble(0,"Heat",OBJPROP_SCALE,.015);
        ObjectSet("Heat",OBJPROP_BACK,0);
        ObjectSet("Heat",OBJPROP_WIDTH,2);
   
   ObjectCreate("QuarterWWWW", OBJ_TEXT, 0, Time[0],iLow(symbol,10080,1)-500*Point+.0022); 
                     ObjectSetText("QuarterWWWW", "                                  "+DoubleToString(NormalizeDouble(iLow(symbol,10080,1)-600*Point,4),4)+" - ANY", 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWW____", OBJ_TEXT, 0, Time[0], iLow(symbol,10080,1)-500*Point+.0022); 
                     ObjectSetText("QuarterWWW____", "                                 "+DoubleToString(NormalizeDouble(iLow(symbol,10080,1)-600*Point,4),4)+" - ANY", 12, "Arial Black", clrMagenta);
}


////embedded oversold going below the envelope
else if (embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<25 && iLow(symbol,10080,1)<iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_LOWER,1)){
   
        ObjectCreate("Heat", OBJ_ELLIPSE, 0, Time[2], iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_LOWER,1)+330*Point, Time[0], iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_LOWER,1)-330*Point);
        ObjectSetInteger(0,"Heat",OBJPROP_COLOR,clrCrimson);
         ObjectSetDouble(0,"Heat",OBJPROP_SCALE,.015);
        ObjectSet("Heat",OBJPROP_BACK,0);
        ObjectSet("Heat",OBJPROP_WIDTH,2);
   
   ObjectCreate("QuarterWWWW", OBJ_TEXT, 0, Time[0],iLow(symbol,10080,1)-300*Point+.0022); 
                     ObjectSetText("QuarterWWWW", "                                  "+DoubleToString(NormalizeDouble(iLow(symbol,10080,1)-300*Point,4),4)+", "+DoubleToString(NormalizeDouble(iLow(symbol,10080,1)-400*Point,4),4), 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWW____.", OBJ_TEXT, 0, Time[0], iLow(symbol,10080,1)-300*Point+.0022); 
                     ObjectSetText("QuarterWWW____.", "                                 "+DoubleToString(NormalizeDouble(iLow(symbol,10080,1)-300*Point,4),4)+", "+DoubleToString(NormalizeDouble(iLow(symbol,10080,1)-400*Point,4),4), 12, "Arial Black", clrMagenta);
}
///embedded oversold beat of last swing low
if (embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<25 && iLow(symbol,10080,1)>iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_LOWER,1)){
   ObjectCreate("QuarterWWWW,", OBJ_TEXT, 0, Time[0],iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-20*Point+.0022); 
                     ObjectSetText("QuarterWWWW,", "                                  "+DoubleToString(NormalizeDouble(iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-20*Point,4),4)+", ("+DoubleToString(NormalizeDouble(iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-100*Point,4),4)+")", 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWW____,", OBJ_TEXT, 0, Time[0], iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-20*Point+.0022); 
                     ObjectSetText("QuarterWWW____,", "                                 "+DoubleToString(NormalizeDouble(iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-20*Point,4),4)+", ("+DoubleToString(NormalizeDouble(iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-100*Point,4),4)+")", 12, "Arial Black", clrMagenta);
}

////embedded oversold push to the upside
if (embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<25){
   ObjectCreate("QuarterWWWWW", OBJ_TEXT, 0, Time[0],LowBuffer[1]+300*Point+.0022); 
                     ObjectSetText("QuarterWWWWW", "                                  "+DoubleToString(NormalizeDouble(LowBuffer[1]+300*Point,4),4)+", ("+DoubleToString(NormalizeDouble(LowBuffer[1]+400*Point,4),4)+")", 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWWW____?", OBJ_TEXT, 0, Time[0], LowBuffer[1]+300*Point+.0022); 
                     ObjectSetText("QuarterWWWW____?", "                                 "+DoubleToString(NormalizeDouble(LowBuffer[1]+300*Point,4),4)+", ("+DoubleToString(NormalizeDouble(LowBuffer[1]+400*Point,4),4)+")", 12, "Arial Black", clrMagenta);
}

///////embedded overbought with weekly low outside the envelope
if (embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>75 && iLow(symbol,10080,1)>iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_HIGH,1)){
   ObjectCreate("QuarterWWWW&", OBJ_TEXT, 0, Time[0],iHigh(symbol,10080,1)+900*Point+.0022); 
                     ObjectSetText("QuarterWWWW&", "                                  "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,1)+900*Point,4),4), 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWW____&", OBJ_TEXT, 0, Time[0], iHigh(symbol,10080,1)+900*Point+.0022); 
                     ObjectSetText("QuarterWWW____&", "                                 "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,1)+900*Point,4),4), 12, "Arial Black", clrMagenta);
}

///////embedded overbought going above the envelope
if (embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>75 && iHigh(symbol,10080,1)>iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_HIGH,1)){
   ObjectCreate("QuarterWWWW'", OBJ_TEXT, 0, Time[0],iHigh(symbol,10080,1)+350*Point+.0022); 
                     ObjectSetText("QuarterWWWW'", "                                  "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,1)+350*Point,4),4), 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWW____'", OBJ_TEXT, 0, Time[0], iHigh(symbol,10080,1)+350*Point+.0022); 
                     ObjectSetText("QuarterWWW____'", "                                 "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,1)+350*Point,4),4), 12, "Arial Black", clrMagenta);
}

///embedded overbought beat of last swing high
if (embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>75 && iHigh(symbol,10080,1)<iEnvelopes(symbol,0,14,MODE_SMA,0,PRICE_CLOSE,2.0,MODE_HIGH,1)){
   ObjectCreate("QuarterWWWW:", OBJ_TEXT, 0, Time[0],iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+100*Point+.0022); 
                     ObjectSetText("QuarterWWWW:", "                                  "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+100*Point,4),4), 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWW____:", OBJ_TEXT, 0, Time[0], iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+100*Point+.0022); 
                     ObjectSetText("QuarterWWW____:", "                                 "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+100*Point,4),4), 12, "Arial Black", clrMagenta);
}

////embedded overbought push to the downside
if (embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>75){
   ObjectCreate("QuarterWWWWW", OBJ_TEXT, 0, Time[0],HighBuffer2[1]-300*Point+.0022); 
                     ObjectSetText("QuarterWWWWW", "                                  "+DoubleToString(NormalizeDouble(HighBuffer2[1]-300*Point,4),4)+", ("+DoubleToString(NormalizeDouble(HighBuffer2[1]-400*Point,4),4)+")", 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWWW____", OBJ_TEXT, 0, Time[0], HighBuffer2[1]-300*Point+.0022); 
                     ObjectSetText("QuarterWWWW____", "                                 "+DoubleToString(NormalizeDouble(HighBuffer2[1]-300*Point,4),4)+", ("+DoubleToString(NormalizeDouble(HighBuffer2[1]-400*Point,4),4)+")", 12, "Arial Black", clrMagenta);
}


///not embedded going up - beat of last swing high
if (!embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>25 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>=iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,1)){
   ObjectCreate("QuarterWWWW..", OBJ_TEXT, 0, Time[0],iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+300*Point+.0022); 
                     ObjectSetText("QuarterWWWW..", "                                  "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+300*Point,4),4)+", "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+400*Point,4),4), 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWW____..", OBJ_TEXT, 0, Time[0], iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+300*Point+.0022); 
                     ObjectSetText("QuarterWWW____..", "                                 "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+300*Point,4),4)+", "+DoubleToString(NormalizeDouble(iHigh(symbol,10080,iHighest(symbol,10080,MODE_HIGH,10,1))+400*Point,4),4), 12, "Arial Black", clrMagenta);
}

///not embedded going up - push on the downside
if (!embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>25 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)>=iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,1)){
 ObjectCreate("QuarterWWWWW", OBJ_TEXT, 0, Time[0],HighBuffer2[1]-100*Point+.0022); 
                     ObjectSetText("QuarterWWWWW", "                                     "+DoubleToString(NormalizeDouble(HighBuffer2[1]-100*Point,4),4)+", ("+DoubleToString(NormalizeDouble(HighBuffer2[1]-100*Point,4),4)+")", 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWWW____", OBJ_TEXT, 0, Time[0], HighBuffer2[1]-100*Point+.0022); 
                     ObjectSetText("QuarterWWWW____", "                                    "+DoubleToString(NormalizeDouble(HighBuffer2[1]-100*Point,4),4)+", ("+DoubleToString(NormalizeDouble(HighBuffer2[1]-100*Point,4),4)+")", 12, "Arial Black", clrMagenta);
}



///not embedded going down - beat of last swing low
if (!embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<75 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<=iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,1)){
   ObjectCreate("QuarterWWWW!", OBJ_TEXT, 0, Time[0],iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-160*Point+.0022); 
                     ObjectSetText("QuarterWWWW!", "                                  "+DoubleToString(NormalizeDouble(iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-160*Point,4),4)+", "+DoubleToString(NormalizeDouble(iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-260*Point,4),4), 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWW____!", OBJ_TEXT, 0, Time[0], iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-160*Point+.0022); 
                     ObjectSetText("QuarterWWW____!", "                                 "+DoubleToString(NormalizeDouble(iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-160*Point,4),4)+", "+DoubleToString(NormalizeDouble(iLow(symbol,10080,iLowest(symbol,10080,MODE_LOW,10,1))-260*Point,4),4), 12, "Arial Black", clrMagenta);
}

///not embedded going down - push on the upside
if (!embedded[0] && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<75 && iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,0)<=iStochastic(symbol,0,18,3,3,MODE_SMA,1,MODE_SIGNAL,1)){
 ObjectCreate("QuarterWWWWW", OBJ_TEXT, 0, Time[0],LowBuffer[1]+100*Point+.0022); 
                     ObjectSetText("QuarterWWWWW", "                                     "+DoubleToString(NormalizeDouble(LowBuffer[1]+100*Point,4),4), 12, "Arial Black", clrBlack);
ObjectCreate("QuarterWWWW____", OBJ_TEXT, 0, Time[0], LowBuffer[1]+100*Point+.0022); 
                     ObjectSetText("QuarterWWWW____", "                                    "+DoubleToString(NormalizeDouble(LowBuffer[1]+100*Point,4),4), 12, "Arial Black", clrMagenta);
}

…or… to The Emperor’s New Groove and Back. Trading is a bit funny currently due to the no volume environment.

Use your judgement:

As a reminder, the reversal zone’s levels:

Sell Beats: 1.1013, 1.1019 and shy of 1.1027.

I would disregard the 2x buy due to no volume.

The cannibal? Gotta beat the time with something, so these are some ideas.

The remaining references:

by the Silver Backed Gorilla in the big belly of Piano Falls.

So what did the fox say?

I said the opex close would be around the close that was made on the 30th of November.

How did I know that?

The current movement is about gaining strength for the next wave structure. You don’t always want to target this line, but after the end of an impulse structure it is your one and only clue.

The yellow line is the 12-sample close shifted. The brown number is day 11, so it is a projection for the following day to close at for maximum boost.

A volatility whip is a fast way of recharging energy. A slow cascade might take twice as long, but wave 1 would not start without energy packed on. This needs 4-5 more days of sideways movement to play back the 12-sample energy above 53, but a 59+ read would bring more guarantees for the next leg (Wave) making it to the Volatility Bracket. Yes, the volatiliy whip is a quick consolidation.

Sure, if only Elliott Wave had an A-B correction as an option, hmmm…

This brings up a valid point. When does it ever happrn that Wave1 gets opened in the same direction as Wave 5 was on the daily? Not very often. 1 out of 10 perhaps. Look at the lower green band, how much closer it is now! Tagging the low would also mean a touch down on it.

It’s the animal distilled in me.

It’s the edible cookies in me.

Can’t find the Joilena version of this on YouTube. Look for it on SoundCloud>

Also, the future does not have to look like it’s 1983 again.

I just added the plot to the Bands routine.

#property copyright   "Bands by Macdulio, (c) 2021"
#property link        "http://www.forexfore.blog"
#property description "Bands by Macdulio"
#property description "You don't defy the first day"
#property description "Passing through God."

#property indicator_chart_window
#property indicator_buffers 4
#property indicator_color1 LightSeaGreen
#property indicator_color2 LightSeaGreen
#property indicator_color3 LightSeaGreen
#property indicator_color4 Yellow

extern int lookback = 1000;
double ExtMovingBuffer[];
double ExtUpperBuffer[];
double ExtLowerBuffer[];
double E44[], Twelve[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//--- 1 additional buffer used for counting.
   IndicatorBuffers(3);
  // IndicatorDigits(Digits);
//--- middle line
   SetIndexStyle(0,DRAW_LINE,0,3,indicator_color1);
   SetIndexBuffer(0,ExtMovingBuffer);
   SetIndexLabel(0,"Bands SMA");
//--- upper band
   SetIndexStyle(1,DRAW_LINE,0,3,indicator_color2);
   SetIndexBuffer(1,ExtUpperBuffer);
   SetIndexLabel(1,"Bands Upper");
//--- lower band
   SetIndexStyle(2,DRAW_LINE,0,3,indicator_color3);
   SetIndexBuffer(2,ExtLowerBuffer);
   SetIndexLabel(2,"Bands Lower");
//--- Twelve Days of Terror
   SetIndexStyle(3,DRAW_LINE,0,3,indicator_color4);
   SetIndexBuffer(3,Twelve);
   SetIndexLabel(3,"Twelve Days");

   return(0);
  }
//+------------------------------------------------------------------+
//| Bollinger Bands                                                  |
//+------------------------------------------------------------------+
int start()
{
  ArrayResize(E44, Bars);
  ArrayInitialize(E44,EMPTY_VALUE);  
  ArrayResize(ExtMovingBuffer, Bars);
  ArrayInitialize(ExtMovingBuffer,0); 
   ArrayResize(ExtUpperBuffer, Bars);
  ArrayInitialize(ExtUpperBuffer,0); 
     ArrayResize(ExtLowerBuffer, Bars);
  ArrayInitialize(ExtLowerBuffer,0); 
  ArrayResize(Twelve, Bars);
  ArrayInitialize(Twelve,EMPTY_VALUE);  


   int i,j;
   string symbol = Symbol();
double std;

//---

// ArraySetAsSeries(E44,false);
 // ArraySetAsSeries(ExtMovingBuffer,false);
//    ArraySetAsSeries(ExtUpperBuffer,false);
//   ArraySetAsSeries(ExtLowerBuffer,false);
   
for (i=lookback; i>=0; i--){        E44[i]=iMA(symbol,0,44,0,MODE_EMA, PRICE_MEDIAN,i);
//Print(i," - ",E44[i]);
}


 
for (i=0; i<lookback; i++){  
      for (j=i; j<i+20; j++) 
      ExtMovingBuffer[i]=ExtMovingBuffer[i]+E44[j];
       ExtMovingBuffer[i]=ExtMovingBuffer[i]/20;
    //   Print("ExtMovingBuffer["+i+"]=",ExtMovingBuffer[i]);
   Twelve[i]=Close[i+11];
}      

deletetxt1("God");

          ObjectCreate("Goda", OBJ_TEXT, 0, Time[0], Close[11]+30*Point); 
          ObjectSetText("Goda","                                               "+DoubleToStr(NormalizeDouble(iClose(symbol,0,10),4),4)+" IRON CLS TOMO", 14, "Impact",  Maroon); 


 
   for (i=lookback-1; i>=0; i--)
   {  
 
      std = iStdDevOnArray(ExtMovingBuffer,0,10,0,0,i);                 
 
 //Print("std=",std);
      ExtUpperBuffer[i]=ExtMovingBuffer[i]+std;
      
    //  Print("ExtUpperBuffer["+i+"]=",ExtUpperBuffer[i]);
      ExtLowerBuffer[i]=ExtMovingBuffer[i]-std;
 
   if (High[i]>ExtMovingBuffer[i]+100*Point && Low[i]<ExtMovingBuffer[i]-100*Point && !(High[i+1]>ExtMovingBuffer[i+1] && Low[i+1]<ExtMovingBuffer[i+1]))
          ObjectCreate("God"+DoubleToStr(i), OBJ_TEXT, 0, Time[i], ExtMovingBuffer[i]+130*Point); 
          ObjectSetText("God"+DoubleToStr(i), "GOD DAY 1", 14, "Impact",  Maroon); 
        //  ObjectSetText("God"+DoubleToStr(i), OBJPROP_BACK,0);
   }  

   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);
}  }