Since you asked me to comment, mike.
Your scan is similar to one posted by Mike Artobello in QP1 days.
I'm more of the less is more school and would tune something like
------
output = "HighQRS.lst";
if qrs(0) > 90 & qrs(-100) > 90 & qrs(-200) > 90 & qrs(-300) > 90 then
println symbol; endif;
-------
Bob
Mike A's was
---
// CARS.txt
// Find stocks with the following CARS criteria:
// 10DMA has been above the 50DMA every week for the past 3 months
// 50DMA has been rising every week for the past 3 months
// Low within 15% of 52 week high every day for 3 months
Float pc,ppc,pwh,hc,phc,vc,pvc,qrsc,pqrsc
Input="CANSLIMW.LST"
AllGroup
// 10DMA has been above the 50DMA every week for the past 3 months
MovAvg(-60,10,cl) >= MovAvg(-60,50,cl)
MovAvg(-55,10,cl) >= MovAvg(-55,50,cl)
MovAvg(-50,10,cl) >= MovAvg(-50,50,cl)
MovAvg(-45,10,cl) >= MovAvg(-45,50,cl)
MovAvg(-40,10,cl) >= MovAvg(-40,50,cl)
MovAvg(-35,10,cl) >= MovAvg(-35,50,cl)
MovAvg(-30,10,cl) >= MovAvg(-30,50,cl)
MovAvg(-25,10,cl) >= MovAvg(-25,50,cl)
MovAvg(-20,10,cl) >= MovAvg(-20,50,cl)
MovAvg(-15,10,cl) >= MovAvg(-15,50,cl)
MovAvg(-10,10,cl) >= MovAvg(-10,50,cl)
MovAvg(-5,10,cl) >= MovAvg(-5,50,cl)
MovAvg(0,10,cl) >= MovAvg(0,50,cl)
// 50DMA has been rising every week for the past 3 months
MovAvg(-55,50,cl) >= MovAvg(-60,50,cl)
MovAvg(-50,50,cl) >= MovAvg(-55,50,cl)
MovAvg(-45,50,cl) >= MovAvg(-50,50,cl)
MovAvg(-40,50,cl) >= MovAvg(-45,50,cl)
MovAvg(-35,50,cl) >= MovAvg(-40,50,cl)
MovAvg(-30,50,cl) >= MovAvg(-35,50,cl)
MovAvg(-25,50,cl) >= MovAvg(-30,50,cl)
MovAvg(-20,50,cl) >= MovAvg(-25,50,cl)
MovAvg(-15,50,cl) >= MovAvg(-20,50,cl)
MovAvg(-10,50,cl) >= MovAvg(-15,50,cl)
MovAvg(-5,50,cl) >= MovAvg(-10,50,cl)
MovAvg(0,50,cl) >= MovAvg(-5,50,cl)
// Low within 15% of 52 week high every day for 3 months
Low(-60) > Max(-60,-320,Hi) * .85
Low(-59) > Max(-59,-319,Hi) * .85
Low(-58) > Max(-58,-318,Hi) * .85
Low(-57) > Max(-57,-317,Hi) * .85
Low(-56) > Max(-56,-316,Hi) * .85
Low(-55) > Max(-55,-315,Hi) * .85
Low(-54) > Max(-54,-314,Hi) * .85
Low(-53) > Max(-53,-313,Hi) * .85
Low(-52) > Max(-52,-312,Hi) * .85
Low(-51) > Max(-51,-311,Hi) * .85
Low(-50) > Max(-50,-310,Hi) * .85
Low(-49) > Max(-49,-309,Hi) * .85
Low(-48) > Max(-48,-308,Hi) * .85
Low(-47) > Max(-47,-307,Hi) * .85
Low(-46) > Max(-46,-306,Hi) * .85
Low(-45) > Max(-45,-305,Hi) * .85
Low(-44) > Max(-44,-304,Hi) * .85
Low(-43) > Max(-43,-303,Hi) * .85
Low(-42) > Max(-42,-302,Hi) * .85
Low(-41) > Max(-41,-301,Hi) * .85
Low(-40) > Max(-40,-300,Hi) * .85
Low(-39) > Max(-39,-299,Hi) * .85
Low(-38) > Max(-38,-298,Hi) * .85
Low(-37) > Max(-37,-297,Hi) * .85
Low(-36) > Max(-36,-296,Hi) * .85
Low(-35) > Max(-35,-295,Hi) * .85
Low(-34) > Max(-34,-294,Hi) * .85
Low(-33) > Max(-33,-293,Hi) * .85
Low(-32) > Max(-32,-292,Hi) * .85
Low(-31) > Max(-31,-291,Hi) * .85
Low(-30) > Max(-30,-290,Hi) * .85
Low(-29) > Max(-29,-289,Hi) * .85
Low(-28) > Max(-28,-288,Hi) * .85
Low(-27) > Max(-27,-287,Hi) * .85
Low(-26) > Max(-26,-286,Hi) * .85
Low(-25) > Max(-25,-285,Hi) * .85
Low(-24) > Max(-24,-284,Hi) * .85
Low(-23) > Max(-23,-283,Hi) * .85
Low(-22) > Max(-22,-282,Hi) * .85
Low(-21) > Max(-21,-281,Hi) * .85
Low(-20) > Max(-20,-280,Hi) * .85
Low(-19) > Max(-19,-279,Hi) * .85
Low(-18) > Max(-18,-278,Hi) * .85
Low(-17) > Max(-17,-277,Hi) * .85
Low(-16) > Max(-16,-276,Hi) * .85
Low(-15) > Max(-15,-275,Hi) * .85
Low(-14) > Max(-14,-274,Hi) * .85
Low(-13) > Max(-13,-273,Hi) * .85
Low(-12) > Max(-12,-272,Hi) * .85
Low(-11) > Max(-11,-271,Hi) * .85
Low(-10) > Max(-10,-270,Hi) * .85
Low(-9) > Max(-9,-269,Hi) * .85
Low(-8) > Max(-8,-268,Hi) * .85
Low(-7) > Max(-7,-267,Hi) * .85
Low(-6) > Max(-6,-266,Hi) * .85
Low(-5) > Max(-5,-265,Hi) * .85
Low(-4) > Max(-4,-264,Hi) * .85
Low(-3) > Max(-3,-263,Hi) * .85
Low(-2) > Max(-2,-262,Hi) * .85
Low(-1) > Max(-1,-261,Hi) * .85
Low(0) > Max(0,-260,Hi) * .85
// Calulate price change
pc := Close(0) - Close(-5)
// Calculate % price change
ppc := (pc / Close(-5)) * 100
// Calculate % within 52 week high
pwh := ((Close(0) - Max(-0,-260,hi)) / Max(-0,-260,hi)) * 100
// Calulate 52 week high change
hc := Max(-0,-260,hi) - Max(-5,-265,hi)
// Calculate % 52 week high change
phc := (hc / Max(-5,-265,hi)) * 100
// Calulate volume change
vc := AvgVol(-0,-50) - AvgVol(-5,-55)
// Calculate % volume change
pvc := (vc / (AvgVol(-5,-55) + .001)) * 100
// Calulate QRS change
qrsc := QRS(0) - QRS(-5)
// Calculate % price change
pqrsc := (qrsc / QRS(-5)) * 100
// Display results
Print Symbol:-6
Print Date(0):12
Print QRS(0):4
Print QRS(-5):4
Print pqrsc:4:0
|
