Créer un screener basé sur q-trend

• 08/04/2023 at 1:58 PM #218587
  francis59

  Bonjour Nicolas,

  Auriez-vous la possibilité et le temps de créer un screener basé sur la flèche verte (signal ACHAT) à partir de l’indicateur “Q-trend” ?

  –> https://www.prorealcode.com/prorealtime-indicators/q-trend/

  D’avance merci pour votre aide et contribution.

  Bonne journée

  François

  

  francis59

  Participant

  Topics: 9

  Replies: 10

  Been thanked: 0 times
  08/31/2023 at 4:44 PM #220146
  robertogozzi

  Voilà:

  //PRC_Q-Trend | indicator //17.07.23 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge // ---settings p = 200 //Trend period atrp = 14 //ATR Period mult = 1.0 //ATR Multiplier mode = 1 //Signal mode options = [1="Type A", 2="Type B"] useemasmoother = 0 //Smooth source with EMA? 0=false ; 1=true srcemaperiod = 3 //EMA Smoother period colorbars = 0 //Color bars? 0=false ; 1=true signalsview = 0 //0 = trend inversion ; 1 = strong buy / strong sell only // --- end of settings source = customclose // Calculations if useemasmoother then src = average[srcemaperiod,1](source) else src=source endif hh = highest[p](src) // Highest of src p-bars back; ll = lowest[p](src) // Lowest of src p-bars back. d = hh - ll mysignal = 0 ls = 0 if barindex>p then once m = (hh + ll) / 2 // Initial trend line; atr = AverageTrueRange[atrp][1] // ATR; epsilon = mult * atr // Epsilon is a mathematical variable used in many different theorems in order to simplify work with mathematical object. Here it used as sensitivity measure. if mode=2 then //type B changeup = src crosses over m+epsilon or src crosses under m+epsilon changedown = src crosses over m-epsilon or src crosses under m-epsilon else changeup = src crosses over m+epsilon or src > m+epsilon changedown = src crosses under m-epsilon or src < m-epsilon endif sb = open < ll + d / 8 and open >= ll ss = open > hh - d / 8 and open <= hh strongbuy = sb or sb[1] or sb[2] or sb[3] or sb[4] strongsell = ss or ss[1] or ss[2] or ss[3] or ss[4] if (changeup or changedown) then if changeup then m=m + epsilon elsif changedown then m=m - epsilon endif else m=m[1] endif if changeup then r=0 //g=255 elsif changedown then r=255 //g=0 endif if colorbars then //drawcandle(open,high,low,close)coloured(r,g,0) endif if signalsview=1 then if strongbuy AND ls<>1 then //drawtext("▲",barindex,low-range) coloured("lime") ls=1 mysignal = 1 endif if strongsell and ls<>-1 then //drawtext("▼",barindex,high+range) coloured("red") ls=-1 mysignal = -1 endif else if r<>r[1]and r>0 then //drawtext("▼",barindex[1],m[1]+range) coloured("red") mysignal = -1 endif if r<>r[1]and r=0 then //drawtext("▲",barindex[1],m[1]-range) coloured("lime") mysignal = 1 endif endif endif screener[mysignal = 1]

  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

  //PRC_Q-Trend | indicator //17.07.23 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge   // ---settings p    = 200 //Trend period atrp = 14  //ATR Period mult = 1.0 //ATR Multiplier mode = 1   //Signal mode options = [1="Type A", 2="Type B"] useemasmoother = 0 //Smooth source with EMA? 0=false ; 1=true srcemaperiod   = 3 //EMA Smoother period colorbars      = 0 //Color bars? 0=false ; 1=true signalsview    = 0 //0 = trend inversion ; 1 = strong buy / strong sell only // --- end of settings   source = customclose   // Calculations if useemasmoother then src = average[srcemaperiod,1](source) else src=source endif   hh = highest[p](src) // Highest of src p-bars back; ll = lowest[p](src) // Lowest of src p-bars back. d = hh - ll mysignal = 0 ls = 0 if barindex>p then once m = (hh + ll) / 2 // Initial trend line; atr = AverageTrueRange[atrp][1] // ATR; epsilon = mult * atr // Epsilon is a mathematical variable used in many different theorems in order to simplify work with mathematical object. Here it used as sensitivity measure.   if mode=2 then  //type B changeup = src crosses over m+epsilon or src crosses under m+epsilon changedown = src crosses over m-epsilon or src crosses under m-epsilon else changeup = src crosses over m+epsilon or src > m+epsilon changedown = src crosses under m-epsilon or src < m-epsilon endif   sb = open < ll + d / 8 and open >= ll ss = open > hh - d / 8 and open <= hh strongbuy = sb or sb[1] or sb[2] or sb[3] or sb[4] strongsell = ss or ss[1] or ss[2] or ss[3] or ss[4]   if (changeup or changedown) then if changeup then m=m + epsilon elsif changedown then m=m - epsilon endif else m=m[1] endif   if changeup then r=0 //g=255 elsif changedown then r=255 //g=0 endif   if colorbars then //drawcandle(open,high,low,close)coloured(r,g,0) endif   if signalsview=1 then if strongbuy AND ls<>1 then //drawtext("▲",barindex,low-range) coloured("lime") ls=1 mysignal = 1 endif if strongsell and ls<>-1 then //drawtext("▼",barindex,high+range) coloured("red") ls=-1 mysignal = -1 endif else if r<>r[1]and r>0 then //drawtext("▼",barindex[1],m[1]+range) coloured("red") mysignal = -1 endif if r<>r[1]and r=0 then //drawtext("▲",barindex[1],m[1]-range) coloured("lime") mysignal = 1 endif endif endif   screener[mysignal = 1]

   

  3 users thanked author for this post.

  francis59, Nicolas, JADINVEST

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17131

  Been thanked: 4026 times
• Author
  Posts