Possible indicator and screener for the library

• 08/31/2019 at 9:05 PM #106043
  JohnScher

  Hello, Nikolas.

  Can you check correct programming and if necessary put it in the library so not done? See below…

   

  Part1 .. PG Indicator

  PG indicator

  // PopGun Indicator // coded by JohnScher //for the graphics PIP = 10*pipsize LIN = 3 //percentrenage = Support or Resistance in Percent og the Range High-Low = 25% default Support = (High-Low)*percentrange/100 Resistance = (High-Low)*percentrange/100 //indicator PopGun PG = High[2]>High[1] and Low[2]<Low[1] and High>High[1] and Low<Low[1] // the second outside candle PGLong = PG and Close>open // greencandle = long , as rerversal short PGShort = PG and Close<Open //redcandle = short, as reversal long IF PGLong Then rL=0 gL=0 bL=250 DRAWARROWUP(barindex,LOW-PIP)coloured(rL,gL,bL) DRAWSEGMENT(barindex,LOW-SUPPORT,barindex+LIN, LOW-SUPPORT )coloured(rL,gL,bL) // to trade as reversal red candle = Long rL=250 gL=0 bL=250 DRAWARROWDOWN(barindex,HIGH+PIP)coloured(rs,gs,bs) DRAWSEGMENT(barindex,High+Resistance,barindex+LIN, High+Resistance )coloured(rs,gs,bs) Endif IF PGShort then rS=250 gS=0 bS=00 DRAWARROWDOWN(barindex,HIGH+PIP)coloured(rs,gs,bs) DRAWSEGMENT(barindex,High+Resistance,barindex+LIN, High+Resistance )coloured(rs,gs,bs) // to trade as reversal red candle = Long rL=0 gL=0 bL=250 DRAWARROWUP(barindex,LOW-PIP)coloured(rL,gL,bL) DRAWSEGMENT(barindex,LOW-SUPPORT,barindex+LIN, LOW-SUPPORT )coloured(rL,gL,bL) 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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52

  // PopGun Indicator // coded by JohnScher //for the graphics PIP = 10*pipsize LIN = 3 //percentrenage = Support or Resistance in Percent og the Range High-Low = 25% default Support = (High-Low)*percentrange/100 Resistance = (High-Low)*percentrange/100 //indicator PopGun PG = High[2]>High[1] and Low[2]<Low[1] and High>High[1] and Low<Low[1] // the second outside candle PGLong = PG and Close>open // greencandle = long , as rerversal short PGShort = PG and Close<Open //redcandle = short, as reversal long IF PGLong Then rL=0 gL=0 bL=250 DRAWARROWUP(barindex,LOW-PIP)coloured(rL,gL,bL) DRAWSEGMENT(barindex,LOW-SUPPORT,barindex+LIN, LOW-SUPPORT )coloured(rL,gL,bL) // to trade as reversal red candle = Long rL=250 gL=0 bL=250 DRAWARROWDOWN(barindex,HIGH+PIP)coloured(rs,gs,bs) DRAWSEGMENT(barindex,High+Resistance,barindex+LIN, High+Resistance )coloured(rs,gs,bs) Endif IF PGShort then rS=250 gS=0 bS=00 DRAWARROWDOWN(barindex,HIGH+PIP)coloured(rs,gs,bs) DRAWSEGMENT(barindex,High+Resistance,barindex+LIN, High+Resistance )coloured(rs,gs,bs) // to trade as reversal red candle = Long rL=0 gL=0 bL=250 DRAWARROWUP(barindex,LOW-PIP)coloured(rL,gL,bL) DRAWSEGMENT(barindex,LOW-SUPPORT,barindex+LIN, LOW-SUPPORT )coloured(rL,gL,bL) ENDIF return

   

  Part2… PG Screener

   

  PG Screener

  // PopGun screener // coded by JohnScher and robertogozzi PG = High[2]>High[1] and Low[2]<Low[1] and High>High[1] and Low<Low[1] PGLong = PG and Close>open PGShort = PG and Close<Open x = 0 IF PGLong Then x = 1 Endif IF PGShort then x = -1 ENDIF SCREENER[x](x as "PG")

  1 2 3 4 5 6 7 8 9 10 11 12 13 14

  // PopGun screener // coded by JohnScher and robertogozzi   PG      = High[2]>High[1] and Low[2]<Low[1] and High>High[1] and Low<Low[1] PGLong  = PG and Close>open PGShort = PG and Close<Open x = 0 IF PGLong Then    x = 1 Endif IF PGShort then    x = -1 ENDIF SCREENER[x](x as "PG")

   

  Part3 .. Backtest whether the PG is effective

   

   

  PG - effective?

  // PopGun Backtest // coded by JohnScher p = 5 // could be outside PG = High[p+2]>High[p+1] and Low[p+2]<Low[p+1] and High [p]>High[p+1] and Low [p]<Low[p+1] PGLong = PG and Close>open PGShort = PG and Close<Open d = 0.5 // distance 0.1 0.25 0.5 0.75 ... could be outside too distance = (High [p] - Low [p])*d q = p-1 c1 = Highest [q] (high) < (High [p] + distance) c2 = Lowest [q ] (low) > (Low [p] - distance) x = 0 IF PGLong and c1 and c2 Then x = 1 Endif IF PGShort and c1 and c2 then x = -1 ENDIF SCREENER[x](x as "PG")

  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

  // PopGun Backtest // coded by JohnScher     p = 5 // could be outside   PG = High[p+2]>High[p+1] and Low[p+2]<Low[p+1] and High [p]>High[p+1] and Low [p]<Low[p+1]   PGLong = PG and Close>open PGShort = PG and Close<Open       d = 0.5 // distance 0.1 0.25 0.5 0.75 ... could be outside too distance = (High [p] - Low [p])*d   q = p-1 c1 = Highest [q] (high) < (High [p] + distance) c2 = Lowest [q ] (low) > (Low [p] - distance)   x = 0 IF PGLong and c1 and c2 Then x = 1 Endif IF PGShort and c1 and c2 then x = -1 ENDIF   SCREENER[x](x as "PG")

   

  Geht?

   

  

  JohnScher

  Participant

  Topics: 44

  Replies: 336

  Been thanked: 84 times
  08/31/2019 at 9:16 PM #106044
  Vonasi

  JohnScher – if you want to contact Nicolas then use the form under the ‘Contact Us’ tab or send him an email at the address shown there – do not start a topic with just his name as the title!

  If you want to submit something to the library then use the correct process by clicking on the ‘+’ sign top right of the screen.

  Also please post in the correct forum. It is a screener you are posting and you posted in the ProOrder forum which is for strategies. I have moved the topic and given it a more meaningful title.

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1810 times
• Author
  Posts