The thrust achieved a lower high at the Weekly R1.

The upside is over for now.

I made the HH red for it took longer than 28 hours to play out (40+ in fact). That’s the time-out I was trying to refer to earlier. I also gave it the feature of a Displacement: turning the green dots to yellow (neutralise).

//////////drive up         
      if (High[i]>L80[i] 
      && iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,5,i))-iLow(symbol,0,iLowest(symbol,0,MODE_LOW,10,i))>460*Point 
      && (High[i]>cover[i]-100*Point || High[i+1]>cover[i+1]-100*Point || High[i+2]>cover[i+2]-100*Point)
       && (MFI[i]>72 || MFI[i+1]>72 || MFI[i+2]>72)      
       && ((Low[i+5]>L80[i+5]-100*Point && Low[i+9]>L80[i+9]-100*Point && Low[i+8]>L80[i+8]-100*Point && Low[i+7]>L80[i+7]-100*Point && Low[i+6]>L80[i+6]-100*Point) || iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,5,i))-iLow(symbol,0,iLowest(symbol,0,MODE_LOW,10,i))>1100*Point)  
        ){
                     ObjectCreate("Drive"+IntegerToString(i), OBJ_TREND, 0,  Time[iLowest(symbol,0,MODE_LOW,10,i)], iLow(symbol,0,iLowest(symbol,0,MODE_LOW,10,i)), Time[iHighest(symbol,0,MODE_HIGH,5,i)], iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,5,i)));
                     ObjectSetInteger(0,"Drive"+IntegerToString(i),OBJPROP_COLOR,clrSpringGreen);
                     ObjectSet("Drive"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Drive"+IntegerToString(i),OBJPROP_RAY_RIGHT,false);
                     ObjectSet("Drive"+IntegerToString(i),OBJPROP_WIDTH,12);
                     
                     Drive[iHighest(symbol,0,MODE_HIGH,5,i)]=1;
                     Drive[i]=1;
                     }
   
   
   //////////Thrust up         
      if (i>0 && (Low[i+1]<iMA(symbol,0,8,0,MODE_EMA,PRICE_MEDIAN,i+1) || Low[i+2]<iMA(symbol,0,8,0,MODE_EMA,PRICE_MEDIAN,i+2)  || Low[i+3]<iMA(symbol,0,8,0,MODE_EMA,PRICE_MEDIAN,i+3) || Low[i+4]<iMA(symbol,0,8,0,MODE_EMA,PRICE_MEDIAN,i+4))
       && Low[i+1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_MEDIAN,i+1)-100*Point 
       && Low[i+2]>iMA(symbol,0,8,0,MODE_EMA,PRICE_MEDIAN,i+2)-180*Point
       && High[i-1]<High[i] 
       && High[i]>cover[i]-200*Point 
       && Low[i]>L53[i]
       && L53[i]>L80[i]
        && Low[i+3]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+3)
      // && High[i]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-70*Point
       && Drive[ArrayMaximum(Drive,52,i)]>0
       && thrust[ArrayMinimum(thrust,52,i)]>=0
       && (Drive[ArrayMaximum(Drive,22,i)]==0 || High[i]>iBands(symbol,0,120,2,0,PRICE_MEDIAN,MODE_UPPER,i))
        ){
                     ObjectCreate("Thrust"+IntegerToString(i), OBJ_TREND, 0,  Time[iLowest(symbol,0,MODE_LOW,5,i+1)], iLow(symbol,0,iLowest(symbol,0,MODE_LOW,5,i+1)), Time[iHighest(symbol,0,MODE_HIGH,2,i)], iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i)));
                     ObjectSetInteger(0,"Thrust"+IntegerToString(i),OBJPROP_COLOR,clrMediumPurple);
                     ObjectSet("Thrust"+IntegerToString(i),OBJPROP_BACK,1);
                     ObjectSet("Thrust"+IntegerToString(i),OBJPROP_RAY_RIGHT,false);
                     ObjectSet("Thrust"+IntegerToString(i),OBJPROP_WIDTH,12);
                     
                         if (High[i]>cover[i]-200*Point && High[i]>iBands(symbol,0,120,2,0,PRICE_MEDIAN,MODE_UPPER,i)){
                            ObjectCreate("PINUSX"+IntegerToString(i),OBJ_TEXT, 0, Time[i+8],(Low[i]+High[i])/2+200*Point);
                           ObjectSetText("PINUSX"+IntegerToString(i),"Ding! Ding! Ding!", 26, "Impact", clrCrimson);}
                             
                        thrust[i]=-1;
                     }

//////////HH
      if (i>0 
      && MFI[i]>40 && MFI[i]<78 
      && Drive[ArrayMaximum(Drive,40,i)]>0 
      && High[i]==iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,36,i))
      && High[i-1]<=High[i]+20*Point && thrust[i]>-1 && thrust[i+1]>-1 && thrust[i+2]>-1  && thrust[i-1]>-1
      && L80[i]<L63[i]
      && (High[i]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-20*Point || (High[i]>iBands(symbol,0,120,2,0,PRICE_MEDIAN,MODE_UPPER,i)+20*Point && iBands(symbol,0,120,2,0,PRICE_MEDIAN,MODE_UPPER,i)-iBands(symbol,0,120,2,0,PRICE_MEDIAN,MODE_LOWER,i)>840*Point))
      && Drive[ArrayMaximum(Drive,3,i)]==0 
      ){
                            ObjectCreate("PINUSXY"+IntegerToString(i),OBJ_TEXT, 0, Time[i],High[i]+150*Point);
                           ObjectSetText("PINUSXY"+IntegerToString(i),"HH", 26, "Impact", clrDarkGreen);
                           if (Drive[ArrayMaximum(Drive,28,i)]<=0) {ObjectSetText("PINUSXY"+IntegerToString(i),"HH", 26, "Impact", clrRed);
                           disp[i]=-1;}
                           else {ObjectCreate("PINUSXX"+IntegerToString(i),OBJ_TEXT, 2, Time[i],80);
                           ObjectSetText("PINUSXX"+IntegerToString(i),"B/L53-/S30-", 26, "Impact", clrGreen);}
                     }

Professional volume print of the new money coming in today. What do you think they did at the weekly R1?

Extra high Ci read still. Price is below the upper Guard Rail (the HH was the only spike above it.)