From indicator to screener – screener misses stocks

• 07/30/2021 at 9:26 AM #174370
  skfomx

  I had an idea for an indicator and somehow with the help of reading on this forum and using copy paste I was able to create an indicator that does what I want. I have no previous knowledge of coding.

  The indicator identifies a stock that has had a run up without any major pullbacks. When the stock pulls back to an average price the indicator plots a line of the highest high over the the last 33 days. When price takes out that high or when the indicator identifies the start of a new run up the line goes to zero.

  Anyway, I guess something is off with how I coded this indicator because I am not able to get pro screener to find all the stocks where this line is plotted. It finds a few of them – but it misses the majority. I would be very grateful if someone could take a look and see what could be wrong that causes the screener to miss so many stocks…

  Thank you, Gustav

  //Pivot calculation method Once mode = 1 Once dailyPivot = 1 Once lastWeekBarIndex = 1 Once weeklyHigh = undefined Once weeklyLow = undefined Once weeklyPivot = undefined Once lastMonthBarIndex = 1 Once monthlyHigh = undefined Once monthlyLow = undefined Once monthlyPivot = undefined If Day>Day[1] then If mode = 1 then dailyPivot = (DHigh(1) + DLow(1) + Close[1]) / 3 Elsif mode = 1 then dailyPivot = (Open + DHigh(1) + DLow(1) + Close[1]) / 4 Elsif mode = 2 then dailyPivot = (DHigh(1) + DLow(1) + Close[1]*2) / 4 Else dailyPivot = (Open*2 + DHigh(1) + DLow(1)) / 4 Endif Endif If DayOfWeek<DayOfWeek[1] then weeklyHigh = Highest[max(1,BarIndex - lastWeekBarIndex)](High)[1] weeklyLow = Lowest[max(1,BarIndex - lastWeekBarIndex)](Low)[1] lastWeekBarIndex = BarIndex If mode = 1 then weeklyPivot = (weeklyHigh + weeklyLow + Close[1]) / 3 Elsif mode = 1 then weeklyPivot = (Open + weeklyHigh + weeklyLow + Close[1]) / 4 Elsif mode = 2 then weeklyPivot = (weeklyHigh + weeklyLow + Close[1]*2) / 4 Else weeklyPivot = (Open*2 + weeklyHigh + weeklyLow) / 4 Endif Endif If Month<>Month[1] then monthlyHigh = Highest[max(1,BarIndex - lastMonthBarIndex)](High)[1] monthlyLow = Lowest[max(1,BarIndex - lastMonthBarIndex)](Low)[1] lastMonthBarIndex = BarIndex If mode = 1 then monthlyPivot = (monthlyHigh + monthlyLow + Close[1]) / 3 Elsif mode = 1 then monthlyPivot = (Open + monthlyHigh + monthlyLow + Close[1]) / 4 Elsif mode = 2 then monthlyPivot = (monthlyHigh + monthlyLow + Close[1]*2) / 4 Else monthlyPivot = (Open*2 + monthlyHigh + monthlyLow) / 4 Endif Endif c1= (DailyPivot *2 + weeklyPivot *2 + monthlyPivot *2 + average [5] + average [20] + average [50] + average [100] + average [200]) / 11 C2= close - C1 IF c2 > 2 * Averagetruerange Then RESULT = 10 ELSIF LOW<C1 THEN RESULT = 0 ENDIF IF RESULT[0] > RESULT[1] THEN FINALRESULT = CLOSE [0] ENDIF IF FINALRESULT OR RESULT >0 THEN SIGNAL = 1 ELSIF (LOW<C1) THEN SIGNAL = 0 ENDIF IF SIGNAL > 0 AND HIGH - FINALRESULT > Averagetruerange * 3 THEN FINALSIGNAL = 1 ELSIF (LOW<C1) THEN FINALSIGNAL = 0 ENDIF If FINALSIGNAL > 0 and c2 > 3 * Averagetruerange then finalentrysignal = 1 ELSIF (LOW<C1) THEN finalENTRYSIGNAL = 0 Endif If finalentrysignal<finalentrysignal[1] then level=(highest[33](HIGH[1])) elsif finalentrysignal>finalentrysignal[1] or close>level then level=0 endif SCREENER[level] ((close/DClose(1)-1)*100 AS "%Chg yest.")

  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 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110

  //Pivot calculation method Once mode = 1   Once dailyPivot = 1     Once lastWeekBarIndex = 1 Once weeklyHigh = undefined Once weeklyLow = undefined Once weeklyPivot = undefined       Once lastMonthBarIndex = 1 Once monthlyHigh = undefined Once monthlyLow = undefined Once monthlyPivot = undefined       If Day>Day[1] then If mode = 1 then dailyPivot = (DHigh(1) + DLow(1) + Close[1]) / 3 Elsif mode = 1 then dailyPivot = (Open + DHigh(1) + DLow(1) + Close[1]) / 4 Elsif mode = 2 then dailyPivot = (DHigh(1) + DLow(1) + Close[1]*2) / 4 Else dailyPivot = (Open*2 + DHigh(1) + DLow(1)) / 4 Endif     Endif   If DayOfWeek<DayOfWeek[1] then weeklyHigh = Highest[max(1,BarIndex - lastWeekBarIndex)](High)[1] weeklyLow = Lowest[max(1,BarIndex - lastWeekBarIndex)](Low)[1] lastWeekBarIndex = BarIndex   If mode = 1 then weeklyPivot = (weeklyHigh + weeklyLow + Close[1]) / 3 Elsif mode = 1 then weeklyPivot = (Open + weeklyHigh + weeklyLow + Close[1]) / 4 Elsif mode = 2 then weeklyPivot = (weeklyHigh + weeklyLow + Close[1]*2) / 4 Else weeklyPivot = (Open*2 + weeklyHigh + weeklyLow) / 4 Endif     Endif   If Month<>Month[1] then monthlyHigh = Highest[max(1,BarIndex - lastMonthBarIndex)](High)[1] monthlyLow = Lowest[max(1,BarIndex - lastMonthBarIndex)](Low)[1] lastMonthBarIndex = BarIndex   If mode = 1 then monthlyPivot = (monthlyHigh + monthlyLow + Close[1]) / 3 Elsif mode = 1 then monthlyPivot = (Open + monthlyHigh + monthlyLow + Close[1]) / 4 Elsif mode = 2 then monthlyPivot = (monthlyHigh + monthlyLow + Close[1]*2) / 4 Else monthlyPivot = (Open*2 + monthlyHigh + monthlyLow) / 4 Endif   Endif   c1= (DailyPivot *2 + weeklyPivot *2 + monthlyPivot *2 + average [5] + average [20] + average [50] + average [100] + average [200]) / 11     C2= close - C1 IF c2 > 2 * Averagetruerange Then RESULT = 10 ELSIF LOW<C1 THEN RESULT = 0 ENDIF   IF RESULT[0] > RESULT[1] THEN FINALRESULT = CLOSE [0] ENDIF     IF FINALRESULT OR RESULT >0 THEN SIGNAL = 1 ELSIF (LOW<C1) THEN SIGNAL = 0 ENDIF IF SIGNAL > 0 AND HIGH - FINALRESULT > Averagetruerange * 3 THEN FINALSIGNAL = 1 ELSIF (LOW<C1) THEN FINALSIGNAL = 0 ENDIF   If FINALSIGNAL > 0 and c2 > 3 * Averagetruerange then finalentrysignal = 1 ELSIF (LOW<C1) THEN finalENTRYSIGNAL = 0 Endif   If finalentrysignal<finalentrysignal[1] then level=(highest[33](HIGH[1])) elsif finalentrysignal>finalentrysignal[1] or close>level then level=0 endif       SCREENER[level] ((close/DClose(1)-1)*100 AS "%Chg yest.")

  1

  

  skfomx

  Participant

  Topics: 3

  Replies: 10

  Been thanked: 0 times
  07/30/2021 at 10:39 AM #174379
  robertogozzi

  Screeners have only 254 bars of data history, so you should check this isn’t the case; when it calculates the HIGHEST and LOWEST I suggest that you use:

  Highest[min(254,max(1,BarIndex - lastMonthBarIndex))]

  1	Highest[min(254,max(1,BarIndex - lastMonthBarIndex))]

  Furthermore, ONCE may lead to issues in ProScreener, it’s advisable not to use it. Instead of using

  Once mode = 1

  1	Once mode = 1

  use

  IF BarIndex = 0 THEN mode = 1 ENDIF

  1 2 3

  IF BarIndex = 0 THEN    mode = 1 ENDIF

  1 user thanked author for this post.

  skfomx

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17277

  Been thanked: 4125 times
  07/30/2021 at 10:45 AM #174381
  skfomx

  Thank you Roberto for the quick response. I will try this!

  

  skfomx

  Participant

  Topics: 3

  Replies: 10

  Been thanked: 0 times
  07/30/2021 at 2:10 PM #174389
  skfomx

  I tried to change it but I must be doing something wrong because the problem persists. The screener is still just finding less than half of the stocks it should. This is what the code looks like now: Im using prt 11.1

  //Pivot calculation method IF BarIndex = 0 THEN mode = 1 ENDIF IF BarIndex = 0 THEN dailypivot = 1 ENDIF IF BarIndex = 0 THEN lastWeekbarIndex = 1 ENDIF IF BarIndex = 0 THEN weeklyhigh = undefined ENDIF IF BarIndex = 0 THEN weeklylow = undefined ENDIF IF BarIndex = 0 THEN weeklypivot = undefined ENDIF IF BarIndex = 0 THEN lastmonthbarindex = 1 ENDIF IF BarIndex = 0 THEN monthlyhigh = undefined ENDIF IF BarIndex = 0 THEN monthlylow = undefined ENDIF IF BarIndex = 0 THEN monthlypivot = undefined ENDIF If Day>Day[1] then If mode = 1 then dailyPivot = (DHigh(1) + DLow(1) + Close[1]) / 3 Elsif mode = 1 then dailyPivot = (Open + DHigh(1) + DLow(1) + Close[1]) / 4 Elsif mode = 2 then dailyPivot = (DHigh(1) + DLow(1) + Close[1]*2) / 4 Else dailyPivot = (Open*2 + DHigh(1) + DLow(1)) / 4 Endif Endif If DayOfWeek<DayOfWeek[1] then weeklyHigh = Highest[min(254,max(1,BarIndex - lastweekBarIndex))] weeklyLow = Lowest[min(254,max(1,BarIndex - lastweekBarIndex))] lastWeekBarIndex = BarIndex If mode = 1 then weeklyPivot = (weeklyHigh + weeklyLow + Close[1]) / 3 Elsif mode = 1 then weeklyPivot = (Open + weeklyHigh + weeklyLow + Close[1]) / 4 Elsif mode = 2 then weeklyPivot = (weeklyHigh + weeklyLow + Close[1]*2) / 4 Else weeklyPivot = (Open*2 + weeklyHigh + weeklyLow) / 4 Endif Endif If Month<>Month[1] then monthlyHigh = Highest[min(254,max(1,BarIndex - lastMonthBarIndex))] monthlyLow = Lowest[min(254,max(1,BarIndex - lastMonthBarIndex))] lastMonthBarIndex = BarIndex If mode = 1 then monthlyPivot = (monthlyHigh + monthlyLow + Close[1]) / 3 Elsif mode = 1 then monthlyPivot = (Open + monthlyHigh + monthlyLow + Close[1]) / 4 Elsif mode = 2 then monthlyPivot = (monthlyHigh + monthlyLow + Close[1]*2) / 4 Else monthlyPivot = (Open*2 + monthlyHigh + monthlyLow) / 4 Endif Endif c1= (DailyPivot *2 + weeklyPivot *2 + monthlyPivot *2 + average [5] + average [20] + average [50] + average [100] + average [200]) / 11 C2= close - C1 IF c2 > 2 * Averagetruerange Then RESULT = 10 ELSIF LOW<C1 THEN RESULT = 0 ENDIF IF RESULT[0] > RESULT[1] THEN FINALRESULT = CLOSE [0] ENDIF IF FINALRESULT OR RESULT >0 THEN SIGNAL = 1 ELSIF (LOW<C1) THEN SIGNAL = 0 ENDIF IF SIGNAL > 0 AND HIGH - FINALRESULT > Averagetruerange * 3 THEN FINALSIGNAL = 1 ELSIF (LOW<C1) THEN FINALSIGNAL = 0 ENDIF If FINALSIGNAL > 0 and c2 > 3 * Averagetruerange then finalentrysignal = 1 ELSIF (LOW<C1) THEN finalENTRYSIGNAL = 0 Endif If finalentrysignal<finalentrysignal[1] then level=(highest[33](HIGH[1])) elsif finalentrysignal>finalentrysignal[1] or close>level then level=0 endif SCREENER[level] ((close/DClose(1)-1)*100 AS "%Chg yest.")

  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 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138

  //Pivot calculation method   IF BarIndex = 0 THEN mode = 1 ENDIF   IF BarIndex = 0 THEN dailypivot = 1 ENDIF     IF BarIndex = 0 THEN lastWeekbarIndex = 1 ENDIF   IF BarIndex = 0 THEN weeklyhigh = undefined ENDIF   IF BarIndex = 0 THEN weeklylow = undefined ENDIF   IF BarIndex = 0 THEN weeklypivot = undefined ENDIF   IF BarIndex = 0 THEN lastmonthbarindex = 1 ENDIF     IF BarIndex = 0 THEN monthlyhigh = undefined ENDIF   IF BarIndex = 0 THEN monthlylow = undefined ENDIF   IF BarIndex = 0 THEN monthlypivot = undefined ENDIF           If Day>Day[1] then If mode = 1 then dailyPivot = (DHigh(1) + DLow(1) + Close[1]) / 3 Elsif mode = 1 then dailyPivot = (Open + DHigh(1) + DLow(1) + Close[1]) / 4 Elsif mode = 2 then dailyPivot = (DHigh(1) + DLow(1) + Close[1]*2) / 4 Else dailyPivot = (Open*2 + DHigh(1) + DLow(1)) / 4 Endif     Endif   If DayOfWeek<DayOfWeek[1] then weeklyHigh = Highest[min(254,max(1,BarIndex - lastweekBarIndex))] weeklyLow = Lowest[min(254,max(1,BarIndex - lastweekBarIndex))] lastWeekBarIndex = BarIndex   If mode = 1 then weeklyPivot = (weeklyHigh + weeklyLow + Close[1]) / 3 Elsif mode = 1 then weeklyPivot = (Open + weeklyHigh + weeklyLow + Close[1]) / 4 Elsif mode = 2 then weeklyPivot = (weeklyHigh + weeklyLow + Close[1]*2) / 4 Else weeklyPivot = (Open*2 + weeklyHigh + weeklyLow) / 4 Endif     Endif   If Month<>Month[1] then monthlyHigh = Highest[min(254,max(1,BarIndex - lastMonthBarIndex))] monthlyLow = Lowest[min(254,max(1,BarIndex - lastMonthBarIndex))] lastMonthBarIndex = BarIndex   If mode = 1 then monthlyPivot = (monthlyHigh + monthlyLow + Close[1]) / 3 Elsif mode = 1 then monthlyPivot = (Open + monthlyHigh + monthlyLow + Close[1]) / 4 Elsif mode = 2 then monthlyPivot = (monthlyHigh + monthlyLow + Close[1]*2) / 4 Else monthlyPivot = (Open*2 + monthlyHigh + monthlyLow) / 4 Endif   Endif   c1= (DailyPivot *2 + weeklyPivot *2 + monthlyPivot *2 + average [5] + average [20] + average [50] + average [100] + average [200]) / 11     C2= close - C1 IF c2 > 2 * Averagetruerange Then RESULT = 10 ELSIF LOW<C1 THEN RESULT = 0 ENDIF   IF RESULT[0] > RESULT[1] THEN FINALRESULT = CLOSE [0] ENDIF     IF FINALRESULT OR RESULT >0 THEN SIGNAL = 1 ELSIF (LOW<C1) THEN SIGNAL = 0 ENDIF IF SIGNAL > 0 AND HIGH - FINALRESULT > Averagetruerange * 3 THEN FINALSIGNAL = 1 ELSIF (LOW<C1) THEN FINALSIGNAL = 0 ENDIF   If FINALSIGNAL > 0 and c2 > 3 * Averagetruerange then finalentrysignal = 1 ELSIF (LOW<C1) THEN finalENTRYSIGNAL = 0 Endif   If finalentrysignal<finalentrysignal[1] then level=(highest[33](HIGH[1])) elsif finalentrysignal>finalentrysignal[1] or close>level then level=0 endif       SCREENER[level] ((close/DClose(1)-1)*100 AS "%Chg yest.")

   

   

  

  skfomx

  Participant

  Topics: 3

  Replies: 10

  Been thanked: 0 times
  08/03/2021 at 8:11 AM #174594
  skfomx

  I am still looking for help with this. Is there anyone that can see what I am doing wrong?

  

  skfomx

  Participant

  Topics: 3

  Replies: 10

  Been thanked: 0 times
  08/03/2021 at 2:25 PM #174606
  robertogozzi

  You wrote “The screener is still just finding less than half of the stocks it should“, how many results were returned?

   

  1 user thanked author for this post.

  skfomx

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17277

  Been thanked: 4125 times
  08/03/2021 at 3:43 PM #174618
  skfomx

  If we take DAX30 for example then the screener finds 7 stocks. If I instead search the DAX30 manually with the indicator I find 20 stocks.

  Thank you Roberto for taking the time to look at this once more.

   

  

  skfomx

  Participant

  Topics: 3

  Replies: 10

  Been thanked: 0 times
  08/03/2021 at 4:57 PM #174623
  robertogozzi

  I can’t detect any issue. I am returned several signals, but I can’t know how many they should have been.
  I suggest that you hit Ctrl+M to ask PRT for assistance.

  You may shorten you code by replacing lines 3 to 43 with:

  IF BarIndex = 0 THEN mode = 1 dailypivot = 1 lastWeekbarIndex = 1 weeklyhigh = undefined weeklylow = undefined weeklypivot = undefined lastmonthbarindex = 1 monthlyhigh = undefined monthlylow = undefined monthlypivot = undefined ENDIF

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

  IF BarIndex = 0 THEN    mode = 1    dailypivot = 1    lastWeekbarIndex = 1    weeklyhigh = undefined    weeklylow = undefined    weeklypivot = undefined    lastmonthbarindex = 1    monthlyhigh = undefined    monthlylow = undefined    monthlypivot = undefined ENDIF

  but this won’t affect results.

  1 user thanked author for this post.

  skfomx

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17277

  Been thanked: 4125 times
  08/03/2021 at 5:13 PM #174624
  robertogozzi

  I might have found a glitch.
  As you can see from the attached pic, the first IF is

  If mode = 0 then

  1	If mode = 0 then

  not

  If mode = 1 then

  1	If mode = 1 then

  1 user thanked author for this post.

  skfomx

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17277

  Been thanked: 4125 times
  08/03/2021 at 10:08 PM #174639
  skfomx

  Thank you again Roberto for your improvements to the code. The problem with missing stocks when screening is unfortunately still present. I have contacted PRT-support to see if they can help.

  This is what the screener code looks like now.

  1

  1

  

  skfomx

  Participant

  Topics: 3

  Replies: 10

  Been thanked: 0 times
  08/03/2021 at 10:10 PM #174640
  skfomx

  //Pivot calculation method IF BarIndex = 0 THEN mode = 1 dailypivot = 1 lastWeekbarIndex = 1 weeklyhigh = undefined weeklylow = undefined weeklypivot = undefined lastmonthbarindex = 1 monthlyhigh = undefined monthlylow = undefined monthlypivot = undefined ENDIF If Day>Day[1] then If mode = 0 then dailyPivot = (DHigh(1) + DLow(1) + Close[1]) / 3 Elsif mode = 1 then dailyPivot = (Open + DHigh(1) + DLow(1) + Close[1]) / 4 Elsif mode = 2 then dailyPivot = (DHigh(1) + DLow(1) + Close[1]*2) / 4 Else dailyPivot = (Open*2 + DHigh(1) + DLow(1)) / 4 Endif Endif If DayOfWeek<DayOfWeek[1] then weeklyHigh = Highest[min(254,max(1,BarIndex - lastweekBarIndex))] weeklyLow = Lowest[min(254,max(1,BarIndex - lastweekBarIndex))] lastWeekBarIndex = BarIndex If mode = 0 then weeklyPivot = (weeklyHigh + weeklyLow + Close[1]) / 3 Elsif mode = 1 then weeklyPivot = (Open + weeklyHigh + weeklyLow + Close[1]) / 4 Elsif mode = 2 then weeklyPivot = (weeklyHigh + weeklyLow + Close[1]*2) / 4 Else weeklyPivot = (Open*2 + weeklyHigh + weeklyLow) / 4 Endif Endif If Month<>Month[1] then monthlyHigh = Highest[min(254,max(1,BarIndex - lastMonthBarIndex))] monthlyLow = Lowest[min(254,max(1,BarIndex - lastMonthBarIndex))] lastMonthBarIndex = BarIndex If mode = 0 then monthlyPivot = (monthlyHigh + monthlyLow + Close[1]) / 3 Elsif mode = 1 then monthlyPivot = (Open + monthlyHigh + monthlyLow + Close[1]) / 4 Elsif mode = 2 then monthlyPivot = (monthlyHigh + monthlyLow + Close[1]*2) / 4 Else monthlyPivot = (Open*2 + monthlyHigh + monthlyLow) / 4 Endif Endif c1= (DailyPivot *2 + weeklyPivot *2 + monthlyPivot *2 + average [5] + average [20] + average [50] + average [100] + average [200]) / 11 C2= close - C1 IF c2 > 2 * Averagetruerange Then RESULT = 10 ELSIF LOW<C1 THEN RESULT = 0 ENDIF IF RESULT[0] > RESULT[1] THEN FINALRESULT = CLOSE [0] ENDIF IF FINALRESULT OR RESULT >0 THEN SIGNAL = 1 ELSIF (LOW<C1) THEN SIGNAL = 0 ENDIF IF SIGNAL > 0 AND HIGH - FINALRESULT > Averagetruerange * 3 THEN FINALSIGNAL = 1 ELSIF (LOW<C1) THEN FINALSIGNAL = 0 ENDIF If FINALSIGNAL > 0 and c2 > 3 * Averagetruerange then finalentrysignal = 1 ELSIF (LOW<C1) THEN finalENTRYSIGNAL = 0 Endif If finalentrysignal<finalentrysignal[1] then level=(highest[33](HIGH[1])) elsif finalentrysignal>finalentrysignal[1] or close>level then level=0 endif SCREENER[level] ((close/DClose(1)-1)*100 AS "%Chg yest.")

  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 94 95 96 97 98 99 100 101 102 103

  //Pivot calculation method IF BarIndex = 0 THEN mode = 1 dailypivot = 1 lastWeekbarIndex = 1 weeklyhigh = undefined weeklylow = undefined weeklypivot = undefined lastmonthbarindex = 1 monthlyhigh = undefined monthlylow = undefined monthlypivot = undefined ENDIF   If Day>Day[1] then If mode = 0 then dailyPivot = (DHigh(1) + DLow(1) + Close[1]) / 3 Elsif mode = 1 then dailyPivot = (Open + DHigh(1) + DLow(1) + Close[1]) / 4 Elsif mode = 2 then dailyPivot = (DHigh(1) + DLow(1) + Close[1]*2) / 4 Else dailyPivot = (Open*2 + DHigh(1) + DLow(1)) / 4 Endif     Endif   If DayOfWeek<DayOfWeek[1] then weeklyHigh = Highest[min(254,max(1,BarIndex - lastweekBarIndex))] weeklyLow = Lowest[min(254,max(1,BarIndex - lastweekBarIndex))] lastWeekBarIndex = BarIndex   If mode = 0 then weeklyPivot = (weeklyHigh + weeklyLow + Close[1]) / 3 Elsif mode = 1 then weeklyPivot = (Open + weeklyHigh + weeklyLow + Close[1]) / 4 Elsif mode = 2 then weeklyPivot = (weeklyHigh + weeklyLow + Close[1]*2) / 4 Else weeklyPivot = (Open*2 + weeklyHigh + weeklyLow) / 4 Endif     Endif   If Month<>Month[1] then monthlyHigh = Highest[min(254,max(1,BarIndex - lastMonthBarIndex))] monthlyLow = Lowest[min(254,max(1,BarIndex - lastMonthBarIndex))] lastMonthBarIndex = BarIndex   If mode = 0 then monthlyPivot = (monthlyHigh + monthlyLow + Close[1]) / 3 Elsif mode = 1 then monthlyPivot = (Open + monthlyHigh + monthlyLow + Close[1]) / 4 Elsif mode = 2 then monthlyPivot = (monthlyHigh + monthlyLow + Close[1]*2) / 4 Else monthlyPivot = (Open*2 + monthlyHigh + monthlyLow) / 4 Endif   Endif   c1= (DailyPivot *2 + weeklyPivot *2 + monthlyPivot *2 + average [5] + average [20] + average [50] + average [100] + average [200]) / 11     C2= close - C1 IF c2 > 2 * Averagetruerange Then RESULT = 10 ELSIF LOW<C1 THEN RESULT = 0 ENDIF   IF RESULT[0] > RESULT[1] THEN FINALRESULT = CLOSE [0] ENDIF     IF FINALRESULT OR RESULT >0 THEN SIGNAL = 1 ELSIF (LOW<C1) THEN SIGNAL = 0 ENDIF IF SIGNAL > 0 AND HIGH - FINALRESULT > Averagetruerange * 3 THEN FINALSIGNAL = 1 ELSIF (LOW<C1) THEN FINALSIGNAL = 0 ENDIF   If FINALSIGNAL > 0 and c2 > 3 * Averagetruerange then finalentrysignal = 1 ELSIF (LOW<C1) THEN finalENTRYSIGNAL = 0 Endif   If finalentrysignal<finalentrysignal[1] then level=(highest[33](HIGH[1])) elsif finalentrysignal>finalentrysignal[1] or close>level then level=0 endif     SCREENER[level] ((close/DClose(1)-1)*100 AS "%Chg yest.")

  

  skfomx

  Participant

  Topics: 3

  Replies: 10

  Been thanked: 0 times
  08/04/2021 at 2:26 AM #174645
  robertogozzi

  Ok, I see.

  We would appreciate it if you would like to share any answers you can get.

  Thank you 🙂

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17277

  Been thanked: 4125 times
• Author
  Posts