GBPUSD 4H Force_Indicator Strategy

• 06/18/2020 at 12:25 PM #136156
  Maurizio A.

  Hello everyone, this is my first strategy, based on the FORCE INDICATOR applied to GBPUSD timeframe 4H.
  The code is a draft that provides entry rules, trailing stops and money management.
  I submit it to your attention for corrections and integrations of improvements and suggestions.

  // Force indicator Strategy - GBPUSD timefrsme 4H // Concept Indicator by jebus89 // Coding Indicator by Vonasi // Strategy by Maurizio Angius DEFPARAM CumulateOrders = false DEFPARAM Preloadbars = 1000 //************************************************************************ // Indicator //p = period used for the average //AveType = 0 to 6 --- 0=SMA 1=EMA 2=WMA 3=Wilder 4=Triangular 5=End point 6=Time series //STDstart = first STD of average to be used //STDmax = maximum STD of average to be used //STDstep = Step levels of STD used STDstart = 0.1 STDmax= 10 STDstep = 0.1 if close > Average[p, AveType](close) then a = STDstart force = 0 while a <= STDmax if close > Average[p, AveType](close) + a*std[p](close) then force = force + 1 a = a + STDstep else break endif wend endif if close < Average[p, AveType](close) then a = -STDstart force = 0 while a >= -STDmax if close < Average[p, AveType](close) + a*std[p](close) then force = force - 1 a = a - STDstep else break endif wend endif ONCE NbBarLimit = 10 //************************************************************************ // Money Management Capital = 1000 Risk = 0.01 StopLoss = SL equity = Capital + StrategyProfit maxrisk = equity * Risk MinSize = 1 PositionSize = max(MinSize, (maxrisk/StopLoss)) //************************************************************************ // entry long condition l1 = force[2] = 0 l2 = force[1] > force[2] IF l1 and l2 THEN MyLimitBuy = high MyIndex = Barindex ENDIF IF BarIndex >= MyIndex + NbBarLimit THEN MyLimitBuy = 0 ENDIF IF MyLimitBuy > 0 AND NOT LongOnMarket THEN BUY PositionSize CONTRACT AT MyLimitBuy STOP Set Stop Loss abs(close - lowest[20](low)) SL = abs(close - lowest[20](low))/POINTSIZE ENDIF //************************************************************************ // entry short condition s1 = force[2] = 0 s2 = force[1] < force[2] IF s1 and s2 THEN MyLimitSell = low MyIndex = Barindex ENDIF IF BarIndex >= MyIndex + NbBarLimit THEN MyLimitSell = 0 ENDIF IF MyLimitSell > 0 AND NOT ShortOnMarket THEN SELLSHORT PositionSize CONTRACT AT MyLimitSell STOP Set Stop Loss abs(close - highest[20](high)) SL = abs(close - highest[20](high))/POINTSIZE ENDIF //************************************************************************ //trailing stop function trailingstart = Tstart //trailing will start @trailinstart points profit trailingstep = 5 //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 //************************************************************************

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149

  // Force indicator Strategy - GBPUSD timefrsme 4H // Concept Indicator by jebus89 // Coding Indicator by Vonasi // Strategy by Maurizio Angius   DEFPARAM CumulateOrders = false DEFPARAM Preloadbars = 1000   //************************************************************************   // Indicator //p = period used for the average //AveType = 0 to 6 --- 0=SMA 1=EMA 2=WMA 3=Wilder 4=Triangular 5=End point 6=Time series //STDstart = first STD of average to be used //STDmax = maximum STD of average to be used //STDstep = Step levels of STD used   STDstart = 0.1 STDmax= 10 STDstep = 0.1   if close > Average[p, AveType](close) then a = STDstart force = 0 while a <= STDmax if close > Average[p, AveType](close) + a*std[p](close) then force = force + 1 a = a + STDstep else break endif wend endif   if close < Average[p, AveType](close) then a = -STDstart force = 0 while a >= -STDmax if close < Average[p, AveType](close) + a*std[p](close) then force = force - 1 a = a - STDstep else break endif wend endif   ONCE NbBarLimit = 10   //************************************************************************   // Money Management   Capital = 1000 Risk = 0.01 StopLoss = SL equity = Capital + StrategyProfit maxrisk = equity * Risk MinSize = 1 PositionSize = max(MinSize, (maxrisk/StopLoss))   //************************************************************************   // entry long condition   l1 = force[2] = 0 l2 = force[1] > force[2]   IF l1 and l2 THEN MyLimitBuy = high MyIndex = Barindex ENDIF   IF BarIndex >= MyIndex + NbBarLimit THEN MyLimitBuy = 0 ENDIF   IF MyLimitBuy > 0 AND NOT LongOnMarket THEN BUY PositionSize CONTRACT AT MyLimitBuy STOP Set Stop Loss abs(close - lowest[20](low)) SL = abs(close - lowest[20](low))/POINTSIZE   ENDIF   //************************************************************************   // entry short condition   s1 = force[2] = 0 s2 = force[1] < force[2]   IF s1 and s2 THEN MyLimitSell = low MyIndex = Barindex ENDIF   IF BarIndex >= MyIndex + NbBarLimit THEN MyLimitSell = 0 ENDIF   IF MyLimitSell > 0 AND NOT ShortOnMarket THEN SELLSHORT PositionSize CONTRACT AT MyLimitSell STOP Set Stop Loss abs(close - highest[20](high)) SL = abs(close - highest[20](high))/POINTSIZE ENDIF   //************************************************************************   //trailing stop function   trailingstart = Tstart //trailing will start @trailinstart points profit trailingstep = 5 //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   //************************************************************************

   

  3 users thanked author for this post.

  keewee, swedshare, GraHal

  

  Maurizio A.

  Participant

  Topics: 7

  Replies: 14

  Been thanked: 4 times
  06/18/2020 at 2:11 PM #136438
  robertogozzi

  Thank you for sharing.

  I think it will be of interest to many of us in this community.

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 18049

  Been thanked: 4612 times
  06/18/2020 at 3:01 PM #136462
  GraHal

  Seems very adaptable to Instruments and Timeframes.

  Results attached for DJI 15 mins, spread = 4.

  Didn’t have time to wait for full backtest, so attached is over 10k bars only.

  

  GraHal

  Participant

  Topics: 222

  Replies: 9292

  Been thanked: 2460 times
• Author
  Posts