Absolute Strength indicator with Pro Screener

• 01/20/2020 at 5:21 PM #117335
  Jo han

  Trying to get the following indicator to work with pro screener.
  Any help on how to modify the code to make it work would be appreciated.

  //PRC_Absolute Strength | indicator //16.01.2019 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge // --- settings Mode =0 // 0-RSI method 1-Stoch method Length = 9 // Period Smooth = 1 // Period of smoothing ModeMA = 2 // Mode of Moving Average // --- end of settings if barindex>max(Length,Smooth) then Price1=customclose Price2=customclose[1] if Mode=0 then Bulls=0.5*(Abs(Price1-Price2)+(Price1-Price2)) Bears=0.5*(Abs(Price1-Price2)-(Price1-Price2)) endif if Mode=1 then smax=Highest[Length](high) smin=Lowest[Length](low) Bulls=Price1 - smin Bears=smax - Price1 endif AvgBulls=average[Length,ModeMA](Bulls) AvgBears=average[Length,ModeMA](Bears) SmthBulls=average[Smooth,ModeMA](AvgBulls) SmthBears=average[Smooth,ModeMA](AvgBears) endif RETURN SmthBulls coloured(0,0,255,50) style(histogram), SmthBears coloured(255,0,0,50) style(histogram) , SmthBears coloured(255,0,0) style(line,3), SmthBulls coloured(0,191,255) style(line,3)

  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

  //PRC_Absolute Strength | indicator //16.01.2019 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge // --- settings Mode =0   // 0-RSI method 1-Stoch method Length = 9 // Period Smooth = 1 // Period of smoothing ModeMA = 2 // Mode of Moving Average // --- end of settings if barindex>max(Length,Smooth) then Price1=customclose Price2=customclose[1] if Mode=0 then   Bulls=0.5*(Abs(Price1-Price2)+(Price1-Price2))   Bears=0.5*(Abs(Price1-Price2)-(Price1-Price2)) endif if Mode=1 then   smax=Highest[Length](high)   smin=Lowest[Length](low)   Bulls=Price1 - smin   Bears=smax - Price1 endif AvgBulls=average[Length,ModeMA](Bulls) AvgBears=average[Length,ModeMA](Bears) SmthBulls=average[Smooth,ModeMA](AvgBulls) SmthBears=average[Smooth,ModeMA](AvgBears) endif RETURN  SmthBulls coloured(0,0,255,50) style(histogram),  SmthBears coloured(255,0,0,50) style(histogram) , SmthBears coloured(255,0,0) style(line,3), SmthBulls coloured(0,191,255) style(line,3)

   

  

  Jo han

  Participant

  Topics: 2

  Replies: 1

  Been thanked: 0 times
  01/20/2020 at 6:25 PM #117338
  robertogozzi

  There you go, I simply made it run by scanning Bulls CROSSING OVER Bears.

  You’ll have to set conditions to scan the market according to your needs.

  //PRC_Absolute Strength | indicator //16.01.2019 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge // --- settings Mode =0 // 0-RSI method 1-Stoch method Length = 9 // Period Smooth = 1 // Period of smoothing ModeMA = 2 // Mode of Moving Average // --- end of settings if barindex>max(Length,Smooth) then Price1=customclose Price2=customclose[1] if Mode=0 then Bulls=0.5*(Abs(Price1-Price2)+(Price1-Price2)) Bears=0.5*(Abs(Price1-Price2)-(Price1-Price2)) endif if Mode=1 then smax=Highest[Length](high) smin=Lowest[Length](low) Bulls=Price1 - smin Bears=smax - Price1 endif AvgBulls=average[Length,ModeMA](Bulls) AvgBears=average[Length,ModeMA](Bears) SmthBulls=average[Smooth,ModeMA](AvgBulls) SmthBears=average[Smooth,ModeMA](AvgBears) endif //RETURN SmthBulls coloured(0,0,255,50) style(histogram), SmthBears coloured(255,0,0,50) style(histogram) , SmthBears coloured(255,0,0) style(line,3), SmthBulls coloured(0,191,255) style(line,3) SCREENER[SmthBulls CROSSES OVER SmthBears]

  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

  //PRC_Absolute Strength | indicator //16.01.2019 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge // --- settings Mode =0   // 0-RSI method 1-Stoch method Length = 9 // Period Smooth = 1 // Period of smoothing ModeMA = 2 // Mode of Moving Average // --- end of settings if barindex>max(Length,Smooth) then Price1=customclose Price2=customclose[1] if Mode=0 then Bulls=0.5*(Abs(Price1-Price2)+(Price1-Price2)) Bears=0.5*(Abs(Price1-Price2)-(Price1-Price2)) endif if Mode=1 then smax=Highest[Length](high) smin=Lowest[Length](low) Bulls=Price1 - smin Bears=smax - Price1 endif AvgBulls=average[Length,ModeMA](Bulls) AvgBears=average[Length,ModeMA](Bears) SmthBulls=average[Smooth,ModeMA](AvgBulls) SmthBears=average[Smooth,ModeMA](AvgBears) endif   //RETURN  SmthBulls coloured(0,0,255,50) style(histogram),  SmthBears coloured(255,0,0,50) style(histogram) , SmthBears coloured(255,0,0) style(line,3), SmthBulls coloured(0,191,255) style(line,3) SCREENER[SmthBulls CROSSES OVER SmthBears]

   

  1 user thanked author for this post.

  Jo han

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  01/20/2020 at 6:56 PM #117348
  Jo han

  Thanks alot!
  Works like a charm!

  🙂

  

  Jo han

  Participant

  Topics: 2

  Replies: 1

  Been thanked: 0 times
• Author
  Posts