hmm that help file is pretty good- here is one to look at- a variation from Brooke's page:
output = "8348macd.lst"; //input="xyz.lst"; // optional input file ProcessMS = "c:\meta\8348macd\",VMS; // creates virtual ms files Daystoload = 200; daysrequired=150; integer p; float bb,volratio; for p=-4 to 0 step 1 do // finds hits from last 5 days if close(p) > 5 and close(p) < 30 then if avgvol(p,-33) > 35000 then if sharesfloat<50 then // low float if qtrrev(0) > 1.2*qtrrev(-4) then // qtrly rev> 20% of prior year volratio :=vol(p)/avgvol(p,p-33); // ratio of volume to avg volume if volratio > 1.5 then bb :=(stdev(p,p-7)/(.000001+max(p-1,p-144,hi)-min(p-1,p-144,lo)))*100; if bb<6 then // tight bollinger bands- 8 day period set macd=8,34,8; if close(p) > close(p-1) then if macd(p) > macd(p-1) then if macd(p) > macdsignal(p) then // macd cross up after 4 days below if macd(p-1) <=macdsignal(p-1) then if macd(p-2) <=macdsignal(p-2) then if macd(p-3) <=macdsignal(p-3) then if macd(p-4) <=macdsignal(p-4) then
Println Symbol:-6,",",close(0):6:3,",",close(-1):6:3,",","Brk:",",",max(p-1,p-10,hi):6:3,",", vol(p):8:0,",",avgvol(p,p-33):8:0,",",volratio:4:2,",",qrs(p):4:0,",", date(p),",","834macdup",",",bb:5:2; endif; endif;endif; endif; endif; endif; endif; endif; endif; endif; endif; endif; endif; next p; |