Help to convert AscTrend indicator to screener

• 08/10/2021 at 12:57 PM #175013
  venugopal

  Hi Nicolas,

  Can you please help me converting your PRC_Trend indicator on the below link to a screener. So we can screen the stocks received buy or sell signals on daily chart on daily basis.

  https://www.prorealcode.com/prorealtime-indicators/asctrend/

  Many thanks!

  Regards,

  Venu

  

  venugopal

  Participant

  Topics: 2

  Replies: 2

  Been thanked: 0 times
  08/25/2021 at 12:30 PM #176199
  Nicolas

  Here is the screener you are looking for. ASCTrend green or red arrows:

  // --- settings RISK=3 //MAperiod = 100 // --- end of settings //ima = average[maperiod] value10=3+RISK*2 x1=67+RISK x2=33-RISK value11=value10 shift=0//CountBars-11-1 buysig=0 sellsig = 0 Counter=shift iRange=0.0 AvgRange=0.0 for Counter=shift to shift+9 do AvgRange=AvgRange+Abs(High[Counter]-Low[Counter]) next iRange=AvgRange/10 Counter=shift TrueCount=0 while (Counter<shift+9 and TrueCount<1) do if (Abs(Open[Counter]-Close[Counter+1])>=iRange*2.0) then TrueCount=TrueCount+1 endif Counter=Counter+1 wend if (TrueCount>=1) then MRO1=Counter else MRO1=-1 endif Counter=shift TrueCount=0 while (Counter<shift+6 and TrueCount<1) do if (Abs(Close[Counter+3]-Close[Counter])>=iRange*4.6) then TrueCount=TrueCount+1 endif Counter=Counter+1 wend if (TrueCount>=1) then MRO2=Counter else MRO2=-1 endif if (MRO1>-1) then value11=3 else value11=value10 endif if (MRO2>-1) then value11=4 else value11=value10 endif value2=100-Abs(Williams[value11](close)[shift]) // PercentR(value11=9) //$Tablevalue2[shift]=value2 //$val1[shift]=0 //$val2[shift]=0 //value3=0 //atr=AverageTrueRange[14](close) if (value2<x2) then //signals if value2[1]>x2[1] and lastsig>=0 then sellsig = 1 lastsig = -1 //drawarrowup(barindex,low-atr/2) coloured(0,255,0) endif endif if (value2>x1) then //signals if value2[1]<x1[1] and lastsig<=0 then buysig = 1 lastsig = 1 //drawarrowdown(barindex,high+atr/2) coloured(255,0,0) endif endif //distance = close/ima condition = sellsig=1 or buysig=1 //and (distance>=.95 and distance<=1.05) screener[condition]//(distance as "distance")

  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

  // --- settings RISK=3 //MAperiod = 100 // --- end of settings   //ima = average[maperiod]   value10=3+RISK*2 x1=67+RISK x2=33-RISK value11=value10   shift=0//CountBars-11-1 buysig=0 sellsig = 0   Counter=shift iRange=0.0 AvgRange=0.0 for Counter=shift to shift+9 do AvgRange=AvgRange+Abs(High[Counter]-Low[Counter]) next   iRange=AvgRange/10 Counter=shift TrueCount=0 while (Counter<shift+9 and TrueCount<1) do if (Abs(Open[Counter]-Close[Counter+1])>=iRange*2.0) then TrueCount=TrueCount+1 endif Counter=Counter+1 wend if (TrueCount>=1) then MRO1=Counter else MRO1=-1 endif   Counter=shift TrueCount=0 while (Counter<shift+6 and TrueCount<1) do if (Abs(Close[Counter+3]-Close[Counter])>=iRange*4.6) then TrueCount=TrueCount+1 endif Counter=Counter+1 wend if (TrueCount>=1) then MRO2=Counter else MRO2=-1 endif     if (MRO1>-1) then value11=3 else value11=value10 endif if (MRO2>-1) then value11=4 else value11=value10 endif   value2=100-Abs(Williams[value11](close)[shift]) // PercentR(value11=9) //$Tablevalue2[shift]=value2 //$val1[shift]=0 //$val2[shift]=0 //value3=0   //atr=AverageTrueRange[14](close) if (value2<x2) then //signals if value2[1]>x2[1] and lastsig>=0 then sellsig = 1 lastsig = -1 //drawarrowup(barindex,low-atr/2) coloured(0,255,0) endif endif   if (value2>x1) then //signals if value2[1]<x1[1] and lastsig<=0 then buysig = 1 lastsig = 1 //drawarrowdown(barindex,high+atr/2) coloured(255,0,0) endif endif   //distance = close/ima condition = sellsig=1 or buysig=1 //and (distance>=.95 and distance<=1.05)   screener[condition]//(distance as "distance")

   

  1 user thanked author for this post.

  venugopal

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4775 times
  08/29/2021 at 10:45 PM #176454
  venugopal

  Thank you so much Nicolas. That works perfect for what I am looking for.

  

  venugopal

  Participant

  Topics: 2

  Replies: 2

  Been thanked: 0 times
• Author
  Posts