To: TechTrader42 who wrote (2877 ) 1/4/1998 5:07:00 PM From: Michael Quarne Read Replies (2) | Respond to of 11149
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