Screening of the only last x bars?

• 11/16/2017 at 5:17 PM #53039
  pieroim

  I’m working on a stochastic divergence screening routine, but it give me all the signals that it find in the period that it go to analyze (I don’t know how long is the period..), is there a way to retrieve only the signals that it find in the last fixed number of bars?

  Barindex can work in the proscreening?

  Thank’s

  Piero

  

  pieroim

  Participant

  Topics: 19

  Replies: 85

  Been thanked: 5 times
  11/17/2017 at 4:28 PM #53121
  Nicolas

  Barindex is working in ProScreener. Since ProScreener only read 254 bars, you can test the amount of bars is read before giving a new divergence signal.

  I remember had coded something like this before but I can’t find it unfortunately ..

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  11/17/2017 at 5:00 PM #53122
  pieroim

  Ok, works.. 

  Stochastic Divergence screening

  //from Nicolas Stochastic Divergence indicator p=14 k=3 d=6 overboughtzone=80 oversoldzone=20 maxCandele = 10 x = stochastic[p,k] y = average[d](x) if x>overboughtzone then hi=max(hi,x) hico=max(hico,max(high,high[1])) endif if x crosses under y then sto2b=sto1b sto1b=hi hi=0 p3b=p1b p2b=max(p1b,hico1) p1b=max(highest[3](high),hico) if p2b=p1b then p2b=max(p3b,p4b) endif hico=0 hico1=0 endif if x<y then p4b=hico1 hico1=max(hico1,high) endif c1=0 if p1b>p2b and sto1b<sto2b and x crosses under y and x<x[1] and barindex>maxCandele then c1 = p1b>p2b and sto1b<sto2b and x crosses under y and x<x[1] endif if x<oversoldzone then lo=min(lo,x) lowco=min(lowco,min(low,low[1])) endif if x CROSSES OVER y then sto2h=sto1h sto1h=lo lo=100 p3h=p1h p2h=min(p1h,lowco1) p1h=min(lowest[3](low),lowco) if p2h=p1h then p2h=min(p3h,p4h) endif lowco=100000 lowco1=100000 endif if x>y then p4h=lowco1 lowco1=min(lowco1,low) endif c2=0 c2 = p1h<p2h and sto1h>sto2h and x crosses over y and x>x[1] if c2<>0 and barindex>maxCandele then c2=0 endif c2=0 if p1h<p2h and sto1h>sto2h and x crosses over y and x>x[1] and barindex>maxCandele then c2 = p1h<p2h and sto1h>sto2h and x crosses over y and x>x[1] endif screener[c1 or c2]

  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

  //from Nicolas Stochastic Divergence indicator p=14 k=3 d=6 overboughtzone=80 oversoldzone=20 maxCandele = 10   x = stochastic[p,k] y = average[d](x)     if x>overboughtzone then hi=max(hi,x) hico=max(hico,max(high,high[1])) endif if x crosses under y then sto2b=sto1b sto1b=hi hi=0 p3b=p1b p2b=max(p1b,hico1) p1b=max(highest[3](high),hico) if p2b=p1b then p2b=max(p3b,p4b) endif hico=0 hico1=0 endif if x<y then p4b=hico1 hico1=max(hico1,high) endif   c1=0 if p1b>p2b and sto1b<sto2b and x crosses under y and x<x[1] and barindex>maxCandele then c1 = p1b>p2b and sto1b<sto2b and x crosses under y and x<x[1] endif   if x<oversoldzone then lo=min(lo,x) lowco=min(lowco,min(low,low[1])) endif if x CROSSES OVER y  then sto2h=sto1h sto1h=lo lo=100 p3h=p1h p2h=min(p1h,lowco1) p1h=min(lowest[3](low),lowco) if p2h=p1h then p2h=min(p3h,p4h) endif lowco=100000 lowco1=100000 endif if x>y then p4h=lowco1 lowco1=min(lowco1,low) endif   c2=0 c2 = p1h<p2h and sto1h>sto2h and x crosses over y and x>x[1] if c2<>0 and barindex>maxCandele then c2=0 endif   c2=0 if p1h<p2h and sto1h>sto2h and x crosses over y and x>x[1] and barindex>maxCandele then c2 = p1h<p2h and sto1h>sto2h and x crosses over y and x>x[1] endif   screener[c1 or c2]

   

  

  pieroim

  Participant

  Topics: 19

  Replies: 85

  Been thanked: 5 times
• Author
  Posts