Indicatore PRC RANGE_DETECTOR

• 02/11/2025 at 9:34 AM #243717
  Ciccarelli Franco

  Buongiorno Ivan

  è possibile trasformare in scrinner l’indicatore in oggetto?

  Grazie

  

  Ciccarelli Franco

  Participant

  Topics: 92

  Replies: 205

  Been thanked: 4 times
  02/11/2025 at 1:12 PM #243723
  Iván

  Ciao. Ecco qui:

  //------------------------------------------------------------------------// //PRC_Range Detector //version = 0 //09.04.24 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //------------------------------------------------------------------------// //-----Inputs-------------------------------------------------------------// length=20//Minimum Range Length mult=1//Range Width atrLen=500//ATR Length //------------------------------------------------------------------------// //-----Moving average and ATR definition----------------------------------// n=barindex atr=averagetruerange[atrlen](close)*mult ma=average[length,0](close) //-----Check range--------------------------------------------------------// count=0 for j=0 to length-1 do if abs(close[j]-ma) > atr then count=count+1 else count=count endif next //-----Box definition-----------------------------------------------------// if count=0 and count[1]<>count then //Test for overlap and change coordinates if n[length] <= $boxright[x] then maxi = max(ma+atr,$boxtop[x]) mini = min(ma-atr,$boxbot[x]) //Box new coordinates $boxtop[x]=maxi $boxbot[x]=mini $boxright[x]=n //Line new coordinates avg=(maxi+mini)/2 $levely1[x]=avg $levelx2[x]=n $levely2[x]=avg //backgroundcolor("Blue",50) rangedetected=1 //newrange=0 else maxi=ma+atr mini=ma-atr //Set new box $boxtop[x+1]=maxi $boxbot[x+1]=mini $boxright[x+1]=n $boxleft[x+1]=n[length] //Set new level $levely1[x+1]=ma $levelx2[x+1]=n $levely2[x+1]=ma $levelx1[x+1]=n[length] //Set color $rbox[x+1]=33 $gbox[x+1]=87 $bbox[x+1]=243 //Highligth first occurrence //backgroundcolor("grey",50) $start[x+1]=n //Set new value for x x=x+1 rangedetected=1 //newrange=1 endif //elsif count=0 then ////Extend the box //$boxright[x]=n //$levelx2[x]=n //rangedetected=1 //newrange=0 else rangedetected=0 endif //------------------------------------------------------------------------// SCREENER[rangedetected and close<$boxtop[x] and close>$boxbot[x]]

  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

  //------------------------------------------------------------------------// //PRC_Range Detector //version = 0 //09.04.24 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //------------------------------------------------------------------------// //-----Inputs-------------------------------------------------------------// length=20//Minimum Range Length mult=1//Range Width atrLen=500//ATR Length //------------------------------------------------------------------------// //-----Moving average and ATR definition----------------------------------// n=barindex atr=averagetruerange[atrlen](close)*mult ma=average[length,0](close) //-----Check range--------------------------------------------------------// count=0 for j=0 to length-1 do if abs(close[j]-ma) > atr then count=count+1 else count=count endif next //-----Box definition-----------------------------------------------------// if count=0 and count[1]<>count then //Test for overlap and change coordinates if n[length] <= $boxright[x] then maxi = max(ma+atr,$boxtop[x]) mini = min(ma-atr,$boxbot[x]) //Box new coordinates $boxtop[x]=maxi $boxbot[x]=mini $boxright[x]=n //Line new coordinates avg=(maxi+mini)/2 $levely1[x]=avg $levelx2[x]=n $levely2[x]=avg //backgroundcolor("Blue",50) rangedetected=1 //newrange=0 else maxi=ma+atr mini=ma-atr //Set new box $boxtop[x+1]=maxi $boxbot[x+1]=mini $boxright[x+1]=n $boxleft[x+1]=n[length] //Set new level $levely1[x+1]=ma $levelx2[x+1]=n $levely2[x+1]=ma $levelx1[x+1]=n[length] //Set color $rbox[x+1]=33 $gbox[x+1]=87 $bbox[x+1]=243 //Highligth first occurrence //backgroundcolor("grey",50) $start[x+1]=n //Set new value for x x=x+1 rangedetected=1 //newrange=1 endif //elsif count=0 then ////Extend the box //$boxright[x]=n //$levelx2[x]=n //rangedetected=1 //newrange=0 else rangedetected=0 endif //------------------------------------------------------------------------// SCREENER[rangedetected and close<$boxtop[x] and close>$boxbot[x]]

  

  Iván

  Moderator

  Topics: 0

  Replies: 1229

  Been thanked: 440 times
• Author
  Posts