BBands Stop indicator convert into a screener

• 11/03/2018 at 5:17 PM #84095
  Willy

  Hello,

  Can someone help me to convert the indicator “BBands Stop” into a screener. I am not very familiar with the programming code.

  BBands Stop

  //PRC_BBands Stop | indicator //30.03.2017 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge //translated from MT4 code // --- settings //Length=20 // Bollinger Bands Period //Deviation=2 // Deviation //MoneyRisk=1.00 // Offset Factor // --- end of settings avg=average[Length] dev=std[Length]*Deviation smax = avg+dev smin = avg-dev if close>smax[1] then trend=1 endif if close<smin[1] then trend=-1 endif if trend>0 and smin<smin[1] then smin=smin[1] endif if trend<0 and smax>smax[1] then smax=smax[1] endif bsmax=smax+0.5*(MoneyRisk-1)*(smax-smin) bsmin=smin-0.5*(MoneyRisk-1)*(smax-smin) if(trend>0 and bsmin<bsmin[1]) then bsmin=bsmin[1] endif if(trend<0 and bsmax>bsmax[1]) then bsmax=bsmax[1] endif if trend>0 then TrendLine=bsmin r=127 g=255 drawtext("•",barindex,bsmin,Dialog,Standard,10) coloured(r,g,0) if trend[1]<0 then drawtext("•",barindex,bsmin,Dialog,Standard,22) coloured(r,g,0) endif endif if trend<0 then TrendLine=bsmax r=255 g=165 drawtext("•",barindex,bsmax,Dialog,Standard,10) coloured(r,g,0) if trend[1]>0 then drawtext("•",barindex,bsmax,Dialog,Standard,22) coloured(r,g,0) endif endif RETURN TrendLine coloured(r,g,0) style(line,2) as "BBands stop Trend"

  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

  //PRC_BBands Stop | indicator //30.03.2017 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge //translated from MT4 code // --- settings //Length=20      // Bollinger Bands Period //Deviation=2    // Deviation //MoneyRisk=1.00 // Offset Factor // --- end of settings avg=average[Length] dev=std[Length]*Deviation smax = avg+dev smin = avg-dev if close>smax[1] then trend=1 endif if close<smin[1] then trend=-1 endif if trend>0 and smin<smin[1] then smin=smin[1] endif if trend<0 and smax>smax[1] then smax=smax[1] endif bsmax=smax+0.5*(MoneyRisk-1)*(smax-smin) bsmin=smin-0.5*(MoneyRisk-1)*(smax-smin) if(trend>0 and bsmin<bsmin[1]) then bsmin=bsmin[1] endif if(trend<0 and bsmax>bsmax[1]) then bsmax=bsmax[1] endif if trend>0 then TrendLine=bsmin r=127 g=255 drawtext("•",barindex,bsmin,Dialog,Standard,10) coloured(r,g,0) if trend[1]<0 then   drawtext("•",barindex,bsmin,Dialog,Standard,22) coloured(r,g,0) endif endif if trend<0 then TrendLine=bsmax r=255 g=165 drawtext("•",barindex,bsmax,Dialog,Standard,10) coloured(r,g,0) if trend[1]>0 then   drawtext("•",barindex,bsmax,Dialog,Standard,22) coloured(r,g,0) endif endif RETURN TrendLine coloured(r,g,0) style(line,2) as "BBands stop Trend"

  Thank you

  

  Willy

  Participant

  Topics: 1

  Replies: 1

  Been thanked: 0 times
  11/04/2018 at 11:38 AM #84116
  Nicolas

  Please find below the code of the screener that detects the trend change with the BBands Stop indicator:

  //PRC_BBands Stop screener | screener //04.11.2017 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge // --- settings Length=20 // Bollinger Bands Period Deviation=2 // Deviation MoneyRisk=1.00 // Offset Factor // --- end of settings avg=average[Length] dev=std[Length]*Deviation smax = avg+dev smin = avg-dev if close>smax[1] then trend=1 endif if close<smin[1] then trend=-1 endif if trend>0 and smin<smin[1] then smin=smin[1] endif if trend<0 and smax>smax[1] then smax=smax[1] endif bsmax=smax+0.5*(MoneyRisk-1)*(smax-smin) bsmin=smin-0.5*(MoneyRisk-1)*(smax-smin) if(trend>0 and bsmin<bsmin[1]) then bsmin=bsmin[1] endif if(trend<0 and bsmax>bsmax[1]) then bsmax=bsmax[1] endif test = trend<>trend[1] screener[test]

  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

  //PRC_BBands Stop screener | screener //04.11.2017 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge // --- settings Length=20      // Bollinger Bands Period Deviation=2    // Deviation MoneyRisk=1.00 // Offset Factor // --- end of settings avg=average[Length] dev=std[Length]*Deviation smax = avg+dev smin = avg-dev if close>smax[1] then trend=1 endif if close<smin[1] then trend=-1 endif if trend>0 and smin<smin[1] then smin=smin[1] endif if trend<0 and smax>smax[1] then smax=smax[1] endif bsmax=smax+0.5*(MoneyRisk-1)*(smax-smin) bsmin=smin-0.5*(MoneyRisk-1)*(smax-smin) if(trend>0 and bsmin<bsmin[1]) then bsmin=bsmin[1] endif if(trend<0 and bsmax>bsmax[1]) then bsmax=bsmax[1] endif test = trend<>trend[1]   screener[test]

   

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4774 times
  11/04/2018 at 1:32 PM #84122
  Willy

  Bonjour Nicolas,

  Merci beaucoup, tout fonctionne parfaitement.

  

  Willy

  Participant

  Topics: 1

  Replies: 1

  Been thanked: 0 times
• Author
  Posts