"HELP" I NEED HELP ON A CANSLIM SCAN
Hi Brooke's
I have QP1 or R1 and I write my own scans that seem to work for me.
However now Im playing around with QP2 that a friend of mine has,
and I am having a little problem learning the new scan language.
Is QP2 written in BASIC NOW ?
I got 5 of my friends to order QP1 and only One tries to write
any scans and now two of them have upgraded to QP2 and that leave
me the lager.
I wonder if you could help me help someone else?
I copied a Canslim scan off the Quote Plus 2 website were you
and Andy have written scans for people to copy.
geocities.com
I copied this Canslim scan and gave it to my friend, he said it
does'nt work I wonder if you would take a look at it and see if
you could find anything wrong with it.
Maybe even copy it to your CPU run the scan (EDIT) it until it works.
And then send it back to me, so I can send it to my friend.
I will also keep it for myself when I upgrade.
Thank You
JIM
------------------------------------------------------------------
//Canslim scan by Mike Artobello,
//translated for QP2 by Brooke Elise Nagler and Bob Jagow
output ="canslim.lst";
input="commplus.lst";
//issuetype=common; exchange nyse,nasdaq,amex; //set these in input
daystoload=320; //Guard for less days?
integer i;
float low15, ma50, maup, max260, pwh, vi;
max260:= Max(-1,-260,hi);
//10-day MA > 50-day MA and 50-day MA rising weekly for the past 3
months
maup:=0;
for i = 0 to -55 step -5 do
ma50:=movavg(i,50,Cl); //use it twice
if movavg(i,10,Cl)> ma50 and
ma50 > movavg(i-5,50,Cl)then
maup:=maup + 2; // 24 max
endif;
next i;
if movavg(-55,50,Cl) > movavg(-60,50,Cl)then
maup:=maup + 1;
endif;
// test for maup = 25
//Low within 15% of 52 week high every day for 3 months
//To match Mike A., test for close(0) >= .85*max(-1,-260,hi) 1st
low15:= -999; //Guard for fail
if close(0) >= .85*max(-1,-260,hi) then
low15:=0;
for i = 0 to -59 step -1 do
if low(i)>=.85*max(i,i - 260,hi) then
low15:=low15 + 1; //need 60 to pass
endif;
next i;
endif;
pwh:= 100*(Close(0)- max260)/max260; // % within 52 week high
//Calculate percent of volume change compared to 50 average daily volume
vi:= -999; //Guard for println
if AvgVol(0,-50) !=0 then //Prevents division by 0
vi := 100*(Vol(0) - AvgVol(0,-50)) / AvgVol(0,-50);
endif;
if close(0)>=10 and eps>0 and qrs(0)>=80 and
avgvol(0,-29)>30000 and maup = 25 and low15 = 60 then
println symbol, ", ","EPS: ",EPS:4:3, ", ","QRS ", QRS(0),", ",
"Close: ",Close(0):6:3, ", ", "52 HIGH: ", Max(-1,-260,hi):5:3,", ",
"PWH: ",pwh:3:0, ", ","VOL: ",vol(0):7:0, ", ",
"AVG VOL: ",avgvol(0,-50 ):7:0, ", ","VOL PCT CHANGE: ",vi:4:0;
endif;
-----------------------------------------------------------------
PS
Thanks again for your time
Jim |
