If I give it to you now… will you keep on loving me?
#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"+4,OBJ_LABEL,0, 0,0);
if (Close[0]>iMA(symbol,0,21,0,MODE_EMA,PRICE_MEDIAN,0))
ObjectSetText("DENTURE"+4,"2.5: "+NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,5,0))-2500*Point,4),11,"Arial Black");
else ObjectSetText("DENTURE"+4,"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);
if (Close[0]<iMA(symbol,0,21,0,MODE_EMA,PRICE_MEDIAN,0)) ObjectSet("DENTURE"+4,OBJPROP_COLOR,clrMaroon);
else ObjectSet("DENTURE"+4,OBJPROP_COLOR,clrBlue);
ObjectCreate("DENTURE"+5,OBJ_LABEL,0, 0,0);
if (Close[0]>iMA(symbol,0,21,0,MODE_EMA,PRICE_MEDIAN,0))
ObjectSetText("DENTURE"+5,"3.3: "+NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,5,0))-3300*Point,4),11,"Arial Black");
else ObjectSetText("DENTURE"+5,"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);
if (Close[0]<iMA(symbol,0,21,0,MODE_EMA,PRICE_MEDIAN,0)) ObjectSet("DENTURE"+5,OBJPROP_COLOR,clrMaroon);
else ObjectSet("DENTURE"+5,OBJPROP_COLOR,clrBlue);
ObjectCreate("DENTURE"+6,OBJ_LABEL,0, 0,0);
if (Close[0]>iMA(symbol,0,21,0,MODE_EMA,PRICE_MEDIAN,0))
ObjectSetText("DENTURE"+6,"4.15: "+NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,5,0))-4150*Point,4),11,"Arial Black");
else ObjectSetText("DENTURE"+6,"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);
if (Close[0]<iMA(symbol,0,21,0,MODE_EMA,PRICE_MEDIAN,0)) ObjectSet("DENTURE"+6,OBJPROP_COLOR,clrMaroon);
else 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);
} }Sometimes I feel like you are just too good for me.
Feel free to make a donation.
ForexFore - Internals, indicators, algorithmic trading 