Getting ourselves a way overdue W2.
The MA ribbon (W2 buy) is at 1.0341, the No Break Extension of the consolidation (fluctuation maximum away) is 1.0337. Pretty much there now. Weekly pivot at 1.0341.
There’s gonna be a powerful move coming out of this falling wedge.
Me, I’m Scratchy – I wrote it yesterday about an ex-coworker. The style is halfway between UB 40 and Level 42. Currently, I hold this one in the best 5 ever, which is something out of the 800+ songs I have. Seriously, listen in.
As it turns out I had the wrong flowchart.
Here’s a complete re-haul.
The steepest trap is a capitulation thrust, as people’s short term memory/fears will be keep on fading the return trapping themselves more and more.
If the pendulum swings outside the playfield a calibration~mean reversion gets kicked off.
The pendulum swings between the absolute limits.
Any wick that is 16 pips or longer towards the extreme print is a clue of squaring (i.e. the market maker dumping out excess load in line with the unfolding mean reversion).
Fading efforts of the return move to the 120SMA and the 207EMA would get run over. If these two levels get taken without a correction in between below the S30, the market may be in a parabolic mode, receiving constant charge at the upper BB, it can get as far as the FF level.
Next? The short squeeze provided some bull advantage, there is a chance to consolidate above the 80 line. If that happens, the likelihood that we saw the low for the year on the first trading day goes from very high to certain.
Since numerous hourly candles were completely outside the 30-sample BB, if a new leg were to start (drive), I would expect the price to come back to the 30 SMA at a minimum or optionally to the lower 30-sample BB, which is currently in the 1.025x range thanks to the volatility increasing push.
As we discussed. The first F proves the presence of counter-directional volatility by blasting through the 100-pip stop.
The second F prompts a move that violates the 100-pip stop by a little.
The third F puts the price over the 100-pip stop for good after going beyond 1 and 2.
However, an F needs the ink to dry. The next 3 days would all have to stay above the low made. 2 more days to go. The #3 on the upside received 2 scares, one fell shy by 10, the other by 4.5 pips (on day 2 and day 3 namely).
#47 kicks off the new year
So the thick lines are the absolute limits relative to the consolidation mean. 50 pips beyond the black numbers (FFF++).
It took 13 years to figure out what the configuration was. No, not the order of moving averages.
The configuration in case of the Euro is an 80-pip field from the 200-hour low or the 200-hour high, whichever is closer. It shows what the market is currently preoccupied with. So the brown line is the configuration limit. There is no literature for this anywhere.
The 64-pip distance I figured out a lot earlier, probably a decade ago when I started saying things like 80 percent of the time the market moves 80 percent of 80 pips (daily statistics).
For me trading is about building and utilizing a knowledge base. I try to imagine flow charts with black and white outcomes.
When we saw the last FFF++ capitulation, this is what happened (step one: the challenge of the configuration limit).
#2 back test of the S-30. #3 spike above the 30-sample upper BB. #4 touch down on the lower BB. #5 a spike above the upper BB for the second time, the first engagement of the 9-day EMA. #6 a 3/4 way retracement within the bands.
#3 may or may not be done. I’ll make sure to dump most of my shorts upon the touch of the lower BB.
Album #47 is in the works. The first single is The Final Countdown
[Verse] Engines roar, it's all set to go Refinement peaks, as we start the show To depart, like leaving a part Time's ticking, the end is the start [Chorus] If this is the final countdown, then what comes next? Talk about going out with a bang, no regrets You could always count on me, now here's the count back The launchpad's gonna be destroyed, no turning back In the velvet night, where shadows merge and flee With elegance, the climax sets us free Departing grace, leaving fragments behind Each end, a circle, tied to a new bind [Chorus] If this is the final countdown, then what comes next? A quick memento to remember the storm we left Count down your blessings, where night meets dawn We'll find rebirth, as the echoes linger on A thorn is now getting torn out by the perforation. Cut out my outline. Confused memories would fill in the blank. Find I'm gone. Find I'm no longer near. Find something to do for fun. Oh yeah, and find another someone. [Chorus] If this is the final countdown, then what comes next? A quick memento to remember the storm we left Count down your blessings, where night meets dawn We'll find rebirth, as the echoes linger on
I have walked into the same thing twice. One example should have been enough.
Do you remember this thing?
This capitulation was the same as today’s since it was an extra-large thrust preceded by multiple accelerations. Although the last swing’s length was 164 pips versus the current 151, there was one measurement that made them almost identical in length. The distance achieved from the consolidation mean was W3FFF++ in both cases.
The gray line at the bottom of the orange W3 is W3F, the next horizontal line is another F, the thus the last one is W3FFF the pluses stand for 5 more pips each.
What is different is the bounce, which was 100 pips in the first case with a rally that continued after a 50-pip retracement versus the current measly 40 pips then volatility crush.
I have a problem with calling a bottom with an MFI this oversold. The bottom isn’t safe in my opinion, as it is within a fluctuation maximum (45 pips).
As soon the 8 EMO catches up, I’ll take back the missing shorts for a bottom re-visit / beat.
The next thrust does not have to make a beat, although it would be likely. We need to see a 2-5 hour selling that prints a fractal and does not have an MFI reading below 24.
Paraiso Aqui that is (Harry Harrison reference).
I have mentioned before the need to push against something.
Here’s something interesting that seems to happen outside the hourly 120 BB.
For sufficient traction for another leg the price has to push back inside the 120 BB by 3-24 pips.
With extra abundant volatility (Election night) there are two lifelines to be had. The 30-sample BB and the 8 EMO. Once these two were utilized, the reaction from the BB was a mere 43 pips, and the next entry was a bona fide rally.
Notice how the lifelines resulted in incremental beats, the total progress was 32 pips out of the two independent price reversals.
So my expectation here is a move back inside the BB by 3-24 pips.
Quasi having to balance out the hedge/overhedge. C/S stands for Continuation Sell. The 8 EMO plus 7 pips that is. A second highlight for the same area.
Yeah, this is a sell – you have a Red 9, but that does not mean at market.
I would try the red highlight instead.
There are two ways to finish this off.
The common way is a capitulation move, that is an LL fractal print about 16 pips lower, then a move back to/beyond the 8 EMO and a thrust that can be 70-90 pips lower than the swing high before the LL print.
The second way is a choke. After the LL print the price gets bent back down before the 8 EMO and makes a lower fractal 3 hours later another 8-16 pips lower.
I have scaled back in according to the plan. Missing only 0.5 lots.
Happy New Bear!
The support trendline should yield some bounce.
Multiple accelerations at this point.
The MFI went temporarily way too oversold. Two divergences would mark the end, the last leg should not get below 24 on the MFI(7).
First, there should be a lower low, followed by another brief touch of the 8-EMO before the risk of a bigger thrust becomes exponential.
Since the BBs started expanding, I don’t think it will be a small beat this time. I’m thinking 50-70 pips, which would mean 1.0280-1.0260.
I have pimped out the program from the last post with a counter, last week’s pivot, and some numbers. Ci means the level of consolidation (53+ means full), C just stands for the current price in large so that I can see it from the bed, and the Delta is the risk for 10 pips.
#property copyright "No Drive by Macdulio, (c) 2024"
#property link "http://www.forexfore.blog"
#property indicator_chart_window
#property indicator_buffers 9
#property indicator_color1 Green
#property indicator_color2 Red
#property indicator_color3 Brown
#property indicator_color4 LightGray
#property indicator_color5 Purple
#property indicator_color6 Yellow
extern int lookback = 1000;
double ExtUpperBuffer[];
double ExtLowerBuffer[];
double ExtUpperBuffer2[];
double ExtLowerBuffer2[];
double ExtUpperBuffer3[];
double ExtLowerBuffer3[];
double MFI[], L80[], L80p[], reference[], BBUP[], BBDN[];
double ExtMapBuffer[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
IndicatorBuffers(9);
//--- upper band
SetIndexStyle(0,DRAW_LINE,0,3,indicator_color4);
SetIndexBuffer(0,ExtUpperBuffer);
SetIndexLabel(0,"Bands Upper");
//--- lower band
SetIndexStyle(1,DRAW_LINE,0,3,indicator_color4);
SetIndexBuffer(1,ExtLowerBuffer);
SetIndexLabel(1,"Bands Lower");
SetIndexStyle(2,DRAW_LINE,0,6,indicator_color1);
SetIndexBuffer(2,ExtUpperBuffer2);
SetIndexLabel(2,"Bands Upper Crossed");
SetIndexStyle(3,DRAW_LINE,0,6,indicator_color2);
SetIndexBuffer(3,ExtLowerBuffer2);
SetIndexLabel(3,"Bands Lower Crossed");
SetIndexStyle(4,DRAW_LINE,2,3,indicator_color3);
SetIndexBuffer(4,L80p);
SetIndexStyle(5,DRAW_LINE,0,11,indicator_color5);
SetIndexBuffer(5,BBUP);
SetIndexStyle(6,DRAW_LINE,0,11,indicator_color5);
SetIndexBuffer(6,BBDN);
SetIndexStyle(7,DRAW_LINE,0,1,indicator_color6);
SetIndexBuffer(7,ExtUpperBuffer3);
SetIndexLabel(7,"Liq break up");
SetIndexStyle(8,DRAW_LINE,0,1,indicator_color6);
SetIndexBuffer(8,ExtLowerBuffer3);
SetIndexLabel(8,"Liq break dn");
return(0);
}
int start()
{
ArrayResize(ExtUpperBuffer, Bars);
ArrayInitialize(ExtUpperBuffer,EMPTY_VALUE);
ArrayResize(ExtLowerBuffer, Bars);
ArrayInitialize(ExtLowerBuffer, EMPTY_VALUE);
ArrayResize(ExtUpperBuffer2, Bars);
ArrayInitialize(ExtUpperBuffer2,EMPTY_VALUE);
ArrayResize(ExtLowerBuffer2, Bars);
ArrayInitialize(ExtLowerBuffer2, EMPTY_VALUE);
ArrayResize(ExtUpperBuffer3, Bars);
ArrayInitialize(ExtUpperBuffer3,EMPTY_VALUE);
ArrayResize(ExtLowerBuffer3, Bars);
ArrayInitialize(ExtLowerBuffer3, EMPTY_VALUE);
ArrayResize(MFI, Bars);
ArrayInitialize(MFI, EMPTY_VALUE);
ArrayResize(L80, Bars);
ArrayInitialize(L80,EMPTY_VALUE);
ArrayResize(L80p, Bars);
ArrayInitialize(L80p,EMPTY_VALUE);
ArrayResize(reference, Bars);
ArrayInitialize(reference,EMPTY_VALUE);
ArrayResize(BBUP, Bars);
ArrayInitialize(BBUP,EMPTY_VALUE);
ArrayResize(BBDN, Bars);
ArrayInitialize(BBDN,EMPTY_VALUE);
ArrayResize(ExtMapBuffer,Bars);
ArrayInitialize(ExtMapBuffer,EMPTY_VALUE);
int i,j;
string symbol = Symbol();
double std;
double nshorts=0;
double nlongs=0;
for(i=OrdersTotal()-1; i>=0 ; i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false)
{
Print("Access to orders list failed with error (",GetLastError(),")");
break;
}
if (OrderType() == OP_BUY)
nlongs = nlongs+OrderLots();
if (OrderType() == OP_SELL )
nshorts = nshorts+OrderLots();
}
for (i=lookback; i>=0; i--){
MFI[i]=iMFI(symbol,0,7,i);
if (MathAbs(Close[i]-iLow(symbol,0,iLowest(symbol,0,MODE_LOW,200,i)))<MathAbs(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,200,i))-Close[i]))
{reference[i] = iLow(symbol,0,iLowest(symbol,0,MODE_LOW,200,i)); L80[i]=reference[i]+800*Point; }
else {reference[i] = iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,200,i));
L80[i]=reference[i]-800*Point; }
if (L80[i]==L80[i+1] && i<525) L80p[i]=L80[i];
ExtUpperBuffer[i]=iLow(symbol,0,iLowest(symbol,0,MODE_LOW,10,i))+460*Point;
ExtLowerBuffer[i]=iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,10,i))-460*Point;
ExtUpperBuffer3[i]=iLow(symbol,0,iLowest(symbol,0,MODE_LOW,10,i))+820*Point;
ExtLowerBuffer3[i]=iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,10,i))-820*Point;
if (Low[i]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i) && High[i]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)) BBUP[i]=iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,6,i));
// BBUP[i]=iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i);
if ((Low[i]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i) || Low[i+1]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i+1)) && iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i)<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i+1) && High[i]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i) && High[i]<L80[i]+460*Point
&& MFI[i]<60
) BBUP[i]=High[i];
// if (High[i]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i) && Low[i]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i)) BBDN[i]=iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i);
// if ((High[i]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i) || High[i+1]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i+1)) && iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i)>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i+1) && Low[i]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i) && Low[i]>L80[i]-460*Point
// && MFI[i]>40
// ) BBDN[i]=Low[i];
///drive down
if (iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,10,i))-iLow(symbol,0,iLowest(symbol,0,MODE_LOW,4,i))>460*Point
&& !(High[i+1]>iMA(symbol,0,80,0,MODE_SMA,PRICE_MEDIAN,i+1) && Low[i+1]<iMA(symbol,0,80,0,MODE_SMA,PRICE_MEDIAN,i+1))
&& (MFI[i]<18.5 || MFI[i+1]<18.5 || MFI[i+2]<18.5)
&& !(iClose(symbol,0,iHighest(symbol,0,MODE_CLOSE,10,i))<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,iHighest(symbol,0,MODE_CLOSE,10,i)))
&& (Low[i]<L80[i] || Low[i+1]<L80[i+1] || Low[i+2]<L80[i+2])
&& ((
// High[i+3]<L80[i+3] && High[i+4]<L80[i+4] && High[i+5]<L80[i+5] && (!High[i+9]<L80[i+9] && Low[i+8]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+8)) &&
High[i+7]<L80[i+7] && High[i+6]<L80[i+6] && High[i+5]<L80[i+5]) || (iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,10,i))-iLow(symbol,0,iLowest(symbol,0,MODE_LOW,4,i))>680*Point && iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,10,i))>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,iHighest(symbol,0,MODE_HIGH,10,i)) ))
// && !(High[i+1]>iMA(symbol,0,80,0,MODE_SMA,PRICE_MEDIAN,i+1) && Low[i+1]<iMA(symbol,0,80,0,MODE_SMA,PRICE_MEDIAN,i+1))
) {ExtLowerBuffer2[i]=ExtLowerBuffer[i];
if (iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,10,i))>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,iHighest(symbol,0,MODE_HIGH,10,i))) BBUP[iHighest(symbol,0,MODE_HIGH,10,i)]=iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,iHighest(symbol,0,MODE_HIGH,10,i));
//else BBUP[iHighest(symbol,0,MODE_HIGH,10,i)]=iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,iHighest(symbol,0,MODE_HIGH,10,i));
}
///drive up
if (iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,5,i))-iLow(symbol,0,iLowest(symbol,0,MODE_LOW,10,i))>460*Point && !(High[i+1]>iMA(symbol,0,80,0,MODE_SMA,PRICE_MEDIAN,i+1) && Low[i+1]<iMA(symbol,0,80,0,MODE_SMA,PRICE_MEDIAN,i+1)) && (MFI[i]>72 || MFI[i+1]>72 || MFI[i+2]>72)
&& Close[i]>Close[i+10]
&& Low[i+5]>L80[i+5] && Low[i+6]>L80[i+6]
&& ((Low[i+5]>L80[i+5]-100*Point && Low[i+9]>L80[i+9]-100*Point && Low[i+8]>L80[i+8]-100*Point && Low[i+7]>L80[i+7]-100*Point && Low[i+6]>L80[i+6]-100*Point) || iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,5,i))-iLow(symbol,0,iLowest(symbol,0,MODE_LOW,10,i))>1100*Point)
) ExtUpperBuffer2[i]=ExtUpperBuffer[i];
}
deletetxt1("Countess");
int counter;
for (i=lookback-1; i>=0; i--)
{
if (BBUP[i]==EMPTY_VALUE && BBUP[i+1]!=EMPTY_VALUE && BBUP[i+2]!=EMPTY_VALUE) counter=1;
if (counter>0 && counter<10){
ObjectCreate("Countess"+i,OBJ_TEXT, 0, Time[i], Low[i]-30*Point);
if (counter==9) ObjectSetText("Countess"+i, IntegerToString(counter,1,0), 11, "Arial Black", clrMagenta);
else ObjectSetText("Countess"+i, IntegerToString(counter,1,0), 11, "Arial Black", clrBlack);
if (counter==9 && (Low[i]<ExtLowerBuffer[i] || Low[i+3]<ExtLowerBuffer[i+3]) && (Low[i]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+3) || Low[i]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i+3))) ObjectSetText("Countess"+i, IntegerToString(counter,1,0), 15, "Arial Black", clrRed);
}
if (counter>0) counter++;
if (BBUP[i]!=EMPTY_VALUE && BBUP[i+1]!=EMPTY_VALUE) counter=0;
}
deletetxt1("KLOPF");
ObjectCreate("KLOPF1", OBJ_TEXT, 0, Time[0], Close[0]+65*Point);
ObjectSetText("KLOPF1", " C: "+DoubleToStr(NormalizeDouble(Close[0],5),5), 19, "Arial Black", Black);
ObjectCreate("KLOPF2", OBJ_TEXT, 0, Time[0], Close[0]-35*Point);
ObjectSetText("KLOPF2", " Ci: "+DoubleToStr(Choppiness15(48,1),2), 19, "Arial Black", Black);
if (Choppiness15(48,1)<45) ObjectSetText("KLOPF2", " Ci: "+DoubleToStr(Choppiness15(48,1),2), 19, "Arial Black", White);
ObjectCreate( "KLOPF"+4, OBJ_HLINE, 0, Time[0], (iHigh(symbol,10080,1)+iLow(symbol,10080,1))/2);
ObjectSet("KLOPF"+4, OBJPROP_COLOR, clrMagenta );
ObjectSet("KLOPF"+4, OBJPROP_WIDTH, 3 );
ObjectSet("KLOPF"+4, OBJPROP_RAY_RIGHT, false );
ObjectSet("KLOPF"+4, OBJPROP_STYLE, 1 );
ObjectCreate("KLOPF5", OBJ_TEXT, 0, Time[0], (iHigh(symbol,10080,1)+iLow(symbol,10080,1))/2+10*Point);
ObjectSetText("KLOPF5", " WPIVOT", 11, "Arial Black", Black);
ObjectCreate("KLOPF"+8,OBJ_LABEL,0, 0,0);
ObjectSetText("KLOPF"+8," Delta: "+NormalizeDouble(nlongs-nshorts,2)*100+" P&L: $"+NormalizeDouble(DailyProfit(),2),16,"ARIAL BLACK",clrYellow);
//ObjectSetText("E819"+8," M/S:"+NormalizeDouble(AccountEquity()*.00165,2)+"LOT, D:"+NormalizeDouble(nlongs-nshorts,2)+" D/P: $"+NormalizeDouble(DailyProfit(),2)+" M/S:"+NormalizeDouble(AccountEquity()*.00165,2)+"LOT" ,16,"ARIAL BLACK",clrNavy);
ObjectSet("KLOPF"+8,OBJPROP_CORNER,3);
ObjectSet("KLOPF"+8,OBJPROP_XDISTANCE,40);
ObjectSet("KLOPF"+8,OBJPROP_YDISTANCE,50);
return(0);
}
void deletetxt1(string text){
for(int iObj=ObjectsTotal()-1; iObj >= 0; iObj--){
string on = ObjectName(iObj);
if(StringFind(on, text) == 0) ObjectDelete(on);
} }
double Choppiness15(int period, int bar)
{
double Low0 = 0, High0 = 0, Close1 = 0;
double TrueRangeLow = 0, TrueRangeHigh = 0, TrueRangeSum = 0, Input = 0;
double PeriodTrueRangeLow = 999999999, PeriodTrueRangeHigh = 0, PeriodTrueRange = 0;
for(int k=bar; k<bar+period; k++)
{
Low0 = iLow(NULL,15,k);
High0 = iHigh(NULL,15,k);
Close1 = iClose(NULL,15,k+1);
if (Low0<Close1) TrueRangeLow = Low0; else TrueRangeLow = Close1;
if (High0>Close1) TrueRangeHigh = High0; else TrueRangeHigh = Close1;
if (TrueRangeLow <PeriodTrueRangeLow) PeriodTrueRangeLow = TrueRangeLow; // find true low of period
if (TrueRangeHigh>PeriodTrueRangeHigh) PeriodTrueRangeHigh = TrueRangeHigh; // find true high of period
TrueRangeSum += TrueRangeHigh;
TrueRangeSum -= TrueRangeLow;
}
PeriodTrueRange = PeriodTrueRangeHigh - PeriodTrueRangeLow;
if (PeriodTrueRange==0) PeriodTrueRange = MathPow(10, -12); // avoid possibility of division by zero
Input = TrueRangeSum / PeriodTrueRange;
return ((logN(Input, 10, MathPow(10, -12)) / logN(period, 10, MathPow(10, -12))) * 100);
}
double logN(double x, double base, double epsilon)
{
double integer = 0.0;
if ((x < 1) || (base < 1)) return(0);
while (x < 1)
{
integer -= 1;
x *= base;
}
while (x >= base)
{
integer += 1;
x /= base;
}
double partial = 0.5;
x *= x;
double decimal = 0.0;
while (partial > epsilon)
{
if (x >= base)
{
decimal += partial;
x = x / base;
}
partial *= 0.5;
x *= x;
}
return (integer + decimal);
}
double StdDev(int shift, int samples)
{
double x0=0, x1=0, x2=0;
for (int m=0; m<samples; m++)
{
x0 = ExtMapBuffer[m+shift];
x1 += x0;
x2 += MathPow(x0,2);
}
return(MathSqrt((x2-(x1*x1/samples))/(samples-1))); // minimum samples is 2, enforced in the init section
}
double DailyProfit()
{
double profit = 0;
int i, hstTotal=OrdersHistoryTotal();
for(i=0;i<hstTotal;i++)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==TRUE)
{
if(OrderType()>1) continue;
if(TimeToStr(TimeCurrent(),TIME_DATE) == TimeToStr(OrderCloseTime(),TIME_DATE))
{
profit += OrderProfit() + OrderSwap() + OrderCommission();
}
}
}
return(profit);
}The last album of 2024
To better understand what an acceleration is, here is some finger practice.
An acceleration has 3 basic criteria.
It goes without saying that a Thrust requires an acceleration beforehand.
Examples.
In the first example, the push happened against the Upper BB. In the second example, the push was against nothing (furthermore was outside the 240 BB as well), in the third example, the time factor was the main culprit. Within 10 hours it had to have a peak at the upper BB or the 30 SMA. A return to the 80 SMA is a disqualifier, not a start, but rather an end of something.
The idea behind the purple thingies is that an acceleration could occur against them, but if 9 hours later the price is still not outside the light gray band, you must buy.
#property copyright "No Drive by Macdulio, (c) 2024"
#property link "http://www.forexfore.blog"
#property indicator_chart_window
#property indicator_buffers 7
#property indicator_color1 Green
#property indicator_color2 Red
#property indicator_color3 Brown
#property indicator_color4 LightGray
#property indicator_color5 Purple
extern int lookback = 1000;
double ExtUpperBuffer[];
double ExtLowerBuffer[];
double ExtUpperBuffer2[];
double ExtLowerBuffer2[];
double MFI[], L80[], L80p[], reference[], BBUP[], BBDN[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
IndicatorBuffers(7);
//--- upper band
SetIndexStyle(0,DRAW_LINE,0,3,indicator_color4);
SetIndexBuffer(0,ExtUpperBuffer);
SetIndexLabel(0,"Bands Upper");
//--- lower band
SetIndexStyle(1,DRAW_LINE,0,3,indicator_color4);
SetIndexBuffer(1,ExtLowerBuffer);
SetIndexLabel(1,"Bands Lower");
SetIndexStyle(2,DRAW_LINE,0,6,indicator_color1);
SetIndexBuffer(2,ExtUpperBuffer2);
SetIndexLabel(2,"Bands Upper Crossed");
SetIndexStyle(3,DRAW_LINE,0,6,indicator_color2);
SetIndexBuffer(3,ExtLowerBuffer2);
SetIndexLabel(3,"Bands Lower Crossed");
SetIndexStyle(4,DRAW_LINE,2,3,indicator_color3);
SetIndexBuffer(4,L80p);
SetIndexStyle(5,DRAW_LINE,0,11,indicator_color5);
SetIndexBuffer(5,BBUP);
SetIndexStyle(6,DRAW_LINE,0,11,indicator_color5);
SetIndexBuffer(6,BBDN);
return(0);
}
int start()
{
ArrayResize(ExtUpperBuffer, Bars);
ArrayInitialize(ExtUpperBuffer,EMPTY_VALUE);
ArrayResize(ExtLowerBuffer, Bars);
ArrayInitialize(ExtLowerBuffer, EMPTY_VALUE);
ArrayResize(ExtUpperBuffer2, Bars);
ArrayInitialize(ExtUpperBuffer2,EMPTY_VALUE);
ArrayResize(ExtLowerBuffer2, Bars);
ArrayInitialize(ExtLowerBuffer2, EMPTY_VALUE);
ArrayResize(MFI, Bars);
ArrayInitialize(MFI, EMPTY_VALUE);
ArrayResize(L80, Bars);
ArrayInitialize(L80,EMPTY_VALUE);
ArrayResize(L80p, Bars);
ArrayInitialize(L80p,EMPTY_VALUE);
ArrayResize(reference, Bars);
ArrayInitialize(reference,EMPTY_VALUE);
ArrayResize(BBUP, Bars);
ArrayInitialize(BBUP,EMPTY_VALUE);
ArrayResize(BBDN, Bars);
ArrayInitialize(BBDN,EMPTY_VALUE);
int i,j;
string symbol = Symbol();
double std;
for (i=lookback; i>=0; i--){
MFI[i]=iMFI(symbol,0,7,i);
if (MathAbs(Close[i]-iLow(symbol,0,iLowest(symbol,0,MODE_LOW,200,i)))<MathAbs(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,200,i))-Close[i]))
{reference[i] = iLow(symbol,0,iLowest(symbol,0,MODE_LOW,200,i)); L80[i]=reference[i]+800*Point; }
else {reference[i] = iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,200,i));
L80[i]=reference[i]-800*Point; }
if (L80[i]==L80[i+1] && i<525) L80p[i]=L80[i];
ExtUpperBuffer[i]=iLow(symbol,0,iLowest(symbol,0,MODE_LOW,10,i))+460*Point;
ExtLowerBuffer[i]=iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,10,i))-460*Point;
if (Low[i]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i) && High[i]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)) BBUP[i]=iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i);
if ((Low[i]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i) || Low[i+1]<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i+1)) && iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i)<iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i+1) && High[i]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,i) && High[i]<L80[i]+460*Point
&& MFI[i]<60
) BBUP[i]=High[i];
///drive down
if (iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,10,i))-iLow(symbol,0,iLowest(symbol,0,MODE_LOW,4,i))>460*Point
&& !(High[i+1]>iMA(symbol,0,80,0,MODE_SMA,PRICE_MEDIAN,i+1) && Low[i+1]<iMA(symbol,0,80,0,MODE_SMA,PRICE_MEDIAN,i+1))
&& (MFI[i]<14 || MFI[i+1]<14 || MFI[i+2]<14)
&& !(iClose(symbol,0,iHighest(symbol,0,MODE_CLOSE,10,i))<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,iHighest(symbol,0,MODE_CLOSE,10,i)))
&& (Low[i]<L80[i] || Low[i+1]<L80[i+1] || Low[i+2]<L80[i+2])
&& ((
// High[i+3]<L80[i+3] && High[i+4]<L80[i+4] && High[i+5]<L80[i+5] && (!High[i+9]<L80[i+9] && Low[i+8]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,i+8)) &&
High[i+7]<L80[i+7] && High[i+6]<L80[i+6] && High[i+5]<L80[i+5]) || (iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,10,i))-iLow(symbol,0,iLowest(symbol,0,MODE_LOW,4,i))>680*Point && iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,10,i))>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,iHighest(symbol,0,MODE_HIGH,10,i)) ))
// && !(High[i+1]>iMA(symbol,0,80,0,MODE_SMA,PRICE_MEDIAN,i+1) && Low[i+1]<iMA(symbol,0,80,0,MODE_SMA,PRICE_MEDIAN,i+1))
) {ExtLowerBuffer2[i]=ExtLowerBuffer[i];
if (iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,10,i))>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,iHighest(symbol,0,MODE_HIGH,10,i))) BBUP[iHighest(symbol,0,MODE_HIGH,10,i)]=iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,iHighest(symbol,0,MODE_HIGH,10,i));
//else BBUP[iHighest(symbol,0,MODE_HIGH,10,i)]=iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_MAIN,iHighest(symbol,0,MODE_HIGH,10,i));
}
///drive up
if (iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,5,i))-iLow(symbol,0,iLowest(symbol,0,MODE_LOW,10,i))>460*Point && !(High[i+1]>iMA(symbol,0,80,0,MODE_SMA,PRICE_MEDIAN,i+1) && Low[i+1]<iMA(symbol,0,80,0,MODE_SMA,PRICE_MEDIAN,i+1)) && (MFI[i]>72 || MFI[i+1]>72 || MFI[i+2]>72)
&& Close[i]>Close[i+10]
&& ((Low[i+5]>L80[i+5]-100*Point && Low[i+9]>L80[i+9]-100*Point && Low[i+8]>L80[i+8]-100*Point && Low[i+7]>L80[i+7]-100*Point && Low[i+6]>L80[i+6]-100*Point) || iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,5,i))-iLow(symbol,0,iLowest(symbol,0,MODE_LOW,10,i))>1100*Point)
) ExtUpperBuffer2[i]=ExtUpperBuffer[i];
}
return(0);
}
Album #45 was the last one for this year, I promise.
I did not qualify to participate in the Robbins because they cap the leverage at 200. Mine is 500. I am at 261.4% for the year.
I’ve noticed some useful things about monitoring for 30-sample BB width on the Daily.
ExtATRBuffer[i]= (iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_LOWER,i))*10000;
if (ExtATRBuffer[i]<ExtATRBuffer[i+1]) ExtATRBuffer2[i]=ExtATRBuffer[i];
if (ExtATRBuffer[i]<ExtATRBuffer[i+1] && ExtATRBuffer[i]<360) ExtATRBuffer3[i]=ExtATRBuffer[i];Green vertical: the flip in the expansion/start of contraction (bottoming/topping action).
Blue vertical: the flip in contraction/start of expansion (break out).
Purple = highlight of the contraction.
Magenta = less than 350 pips, contracting phase – possibly the end of a move/deep pullback.
Kampec Colores.
Onto Roultette.
Now, another thing seems to work well during the loss of volatility phase.
Talking the black horizontal arrows and the Buy/Sell For 16 Pips plots.
The whole thing revolves around the prior idea of the market switching off around the 8-hour EMA of opens. (The dots show the hourly history).
3 closes on one side red/green. Offbeat: black.
2 blacks in a row is a trigger for the potential turn. Low-risk entry with getting in on the 2-sample high/low and riding for 16 pips at least or getting stopped out in the money. A second pending entry 5 pips out for a second dip and 21 pips or more to be had.
i=0;
while (i<dotplot){
ObjectCreate("PENELOPE"+i,OBJ_LABEL,0, 0,0);
ObjectSet("PENELOPE"+i,OBJPROP_CORNER,1);
ObjectSet("PENELOPE"+i,OBJPROP_XDISTANCE,305+i*16);
ObjectSet("PENELOPE"+i,OBJPROP_YDISTANCE,510);
ObjectSetText("PENELOPE"+i,CharToStr(108),19,"Wingdings");
ObjectSet("PENELOPE"+i,OBJPROP_COLOR,clrBlack);
if (pit[i]>0) ObjectSet("PENELOPE"+i,OBJPROP_COLOR,clrGreen);
if (pit[i]<0) ObjectSet("PENELOPE"+i,OBJPROP_COLOR,clrRed);
i++;
if (pit[i]==0 && pit[i+1]==0 && pit[i+2]<0 && High[i]>iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_LOWER,i)){
ObjectCreate("PENELOPEZi"+i,OBJ_TEXT, 0, Time[i+2], iLow(symbol,0,iLowest(symbol,0,MODE_LOW,3,i))+15*Point);
ObjectSetText("PENELOPEZi"+i,CharToStr(240),29,"Wingdings");
ObjectSet("PENELOPEZi"+i,OBJPROP_COLOR,clrBlack);
ObjectCreate("PENELOPEZii"+i,OBJ_TEXT, 0, Time[i+2], iLow(symbol,0,iLowest(symbol,0,MODE_LOW,3,i))-25*Point);
ObjectSetText("PENELOPEZii"+i,"B416p@ "+DoubleToStr(NormalizeDouble(iLow(symbol,0,iLowest(symbol,0,MODE_LOW,3,i)),4),4)+"-(5)",29,"Impact");
ObjectSet("PENELOPEZii"+i,OBJPROP_COLOR,clrDarkGreen);
}
if (pit[i]==0 && pit[i+1]==0 && pit[i+2]>0 && Low[i]<iBands(symbol,0,240,2,0,PRICE_MEDIAN,MODE_UPPER,i)){
ObjectCreate("PENELOPEZi"+i,OBJ_TEXT, 0, Time[i+2], iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))+60*Point);
ObjectSetText("PENELOPEZi"+i,CharToStr(240),29,"Wingdings");
ObjectSet("PENELOPEZi"+i,OBJPROP_COLOR,clrBlack);
ObjectCreate("PENELOPEZii"+i,OBJ_TEXT, 0, Time[i+2], iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i))+80*Point);
ObjectSetText("PENELOPEZii"+i,"S416p@ "+DoubleToStr(NormalizeDouble(iHigh(symbol,0,iHighest(symbol,0,MODE_HIGH,2,i)),4),4)+"+(5)",29,"Impact");
ObjectSet("PENELOPEZii"+i,OBJPROP_COLOR,clrCrimson);
}
}
Happy Holidays!
This is what I’m thinking.
A White Shark’s Christmas is finally actual.
(Listen Without Precipice) Still-pictures set in motion A white shark's Christmas Mrs May is in disarray (What am I gonna get for Baby Shark this year?) Running out of Free-tossing bodies The fridge is full of salt I need to fix my teeth too Bear claws would be nice (I'm dreaming of white surfers)
[coughing, choking sounds]
(Last Christmas I gave you some frisbees…) (I ain’t never gonna swim again the way I swam with you…) Let’s smoke some puffer fish And get “drown” on it (’cause I’m hunting high and low…) [A-ha music runs]
[coughing, choking sounds]
(Last Christmas I gave you some frisbees…) (I ain’t never gonna swim again the way I swam with you…) Let’s smoke some puffer fish And get drown on it (’cause I’m hunting high and low…) [A-ha music runs] Let’s do this in up and arms with Mommy Shark!
[chorus]
I’m dreaming of a white surfer … Last Christmas I gave you some frisbees … Bear Claws and Turkish Delight … A shark can dream, can’t I?
ForexFore - Internals, indicators, algorithmic trading 