We are all multimillionaires…

Try this : I just added my famous exponential growth routine.

Starting capital on 01.08.2010 is € 1000, and we start trading with only 1 initial DAX mini contract. The system reinvests profits and grows in position size until a maximum number of 1000 DAX mini contracts is reached.

Defparam cumulateorders = false
 
//exponential growth of position size - reinvestment of profit
cp = countofposition
pp = positionperf
pprice = positionprice

SP = strategyprofit

number = 1 + ((SP + pp * pprice * ABS(cp)) / 250)

n = round(number)

If n <= 1 then
n = 1
endif

If n > 1000 then
n = 1000
endif

possize = n
 
//////////////////////////////////////////////////////////////
//Andrew Abraham Trend Trader
//Posted by @Nicolas in PRC Library
/////////////////////////////////////////////////////////////
 
Length = 21
Multiplier = 3
 
avrTR = weightedaverage[Length](AverageTrueRange[1](close))
highestC = highest[Length](high)
lowestC = lowest[Length](low)
hiLimit = highestC[1]-(avrTR[1]*Multiplier)
lolimit = lowestC[1]+(avrTR[1]*Multiplier)
 
if(close > hiLimit AND close > loLimit) THEN
ret = hiLimit
ELSIF (close < loLimit AND close < hiLimit) THEN
ret = loLimit
ELSE
ret = ret[1]
ENDIF
 
/////////////////////////////////////////////////////////////
//Simplified supertrend (without volatility component ATR)
//Posted by @verdi55 in PRC Library
/////////////////////////////////////////////////////////////
 
ONCE direction = 1
ONCE STlongold = 0
ONCE STshortold = 1000000000000
 
factor = 0.005
 
indicator1 = medianprice
 
indicator3 = close
 
indicator2 = indicator3 * factor
 
STlong = indicator1 - indicator2
 
STshort = indicator1 + indicator2
 
If direction = 1 and STlong < STlongold then
STlong = STlongold
endif
 
If direction = -1 and STshort > STshortold then
STshort = STshortold
endif
 
If direction = 1 and indicator3 < STlong then
direction = -1
endif
 
If direction = -1 and indicator3 > STshort then
direction = 1
endif
 
STlongold = STlong
STshortold = STshort
 
If direction = 1 then
ST = STlong
else
ST = STshort
endif
 
/////////////////////////////////////////////////////////////
//PRC_adaptive SuperTrend (r-square method) | indicator
//Posted by @Nicolas in PRC Library
/////////////////////////////////////////////////////////////
 
Period = 10
mult = 2
 
Data = customclose
 
SumX  = 0
SumXX = 0
SumXY = 0
SumYY = 0
SumY  = 0
 
if barindex>Period then
 
// adaptive r-squared periods
for k=0 to period-1 do
tprice = Data[k]
SumX  = SumX+(k+1)
SumXX = SumXX+((k+1)*(k+1))
SumXY = SumXY+((k+1)*tprice)
SumYY = SumYY+(tprice*tprice)
SumY  = SumY+tprice
next
   
Q1  = SumXY - SumX*SumY/period
Q2  = SumXX - SumX*SumX/period
Q3  = SumYY - SumY*SumY/period
 
iRsq=((Q1*Q1)/(Q2*Q3))
 
avg = supertrend[mult,round(Period+Period*(iRsq-0.25))]
 
EndIf
 
//////////////////////////////////////////////////////////////////
OriginalST = Supertrend[3,5]
/////////////////////////////////////////////////////////////////
 
margin = 7*pointsize
 
If countofposition = 0 and abs(ret[1]-ST[1]) > margin and abs(ret-ST) > margin Then
If close > ret and close > ST and close > avg Then
Buy possize contract at market
ElsIf close < ret and close < ST and close < avg Then
Sellshort possize contract at market
EndIf
ElsIf longonmarket and ((abs(ret[1]-ST[1]) < margin and abs(ret-ST) < margin) or ((close < ret and close < ST and close < avg and close < OriginalST) and (close[1] < ret[1] and close[1] < ST[1] and close[1] < avg[1] and close[1] < OriginalST[1]))) Then
Sell at market
ElsIf shortonmarket and ((abs(ret[1]-ST[1]) < margin and abs(ret-ST) < margin) or ((close > ret and close > ST and close > avg and close > OriginalST) and (close[1] < ret[1] and close[1] < ST[1] and close[1] > avg[1] and close[1] < OriginalST[1]))) Then
Exitshort at market
EndIf
SL = 20//15//20 // Initial SL
TP = 0//30
TSL = 1 // Use TSL?
TrailingDistance =5// 20//20//20 // Distance from close to TSL
TrailingStep =5// 20//20//3 // Pips locked at start of TSL
 
//************************************************************************
IF TSL = 1 THEN
 
//reset the stoploss value
IF NOT ONMARKET THEN
newSL = 0
CAND = 0
ENDIF
 
//manage long positions
IF LONGONMARKET THEN
//first move (breakeven)
IF newSL = 0 AND CLOSE - TRADEPRICE(1) >= TrailingDistance*PipSize THEN
newSL = TRADEPRICE(1) + TrailingStep*PipSize
ENDIF
//next moves
CAND = BarIndex - TradeIndex
IF newSL > 0 AND CLOSE[1] >= HIGHEST[CAND](CLOSE) THEN
newSL = CLOSE[1] - TrailingDistance*PipSize
ENDIF
ENDIF
 
//manage short positions
IF SHORTONMARKET THEN
//first move (breakeven)
IF newSL = 0 AND TRADEPRICE(1) - CLOSE[1] >= TrailingDistance*PipSize THEN
newSL = TRADEPRICE(1) - TrailingStep*PipSize
ENDIF
//next moves
CAND = BarIndex - TradeIndex
IF newSL > 0 AND CLOSE[1] <= LOWEST[CAND](CLOSE) THEN
newSL = CLOSE[1] + TrailingDistance*PipSize
ENDIF
ENDIF
 
//stop order to exit the positions
IF newSL > 0 THEN
SELL AT newSL STOP
EXITSHORT AT newSL STOP
ENDIF
SET STOP pLOSS SL
set target pprofit tp
ENDIF

Now look at the result ! 40 Millions out of € 1000 within 8 years, constant growth, almost no drawdown. And all of this by simple combination of 4 different supertrends ! No parameter optimization required anymore, forever !

DAX-4-Stunden-1.png result.jpg

See attached … lower equity curve is with TP = 0 and top curve is with TP commented out. Weird or what??

//set target pprofit TP

juanan71-7.jpg