Changing TMA Slope indicator by Nicolas to a Screener!!

• 02/08/2020 at 1:12 AM #118987
  crolakstrading

  This is regarding TMA Slope indicator by Nicolas!!
  https://www.prorealcode.com/prorealtime-indicators/tma-slope/

  just wondering if it is possible to make this indicator to a screener…
  When ”Buy Only”  — once we get the first green histogram to ”buy only”  get a signal on the screener eg; 1
  When ”Sell Only” — once we get the first red histogram ”Sell only”  get a signal on the screener eg; -1

  I tried to do this but failed miserably.. is it possible?

  Thank you in advance.

  TMA Slope Screener

  Period = 20 edblHigh1 = 0.04 edblLow1 = -0.04 atrPeriod = 100 atr = AverageTrueRange[atrPeriod](close) dblTma = TriangularAverage[eintPeriod](close) if barindex>eintPeriod then dblPrev = dblTma[1] gadblSlope = ( dblTma - dblPrev ) / atr if ( gadblSlope[0] > edblHigh1 ) then if(gadblSlope[0] < gadblSlope[1]) then gadblUp1 = gadblSlope[0] gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 gadblMid1 = 0 gadblMid2 = 0 else gadblUp1 = 0 gadblDn1 = 0 gadblDn2 = 0 gadblUp2 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 endif elsif ( gadblSlope[0] < edblLow1 ) then if(gadblSlope[0] < gadblSlope[1]) then gadblUp2 = 0 gadblDn1 = 0 gadblUp1 = 0 gadblDn2 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 else gadblUp2 = 0 gadblUp1 = 0 gadblDn2 = 0 gadblDn1 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 endif else if(gadblSlope[0] < gadblSlope[1]) then gadblMid2 = gadblSlope[0] gadblMid1 = 0 gadblUp1 = 0 gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 else gadblMid1 = gadblSlope[0] gadblMid2 = 0 gadblUp1 = 0 gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 endif endif endif if gadblSlope>0 then offset = edblLow1 else offset = edblHigh1 endif Result = 0 IF gadblSlope>edblHigh1 THEN //Buy Only Result = 1 ELSIF gadblSlope<edblLow1 THEN //Sell Only Result = -1 ENDIF SCREENER[result] (result AS "Slope")

  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

  Period = 20 edblHigh1 = 0.04 edblLow1 = -0.04 atrPeriod = 100   atr = AverageTrueRange[atrPeriod](close)   dblTma = TriangularAverage[eintPeriod](close)   if barindex>eintPeriod then dblPrev = dblTma[1] gadblSlope = ( dblTma - dblPrev ) / atr   if ( gadblSlope[0] > edblHigh1 ) then if(gadblSlope[0] < gadblSlope[1]) then gadblUp1 = gadblSlope[0] gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 gadblMid1 = 0 gadblMid2 = 0 else gadblUp1 = 0 gadblDn1 = 0 gadblDn2 = 0 gadblUp2 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 endif elsif ( gadblSlope[0] < edblLow1 ) then if(gadblSlope[0] < gadblSlope[1]) then gadblUp2 = 0 gadblDn1 = 0 gadblUp1 = 0 gadblDn2 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 else gadblUp2 = 0 gadblUp1 = 0 gadblDn2 = 0 gadblDn1 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 endif else if(gadblSlope[0] < gadblSlope[1]) then gadblMid2 = gadblSlope[0] gadblMid1 = 0 gadblUp1 = 0 gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 else gadblMid1 = gadblSlope[0] gadblMid2 = 0 gadblUp1 = 0 gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 endif endif endif   if gadblSlope>0 then offset = edblLow1 else offset = edblHigh1 endif Result = 0 IF gadblSlope>edblHigh1 THEN //Buy Only Result = 1 ELSIF gadblSlope<edblLow1 THEN //Sell Only Result = -1 ENDIF SCREENER[result] (result AS "Slope")

   

  

  crolakstrading

  Participant

  Topics: 12

  Replies: 112

  Been thanked: 4 times
  02/08/2020 at 1:19 AM #118990
  robertogozzi

  Screeners don’t like much -1, try replacing it with 2 at line 74.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17131

  Been thanked: 4030 times
  02/08/2020 at 11:52 PM #119065
  crolakstrading

  Thanks for your response.
  I tried replacing it with 2.. but I get loads of other Syntax errors:
  I think I’ve not done this right!! 🙁

  

  crolakstrading

  Participant

  Topics: 12

  Replies: 112

  Been thanked: 4 times
  02/09/2020 at 12:00 AM #119066
  robertogozzi

  I cannot check syntax errors on my mobile.

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17131

  Been thanked: 4030 times
  02/09/2020 at 12:43 AM #119076
  crolakstrading

  No Problem…@robertogozzi
  please if you could have a look at this would be amazing!!!!!

  

  crolakstrading

  Participant

  Topics: 12

  Replies: 112

  Been thanked: 4 times
  02/10/2020 at 12:58 AM #119122
  robertogozzi

  Line 1 should read eintPeriod.

  Remove lines 65-69, since Offset was only required to plot on the chart.

  Variables having their names starting with gadbl are not used, so they could probably be removed, but I am not sure about that since I did not test the code thoroughly so I suggest that you add this dummy line just before the last line, instead of removing them:

  IF gadblup1 OR gadblup2 OR gadbldn1 OR gadbldn2 OR gadblmid1 OR gadblmid2 THEN ENDIF

  1 2	IF gadblup1 OR gadblup2 OR gadbldn1 OR gadbldn2 OR gadblmid1 OR gadblmid2 THEN ENDIF

  remember to use 2 instead of -1.

  1 user thanked author for this post.

  Nicolas

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17131

  Been thanked: 4030 times
  02/10/2020 at 7:19 PM #119230
  crolakstrading

  Hi robertogozzi

  Thanks to your help I kinda managed to get this without any errors 🙂 The problem now is it shows all Buy only and Sell only!!
  Is it Possible to change this,
  When ”Buy Only”  —  it only reads first 5 green candles only
  When ”Sell Only” — it only reads first 5 Red candles only

  eintPeriod = 20 edblHigh1 = 0.04 edblLow1 = -0.04 atrPeriod = 100 atr = AverageTrueRange[atrPeriod](close) dblTma = TriangularAverage[eintPeriod](close) if barindex>eintPeriod then dblPrev = dblTma[1] gadblSlope = ( dblTma - dblPrev ) / atr if ( gadblSlope[0] > edblHigh1 ) then if(gadblSlope[0] < gadblSlope[1]) then gadblUp1 = gadblSlope[0] gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 gadblMid1 = 0 gadblMid2 = 0 else gadblUp1 = 0 gadblDn1 = 0 gadblDn2 = 0 gadblUp2 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 endif elsif ( gadblSlope[0] < edblLow1 ) then if(gadblSlope[0] < gadblSlope[1]) then gadblUp2 = 0 gadblDn1 = 0 gadblUp1 = 0 gadblDn2 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 endif else gadblUp2 = 0 gadblUp1 = 0 gadblDn2 = 0 gadblDn1 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 endif else if(gadblSlope[0] < gadblSlope[1]) then gadblMid2 = gadblSlope[0] gadblMid1 = 0 gadblUp1 = 0 gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 else gadblMid1 = gadblSlope[0] gadblMid2 = 0 gadblUp1 = 0 gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 endif endif IF gadblup1 OR gadblup2 OR gadbldn1 OR gadbldn2 OR gadblmid1 OR gadblmid2 THEN ENDIF Result = 0 IF gadblSlope>edblHigh1 THEN //Buy Only Result = 1 ELSIF gadblSlope<edblLow1 THEN //Sell Only Result = 2 ENDIF SCREENER[result] (result AS "Slope")

  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

  eintPeriod = 20 edblHigh1 = 0.04 edblLow1 = -0.04 atrPeriod = 100 atr = AverageTrueRange[atrPeriod](close) dblTma = TriangularAverage[eintPeriod](close) if barindex>eintPeriod then dblPrev = dblTma[1] gadblSlope = ( dblTma - dblPrev ) / atr if ( gadblSlope[0] > edblHigh1 ) then if(gadblSlope[0] < gadblSlope[1]) then gadblUp1 = gadblSlope[0] gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 gadblMid1 = 0 gadblMid2 = 0 else gadblUp1 = 0 gadblDn1 = 0 gadblDn2 = 0 gadblUp2 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 endif elsif ( gadblSlope[0] < edblLow1 ) then if(gadblSlope[0] < gadblSlope[1]) then gadblUp2 = 0 gadblDn1 = 0 gadblUp1 = 0 gadblDn2 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 endif else gadblUp2 = 0 gadblUp1 = 0 gadblDn2 = 0 gadblDn1 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 endif else if(gadblSlope[0] < gadblSlope[1]) then gadblMid2 = gadblSlope[0] gadblMid1 = 0 gadblUp1 = 0 gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 else gadblMid1 = gadblSlope[0] gadblMid2 = 0 gadblUp1 = 0 gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 endif endif IF gadblup1 OR gadblup2 OR gadbldn1 OR gadbldn2 OR gadblmid1 OR gadblmid2 THEN ENDIF Result = 0 IF gadblSlope>edblHigh1 THEN //Buy Only Result = 1 ELSIF gadblSlope<edblLow1 THEN //Sell Only Result = 2 ENDIF SCREENER[result] (result AS "Slope")

   

   

  

  crolakstrading

  Participant

  Topics: 12

  Replies: 112

  Been thanked: 4 times
  02/10/2020 at 7:43 PM #119234
  robertogozzi

  This is probably due to the high number of items returned (max. 50 allowed on demo account, 100 on real account). You can read how many have been displayed aot of XXXX at the bottom of the screener window.

  I may suggest that you duplicate it and run both of them one to search BUY only with lines 67-71 replaced by:

  IF gadblSlope>edblHigh1 THEN //Buy Only Result = 1 ENDIF

  1 2 3

  IF gadblSlope>edblHigh1 THEN //Buy Only    Result = 1 ENDIF

  and the SELL only one with:

  IF gadblSlope<edblLow1 THEN //Sell Only Result = 2 ENDIF

  1 2 3

  IF gadblSlope<edblLow1 THEN //Sell Only    Result = 2 ENDIF

   

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17131

  Been thanked: 4030 times
  02/12/2020 at 6:48 PM #119472
  crolakstrading

  Hi @roberto

  It still reads all of it in the list..

  Is there a way to read-only past 5 histograms when BUY ONLY or SELL ONLY means it will show up the new signals.. within 5 histograms?

  eintPeriod = 20 edblHigh1 = 0.03 edblLow1 = -0.03 atrPeriod = 100 atr = AverageTrueRange[atrPeriod](close) dblTma = TriangularAverage[eintPeriod](close) if barindex>eintPeriod then dblPrev = dblTma[1] gadblSlope = ( dblTma - dblPrev ) / atr if ( gadblSlope[0] > edblHigh1 ) then if(gadblSlope[0] < gadblSlope[1]) then gadblUp1 = gadblSlope[0] gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 gadblMid1 = 0 gadblMid2 = 0 else gadblUp1 = 0 gadblDn1 = 0 gadblDn2 = 0 gadblUp2 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 endif elsif ( gadblSlope[0] < edblLow1 ) then if(gadblSlope[0] < gadblSlope[1]) then gadblUp2 = 0 gadblDn1 = 0 gadblUp1 = 0 gadblDn2 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 endif else gadblUp2 = 0 gadblUp1 = 0 gadblDn2 = 0 gadblDn1 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 endif else if(gadblSlope[0] < gadblSlope[1]) then gadblMid2 = gadblSlope[0] gadblMid1 = 0 gadblUp1 = 0 gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 else gadblMid1 = gadblSlope[0] gadblMid2 = 0 gadblUp1 = 0 gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 endif endif IF gadblup1 OR gadblup2 OR gadbldn1 OR gadbldn2 OR gadblmid1 OR gadblmid2 THEN ENDIF Result = 0 IF gadblSlope>edblHigh1 THEN //Buy Only Result = 1 ENDIF IF gadblSlope<edblLow1 THEN //Sell Only Result = 2 ENDIF SCREENER[result] (result AS "Slope")

  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

  eintPeriod = 20 edblHigh1 = 0.03 edblLow1 = -0.03 atrPeriod = 100 atr = AverageTrueRange[atrPeriod](close) dblTma = TriangularAverage[eintPeriod](close) if barindex>eintPeriod then dblPrev = dblTma[1] gadblSlope = ( dblTma - dblPrev ) / atr if ( gadblSlope[0] > edblHigh1 ) then if(gadblSlope[0] < gadblSlope[1]) then gadblUp1 = gadblSlope[0] gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 gadblMid1 = 0 gadblMid2 = 0 else gadblUp1 = 0 gadblDn1 = 0 gadblDn2 = 0 gadblUp2 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 endif elsif ( gadblSlope[0] < edblLow1 ) then if(gadblSlope[0] < gadblSlope[1]) then gadblUp2 = 0 gadblDn1 = 0 gadblUp1 = 0 gadblDn2 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 endif else gadblUp2 = 0 gadblUp1 = 0 gadblDn2 = 0 gadblDn1 = gadblSlope[0] gadblMid1 = 0 gadblMid2 = 0 endif else if(gadblSlope[0] < gadblSlope[1]) then gadblMid2 = gadblSlope[0] gadblMid1 = 0 gadblUp1 = 0 gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 else gadblMid1 = gadblSlope[0] gadblMid2 = 0 gadblUp1 = 0 gadblUp2 = 0 gadblDn1 = 0 gadblDn2 = 0 endif endif IF gadblup1 OR gadblup2 OR gadbldn1 OR gadbldn2 OR gadblmid1 OR gadblmid2 THEN ENDIF Result = 0 IF gadblSlope>edblHigh1 THEN //Buy Only Result = 1 ENDIF   IF gadblSlope<edblLow1 THEN //Sell Only Result = 2 ENDIF   SCREENER[result] (result AS "Slope")

   

  

  crolakstrading

  Participant

  Topics: 12

  Replies: 112

  Been thanked: 4 times
  02/12/2020 at 8:02 PM #119483
  robertogozzi

  Line 67 and 71 should read, respectively:

  if summation[5](gadblSlope>edblHigh1) then //line 67 if summation[5](gadblSlope<edblLow1) then //line 71

  1 2	if summation[5](gadblSlope>edblHigh1) then //line 67 if summation[5](gadblSlope<edblLow1) then //line 71

   

  1 user thanked author for this post.

  crolakstrading

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17131

  Been thanked: 4030 times
  02/18/2020 at 6:28 PM #119869
  crolakstrading

  robertogozzi i think it works!! thank you very much for help as always!!

  

  crolakstrading

  Participant

  Topics: 12

  Replies: 112

  Been thanked: 4 times
• Author
  Posts