Is it possible to convert this strategy into a screener?

• 03/24/2024 at 5:41 PM #230365
  osnxp7

  Is it possible to convert this strategy into a screener?

  Indicator : awesome oscillator

   

  

  osnxp7

  Participant

  Topics: 8

  Replies: 10

  Been thanked: 3 times
  03/24/2024 at 10:42 PM #230382
  robertogozzi

  What are the conditions?

   

  1 user thanked author for this post.

  osnxp7

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16469

  Been thanked: 3643 times
  03/25/2024 at 12:12 AM #230384
  osnxp7

  robertogozzi wrote:

  What are the conditions?

  Conditions applicable to the awesome oscillator indicator in the image
  Marked by circles
  Thank you for your response, my friend

  

  osnxp7

  Participant

  Topics: 8

  Replies: 10

  Been thanked: 3 times
  03/25/2024 at 11:56 AM #230398
  Iván

  Hello, if what you are looking for is an oscillator making decreasing minimums, you could store the maximum value reached by the oscillator each time it is positive and then draw a line that joins the maximums. If the line has a negative slope then we look for those values that are crossing upwards today.

  AO=Average[5](MedianPrice)-Average[34](MedianPrice) if AO > 0 then n=n+1 aohigh = highest[n](AO) elsif AO crosses under 0 then $aohighprev[t+1]=aohigh[1] $aohighprevx[t+1]=barindex-barssince(ao=aohigh) t=1+t else n=0 endif //(x-x1)/(x2-x1) = (y-y1)/(y2-y1) y1 = $aohighprev[max(0,t-1)] x1 = $aohighprevx[max(0,t-1)] y2 = $aohighprev[t] x2 = $aohighprevx[t] yy = y1+(barindex-x1)*(y2-y1)/(x2-x1) if y1 > y2 and ao[0] > yy and ao[1] < yy then res = 1 else res = 0 endif screener[res=1]

  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

  AO=Average[5](MedianPrice)-Average[34](MedianPrice)   if AO > 0 then n=n+1 aohigh = highest[n](AO) elsif AO crosses under 0 then $aohighprev[t+1]=aohigh[1] $aohighprevx[t+1]=barindex-barssince(ao=aohigh) t=1+t else n=0 endif   //(x-x1)/(x2-x1) = (y-y1)/(y2-y1) y1 = $aohighprev[max(0,t-1)] x1 = $aohighprevx[max(0,t-1)] y2 = $aohighprev[t] x2 = $aohighprevx[t]   yy = y1+(barindex-x1)*(y2-y1)/(x2-x1)   if y1 > y2 and ao[0] > yy and ao[1] < yy then res = 1 else res = 0 endif   screener[res=1]

  2 users thanked author for this post.

  osnxp7, pror

  

  Iván

  Moderator

  Topics: 0

  Replies: 306

  Been thanked: 83 times
  03/25/2024 at 12:56 PM #230407
  pror

  Hello, is it ok for the reverse ?

  thks

  AO=Average[P1](MedianPrice)-Average[P2](MedianPrice) if AO < 0 then n=n+1 aoLOW = LOWest[n](AO) elsif AO crosses OVer 0 then $aoLOWprev[t+1]=aoLOW[1] $aoLOWprevx[t+1]=barindex-barssince(ao=aoLOW) t=1+t else n=0 endif //(x-x1)/(x2-x1) = (y-y1)/(y2-y1) y1 = $aoLOWprev[max(0,t-1)] x1 = $aoLOWprevx[max(0,t-1)] y2 = $aoLOWprev[t] x2 = $aoLOWprevx[t] yy = y1+(barindex-x1)*(y2-y1)/(x2-x1) if y1 < y2 and ao[0] < yy and ao[1] > yy then //res = 1 DRAWARROW(barindex, close)COLOURED("RED") //else //res = 0 endif RETURN

  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

  AO=Average[P1](MedianPrice)-Average[P2](MedianPrice)   if AO < 0 then n=n+1 aoLOW = LOWest[n](AO) elsif AO crosses OVer 0 then $aoLOWprev[t+1]=aoLOW[1] $aoLOWprevx[t+1]=barindex-barssince(ao=aoLOW) t=1+t else n=0 endif   //(x-x1)/(x2-x1) = (y-y1)/(y2-y1) y1 = $aoLOWprev[max(0,t-1)] x1 = $aoLOWprevx[max(0,t-1)] y2 = $aoLOWprev[t] x2 = $aoLOWprevx[t]   yy = y1+(barindex-x1)*(y2-y1)/(x2-x1)   if y1 < y2 and ao[0] < yy and ao[1] > yy then //res = 1 DRAWARROW(barindex, close)COLOURED("RED") //else //res = 0 endif   RETURN

   

  

  pror

  Participant

  Topics: 1

  Replies: 26

  Been thanked: 3 times
  03/25/2024 at 8:26 PM #230446
  Iván

  Casi

  AO=Average[5](MedianPrice)-Average[34](MedianPrice) if AO < 0 then n=n+1 aoLOW = LOWest[n](AO) elsif AO crosses OVer 0 then $aoLOWprev[t+1]=aoLOW[1] $aoLOWprevx[t+1]=barindex-barssince(ao=aoLOW) t=1+t else n=0 endif //(x-x1)/(x2-x1) = (y-y1)/(y2-y1) y1 = $aoLOWprev[max(0,t-1)] x1 = $aoLOWprevx[max(0,t-1)] y2 = $aoLOWprev[t] x2 = $aoLOWprevx[t] yy = y1+(barindex-x1)*(y2-y1)/(x2-x1) if y1 < y2 and ao[0] < yy and ao[1] > yy then //res = 1 DRAWARROWdown(barindex, ao)COLOURED("RED") drawsegment(x1,y1,barindex,yy) //else //res = 0 endif RETURN aolow coloured("red")style(dottedline,2), ao, $aolowprev[t] coloured("blue"), 0 style(dottedline,1)

  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

  AO=Average[5](MedianPrice)-Average[34](MedianPrice)   if AO < 0 then n=n+1 aoLOW = LOWest[n](AO) elsif AO crosses OVer 0 then $aoLOWprev[t+1]=aoLOW[1] $aoLOWprevx[t+1]=barindex-barssince(ao=aoLOW) t=1+t else n=0 endif   //(x-x1)/(x2-x1) = (y-y1)/(y2-y1) y1 = $aoLOWprev[max(0,t-1)] x1 = $aoLOWprevx[max(0,t-1)] y2 = $aoLOWprev[t] x2 = $aoLOWprevx[t]   yy = y1+(barindex-x1)*(y2-y1)/(x2-x1)   if y1 < y2 and ao[0] < yy and ao[1] > yy then //res = 1 DRAWARROWdown(barindex, ao)COLOURED("RED") drawsegment(x1,y1,barindex,yy) //else //res = 0 endif   RETURN aolow coloured("red")style(dottedline,2), ao, $aolowprev[t] coloured("blue"), 0 style(dottedline,1)

  1 user thanked author for this post.

  pror

  

  Iván

  Moderator

  Topics: 0

  Replies: 306

  Been thanked: 83 times
• Author
  Posts