defparam cumulateorders = false
ActivatePattern1 = 1//activate or not the 1st pattern (0=false) -> PINBAR PATTERN
ActivatePattern2 = 1//activate or not the 2nd pattern (0=false) -> SECOND PATTERN
ActivatePattern3 = 1 //activate or not the 3rd pattern (0=false) -> THIRD PATTERN
MAtype = 1 //0=SMA ; 1=EMA
MAperiod = 21 //Moving average period
MAprice = close //MA price (close,high,low,open)
MAdifference = 0 //points difference from moving average and the pinbar (0=disable)
CandleCount = 3//5//candles count above/below Moving Average
MinimoMassimoDecrescente = 0 //minimum candles to increase or decrease before pattern 1,2 or 3
MaxStop = 50//30//maximum stoploss value in points15
MinStop = 8//minimum stoploss value in points
TimeStart = 080000 //time to start the strategy
TimeEnd = 150000 //time to end the strategy
MaxTradesPerDay = 5 //max quantity of trades each day
BarsExpiration = 2 //how much bars to wait to expire pending orders
cc = CCI[20]
targetplong = (cc < 20)
targetpshort = (cc > -20)
///filtro operazioni in perdita//
stoch = Stochastic[8,3](close)
short1 = stoch > 21
short2 = stoch < 40
/////////////////
// Position size module, 2 is the default. Can be adapted to scale with the profits
/////////////////////////////////////////////////////////////////////////
positionsize=2//+2*round((strategyprofit*2)/10000)
maybe= positionperf(1)<0
losses = positionperf(1)<0 and positionperf(2)<0
if losses then
PositionSize = 3//+3*round((strategyprofit*2)/10000)
elsif not losses then
PositionSize = 2//+2*round((strategyprofit*2)/10000)
Endif
if maybe and not losses then
positionsize=3//+3*round((strategyprofit*2)/10000)
endif
if positionperf(1)<0 and positionperf(2)<0 and positionperf(3)<0 then
positionSize=2//+2*round((strategyprofit*2)/10000)
endif
if positionperf(1)>0 and positionperf(2)>0 then
positionsize=1//+1*round((strategyprofit*2)/10000)
endif
if positionperf(1)<0 and positionperf(2)<0 and positionperf(3)<0 and positionperf(4)<0 and positionperf(5)<0 and positionperf(6)<0 then
positionsize=5
endif
if positionperf(1)>0 and positionperf(2)>0 and positionperf(3)>0 and positionperf(4)>0 and positionperf(5)>0 and positionperf(6)>0 then
positionsize=1
endif
// ---
once buylevel=0
once selllevel=0
if longonmarket or barindex-tradeindex(1)<BarsExpiration then
// set buy level @ 0 to avoid new pending order
buylevel = 0
endif
if shortonmarket or barindex-tradeindex(1)<BarsExpiration then
// set sell level @ 0 to avoid new pending order
selllevel = 0
endif
if intradaybarindex = 0 then
tradecount = 0
endif
tcondition = time>=TimeStart and time<TimeEnd
if MAtype=1 then
ma = exponentialaverage[MAperiod](MAprice)
else
ma = average[MAperiod](MAprice)
endif
//Trade count
if onmarket and tradeprice<>savedprice then
tradecount = tradecount+1
savedprice = tradeprice
endif
//Candles count
if close>ma then
above = above+1
below = 0
endif
if close<ma then
above = 0
below = below+1
endif
//Increase/Decrease count
if MinimoMassimoDecrescente>0 then
//lowincrease = summation[MinimoMassimoDecrescente+1](low>low[1])
//highdecrease = summation[MinimoMassimoDecrescente+1](high<high[1])
else
//lowincrease = 1
//highdecrease = 1
endif
//Pin Bar
//body = abs(open-close)>=1*pointsize
if close>open then
//bullishtail = (open-low>=0.33*range)
//bullishnose = (high-close<0.18*range)
//bearishtail = (high-close>=0.33*range)
//bearishnose = (open-low<0.18*range)
else
//bullishtail = (close-low>=0.33*range)
//bullishnose = (high-open<0.18*range)
//bearishtail = (high-open>=0.33*range)
//bearishnose = (close-low<0.18*range)
endif
if ActivatePattern1 then
//buypattern1 = body and bullishtail and bullishnose and highdecrease>=MinimoMassimoDecrescente and low<low[1] and close>open//and low>ma and low[1]>(high+low)/2 //+50%
buypattern1 = low < low[1] AND close > open AND close[1] < open[1]
//sellpattern1 = body and bearishtail and bearishnose and lowincrease>=MinimoMassimoDecrescente and high>high[1] and close<open//and high<ma and high[1]<(high+low)/2 //+50%
sellpattern1 = high > high[1] AND close < open AND close[1] > open[1]
else
buypattern1 = 0
sellpattern1 = 0
endif
//Max Above / Below patterns
if ActivatePattern2 then
//buypattern2 = close>open and summation[2](close[1]<open[1])=2 and high>high[1] and low<low[1] and highdecrease>=MinimoMassimoDecrescente
buypattern2 = low > low[1] AND high > high[1] AND close > open AND (summation[2](close[1] < open[1]) = 2)
//sellpattern2 = close<open and summation[2](close[1]>open[1])=2 and high>high[1] and low<low[1] and lowincrease>=MinimoMassimoDecrescente
sellpattern2 = low < low[1] AND high < high[1] AND close < open AND (summation[2](close[1] > open[1]) = 2)
else
buypattern2 = 0
sellpattern2 = 0
endif
//Pattern 3
if ActivatePattern3 then
//buypattern3 = close>open and summation[2](close[1]<open[1])=2 and high>high[1] and low<low[1] and highdecrease>=MinimoMassimoDecrescente
buypattern3 = low < low[1] AND close > open AND close[1] < open[1]
//sellpattern3 = close<open and summation[2](close[1]>open[1])>=1 and high>high[1] and low>low[1] and lowincrease>=MinimoMassimoDecrescente
sellpattern3 = high > high[1] AND close < open AND close[1] > open[1]
else
buypattern3 = 0
sellpattern3 = 0
endif
//MA difference activate or not
if MAdifference=0 then
buydiff = 1
selldiff = 1
else
buydiff = low-ma>=MAdifference*pointsize
selldiff = ma-high>=MAdifference*pointsize
endif
//long conditions tested
if not longonmarket and (buypattern1 or buypattern2 or buypattern3) and tcondition and tradecount<MaxTradesPerDay and above>=candlecount and buydiff then
savedbarindex = barindex
buylevel = high
stoplossvalue = range
//buySL = low
endif
while not longonmarket and buylevel>0 and barindex<=savedbarindex+BarsExpiration and stoplossvalue<MaxStop*pointsize and stoplossvalue>MinStop*pointsize and not onmarket[1] and barindex>tradeindex(1)+BarsExpiration and tcondition do
buy positionsize share at buylevel stop
wend
//short conditions tested
if not shortonmarket and (sellpattern1 or sellpattern2 or sellpattern3) and tcondition and tradecount<MaxTradesPerDay and below>=candlecount and selldiff then
savedbarindex = barindex
selllevel = low
stoplossvalue = range
//sellSL = high
endif
while not shortonmarket and selllevel>0 and barindex<=savedbarindex+BarsExpiration and stoplossvalue<MaxStop*pointsize and stoplossvalue>MinStop*pointsize and not onmarket[1] and barindex>tradeindex(1)+BarsExpiration and tcondition and short1 and short2 do
sellshort positionsize share at selllevel stop
wend
if longonmarket and targetplong then
sell at market
endif
if shortonmarket and targetpshort then
exitshort at market
endif
////*********************************************************************
//trailing stop function
trailingstart = 50//58 //25 // trailing will start @trailinstart points profit
trailingstep = 10//60 //27// trailing step to move the "stoploss"
//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*pipsize THEN
newSL = tradeprice(1)+trailingstep*pipsize
ENDIF
//next moves
IF newSL>0 AND close-newSL>=trailingstep*pipsize THEN
newSL = newSL+trailingstep*pipsize
ENDIF
ENDIF
//manage short positions
IF SHORTONMARKET THEN
//first move (breakeven)
IF newSL=0 AND tradeprice(1)-close>=trailingstart*pipsize THEN
newSL = tradeprice(1)-trailingstep*pipsize
ENDIF
//next moves
IF newSL>0 AND newSL-close>=trailingstep*pipsize THEN
newSL = newSL-trailingstep*pipsize
ENDIF
ENDIF
//stop order to exit the positions
IF newSL>0 THEN
SELL AT newSL STOP
EXITSHORT AT newSL STOP
ENDIF
//************************************************************************
.
