Entrata con Supertrend dopo divergenza

• 07/06/2020 at 11:53 AM #138547
  michelebazzoni

  Buongiorno

  vorrei implementare una strategia ovvero alla identificazione di una divergenza sul CCI  col supetrend:

  Identificazione divergenza rialzista -> entrata long quando il supertrend diventa verde e stop quando il supetrend diventa rosso.

  Identificazione divergenza ribassista -> entrata short quando il supertrend diventa rosso e stop quando il supetrend diventa verde.

  Se possibile inserire anche un tempo limite per l’entrata es. dopo 10 barre dalla segnalazione della divergenza se non è partita l’entrata, annullare l’operazione.

  Riporto di seguito il codice che ho fatto per individuazione della divergenza col CCI.

  Period = 20 OverSold = -150 OverBought = 150 MinBarRange = 5 Rge = averagetruerange[10](close) MyCCI = cci[Period](typicalprice) ONCE ShiftText = 3 CCIMax = MyCCI < MyCCI[1] and MyCCI[1] > MyCCI[2] and MyCCI[1] > OverBought CCIMin = MyCCI > MyCCI[1] and MyCCI[1] < MyCCI[2] and MyCCI[1] < OverSold if CCIMax then CCIMax1 = MyCCI[1] High1 = High[1] for I = MinBarRange to 80 if CCIMax[I] then CCIMax2 = MyCCI[I + 1] High2 = High[I + 1] If High1 > High2 and RSIMax1 < RSIMax2 then DRAWARROWDOWN(barindex, High + Rge / ShiftText)coloured(255,192,203,255) DRAWTEXT("dd", barindex, High + Rge / ShiftText / 0.3,SansSerif,Italic,10)coloured(0,0,255,255) endif break endif next endif if CCIMin then CCIMin1 = MyCCI[1] Low1 = Low[1] for I = MinBarRange to 80 if CCIMin[I] then CCIMin2 = MyCCI[I + 1] Low2 = Low[I + 1] If Low1 < Low2 and RSIMin1 > RSIMin2 then DRAWARROWUP(barindex, lOW - Rge / ShiftText)coloured(0,0,255,255) DRAWTEXT("dd", barindex, lOW - Rge / ShiftText / 0.3,SansSerif,Italic,10)coloured(0,0,255,255) endif break endif next endif return

  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

  Period = 20 OverSold = -150 OverBought = 150 MinBarRange = 5   Rge = averagetruerange[10](close) MyCCI = cci[Period](typicalprice)   ONCE ShiftText = 3   CCIMax = MyCCI < MyCCI[1] and MyCCI[1] > MyCCI[2] and MyCCI[1] > OverBought CCIMin = MyCCI > MyCCI[1] and MyCCI[1] < MyCCI[2] and MyCCI[1] < OverSold   if CCIMax then CCIMax1 = MyCCI[1] High1 = High[1]   for I = MinBarRange to  80 if CCIMax[I] then CCIMax2 = MyCCI[I + 1] High2 = High[I + 1] If High1 > High2 and RSIMax1 < RSIMax2 then DRAWARROWDOWN(barindex, High + Rge / ShiftText)coloured(255,192,203,255) DRAWTEXT("dd", barindex, High + Rge / ShiftText / 0.3,SansSerif,Italic,10)coloured(0,0,255,255) endif break endif next endif   if CCIMin then CCIMin1 = MyCCI[1] Low1 = Low[1]   for I = MinBarRange to  80 if CCIMin[I] then CCIMin2 = MyCCI[I + 1] Low2 = Low[I + 1] If Low1 < Low2 and RSIMin1 > RSIMin2 then DRAWARROWUP(barindex, lOW - Rge / ShiftText)coloured(0,0,255,255) DRAWTEXT("dd", barindex, lOW - Rge / ShiftText / 0.3,SansSerif,Italic,10)coloured(0,0,255,255) endif break endif next endif   return

   

  

  michelebazzoni

  Participant

  Topics: 1

  Replies: 0

  Been thanked: 0 times
  09/29/2020 at 11:25 AM #145823
  robertogozzi

  Posta il codice funzionante, altrimenti è impossibile creare qualcosa.

   

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17778

  Been thanked: 4428 times
• Author
  Posts