//Backtest: Entry crossing EMA89, with moving stoploss.
// LONG
// Step 1: stoploss first at low,
// Step 2: then move stoploss to neutral when D>80 and D[1]>D,
// Step 3: then move stoploss to the lowest low within the stochastic cyclelow (D<50) after the cycle has finished, so after D crosses over 50 again.
E = exponentialaverage[89]
K = stochastic[14,3]
D = average[3](K)
//
IF Not OnMarket THEN
MyLowest = 0
ENDIF
//
//LONG BUY ENTRY with Step 1: Stoploss at low
if NOT OnMarket AND close > high[1] and close > high[3] and open < close and low < E and close > E and D<80 then
BUY 1 CONTRACTS AT MARKET
StopLoss = low
MyLowest = 0
endif
// Step 2: Stoploss moves to neutral
If LongOnMarket AND D> 80 and D[1]> D THEN
StopLoss = tradeprice
endif
//start of cyclelow looking for the lowest price as long as Stochastic %D<50 and after %D crosses over 50
If D[1] => 50 and D < 50 then
incyclelow = 1
lowestprice2 = lowestprice
Lowestprice = low
endif
//End of cyclelow
If D [1] < 50 and D => 50 then
incyclelow = 0
endif
////////////////////////////////////////////
IF OnMarket THEN
IF D CROSSES UNDER 50 THEN
MyLowest = low
ENDIF
IF D < 50 AND MyLowest <> 0 THEN
MyLowest = min(MyLowest,low)
ENDIF
IF D CROSSES OVER 50 AND MyLowest <> 0 THEN
StopLoss = min(MyLowest,low)
ENDIF
ENDIF
//////////////////////////////
//lowest price in Stochastic cycle %D<50
if incyclelow then
lowestprice = min(lowestprice, low)
Dlowest = min(Dlowest, D)
endif
// What is the lowest price bar of this cycle after the cyclelow has closed and %D crosses over 50?
// Step 3: Move stoploss to lowest price in cyclelow
if lowestprice<>lowestprice[1] then
lowestpriceBar=barindex
//StopLoss = lowestprice
endif
//Stop Loss and TA
IF OnMarket THEN
SELL AT StopLoss STOP
ELSE
MyLowest = 0
ENDIF
//graph (D[1] > D) AND (D > 80) AND LongOnMarket
graphonprice StopLoss
.
