MME1=ExponentialAverage[24](close)
BOLLUP=BollingerUp[20](close)
BOLLDOWN=BollingerDown[20](close)
ATR=AverageTrueRange[14](close)
ParMaxLoss=5
ParMinLoss=1
ParRR=1.5
ValMaxLoss=ParMaxLoss*pipsize
ValMinLoss=ParMinLoss*pipsize
ValProfit=ParRR
StatoPosizione=0
DiffBollUp=ABS(BOLLUP[3]-Close[3])
DiffBollDown=ABS(BOLLDOWN[3]-Close[3])
DiffBoll=ABS(BOLLUP-BOLLDOWN)
if 1=1 then
l1=Open<MME1 and Close>MME1
l2=DiffBollUp > DiffBollDown
l3=Close[3]<MME1[3] and Close[2]<MME1[2] and Close[1]<MME1[1]
l4=Open[3]<MME1[3] and Open[2]<MME1[2] and Open[1]<MME1[1]
l5=DiffBoll>(ATR*3)
if PositionLongOpen=0 and l1 and l2 and l3 and l4 and l5 then
ValPrezzoPosizioneLong=Close
ValPrezzoStopLong = MIN(Low[1] , MIN(Low[2] , Low[3]) )
ValPuntiTP=ABS(ValPrezzoPosizioneLong-ValPrezzoStopLong)
if ValPuntiTP<=ValMaxLoss and ValPuntiTP>=ValMinLoss then
PositionLongOpen=1
StatoPosizione=2
ValTargetBreakEvenLong=ValPrezzoPosizioneLong+(ValPuntiTP*ValProfit)
endif
endif
if PositionLongOpen=1 and Close<= ValPrezzoStopLong or PositionLongOpen=1 and Close>= ValTargetBreakEvenLong then
if Close>ValPrezzoPosizioneLong then
DRAWARROWUP(barindex,StatoPosizione-0.3)Coloured(0,255,0)
else
DRAWARROWUP(barindex,StatoPosizione-0.3)Coloured(255,0,0)
endif
ValPrezzoPosizioneLong=0
ValTargetBreakEvenLong=0
PositionLongOpen=0
StatoPosizione=1
endif
endif
Return StatoPosizione as "StatoPosizione"
.
