Volume Spike Buy
Volume Spike Scan taken from "The Volume Spike Screen" article found in the March 2004 issue of Active Trader magazine.
input = "sp500.lst";
output = "VolSpk.lst";
Printhdrln "Symbol,Company,Industry Group,Close,Change, % Chg,EPSRank,QRS,PE,Vol,30adv,SharesFloat,SharesShort, % Short";
if Close(0) => 10 and
Sharesfloat > 0 and
Close (0) => (Range (0)/2)+(low(0)) and
RSI(0)\<30 and
Vol (0) => 2 * AvgVol(0,-21)
then
println symbol , "," , Description,",",IRLsymbol:12,",",Close(0):7:2,",",Close(0)-Close(-1):7:2,",",((Close(0)-Close(-1))/Close(-1))*100:7:2,",",EPSRank(0):3:0,",",QRS(0):3:0,",",PE:5:0,",",vol(0)/1000:8:1,",",avgvol(0,-29)/1000:8:1,",",Sharesfloat:5:0,",",Shortint:5:3,",",100*Shortint/(Sharesfloat):3:1;
endif;