Regarding pick up lines:
My wife came to my house before we were married-
This is 15 years ago now. And she asked:
" why haven't you been married yet" I said ....
Well I guess I haven't found the right person so far.......
it seemed to work even better than StochRSI.
As far as scans- there are all kinds of ways to buy stocks.
Retracements, breakouts, barroom brawls-
Internet plays which seem to rise regardless of TA (ggg).
Pick your poison.
output="trygrace.lst";
input="250vol.lst";
ProcessMs= "c:\WOW70\QPSCANS\trygrace\",MSDATA;
integer p, i, j, bar, firstbar, lastbar;
firstbar:=0;
lastbar:= 0;
daystoload = 400 -firstbar; daysrequired = 400 -firstbar;
float ATR89, cl, tr,bb,pctgain,srsi1,srsi2;
for p = firstbar to lastbar step 1 do
ATR89:= 0; // initially set it to zero for each symbol
if close(p) > close(p-1) then
if vol(p) >1.2*avgvol(p-1,p-34) then
set macd=13,34,8;
if ((macd(p)-macdsignal(p))/close(p))*100<-3 or ((macd(p)-macdsignal(p))/close(p))*100> -1 then
for bar = p-88 to p step 1 do // 89 values
cl:= close(bar-1); // close(p-88) to start
tr:= range(bar); // the usual case
if cl > high(bar) then
tr:= cl - low(bar);
else
if cl < low(bar) then
tr:= high(bar) - cl;
endif;
endif;
ATR89:= ATR89 + tr;// add tr to previous value
next bar;
ATR89:= ATR89/89;
if (ATR89/movavg(p,89,cl))*100 > 5.75 then
set stochrsi = 8,8,5,w;
if StochRSI(p)>StochRSI(p-1) then
if StochRSI(p)<80 and StochRSI(p)>15 then
srsi1:=stochrsi(p);
set stochrsi = 21,21,21,w;
if StochRSI(p) < 65 then
If StochRSI(p)>Stochrsi(p-1) then
If Stochrsi(p-1)<Stochrsi(p-2) then
srsi2:=stochrsi(p);
if srsi1+srsi2<100 then
if p<-9 then
pctgain := ((Max(p+10,p+1,hi))/close(p))-1;
Println Symbol:-6,",",Max(p+10,p+1,hi):6:3,",",close(p):6:3,",",pctgain:6:3,",",srsi1:4:2,",",srsi2:4:2,",",vol(p):8:0,",",vol(p)/(avgvol(p-1,p-34)):5:2,",",qrs(p):4:0,",", date(p),",","trygrace",",",(ATR89/movavg(p,89,cl))*100:6:2,",",((macd(p)-macdsignal(p))/close(p))*100:6:3;
else
Println Symbol:-6,",",close(p):6:3,",",close(p-1):6:3,",",srsi1:5:1,",",srsi2:5:1,",",vol(p):8:0,",",vol(p)/avgvol(p-1,p-34):6:3,",",qrs(p):4:0,",",date(p),",","trygrace",",",(ATR89/movavg(p,89,cl))*100:6:2,",",((macd(p)-macdsignal(p))/close(p))*100:6:3;
endif;endif;endif;endif;endif;endif;endif;endif;endif;endif;endif;
next p; |
