Divergences SMI and CCI

• 01/11/2020 at 10:00 PM #116463
  Zigo

  I was inspired by the “Another RSI Divergence Indicator by Nicolas. The same idee has applied to the SMI and to the CCI indicators.

  Another Divergence SMI Indicator

  OverboughtLevel are not 70 and 30 RSI but 40 and -40 for SMI and 100 and -100 for CCI. And as you can see the RSI is replaced by the SMI and the CCI respectively. // Settings for SMI Divergence obLevel=40 //overbought level osLevel=-40 //oversold level minimalBars=5 //minimal count of bars where CCI is ob or os // End of settings iSMi =SMI[14,3,5](close) ob = iSMi>obLevel os = iSMi<osLevel if ob then if not ob[1] then maxSMi = 0 maxprice = 0 firstobbar = barindex endif maxSMi=max(maxSMi,ISMI) maxprice=max(maxprice,high) if maxSMi<>maxSMi[1] then maxSMibar=barindex endif endif if os then if not os[1] then minSMi = 100 minprice = close*100 firstosbar = barindex endif minSMi=min(minSMi,ISMI) minprice=min(minprice,low) if minSMi<>minSMi[1] then minSMibar=barindex endif endif divsell=0 if ISMI crosses under obLevel then //verif divergence div = maxprice>oldmaxprice and maxSMi<oldmaxSMi and (barindex-firstobbar)>=minimalBars if div then drawsegment(oldmaxSMibar,oldmaxSMi,maxSMibar,maxSMi) coloured(200,0,0) drawarrowdown(maxSMibar,maxSMi) coloured(200,0,0) DRAWVLINE(barindex)coloured(200,120,0,255) divsell=osLevel endif oldmaxSMi = maxSMi oldmaxprice = maxprice oldmaxSMibar = maxSMibar endif divbuy=0 if iSMI crosses over osLevel then //verif divergence div = minprice<oldminprice and minSMi>oldminSMi and (barindex-firstosbar)>=minimalBars if div then drawsegment(oldminSMibar,oldminSMi,minSMibar,minSMi) coloured(0,120,200) drawarrowup(minSMibar,minSMi) coloured(0,120,200) DRAWVLINE(barindex)coloured(0,120,200,255) divbuy=osLevel endif oldminSMi = minSMi oldminprice = minprice oldminSMibar = minSMibar endif return iSMI style(line,2) as "SMI",obLevel coloured(168,168,168) style(dottedline,2) as "overbought level", osLevel coloured(168,168,168) style(dottedline,1) as "oversold level", divsell coloured(200,0,0), divbuy coloured(0,200,0)

  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

  OverboughtLevel are not 70 and 30 RSI but 40 and -40 for SMI and 100 and -100 for CCI. And as you can see the RSI is replaced by the SMI and the CCI respectively.       // Settings for SMI Divergence   obLevel=40 //overbought level osLevel=-40 //oversold level minimalBars=5 //minimal count of bars where CCI is ob or os // End of settings iSMi =SMI[14,3,5](close) ob = iSMi>obLevel os = iSMi<osLevel if ob then if not ob[1] then maxSMi = 0 maxprice = 0 firstobbar = barindex endif maxSMi=max(maxSMi,ISMI) maxprice=max(maxprice,high) if maxSMi<>maxSMi[1] then maxSMibar=barindex endif endif if os then if not os[1] then minSMi = 100 minprice = close*100 firstosbar = barindex endif minSMi=min(minSMi,ISMI) minprice=min(minprice,low) if minSMi<>minSMi[1] then minSMibar=barindex endif endif     divsell=0 if ISMI crosses under obLevel then //verif divergence div = maxprice>oldmaxprice and maxSMi<oldmaxSMi and (barindex-firstobbar)>=minimalBars if div then drawsegment(oldmaxSMibar,oldmaxSMi,maxSMibar,maxSMi) coloured(200,0,0) drawarrowdown(maxSMibar,maxSMi) coloured(200,0,0) DRAWVLINE(barindex)coloured(200,120,0,255) divsell=osLevel endif oldmaxSMi = maxSMi oldmaxprice = maxprice oldmaxSMibar = maxSMibar endif divbuy=0 if iSMI crosses over osLevel then //verif divergence div = minprice<oldminprice and minSMi>oldminSMi and (barindex-firstosbar)>=minimalBars if div then drawsegment(oldminSMibar,oldminSMi,minSMibar,minSMi) coloured(0,120,200) drawarrowup(minSMibar,minSMi) coloured(0,120,200) DRAWVLINE(barindex)coloured(0,120,200,255) divbuy=osLevel endif oldminSMi = minSMi oldminprice = minprice oldminSMibar = minSMibar endif   return iSMI style(line,2) as "SMI",obLevel coloured(168,168,168) style(dottedline,2) as "overbought level", osLevel coloured(168,168,168) style(dottedline,1) as "oversold level", divsell coloured(200,0,0), divbuy coloured(0,200,0)

  Another Divergence SMI Indicator

  // Settings for CCI Divergence obLevel=40 //overbought level osLevel=-40 //oversold level minimalBars=5 //minimal count of bars where CCI is ob or os // End of settings iSMi =SMI[14,3,5](close) ob = iSMi>obLevel os = iSMi<osLevel if ob then if not ob[1] then maxSMi = 0 maxprice = 0 firstobbar = barindex endif maxSMi=max(maxSMi,ISMI) maxprice=max(maxprice,high) if maxSMi<>maxSMi[1] then maxSMibar=barindex endif endif if os then if not os[1] then minSMi = 100 minprice = close*100 firstosbar = barindex endif minSMi=min(minSMi,ISMI) minprice=min(minprice,low) if minSMi<>minSMi[1] then minSMibar=barindex endif endif divsell=0 if ISMI crosses under obLevel then //verif divergence div = maxprice>oldmaxprice and maxSMi<oldmaxSMi and (barindex-firstobbar)>=minimalBars if div then drawsegment(oldmaxSMibar,oldmaxSMi,maxSMibar,maxSMi) coloured(200,0,0) drawarrowdown(maxSMibar,maxSMi) coloured(200,0,0) DRAWVLINE(barindex)coloured(200,120,0,255) divsell=osLevel endif oldmaxSMi = maxSMi oldmaxprice = maxprice oldmaxSMibar = maxSMibar endif divbuy=0 if iSMI crosses over osLevel then //verif divergence div = minprice<oldminprice and minSMi>oldminSMi and (barindex-firstosbar)>=minimalBars if div then drawsegment(oldminSMibar,oldminSMi,minSMibar,minSMi) coloured(0,120,200) drawarrowup(minSMibar,minSMi) coloured(0,120,200) DRAWVLINE(barindex)coloured(0,120,200,255) divbuy=osLevel endif oldminSMi = minSMi oldminprice = minprice oldminSMibar = minSMibar endif return iSMI style(line,2) as "SMI",obLevel coloured(168,168,168) style(dottedline,2) as "overbought level", osLevel coloured(168,168,168) style(dottedline,1) as "oversold level", divsell coloured(200,0,0), divbuy coloured(0,200,0)

  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

  // Settings for CCI Divergence   obLevel=40 //overbought level osLevel=-40 //oversold level minimalBars=5 //minimal count of bars where CCI is ob or os // End of settings iSMi =SMI[14,3,5](close) ob = iSMi>obLevel os = iSMi<osLevel if ob then if not ob[1] then maxSMi = 0 maxprice = 0 firstobbar = barindex endif maxSMi=max(maxSMi,ISMI) maxprice=max(maxprice,high) if maxSMi<>maxSMi[1] then maxSMibar=barindex endif endif if os then if not os[1] then minSMi = 100 minprice = close*100 firstosbar = barindex endif minSMi=min(minSMi,ISMI) minprice=min(minprice,low) if minSMi<>minSMi[1] then minSMibar=barindex endif endif     divsell=0 if ISMI crosses under obLevel then //verif divergence div = maxprice>oldmaxprice and maxSMi<oldmaxSMi and (barindex-firstobbar)>=minimalBars if div then drawsegment(oldmaxSMibar,oldmaxSMi,maxSMibar,maxSMi) coloured(200,0,0) drawarrowdown(maxSMibar,maxSMi) coloured(200,0,0) DRAWVLINE(barindex)coloured(200,120,0,255) divsell=osLevel endif oldmaxSMi = maxSMi oldmaxprice = maxprice oldmaxSMibar = maxSMibar endif divbuy=0 if iSMI crosses over osLevel then //verif divergence div = minprice<oldminprice and minSMi>oldminSMi and (barindex-firstosbar)>=minimalBars if div then drawsegment(oldminSMibar,oldminSMi,minSMibar,minSMi) coloured(0,120,200) drawarrowup(minSMibar,minSMi) coloured(0,120,200) DRAWVLINE(barindex)coloured(0,120,200,255) divbuy=osLevel endif oldminSMi = minSMi oldminprice = minprice oldminSMibar = minSMibar endif   return iSMI style(line,2) as "SMI",obLevel coloured(168,168,168) style(dottedline,2) as "overbought level", osLevel coloured(168,168,168) style(dottedline,1) as "oversold level", divsell coloured(200,0,0), divbuy coloured(0,200,0)

   

  2 users thanked author for this post.

  Nicolas, Ciccio

  

  Zigo

  Participant

  Topics: 23

  Replies: 335

  Been thanked: 60 times
  01/11/2020 at 10:02 PM #116465
  Zigo

  I have seen that SMI is posted Twice(Sorry)

  

  Zigo

  Participant

  Topics: 23

  Replies: 335

  Been thanked: 60 times
  01/12/2020 at 12:57 PM #116497
  Zigo

  The code for the CCI Divergence is missing in my earlier posts, therfore I try again:

  // Settings for CCI Divergence CCIp=28 //CCI period obLevel=100 //overbought level osLevel=-100 //oversold level minimalBars=5 //minimal count of bars where CCI is ob or os // End of settings icci = cci[ccIp] ob = icci>obLevel os = icci<osLevel if ob then if not ob[1] then maxcci = 0 maxprice = 0 firstobbar = barindex endif maxcci=max(maxcci,icci) maxprice=max(maxprice,high) if maxcci<>maxcci[1] then maxccibar=barindex endif endif if os then if not os[1] then mincci = 100 minprice = close*100 firstosbar = barindex endif mincci=min(mincci,icci) minprice=min(minprice,low) if mincci<>mincci[1] then minccibar=barindex endif endif divsell=0 if icci crosses under obLevel then //verif divergence div = maxprice>oldmaxprice and maxcci<oldmaxcci and (barindex-firstobbar)>=minimalBars if div then drawsegment(oldmaxccibar,oldmaxcci,maxccibar,maxcci) coloured(200,0,0) drawarrowdown(maxccibar,maxcci) coloured(200,0,0) DRAWVLINE(barindex)coloured(200,120,0,255) divsell=osLevel endif oldmaxcci = maxcci oldmaxprice = maxprice oldmaxccibar = maxccibar endif divbuy=0 if icci crosses over osLevel then //verif divergence div = minprice<oldminprice and mincci>oldmincci and (barindex-firstosbar)>=minimalBars if div then drawsegment(oldminccibar,oldmincci,minccibar,mincci) coloured(0,120,200) drawarrowup(minccibar,mincci) coloured(0,120,200) DRAWVLINE(barindex)coloured(0,120,200,255) divbuy=osLevel endif oldmincci = mincci oldminprice = minprice oldminccibar = minccibar endif return icci style(line,2) as "CCI",obLevel coloured(168,168,168) style(dottedline,1) as "overbought level", osLevel coloured(168,168,168) style(dottedline,1) as "oversold level", divsell coloured(200,0,0), divbuy coloured(0,200,0)

  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

  // Settings for CCI Divergence CCIp=28 //CCI period obLevel=100 //overbought level osLevel=-100 //oversold level minimalBars=5 //minimal count of bars where CCI is ob or os // End of settings icci = cci[ccIp] ob = icci>obLevel os = icci<osLevel if ob then if not ob[1] then maxcci = 0 maxprice = 0 firstobbar = barindex endif maxcci=max(maxcci,icci) maxprice=max(maxprice,high) if maxcci<>maxcci[1] then maxccibar=barindex endif endif if os then if not os[1] then mincci = 100 minprice = close*100 firstosbar = barindex endif mincci=min(mincci,icci) minprice=min(minprice,low) if mincci<>mincci[1] then minccibar=barindex endif endif divsell=0 if icci crosses under obLevel then //verif divergence div = maxprice>oldmaxprice and maxcci<oldmaxcci and (barindex-firstobbar)>=minimalBars if div then drawsegment(oldmaxccibar,oldmaxcci,maxccibar,maxcci) coloured(200,0,0) drawarrowdown(maxccibar,maxcci) coloured(200,0,0) DRAWVLINE(barindex)coloured(200,120,0,255) divsell=osLevel endif oldmaxcci = maxcci oldmaxprice = maxprice oldmaxccibar = maxccibar endif divbuy=0 if icci crosses over osLevel then //verif divergence div = minprice<oldminprice and mincci>oldmincci and (barindex-firstosbar)>=minimalBars if div then drawsegment(oldminccibar,oldmincci,minccibar,mincci) coloured(0,120,200) drawarrowup(minccibar,mincci) coloured(0,120,200) DRAWVLINE(barindex)coloured(0,120,200,255) divbuy=osLevel endif oldmincci = mincci oldminprice = minprice oldminccibar = minccibar endif   return icci style(line,2) as "CCI",obLevel coloured(168,168,168) style(dottedline,1) as "overbought level", osLevel coloured(168,168,168) style(dottedline,1) as "oversold level", divsell coloured(200,0,0), divbuy coloured(0,200,0)

   

  1 user thanked author for this post.

  Ciccio

  

  Zigo

  Participant

  Topics: 23

  Replies: 335

  Been thanked: 60 times
  01/12/2020 at 1:07 PM #116501
  Zigo

  The difference in divergence is shown in a 3 min picture of the dax (last trading day)

   

   

  

  Zigo

  Participant

  Topics: 23

  Replies: 335

  Been thanked: 60 times
  01/13/2020 at 11:16 AM #116613
  Nicolas

  Thanks a lot @Zigo for giving back to the community! I appreciate a lot.

  Seems that confluent divergences of the indicators gave accurate signals in this case.

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20828

  Been thanked: 4738 times
  03/05/2020 at 2:55 PM #121259
  Zigo

  The oblevel (50)and the oslevel(-50) for CCI in a 4h graphic give good results

  The oblevel (60) and oslevel(40) for RSI in a 4h graphic

  The Oblevel (40) and Oslevel(-40) for SMI in a 4h graphic.

  Thes levels are comparable to each other. The code changes are below for the CCI and similar for RSI and SMI.

  Little changes in the code

  DRAWRECTANGLE(barindex, High+8*AverageTrueRange[14](close), barindex[1], low[1]-0.618*AverageTrueRange[14](close))coloured(125,255,125,255) DRAWTEXT("Start Div CCI Up", barindex, Low-4.23*AverageTrueRange[14](close))coloured(125,255,125,255) DRAWARROWUP(barindex, low-2.618*AverageTrueRange[14](close))coloured(125,255,125,255)

  1 2 3

  DRAWRECTANGLE(barindex, High+8*AverageTrueRange[14](close), barindex[1], low[1]-0.618*AverageTrueRange[14](close))coloured(125,255,125,255) DRAWTEXT("Start Div CCI Up", barindex, Low-4.23*AverageTrueRange[14](close))coloured(125,255,125,255) DRAWARROWUP(barindex, low-2.618*AverageTrueRange[14](close))coloured(125,255,125,255)

   

  1 user thanked author for this post.

  Al

  

  Zigo

  Participant

  Topics: 23

  Replies: 335

  Been thanked: 60 times
  03/05/2020 at 2:58 PM #121263
  Zigo

  The complete code for Div.CCI 2.0:

   

  // Settings for CCI Divergence CCIp=29 //CCI period obLevel=50 //overbought level osLevel=-50 //oversold level minimalBars=10 //minimal count of bars where CCI is ob or os // End of settings icci = cci[ccIp] ob = icci>obLevel os = icci<osLevel if ob then if not ob[1] then maxcci = 0 maxprice = 0 firstobbar = barindex endif maxcci=max(maxcci,icci) maxprice=max(maxprice,high) if maxcci<>maxcci[1] then maxccibar=barindex endif endif if os then if not os[1] then mincci = 50 minprice = close*50 firstosbar = barindex endif mincci=min(mincci,icci) minprice=min(minprice,low) if mincci<>mincci[1] then minccibar=barindex endif endif divsell=0 if icci crosses under obLevel then //verif divergence div = maxprice>oldmaxprice and maxcci<oldmaxcci and (barindex-firstobbar)>=minimalBars if div then drawsegment(oldmaxccibar,oldmaxcci,maxccibar,maxcci) coloured(200,0,0) drawarrowdown(maxccibar,maxcci) coloured(200,0,0) DRAWRECTANGLE(barindex, High+0.618*AverageTrueRange[14](close), barindex[1], low[1]-8*AverageTrueRange[14](close))coloured(255,20,0,255) DRAWTEXT("Start Div CCI Down", barindex, High+4.23*AverageTrueRange[14](close))coloured(255,120,120,255) DRAWARROWDOWN(barindex, high+2.618*AverageTrueRange[14](close))coloured(255,120,120,255) divsell=oslevel endif oldmaxcci = maxcci oldmaxprice = maxprice oldmaxccibar = maxccibar endif divbuy=0 if icci crosses over osLevel then //verif divergence div = minprice<oldminprice and mincci>oldmincci and (barindex-firstosbar)>=minimalBars if div then drawsegment(oldminccibar,oldmincci,minccibar,mincci) coloured(0,120,200) drawarrowup(minccibar,mincci) coloured(0,120,200) DRAWRECTANGLE(barindex, High+8*AverageTrueRange[14](close), barindex[1], low[1]-0.618*AverageTrueRange[14](close))coloured(125,255,125,255) DRAWTEXT("Start Div CCI Up", barindex, Low-4.23*AverageTrueRange[14](close))coloured(125,255,125,255) DRAWARROWUP(barindex, low-2.618*AverageTrueRange[14](close))coloured(125,255,125,255) divbuy=osLevel endif oldmincci = mincci oldminprice = minprice oldminccibar = minccibar endif return icci style(line,2) as "CCI",obLevel coloured(168,168,168) style(dottedline,1) as "overbought level", osLevel coloured(168,168,168) style(dottedline,1) as "oversold level", divsell coloured(200,0,0), divbuy coloured(0,200,0),0

  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

  // Settings for CCI Divergence CCIp=29 //CCI period obLevel=50 //overbought level osLevel=-50 //oversold level minimalBars=10 //minimal count of bars where CCI is ob or os // End of settings icci = cci[ccIp] ob = icci>obLevel os = icci<osLevel if ob then if not ob[1] then maxcci = 0 maxprice = 0 firstobbar = barindex endif maxcci=max(maxcci,icci) maxprice=max(maxprice,high) if maxcci<>maxcci[1] then maxccibar=barindex endif endif if os then if not os[1] then mincci = 50 minprice = close*50 firstosbar = barindex endif mincci=min(mincci,icci) minprice=min(minprice,low) if mincci<>mincci[1] then minccibar=barindex endif endif divsell=0 if icci crosses under obLevel then //verif divergence div = maxprice>oldmaxprice and maxcci<oldmaxcci and (barindex-firstobbar)>=minimalBars if div then drawsegment(oldmaxccibar,oldmaxcci,maxccibar,maxcci) coloured(200,0,0) drawarrowdown(maxccibar,maxcci) coloured(200,0,0) DRAWRECTANGLE(barindex, High+0.618*AverageTrueRange[14](close), barindex[1], low[1]-8*AverageTrueRange[14](close))coloured(255,20,0,255) DRAWTEXT("Start Div CCI Down", barindex, High+4.23*AverageTrueRange[14](close))coloured(255,120,120,255) DRAWARROWDOWN(barindex, high+2.618*AverageTrueRange[14](close))coloured(255,120,120,255) divsell=oslevel endif oldmaxcci = maxcci oldmaxprice = maxprice oldmaxccibar = maxccibar endif divbuy=0 if icci crosses over osLevel then //verif divergence div = minprice<oldminprice and mincci>oldmincci and (barindex-firstosbar)>=minimalBars if div then drawsegment(oldminccibar,oldmincci,minccibar,mincci) coloured(0,120,200) drawarrowup(minccibar,mincci) coloured(0,120,200) DRAWRECTANGLE(barindex, High+8*AverageTrueRange[14](close), barindex[1], low[1]-0.618*AverageTrueRange[14](close))coloured(125,255,125,255) DRAWTEXT("Start Div CCI Up", barindex, Low-4.23*AverageTrueRange[14](close))coloured(125,255,125,255) DRAWARROWUP(barindex, low-2.618*AverageTrueRange[14](close))coloured(125,255,125,255) divbuy=osLevel endif oldmincci = mincci oldminprice = minprice oldminccibar = minccibar endif   return icci style(line,2) as "CCI",obLevel coloured(168,168,168) style(dottedline,1) as "overbought level", osLevel coloured(168,168,168) style(dottedline,1) as "oversold level", divsell coloured(200,0,0), divbuy coloured(0,200,0),0

   

  1 user thanked author for this post.

  Nicolas

  

  Zigo

  Participant

  Topics: 23

  Replies: 335

  Been thanked: 60 times
  03/05/2020 at 3:41 PM #121266
  Zigo

  I like to discuss the three divergencies, I will give the exacttime for the different signals:

  1. 1. div. up  SMI 3/2/2020 at 9 PM
     2.  div up CCI 4/2/2020 at 5 AM
     3.  div up RSI 30/1/2020 at 9 PM
     4. div down SMI  one at 13/2/2020 at 9 PM and one at 18/2/2020 at 5 AM
     5.  div down CCI 18/2/2020 at 9 PM
     6. div down RSI 17/2/2020 at 9

  Oblevels and Oslevels

  1. SMI  40 and -40

  2. CCI 50 and – 50

  3. RSI 60 and 40

  One can also use the divergenties in smaller time frames. In the attachement there are all three divergencies visible

   

   

  1 user thanked author for this post.

  Matriciel

  

  Zigo

  Participant

  Topics: 23

  Replies: 335

  Been thanked: 60 times
  03/06/2020 at 9:21 AM #121317
  Matriciel

  Thank you for your work.
  I think the differences are difficult to trade.
  You never really know when they end.

  

  Matriciel

  Participant

  Topics: 24

  Replies: 109

  Been thanked: 24 times
• Author
  Posts