Screener NonLagMA Colored

• 01/29/2021 at 9:25 AM #159768
  PRC_2021

  Bonjour Nicolas,

  Serait il possible de convertir l’indicateur “NonLagMA Colored” en screnner détectant le passage du jaune au vert.

  Pour rappel, voici le lien et le code de l’indicateur en question :

  https://www.prorealcode.com/prorealtime-indicators/nonlagma-colored/

  Merci par avance.

  Manu

  PRC_NonLagDot Colored | indicator

  //PRC_NonLagDot Colored | indicator //16.12.2020 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge //Converted from MT4 version // --- parameters Length = 10 Filter = 0 Deviation = 0 Color = 1 //1=true ; 0=false ColorBarBack = 0 // --- Price = customclose cCycle= 4 if barindex>Length then pi=3.1415926535 Coeff= 3*pi Phase=Length-1 Len=Length*cCycle + Phase Weight=0 Sum=0 t=0 for i =0 to Len-1 do g=1.0/(Coeff*t+1) if (t<=0.5) then g=1 endif beta=Cos(pi*t) alfa=g * beta pprice = price[i] Sum=Sum+(alfa*pprice) Weight=Weight+alfa if(t < 1) then t=t+(1.0/(Phase-1)) elsif (t < Len-1)then t=t+((2*cCycle-1)/(cCycle*Length-1)) endif next if (Weight > 0) then MABuffer=(1.0+Deviation/100)*Sum/Weight endif if (Filter>0) then if(Abs(MABuffer-MABuffer[1]) < Filter*Pointsize) then MABuffer=MABuffer[1] endif endif if Color then if (MABuffer[0]-MABuffer[1] > Filter*Pointsize) then trend= 1 endif if (MABuffer[1]-MABuffer[0] > Filter*Pointsize) then trend=-1 endif trendmod=trend<>trend[1] if trend>0 then r=0 g=255 elsif trend<0 then r=255 g=0 endif if trendmod then r=255 g=255 endif endif endif return MABuffer coloured(r,g,0) style(line,2)

  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

  //PRC_NonLagDot Colored | indicator //16.12.2020 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge //Converted from MT4 version   // --- parameters Length        = 10 Filter        = 0 Deviation     = 0 Color = 1 //1=true ; 0=false ColorBarBack = 0 // ---   Price         = customclose cCycle= 4 if barindex>Length then pi=3.1415926535 Coeff= 3*pi Phase=Length-1 Len=Length*cCycle + Phase   Weight=0 Sum=0 t=0   for i =0 to Len-1 do g=1.0/(Coeff*t+1) if (t<=0.5) then g=1 endif beta=Cos(pi*t) alfa=g * beta pprice = price[i] Sum=Sum+(alfa*pprice) Weight=Weight+alfa if(t < 1) then t=t+(1.0/(Phase-1)) elsif (t < Len-1)then t=t+((2*cCycle-1)/(cCycle*Length-1)) endif next   if (Weight > 0)  then MABuffer=(1.0+Deviation/100)*Sum/Weight endif if (Filter>0) then if(Abs(MABuffer-MABuffer[1]) < Filter*Pointsize) then MABuffer=MABuffer[1] endif endif if Color then if (MABuffer[0]-MABuffer[1] > Filter*Pointsize) then trend= 1 endif if (MABuffer[1]-MABuffer[0] > Filter*Pointsize) then trend=-1 endif   trendmod=trend<>trend[1] if trend>0 then r=0 g=255 elsif trend<0 then r=255 g=0 endif if trendmod then r=255 g=255 endif endif endif   return MABuffer coloured(r,g,0) style(line,2)

   

  

  PRC_2021

  Participant

  Topics: 55

  Replies: 118

  Been thanked: 7 times
  01/29/2021 at 10:31 AM #159773
  Nicolas

  Ci-dessous le screener qui détecte le passage du jaune au vert. Remarque: la détection se fait sur la bougie courante, donc le vert ne sera pas visible avant la fin de la bougie.

  //PRC_NonLagDot Colored | screener //29.01.2021 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge // --- parameters Length = 10 Filter = 0 Deviation = 0 // --- Price = close cCycle= 4 if barindex>Length then pi=3.1415926535 Coeff= 3*pi Phase=Length-1 Len=Length*cCycle + Phase Weight=0 Sum=0 t=0 for i =0 to Len-1 do g=1.0/(Coeff*t+1) if (t<=0.5) then g=1 endif beta=Cos(pi*t) alfa=g * beta pprice = price[i] Sum=Sum+(alfa*pprice) Weight=Weight+alfa if(t < 1) then t=t+(1.0/(Phase-1)) elsif (t < Len-1)then t=t+((2*cCycle-1)/(cCycle*Length-1)) endif next if (Weight > 0) then MABuffer=(1.0+Deviation/100)*Sum/Weight endif if (Filter>0) then if(Abs(MABuffer-MABuffer[1]) < Filter*Pointsize) then MABuffer=MABuffer[1] endif endif if (MABuffer[0]-MABuffer[1] > Filter*Pointsize) then trend= 1 endif if (MABuffer[1]-MABuffer[0] > Filter*Pointsize) then trend=-1 endif trendmod=trend<>trend[1] //if trend>0 then //r=0 //g=255 //elsif trend<0 then //r=255 //g=0 //endif //if trendmod then //r=255 //g=255 //endif endif test = trend>0 and trendmod[1]=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 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

  //PRC_NonLagDot Colored | screener //29.01.2021 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge   // --- parameters Length        = 10 Filter        = 0 Deviation     = 0 // ---   Price         = close cCycle= 4 if barindex>Length then pi=3.1415926535 Coeff= 3*pi Phase=Length-1 Len=Length*cCycle + Phase   Weight=0 Sum=0 t=0   for i =0 to Len-1 do g=1.0/(Coeff*t+1) if (t<=0.5) then g=1 endif beta=Cos(pi*t) alfa=g * beta pprice = price[i] Sum=Sum+(alfa*pprice) Weight=Weight+alfa if(t < 1) then t=t+(1.0/(Phase-1)) elsif (t < Len-1)then t=t+((2*cCycle-1)/(cCycle*Length-1)) endif next   if (Weight > 0)  then MABuffer=(1.0+Deviation/100)*Sum/Weight endif if (Filter>0) then if(Abs(MABuffer-MABuffer[1]) < Filter*Pointsize) then MABuffer=MABuffer[1] endif endif   if (MABuffer[0]-MABuffer[1] > Filter*Pointsize) then trend= 1 endif if (MABuffer[1]-MABuffer[0] > Filter*Pointsize) then trend=-1 endif   trendmod=trend<>trend[1] //if trend>0 then //r=0 //g=255 //elsif trend<0 then //r=255 //g=0 //endif //if trendmod then //r=255 //g=255 //endif     endif test = trend>0 and trendmod[1]=1   screener[test]

   

  1 user thanked author for this post.

  PRC_2021

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20901

  Been thanked: 4846 times
  01/31/2021 at 10:34 AM #159978
  PRC_2021

  Super Merci Nicolas 🙂

  

  PRC_2021

  Participant

  Topics: 55

  Replies: 118

  Been thanked: 7 times
• Author
  Posts