Screener working in Indicator Mode but not in Scanning

Viewing 13 posts - 1 through 13 (of 13 total)

Author

Posts
01/20/2021 at 3:39 AM #158609 quote
parthapersonal
Participant

Average
Hello,

This is a useful scanner of stocks ready to rise. It is working in indicator mode but not in Scanning. Any idea why?

Regards,
```
//P=ATR=14; Q=0.5
//DEFINE
A=AverageTrueRange[P](close)
B=ExponentialAverage[20](Close)
D=ExponentialAverage[50](Close)
E=ExponentialAverage[200](Close)
//MA SEQUENCE
M =(B-D)
M1=(D-E)

IF B>D AND D>E THEN
RT=M/A
RF=M1/A
ELSE
RT=0
RF=0
ENDIF

IF RF>=Q AND RT>=Q THEN
G=8
ELSE
G=0
ENDIF

IF G[1]<8 AND G>=8 THEN 
GF=8 
ELSE 
GF=0 
ENDIF

T=(GF=8 AND CLOSE>0.1 AND CLOSE<0.5)
criteria = T

SCREENER[T] (criteria AS "2005020")
```
Scanner.jpg Scanner-working-in-Indicator-mode.jpg
01/20/2021 at 5:00 AM #158612 quote

robertogozzi
Moderator

Master

ProScreener has a 254-lookback bar limit.

It may be that exponential averages need more than their periods to work.

Try using 150 or 100 periods. You can also try to use those periods, but replace exponentialaverage with average, at least for the 200-period one.

01/21/2021 at 2:53 AM #158755 quote
parthapersonal
Participant

Average
Thank you Robert. Even after changing it to 100 it is not working.

If I change the code as enclosed (by removing ”
```
IF G[1]<8 AND G>=8 THEN
GF=8
ELSE
GF=0
ENDIF
```
it is showing some reslt although erroneus since it is picking up the stocks (like “CAY” in which EMAs are below and not above 200 EMA
```
//P=ATR=14; Q=0.5
//DEFINE
A=AverageTrueRange[P](close)
B=ExponentialAverage[20](Close)
D=ExponentialAverage[50](Close)
E=ExponentialAverage[200](Close)
//MA SEQUENCE
M =(B-D)
M1=(D-E)

IF B>D AND D>E THEN
RT=M/A
RF=M1/A
ELSE
RT=0
RF=0
ENDIF

IF RF>=Q AND RT>=Q THEN
G=8
ELSE
G=0
ENDIF
rem
//IF G[1]<8 AND G>=8 THEN
//GF=8
//ELSE
//GF=0
//ENDIF

T=(G=8 AND CLOSE>0.1 AND CLOSE<0.11)
criteria = T

SCREENER[T] (criteria AS "2005020")
```
) which is not meeting the criteria (IF B>D AND D>E THEN). Any help would be much appreciated.

MODERATORS EDIT: Your post was edited. Always use the ‘Insert PRT Code’ button when posting code.

Scanner-working-in-Indicator-mode-CAY.jpg
01/25/2021 at 9:03 AM #159326 quote
Finning
Participant

Veteran
- Hi there, just a thought, you have your last close size limited between 10c and 11c? Would this not limit it somewhat? Does the close by 0.1 need to be close*0.1*pipsize?
01/25/2021 at 12:12 PM #159376 quote

Finning
Participant

Veteran

Close>0.1*pipsize

01/26/2021 at 4:26 AM #159438 quote

parthapersonal
Participant

Average

No, there are many shares within that range. Same result if I increase the limit. Issue is it is screening the wrong ones as well which is not satisfying the criteria.

02/04/2021 at 2:26 AM #160299 quote

parthapersonal
Participant

Average

Is there a fix to this bug please?

02/04/2021 at 3:11 AM #160300 quote
robertogozzi
Moderator

Master
In your first post the indicator showed correct results, bu NOT for the current bar, which is what a screener looks for.

Try replacing the last line with:
```
SCREENER[summation[30](T)](criteria AS "2005020")
```
to make the screener return TRUE when T is true in any of the last 30 bars.
02/04/2021 at 6:10 AM #160302 quote

parthapersonal
Participant

Average

Thank you Robert for your prompt response. I incorporate your suggesstion however the problem is still there as the screener is showing names of stocks even for which the basic criteria are not satisfied (i.e. IF B>D AND D>E).

It is showing results where even B<D and D<E. This is the problem dear.

Any input will be highly appreciated.

Regards,

02/04/2021 at 6:05 PM #160376 quote
robertogozzi
Moderator

Master
It seems to be working correctly.

Try using this strategy to test T:
```
//P=ATR=14; Q=0.5
//DEFINE
p=14
q=1.5
A=AverageTrueRange[P](close)
B=ExponentialAverage[20](Close)
D=ExponentialAverage[50](Close)
E=ExponentialAverage[200](Close)
//MA SEQUENCE
M =(B-D)
M1=(D-E)
 
IF B>D AND D>E THEN
RT=M/A
RF=M1/A
ELSE
RT=0
RF=0
ENDIF
 
IF RF>=Q AND RT>=Q THEN
G=8
ELSE
G=0
ENDIF
 
IF G[1]<8 AND G>=8 THEN
GF=8
ELSE
GF=0
ENDIF
 
T=(GF=8 AND CLOSE>0.1 AND CLOSE<0.5)
criteria = T
buy at -close limit 
graph T
```
The logic of the code is not easy to follow at first sight and I didn’t have much time to check any single variable.

If you post the logic of your screener I might be of further help trying to code it differently.
02/05/2021 at 1:13 PM #160445 quote
parthapersonal
Participant

Average
Many thanks Robert. The logic is quite simple as below. I am trying to get the list of stocks that are just lining up for a possible UP move when 3 EMAs are separated by a fixed ratio after crossing each other.
1. Identify sequence of exponential moving averages EMA) 20, 50 and 200 for long opportunities only (20 ema (B)> 50 ema (D)> 200 ema (E)).
2. Get AverageTrueRange (A) (14 period)
3. Divide EMA differences by ATR to get the 2 ratios [RT= (B-D)/A and RF= (D-E)/A].
4. If these 2 ratios (RT & RF) are >= particular value (say 0.5) for the first time, then screen that stock as shown in the attachment: e,g, ABR.ASX reached these ratios (RT>0.5 and RF>3.5) for the first time on 14.10.2020 and again on 04.12.2020 before moving substantially up.
Trust this helps, else please let me know if you need any other input.

ABR.jpg
02/05/2021 at 1:29 PM #160451 quote
Nicolas
Keymaster

Master
You can try with the below screener code, this is how I interpret your last description:
```
RTtrigger=0.5
RFtrigger=1

A=AverageTrueRange[14](close)
B=ExponentialAverage[20](Close)
D=ExponentialAverage[50](Close)
E=ExponentialAverage[200](Close)

RT= (B-D)/A 
RF= (D-E)/A

test = RT>RTtrigger and RF>RFtrigger
toscan = (test and not test[1]) 

screener[toscan]
```
02/06/2021 at 1:03 PM #160513 quote
parthapersonal
Participant

Average
Many thanks Nicolas. You are a genius. I have slightly modified the code as required (enclosed). It is working correctly for shares whose price is more than $1.00 (because RT and RF in these cases are >0.00) , but it is working incorrectly for share value less than $1.00 ((because RT and RF in these cases are = 0.00).

I have modified the code to avoid RT and RF =0 as enclosed but still it is picking them up (e.g. JPR, ATR, BLYO in Shares-Australia). Any idea how to fix it would be much appreciated.

Regards,
```
//p 14 q 0.5
trigger=Q

A=AverageTrueRange[P](close)
B=ExponentialAverage[20](Close)
D=ExponentialAverage[50](Close)
E=ExponentialAverage[200](Close)

RT= (B-D)/A>0.01
RF= (D-E)/A>0.01

test = RT>trigger and RF>trigger AND CLOSE>0.05

toscan = (test and not test[1])

screener[toscan]
```
rt-rf-0.jpg
Author

Posts