HI Brooke,
Here's a couple that help me get started with the selection process.
I then view the
canadates with QP Charts, mostly Wma's of 8,34,89. Qrs is important as well as 21
day moneyflow osc. RSI in good territory. Then to MSWIN for final template and
indicator comparisions, much like what dave evans uses.
Scans are saved in a profile for easy of loading and running.
Scans are run
with Reports, "Performance of a List" choosen and set to the scan in progress by
percent. The symbols list is not what I view but the report.
This is the first scan:
output = "prsald10.lst";
float ratio , change , thischange;
// You can change the 1.5 to whatever
// price to sales ratio you want.
ratio := 1.5;
// You can use different performance measures
// by changing the following line to another value
// Use 2 for a double or 3 for a triple etc.
change := 1.5;
if Close(-10)>0 then
thischange := Close(0) / Close(-10);
else
thischange := 0
endif;
if ( PrToSales < ratio ) and
( thischange >= change ) and
( PrToSales > 0 ) then
println symbol:-5," Description: ", description:-40," ThisChange: ",thischange:5:3," PrToSales: ",PrToSales:5:3;
endif;
This is the Second:
output="ccibill.lst";
exchange nasdaq, nyse, amex;
integer i,N;
float CCIT, CCIY, DAT, DAY, AT, AY;
N:=13;
//Number of periods in CCI calculation
//Calculate simple MA of typical price for N periods
//for Today and Yesterday. AT/AY are running averages.
AT:= 0;
for i=1 to N-1 step 1 do AT := AT+close(-i)+high(-i)+low(-i);
next i;
AY:=(close(-N)+high(-N)+low(-N)+AT)/(3*N); //Make sure to calc AY first
AT:=(close(0)+high(0)+low(0)+AT)/(3*N);
//println "AT":4,AT:8:2,"AY":4, AY:8:2
//Calculate simple MA of absolute value of difference between
//current typical price and above AT/AY over N periods
DAT:=0;
DAY:=0;
//Must use dual calc below since subtracted value is different (AT vs AY)
for i=0 to N-1 step 1
do
DAT:=DAT+abs((close(-i)+high(-i)+low(-i))/3-AT);
DAY:= DAY+abs((close(-i-1)+high(-i-1)+low(-i-1))/3-AY);
next i;
if DAT=0 then
DAT:=0.0001;
else
DAT:=DAT/N;
endif;
if DAY=0 then
DAY:=0.0001;
else
DAY:=DAY/N;
endif;
I'm getting long winded now so will post more later.
Arctic Mike |
