Concept Hall

And I wonder who you are, and I wonder what you want.

The concept of grasping a concept.

Concept #1

A parabolic market is targeting the W3 close end to mid point. Parabolic = 14 out of the last 16 candles closed below on the 30-minute 30-sample SMA.

W3 is the orange box, 3-day ATR measured from the last consilolidation mean plus 10-30%.

Concept #2

The Money flow droop works like this: if the highighted reversal zone gets exceeded, that means the arrival of new money after the measuring leg was settled, i.e.: go 2x short at 1.0984, cover most of the holdings at 1.0948.

Concept #3

A powder box (4H) is a potential reversal zone. The shaded one ranks higher, as it is outside the 100-pip displacement.

The 14x candle count has started and the market has to now prove upside volatility.

I would expect to find resistance stating 62.5 pips up from the lowest low in this move / at the Upper Guard Rail / starting the upper 30-sample Bollinger Band, and continue lower from there.

The market is closing on the lows today. I was trading longs only all day, and this turned out to be not a problem to post a normal daily average. I am 6:5 long to short here.

This is a tremendous song>

Labeling* Suggestions

You have the software, here’s some tips on how to interpret and compliment the data on screen.

The 14-count is a “show me counter directional volatility” part. If price comes back inside the Guard Rails, you would see more movement in that direction, however a re-test of the powder box (Lower Low / Higher High) is a possibility unless the higher low / lower high is printed within the 14 count.

The acceleration can be seen by the Humps (H) going outside the channel on the upside, tagging nothing, tagging the 1st resistance line and sniffing the 2nd resistance line on the 3rd try.

I would plot the Higher Low with a triangle and the H3 for the break out level.

On the second image the 14 count did not prove volatility, and also you get a fresh count by breaking the high. H2 proved volatiliy (working out of a hollow box, which is a divergence, but not necessarily a terminal end, especially not in a corrective structure). Going below the Guards supplied with the 3 humps. The H1 was an automatic plot, H2, H3 I had to fill in (hence the font difference).

After the back test, there were 3 humps again, and the H2 was rather shy around the previous high, but there was clearly a return back below the Guard, so the count stands.

Happy 2024!

* In US English, it’s ‘labeling’ (one ‘l’). In UK English, it’s ‘labelling’ (double ‘l’).

Don’t Call It A Fun Fact

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

Rock Paper Volatility

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.

The Lift Button

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

Yellow Snow Patrol

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

Going The Distance

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.

XMas Rendition

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.

Cannon Fodder 3

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.

August

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