Screener RSI multiperiods HeatMap

• 07/02/2019 at 1:16 PM #101809
  Fr7

  ¿Alguien puede realizar el screener  ?Sería interesante encontrar los valores que acaban de cumplir  el color más verde o más rojo en el mapa.

  El screener a realizar se basaría en el indicador de Nicolás:PRC_RSI multiperiods HeatMap

  //PRC_RSI multiperiods HeatMap | indicator //Plot an heatmap of the RSI range of periods //28.06.2019 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge // --- settings startperiod=20 //start period of the loop maxscale=500 //end period of the loop Step=10 //period step of the loop // --- end of settings iPeriod=startperiod //first period to test is..startperiod while iPeriod<=maxscale do // --- indicator calculation osc = rsi[iperiod] // ----- result=osc R = max(0,50+(200-(result-50)*12)) G = max(0,50+(200+(result-50)*12)) drawtext("■",barindex,iperiod,dialog,bold,18) coloured(min(r,255),min(g,255),0) iPeriod=max(startperiod,iPeriod+Step) //increase indicator period for next loop iteration wend return startperiod,maxscale

  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

  //PRC_RSI multiperiods HeatMap | indicator //Plot an heatmap of the RSI range of periods //28.06.2019 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge // --- settings startperiod=20 //start period of the loop maxscale=500 //end period of the loop Step=10 //period step of the loop // --- end of settings iPeriod=startperiod //first period to test is..startperiod while iPeriod<=maxscale do // --- indicator calculation osc = rsi[iperiod] // ----- result=osc R = max(0,50+(200-(result-50)*12)) G = max(0,50+(200+(result-50)*12)) drawtext("■",barindex,iperiod,dialog,bold,18) coloured(min(r,255),min(g,255),0) iPeriod=max(startperiod,iPeriod+Step) //increase indicator period for next loop iteration wend return startperiod,maxscale

   

  

  Fr7

  Participant

  Topics: 51

  Replies: 160

  Been thanked: 21 times
  07/02/2019 at 5:10 PM #101832
  robertogozzi

  Puedes probar este. Modifiqué 500 en 240 (+ 10) porque ProScreener no permite más de 254 barras de la historia:

  startperiod = 20 //20 start period of the loop maxscale = 240 //500 end period of the loop Step = 10 //10 period step of the loop iPeriod = startperiod while iPeriod <= maxscale do osc = rsi[iperiod] result = osc R = min(max(0,50+(200-(result-50)*12)),255) G = min(max(0,50+(200+(result-50)*12)),255) iPeriod = max(startperiod,iPeriod+Step) wend x = 0 IF R > R[1] AND G < G[1] THEN x = 2 ELSIF G > G[1] AND R < R[1] THEN x = 1 ENDIF SCREENER[x](x AS "1=↑, 2=↓")

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

  startperiod = 20            //20   start period of the loop maxscale    = 240           //500  end period of the loop Step        = 10            //10   period step of the loop iPeriod     = startperiod while iPeriod <= maxscale do    osc     = rsi[iperiod]    result  = osc    R       = min(max(0,50+(200-(result-50)*12)),255)    G       = min(max(0,50+(200+(result-50)*12)),255)    iPeriod = max(startperiod,iPeriod+Step) wend x = 0 IF R > R[1] AND G < G[1] THEN    x = 2 ELSIF G > G[1] AND R < R[1] THEN    x = 1 ENDIF SCREENER[x](x AS "1=↑, 2=↓")

  1 user thanked author for this post.

  Nicolas

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
• Author
  Posts