//-------------------------------------------------------------------------
// MONEY*M15*FEBBRAIO*2022
//-------------------------------------------------------------------------

DEFPARAM CumulateOrders = FALSE

PositionSize = 1

//**************************************************************

BollUp = BollingerUp[36](close)
BollDown = BollingerDown[38](close)

WB1 = (close[9])  > BollDown
WB2 = (close[28]) < BollUp

WB3 = (DClose(1) < DClose(0)[26])

tor1 = CALL "CONTEGGIO CANDELE"
WA1 = (tor1 < 2)

F = 20
S = 24

MFIFAST = MoneyFlowIndex[F]
MFISLOW = MoneyFlowIndex[S]
WA2 = MFISLOW[0] > MFISLOW[F] AND MFISLOW[0] > MFISLOW[ROUND(F/2)] AND MFISLOW[0] > MFISLOW[ROUND(F/8)]
WA3 = MFIFAST[0] > MFISLOW[0]

WA4 = RSI[14] (CLOSE) > 31

WA5 = STE[10] (CLOSE) > 5

tor2 = CALL "John Ehlers Adaptive CCI"
WA6 = (tor2 < 145)

//***************************************************************
//***************************************************************

LONG = WB1 AND WB2 AND WB3 AND WA1 AND WA2 AND WA3 AND  WA4 AND WA5 AND WA6

IF LONG THEN
BUY PositionSize CONTRACT AT MARKET
SET STOP PLOSS 130
SET TARGET PPROFIT 130
ENDIF

//***************************************************************
//***************************************************************

//%trailing stop function
trailingPercent = .35 //.26
stepPercent = .25 //.014
if onmarket then
trailingstart = tradeprice(1)*(trailingpercent/100) //trailing will start @trailingstart points profit
trailingstep = tradeprice(1)*(stepPercent/100) //% step to move the stoploss
endif

 
//reset the stoploss value
IF NOT ONMARKET THEN
newSL=0
ENDIF
 
//manage long positions
IF LONGONMARKET THEN
//first move (breakeven)
IF newSL=0 AND close-tradeprice(1)>=trailingstart THEN
newSL = tradeprice(1)+trailingstep
ENDIF
//next moves
IF newSL>0 AND close-newSL>trailingstep THEN
newSL = newSL+trailingstep
ENDIF
ENDIF
 
//manage short positions
IF SHORTONMARKET THEN
//first move (breakeven)
IF newSL=0 AND tradeprice(1)-close>=trailingstart THEN
newSL = tradeprice(1)-trailingstep
ENDIF
//next moves
IF newSL>0 AND newSL-close>trailingstep THEN
newSL = newSL-trailingstep
ENDIF
ENDIF
 
//stop order to exit the positions
IF newSL>0 THEN
SELL AT newSL STOP
EXITSHORT AT newSL STOP
ENDIF

schermata-alle-15924668364l8pc.png schermata-alle-15924668364l8pc1.png