Al: Your Magic Bullet Scan is a great scan, and I've translated it for QP2. Would you mind my posting it (with your name as author, of course) at:
geocities.com
I've made the output look something like this (I edited out some of the stuff after volume to make it fit this note):
ARTC BUY: Close: 14.000 , Day: -3 Up/Down: 1.500, Volume:
AW BUY: Close: 3.688 , Day: -1 Up/Down: -0.062, Volume:
AXR BUY: Close: 8.250 , Day: -3 Up/Down: -0.375, Volume:
AXR BUY: Close: 8.250 , Day: -2 Up/Down: -0.375, Volume:
BNSOF BUY: Close: 6.625 , Day: -2 Up/Down: -0.375, Volume:
BRL BUY: Close: 38.500 , Day: -1 Up/Down: -1.312, Volume:
CALGL BUY: Close: 26.500 , Day: -3 Up/Down: 0.000, Volume: 0
CSC *BUY: Close: 103.875, Day: 0 Up/Down: 11.688, Volume:
If the conditions of the scan are met today, there's an asterisk before "BUY."
Here's the scan:
//Magic Bullet Scan by Al Greenleaf
Output="mbullet.lst";
//input="bullet.lst";
issuetype=common;
exchange nyse,nasdaq,amex;
DaysToLoad = 250;
integer i;
for i = -3 to -1 step 1 do
if Vol(i)>MovAvg(i-1,22,vol)*10 and
Close(i)>Close(i-1) and
MovAvg(i,50,cl)>MovAvg(i-1,50,cl) and
qrs(i-1)>80 then
println symbol:-6," BUY:"," Close: ", close(0):-7:3, ",",
" Day: ", i:4:3, " Up/Down: ", close(0)-close(-1):4:3, ",",
" Volume: ", vol(0):-10, ",", " QRS: ", QRS(0):2,
","," Sharesfloat: ", Sharesfloat:6:3, ", ",Description:-12;
endif;
next i;
if Vol(0)>MovAvg(-1,22,vol)*10 and
Close(0)>Close(-1) and
MovAvg(0,50,cl)>MovAvg(-1,50,cl) and
qrs(-1)>80 then
println symbol:-6,"*BUY:"," Close: ", close(0):-7:3, ",",
" Day: ", 0:4:3, " Up/Down: ", close(0)-close(-1):4:3, ",",
" Volume: ", vol(0):-10, ",", " QRS: ", QRS(0):2,
","," Sharesfloat: ", Sharesfloat:6:3, ", ",Description:-12;
endif; |
