"E" Success System

How can I find out about the "E" Success system? I"m having a little trouble making heads or tails out of the system.

It's just 3 simple moving average lines. A 5 period, a 10 period, and a 20 period. When the 5 and 10 cross over the 20, that's your queue to take action in that direction. It came from a book that Darcy read some time back. I don't remember the name of the book. I think the book was on GW's reading list, but I can't remember for sure.

I adjusted to MA 3, 5, 15 instead of original setup MA 5, 10, 30. See below code for your reference.

#Default MA1= 5, MA2= 10, MA3= 30;
declare upper;

def MA1 = Average(close, 3);
def MA2 = Average(close, 5);
def MA3 = Average(close, 15);


# define e-signal and crossover point
def Eup = MA1 > MA2 && MA2 > MA3;
def Edn = MA1 < MA2 && MA2 < MA3;

# Plot the moving average lines
#plot ln1 = MA1;
#ln1.SetDefaultColor(CreateColor(0, 153, 51));
#ln1.SetLineWeight(2);
#plot ln2 = MA2;
#ln2.SetDefaultColor(CreateColor(0, 153, 255));
#ln2.SetLineWeight(2);
#plot ln3 = MA3;
#ln3.SetDefaultColor(CreateColor(255, 102, 102));
#ln3.SetLineWeight(2);

#EMA7
plot EMA7 = ExpAverage(close, 7);
EMA7.SetDefaultColor(GetColor(4));

# money flow
def MF = TotalSum(if close < close[1] then -close * volume else if close > close[1] then close * volume else 0);

Def MFup = mf > mf[1];
def MFdn = mf < mf[1];

# ema 8 & ema21 trend
def trendup2 = ExpAverage(close, 8) > ExpAverage(close, 21);
def trenddn2 = ExpAverage(close, 8) < ExpAverage(close, 21);

#ADX
#Default Length= 10;
input length = 5;
input averageType = AverageType.EXPONENTIAL;
DEF ADX = DMI(length, averageType).ADX;

# show trade signal
def bulltrade = eup and mfup and trendup2 and adx > 25;
def beartrade = edn and mfdn and trenddn2 and adx > 25;

AddLabel(bulltrade, "BULL TRADE", (color.blue));
AddLabel(beartrade, "BEAR TRADE", (color.DARK_RED));

AssignBackgroundColor( if bulltrade then Color.LIGHT_GREEN else if beartrade then Color.PINK else Color.gray );

plot dotUp1 = if bulltrade and !bulltrade[1] then low - 1 else Double.NaN;
dotUp1.SetPaintingStrategy(PaintingStrategy.POINTS);
dotUp1.SetLineWeight(5);
dotUp1.SetDefaultColor(Color.blue);
plot dotDn1 = if beartrade and !beartrade[1] then high + 1.0 else Double.NaN;
dotDn1.SetPaintingStrategy(PaintingStrategy.POINTS);
dotDn1.SetLineWeight(5);
dotDn1.SetDefaultColor(Color.dark_red);

# Calculate Meter Values
def sl1 = ma1 > ma1[1];
def sl2 = ma2 > ma2[1];
def sl3 = ma3 > ma3[1];
def p1 = close > ma1;
def p2 = close > ma2;
def p3 = close > ma3;
def u1 = 2 * (close > open);
def u2 = 2 * (close > high[1]);
def d1 = 2 * (close < open);
def d2 = 2 * (close < low[1]);

def UPstr = sl1 + sl2 + sl3 + p1 + p2 + p3 + u1 + u2;
def DNstr = !sl1 + !sl2 + !sl3 + !p1 +!p2 + !p3 + d1 + d2;

# Add Strength Meter
AddLabel(Eup or Edn, " ", if Eup and UPstr >= 3 then CreateColor(128, 199, 94) else if Edn and DNstr >= 3 then CreateColor(232, 143, 153) else CreateColor(177,177,166));
AddLabel(Eup or Edn, " ", if Eup and UPstr >= 6 then CreateColor(99, 197, 72) else if Edn and DNstr >= 6 then CreateColor(238, 123, 136) else CreateColor(177,177,166));
AddLabel(Eup or Edn, " ", if Eup and UPstr >= 8 then CreateColor(65, 195, 50) else if Edn and DNstr >= 8 then CreateColor(245, 101, 117) else CreateColor(177,177,166));
AddLabel(Eup or Edn, " ", if Eup and UPstr == 10 then CreateColor(41, 192, 36) else if Edn and DNstr == 10 then CreateColor(249, 81, 101) else CreateColor(177,177,166));


#PLOT 50 & 200 MA
def MA5 = Average(close, 50);
def MA4 = Average(close, 200);



# Bollinger Bands
#Default sDev = 21, MA21 =21;
def sDev = StDev(data = close, length = 20);
def MA21 = Average(close, 20);

plot UpperBand = MA21 + 2 * sDev;

plot LowerBand = MA21 - 2 * sDev;

UpperBand.SetDefaultColor(CreateColor(120, 163, 214));

LowerBand.SetDefaultColor(CreateColor(120, 163, 214));

UpperBand.SetLineWeight(1);

LowerBand.SetLineWeight(1);

DefineGlobalColor("FillColor", CreateColor(160, 160, 160));
AddCloud(UpperBand, LowerBand, GlobalColor("FillColor" ));

anky7544 ,

Still don't have a feel for how this works. are there any trade rules for this?

When Darcy first referenced the E trade she instructed that she was introduced to it in the book Technical Analysis for DUMMIES. My book shows the trade on page 220. She also said that she read other books like the market makers edge and with the training from Gary Williams, she can read the charts. She also said to study the mouse pad from www.candlestickforum.com that shows the major candle stick reversal patterns. She never intended this to be a black box trade. She and S.O. have spent hundreds of hours studying the charts, you have to know what’s above you and what’s below you that could affect your trade. Alexander Elder talks about his system with multiple time frames to know what is happening in different time frames. If you want it to be easy you might as well quit now. She also said that she could not trade with TOS and used Qcharts or Strategy Desk

For those of you (like me) still using StrategyDesk (SD) as your primary charting platform, here's the code I use to track & signal E-trades. Two additional twists I introduced were the Weekly & Daily trends (i.e., E signal must be in the same direction as Weekly and Daily charts). Feel free to cut/paste into your SD platform:

{MTUT_W_and_D_Trend}
(MovingAverage[MA,Close,10,0,30] > MovingAverage[MA,Close,20,0,30] AND MovingAverage[MA,Close,5,0,30] > MovingAverage[MA,Close,10,0,30] AND
MovingAverage[MA,Close,10,0,20] > MovingAverage[MA,Close,20,0,20] AND MovingAverage[MA,Close,5,0,20] > MovingAverage[MA,Close,10,0,20] AND
MovingAverage[MA,Close,10,0,10] > MovingAverage[MA,Close,20,0,10] AND MovingAverage[MA,Close,5,0,10] > MovingAverage[MA,Close,10,0,10] AND
MovingAverage[MA,Close,10,0,8] > MovingAverage[MA,Close,20,0,8] AND MovingAverage[MA,Close,5,0,8] > MovingAverage[MA,Close,10,0,8] AND
MovingAverage[MA,Close,10,0,5] > MovingAverage[MA,Close,20,0,5] AND MovingAverage[MA,Close,5,0,5] > MovingAverage[MA,Close,10,0,5] AND
MovingAverage[MA,Close,10,0,3] > MovingAverage[MA,Close,20,0,3] AND MovingAverage[MA,Close,5,0,3] > MovingAverage[MA,Close,10,0,3] AND
DirectionalMovement[ADX,5,13,30] > 25 AND
DirectionalMovement[ADX,5,13,20] > 25 AND
DirectionalMovement[ADX,5,13,10] > 25 AND
DirectionalMovement[ADX,5,13,8] > 25 AND
DirectionalMovement[ADX,5,13,5] > 25 AND
DirectionalMovement[ADX,5,13,3] > 25 AND
MoneyFlowIndex[MFI,14,30] > MoneyFlowIndex[MFI,14,30,1] AND
MoneyFlowIndex[MFI,14,20] > MoneyFlowIndex[MFI,14,20,1] AND
MoneyFlowIndex[MFI,14,10] > MoneyFlowIndex[MFI,14,10,1] AND
MoneyFlowIndex[MFI,14,8] > MoneyFlowIndex[MFI,14,8,1] AND
MoneyFlowIndex[MFI,14,5] > MoneyFlowIndex[MFI,14,5,1] AND
MoneyFlowIndex[MFI,14,3] > MoneyFlowIndex[MFI,14,3,1] AND
ExpMovingAverage[EMA,Close,8,0,30] > ExpMovingAverage[EMA,Close,21,0,30] AND
ExpMovingAverage[EMA,Close,8,0,20] > ExpMovingAverage[EMA,Close,21,0,20] AND
ExpMovingAverage[EMA,Close,8,0,10] > ExpMovingAverage[EMA,Close,21,0,10] AND
ExpMovingAverage[EMA,Close,8,0,8] > ExpMovingAverage[EMA,Close,21,0,8] AND
ExpMovingAverage[EMA,Close,8,0,5] > ExpMovingAverage[EMA,Close,21,0,5] AND
ExpMovingAverage[EMA,Close,8,0,3] > ExpMovingAverage[EMA,Close,21,0,3] AND
StochasticRSI[StocK,13,21,5,3,W] > StochasticRSI[StocD,13,21,5,3,W] AND
StochasticRSI[StocK,13,21,5,3,W] > StochasticRSI[StocD,13,21,5,3,W] AND
MACD[Diff,Close,8,13,5,W] > 0 AND
StochasticRSI[StocK,13,21,5,3,D] > StochasticRSI[StocD,13,21,5,3,D] AND
StochasticRSI[StocK,13,21,5,3,D] > StochasticRSI[StocD,13,21,5,3,D] AND
MACD[Diff,Close,8,13,5,D] > 0) * 1

OR

(MovingAverage[MA,Close,10,0,30] < MovingAverage[MA,Close,20,0,30] AND MovingAverage[MA,Close,5,0,30] < MovingAverage[MA,Close,10,0,30] AND
MovingAverage[MA,Close,10,0,20] < MovingAverage[MA,Close,20,0,20] AND MovingAverage[MA,Close,5,0,20] < MovingAverage[MA,Close,10,0,20] AND
MovingAverage[MA,Close,10,0,10] < MovingAverage[MA,Close,20,0,10] AND MovingAverage[MA,Close,5,0,10] < MovingAverage[MA,Close,10,0,10] AND
MovingAverage[MA,Close,10,0,8] < MovingAverage[MA,Close,20,0,8] AND MovingAverage[MA,Close,5,0,8] < MovingAverage[MA,Close,10,0,8] AND
MovingAverage[MA,Close,10,0,5] < MovingAverage[MA,Close,20,0,5] AND MovingAverage[MA,Close,5,0,5] < MovingAverage[MA,Close,10,0,5] AND
MovingAverage[MA,Close,10,0,3] < MovingAverage[MA,Close,20,0,3] AND MovingAverage[MA,Close,5,0,3] < MovingAverage[MA,Close,10,0,3] AND
DirectionalMovement[ADX,5,13,30] > 25 AND
DirectionalMovement[ADX,5,13,20] > 25 AND
DirectionalMovement[ADX,5,13,10] > 25 AND
DirectionalMovement[ADX,5,13,8] > 25 AND
DirectionalMovement[ADX,5,13,5] > 25 AND
DirectionalMovement[ADX,5,13,3] > 25 AND
MoneyFlowIndex[MFI,14,30] < MoneyFlowIndex[MFI,14,30,1] AND
MoneyFlowIndex[MFI,14,20] < MoneyFlowIndex[MFI,14,20,1] AND
MoneyFlowIndex[MFI,14,10] < MoneyFlowIndex[MFI,14,10,1] AND
MoneyFlowIndex[MFI,14,8] < MoneyFlowIndex[MFI,14,8,1] AND
MoneyFlowIndex[MFI,14,5] < MoneyFlowIndex[MFI,14,5,1] AND
MoneyFlowIndex[MFI,14,3] < MoneyFlowIndex[MFI,14,3,1] AND
ExpMovingAverage[EMA,Close,8,0,30] < ExpMovingAverage[EMA,Close,21,0,30] AND
ExpMovingAverage[EMA,Close,8,0,20] < ExpMovingAverage[EMA,Close,21,0,20] AND
ExpMovingAverage[EMA,Close,8,0,10] < ExpMovingAverage[EMA,Close,21,0,10] AND
ExpMovingAverage[EMA,Close,8,0,8] < ExpMovingAverage[EMA,Close,21,0,8] AND
ExpMovingAverage[EMA,Close,8,0,5] < ExpMovingAverage[EMA,Close,21,0,5] AND
ExpMovingAverage[EMA,Close,8,0,3] < ExpMovingAverage[EMA,Close,21,0,3] AND
StochasticRSI[StocK,13,21,5,3,W] < StochasticRSI[StocD,13,21,5,3,W] AND
StochasticRSI[StocK,13,21,5,3,W] < StochasticRSI[StocD,13,21,5,3,W] AND
MACD[Diff,Close,8,13,5,W] < 0 AND
StochasticRSI[StocK,13,21,5,3,D] < StochasticRSI[StocD,13,21,5,3,D] AND
StochasticRSI[StocK,13,21,5,3,D] < StochasticRSI[StocD,13,21,5,3,D] AND
MACD[Diff,Close,8,13,5,D] < 0) * 2