DALE&!! TOP DOWN STOCK SELECTION TRADING MODEL ! Author: Richard Denning 8/20/05 ! Published in the October 2005 Opening Bell. ! TO DETERMINE THE CURRENT MARKET TIMING FOR LEMarket1, CHANGE TO THE WEEKLY MODE, THEN ! RUN LEMW & LXMW AFTER FRIDAY'S CLOSE TO SEE IF THE NEXT WEEK IS ON A BUY SIGNAL. ! IF ON A BUY=BULL SIGNAL (LEMW IS TRUE) THEN CHANGE TO THE DAILY MODE AND RUN ALL THE REPORTS ! AGAIN AND BUY THE TOP RATED STOCK ON THE LEStock REPORT ONE PER DAY MAXIMUM ! UP TO A MAXIMUM OF 5 POSITIONS, BUY AT THE NEXT DAY'S OPEN. MONITOR THE POSITION ! IN PORTFOLIO MANAGER USING THE LXStock AS AN EXIT, UNTIL AN EXIT SIGNAL IS GIVEN, ! THEN EXIT THE POSITION THE NEXT DAY AT THE OPEN ! IF ON A SELL=BEARISH SIGNAL (LXMW IS TRUE) THEN DO NOTHING FOR THE FOLLOWING 5 DAYS ! EXCEPT CLOSE OUT ALL OPEN POSITIONS ON MONDAY'S OPEN- LEMW if TickerRULE("OTC",countof([RSMD Indx Fast]>valresult([RSMD Indx Fast],1),2)=2) and (symbol() = "OTC" or symbol()="SPX"). LXMW if TickerRULE("OTC",countof([RSMD Indx Fast]= EndDate) or ((reportdate() >= makedate(5,13,2005) and reportdate() < makedate(8,19,2005)) or (reportdate() >= makedate(9,17,2004) and reportdate() < makedate(1,14,2005)) or (reportdate() >= makedate(6,4,2004) and reportdate() < makedate(7,16,2004)) or (reportdate() >= makedate(4,9,2004) and reportdate() < makedate(5,7,2004)) or (reportdate() >= makedate(1,16,2004) and reportdate() < makedate(1,30,2004)) or (reportdate() >= makedate(8,29,2003) and reportdate() < makedate(10,24,2003)) or (reportdate() >= makedate(4,25,2003) and reportdate() < makedate(8,15,2003)) or (reportdate() >= makedate(2,21,2003) and reportdate() < makedate(4,4,2003)) or (reportdate() >= makedate(8,23,2002) and reportdate() < makedate(2,7,2003)) or (reportdate() >= makedate(7,19,2002) and reportdate() < makedate(8,2,2002)) or (reportdate() >= makedate(10,12,2001) and reportdate() < makedate(1,25,2002)) or (reportdate() >= makedate(4,20,2001) and reportdate() < makedate(9,7,2001)) or (reportdate() >= makedate(1,19,2001) and reportdate() < makedate(2,16,2001)) or (reportdate() >= makedate(8,25,2000) and reportdate() < makedate(9,15,2000)) or (reportdate() >= makedate(6,16,2000) and reportdate() < makedate(8,4,2000)) or (reportdate() >= makedate(11,12,1999) and reportdate() < makedate(3,24,2000)) or (reportdate() >= makedate(9,3,1999) and reportdate() < makedate(10,29,1999)) or (reportdate() >= makedate(7,2,1999) and reportdate() < makedate(8,6,1999)) or (reportdate() >= makedate(4,9,1999) and reportdate() < makedate(4,23,1999)) or (reportdate() >= makedate(11,6,1998) and reportdate() < makedate(2,19,1999)) or (reportdate() >= makedate(7,3,1998) and reportdate() < makedate(8,28,1998)) or (reportdate() >= makedate(1,30,1998) and reportdate() < makedate(5,29,1998)) or (reportdate() >= makedate(5,9,1997) and reportdate() < makedate(10,24,1997)) or (reportdate() >= makedate(1,10,1997) and reportdate() < makedate(2,14,1997)) or (reportdate() >= makedate(12,13,1996) and reportdate() < makedate(12,27,1996)) or (reportdate() >= makedate(9,6,1996) and reportdate() < makedate(10,25,1996)) or (reportdate() >= makedate(2,23,1996) and reportdate() < makedate(6,14,1996)) or (reportdate() >= makedate(5,19,1995) and reportdate() < makedate(9,22,1995)) or (reportdate() >= makedate(2,17,1995) and reportdate() < makedate(4,7,1995)) or (reportdate() >= makedate(1,20,1995) and reportdate() < makedate(2,3,1995)) or (reportdate() >= makedate(8,19,1994) and reportdate() < makedate(12,2,1994))). LEMarket2 if month()<>1 and month()<>4 and month()<>7 and month()<>8. LEMarket if LEMarket1 and LEMarket2 and (symbol() = "OTC" or symbol()="SPX"). LXMarket if not LEMarket1 or not LEMarket2. LEGroup if group() and hasdatafor(max(length+20,120)) >= max(length + 5,100) and RS_AIQ > 0. LXGroup if group() and (RS_AIQ < 0). LEStock if LEMarket1 and LEMarket2 and TickerRule(rsticker(),LEGroup) and hasdatafor(max(length+20,120)) >= max(length + 5,100) and RC5 <= -5 and RC1 < 0 and RS_AIQ > 15 and hiVolaR >= 2 and VolaR <= 12 and [close] > 1 and DollarVol >= 37500. PD is {position days}. PEP is {position entry price}. LXStock if LXMarket or TickerRule(rsticker(),LXGroup) or [close] / PEP * 100 <= 93 or (highresult(([close] / PEP) * 100,PD) >= 115 and (([close] / PEP) / (highresult([close] / PEP,PD))) * 100 < 65) or PD >= 5. TR is Max([high] - [low],max(abs(val([close],1) - [low]),abs(val([close],1)- [high]))). ATRn is expAvg(TR,90). NDXvola is tickerUDF("NDX",simpleavg([volatility],30)). Vola30 is simpleavg([volatility],30). VolaR is Vola30 / NDXvola. hiVolaR is highresult(volaR,1250). DollarVol is expavg([close],10) * expavg([volume],50). !AIQ RELATIVE STRENGTH 1 length is 60. !60 !80 !120 Q3 is length/4. Q2 is (length - Q3) / 3. Q1 is (length - Q2 - Q3) / 2. Q0 is length - Q1 - Q2 - Q3. ROCq3 is (val([close],Q2,(Q1+Q0)) - val([open],Q3,(Q2+Q1+Q0))) / val([open],Q3,(Q2+Q1+Q0)) * 100. ROCq2 is (val([close],Q1,Q0) - val([open],Q2,(Q1+Q0))) / val([open],Q2,(Q1+Q0)) * 100. ROCq1 is (val([close],Q0,0) - val([open],Q1,Q0)) / val([open],Q1,Q0) * 100. ROCq0 is ([close] - val([open],Q0,0)) / val([open],Q0,0) * 100. RS_AIQ is ROCq0 * 0.38 + ROCq1 * 0.21 + ROCq2 * 0.21 + ROCq3 * 0.20. !AIQ RELATIVE STRENGTH 2 lengths is 20. !20 !30 !240 Q3s is lengths/4. Q2s is (lengths - Q3s) / 3. Q1s is (lengths - Q2s - Q3s) / 2. Q0s is lengths - Q1s - Q2s - Q3s. ROCq3s is (val([close],Q2s,(Q1s+Q0s)) - val([open],Q3s,(Q2s+Q1s+Q0s))) / val([open],Q3s,(Q2s+Q1s+Q0s)) * 100. ROCq2s is (val([close],Q1s,Q0s) - val([open],Q2s,(Q1s+Q0s))) / val([open],Q2s,(Q1s+Q0s)) * 100. ROCq1s is (val([close],Q0s,0) - val([open],Q1s,Q0)) / val([open],Q1s,Q0s) * 100. ROCq0s is ([close] - val([open],Q0s,0)) / val([open],Q0s,0) * 100. RS_AIQs is ROCq0s * 0.40 + ROCq1s * 0.20 + ROCq2s * 0.20 + ROCq3s * 0.20. !REPORT COLUMN INFO Name is description(). Group is tickerUDF(rsticker(),name). GroupSym is tickerUDF(rsticker(),Symbol()). GroupRSs is tickerUDF(rsticker(),RS_AIQs). GroupRS is tickerUDF(rsticker(),RS_AIQ). GroupDV is tickerUDF(rsticker(),DollarVol). RC1 is ([close]/val([close],1)-1)*100. RC5 is ([close]/val([close],5)-1)*100. RC10 is ([close]/val([close],10)-1)*100. RC20 is ([close]/val([close],20)-1)*100. RC40 is ([close]/val([close],40)-1)*100. RC80 is ([close]/val([close],80)-1)*100. RC160 is ([close]/val([close],160)-1)*100. RC320 is ([close]/val([close],320)-1)*100. GroupRC5 is tickerUDF(rsticker(),RC5). Rule Library CCodeViewLEStock CReportViewSymbol<Name GroupRSsDRS_AIQsBRC5/RS_AIQ@Close: Volume ESAA DollarVolAVolatility MAF GroupSymIGroup GroupRC5IGroupRS3GroupDVALEGroupSymbol<NameRC5ORS_AIQsORS_AIQO DollarVolOHOUSE1Household (Appliances),qAnmA`ATfKMEDIC1Medical (Biomed/Geneics))@@1@0 LCOMP10Computer (Software)D/@I@>@UnLMEDIC11#Medical (Wholesale Drug & Sundries)@.`@t@{KLEISURE7Leisure (Toys, Games, Hobbies)@6@Ϊ@nLBUILD10!Building (Residential/Commercial)@@ƾ@@F@KCONS5Textile (Mill Products)Ј@)7@-n@GTMPHELP1Temporary Help @4@@KELECT4Electrical (Misc Components)Q@U+2@63@KMEDIC13Medical ServicesB@(@yl@mKMEDIC2Medical (Drug and Diversified)@?'@tT?j LMACHINE6Machinery (Printing Trade)\(&@5AÄHMEDIC10Medical (Products)0e!?J#@R@xLFINAN12"Financial Services (Miscellaneous)H>)"@u@LBUILD6Building (Heavy Construction) @!@j@SJTRANS7Transportation (Truck)Ȭ?R@~lH@JFINAN10Finance (Savings and Loan)@. ?@(-@{JRETAIL3Retail (Convenience Stores)@y@@IFUNERAL1Funeral (Services and Related)>@p\@eJMEDIC3Medical (Drugs)jA=@C@8[@LBANK8 Banks (West)U>?@X@|iKBUSIN1!Business Services (Miscellaneous)z{@"@B@?jKBUILD8Building (Mobile Mfg & RV)?@@JLINEN1Linen Supply and Related'O@@D @(UWJBANK6Banks (Southwest)q>@=H@'JELECT6Electrical (Semiconductors)e@u@ 4@e߅MTELE3Telecommunications (Services)^m@@a@cLBANK5Banks (Southeast)w>@H@=JAUTO2!Automobile/Truck (Original Equip)В@)T @kƟ@EYVJComp13Computer (Enterprise)8k@`@"x@LRETAIL17Retail (Wholesale Jewelry)?ħ@5>@A JFINAN11Finance (SBIC and Commercial)Pb?6@ZC@tJLEISURE6Leisure (Services)`@? z@?@=!KFOOD2Beverages (Soft Drinks)@?a@G&KELECT2"Electrical (Measuring Instruments)1?1?\@VLINSURE1Insurance (Accident and Health)P?4ݡ@KELECT5Electrical (Parts Distributors)?7?ؿ@yJFOOD4Food (Confectionery)1@[?dh@kJUTILITY4Utility (Water Supply)?~?@RIMACHINE4Machinery (General Industrial)}?{?@"?w8JREAL1Real Estate Development @[W?QB@vJBANK4Banks (Northeast)J?Ŷ?f@JRUBBER1 Rubber (Tires and Miscellaneous)G@2?ϩ@TIINTRNT2Internet Network Services?5?N@}JBUILD3"Building (Cement, Concrete, Aggrt)$Ѓ?Ɋ@P3JCOMP6Computer (Mini-Micro)L?`?wM@HNOIL10"Oil & Gas (Refining and Marketing)6i?Q@,KCOMP8Computer (Peripheral Equipment)P??h(_@LMEDIC7Medical (Instruments)?=?꓉@5LFINAN4Finance (Investment Management)Z>?ޟQ@JOFFICE1!Office (Equipment and Automation);?b?KFINAN1Finance (Consumer Loans)H_@?$_@PLMETAL10Steel (Specialty Alloys)&ٿ,?$@TpIFOOD7Food (Meat Products)@?C?~JBANK2Banks (Midwest)} ?4H?t@$JPOLLUTE2Pollution Control (Services)`N?kh@KCOMP15Computer (Financial)`t??@LINSURE3Insurance (Diversified) d??*M@JINSTRUM1Instruments (Scientific)p`??@82@KINSURE5Insurance (Multi-Line)T??YP-@faJTELE2Telecommunications (Equipment)Z%@N?[t@?A@\u1KMEDIC5!Medical (Health Maintenance Orgs)5?@4KOIL9"Oil & Gas (Products and Pipelines)pb?-@JENERGY1Energy (Alternate Sources)=?o7@D KAUTO5Trucks & Parts (Long Haul)L6@[?@TsMJBANK1Banks (Foreign)f?.?\Ψ?JINSURE4Insurance (Life)=-?2@DJMACHINE2#Machinery (Construction and Mining)^@?U?N"LINTRNT1Internet Services??k@AMFOOD3 Food (Canned);??h?{OIFOOD5Food (Dairy Products)y@ҙ?,ge@WKINTRNT4Internet Retailingp*I?$?@KLEISURE5Leisure (Products)p??@XJOIL3"Oil & Gas (Canadian Export & Prod)آr7?qؙ@N&5KDIVER1Diversified Operations ?9?1@JOIL5Oil and Gas (Field Services)X5?B@=KTRANS5Transportation (Ship)\s#ZL??5KFOOD1Beverages (Alcoholic)گ@?')?#JFOOD6Food (Flour and Grain)@S`?!?JFINAN2Finance (Equity Reit)vK?F@ 5IOIL12Oil & Gas (US Integrated)&ٿ?d @KOIL6Oil and Gas (Intl Integrated)s=5?W0@KRETAIL14Retail (Wholesale Auto Parts)X?@n??2oJMEDIA2 Media (Books)> ւ?6? 3JINSURE6#Insurance (Property/Casualty/Title)h]7?_?H@JINSURE2Insurance (Brokers)?+~? ?KRETAIL16Retail (Wholesale Food)?^x??6JFINAN8#Finance (Public Inv Funds, Foreign)Z?u??*ԚILEISURE1Leisure (Gaming)(sZ?c@[LELECT3Electrical (Military Systems)pdP R?m@ JELECT9Electrical (Equipment)?I?{?QKELECT8 Electrical (Control Instruments)I?C?߭ ? JTRANS4Transportation (Rail)E?A?p7? UJRETAIL8Retail Mail Order & DirectPm>@?.o@LFINAN9Finance (Public TD Inv Fund),?1=? V?Kgu@+?h@JRETAIL11Retail (Restaurants)Z@C*?9?KBUILD9"Building (Paint & Allied Products)<%?$?piICOMP9Computer (Services)`+LG%?;?}{JLUTILITY3Utility (Telephone)Ѝ?Sg?)<(үJRETAIL5Retail (Discount and Variety)ʈ@3NKLEISURE2Leisure (Hotels and Motels)P>z>r?ӠKBANK3Banks (Money Center)ۻ?>'>LCOMP5Computer (Memory Devices) S?>n@LCONS3Shoes and Related ApparelV;[>E@JUTILITY2Utility (Gas Distribution)ٿ >I@ʹICOMP11"Computer (Software/Educ/Entertain)?>j)@IKRETAIL7Retail (Home Furnishings)Tc?*_>U?JRETAIL1Retail (Apparel and Shoes)>ϻ@LKSCHOOL1Schools G?>5#@MCHEM2Chemicals (Plastic)@>>4'?dIOIL11#Oil & Gas (US Explorations & Prods)ۿ\I>@/MAERO2Aerospace/Defense Equipment !j=m>W@5 JMEDIC12Medical (Dental Supplies)2>>?#:KBUILD5Building (Hand Tools)x>2=>q>JFINAN5Finance (Leasing Companies)&?=`>h?NJRETAIL2Retail (Consumer Electronics)zk@^:>Gp@2KELECT7Electrical (Connectors)?87>?9JAERO1Aerospace/Defense ? >]?iJTOBACCO1Tobacco ?&>>;KMEDIA6Media (Radio and Television),=L>᫤KCOMP12Computer (Software/Health)o@">=MI@5ƄIBUILD2 Building, A/C & Heating ProductsWࣉ=l?IFINAN7"Finance (Mortgage & Related Servs) ?=*@)a_KCHEM4Fertilizers v@1?KKPROTECT1#Protection (Safety Equip & Service)F`re߽A@rLRETAIL10Retail (Misc and Diversified)ݡ>*?עVKRETAIL9Retail (Major Chains)?8?LMEDIC4Medical (Generic Drugs)GfI@?_RKHOUSE4Housewares ܁?l7e> RIRETAIL6Retail (Drug Stores)=? h<2@LCOMP1Computer (Graphics)_.r:@p^KMEDIA5Media (Periodicals)IC?wIAUTO4Automobile (Manufacturing):@JnȾ@n3KOIL1Oil and Gas (Drilling) ߾,@HLMETAL2Metal Ores (Miscellaneous)> :DvKENERGY2 Energy (Coal)tډl@JCHEM3Chemicals (Specialty)x@:?4L8ж>|٦JMEDIC8Medical (Nursing Homes)'] DV@.CJCONS1!Consumer Products (Miscellaneous)ښ(n l>3KMETAL6Metal Products (Distributor)Ě:q 2@IAUTO3#Automobile/Truck (Replacement Prts)@"#)HCONS4Textile (Apparel Manufacturing)X?HT)*@&JFINAN6Finance (Mortgage Reit)nYD?IMETAL8Metal (Steel, Pipe and Tube)@og2#?vXJCOMP14Computer (Security)>D[sF@6 LTRANS3Transportation (Equipment Mfg)@?ZILEISURE4#Leisure (Photo Equipment & Related)>Қƿ@=ιJOIL7#Oil & Gas (International Specialty)!;5 @@JKTRANS1Transportation (Air Freight) >D91b?KLEMarketSymbol<NameRC51RS_AIQsBRS_AIQ6Close: Volume ESAA DollarVolAVolatility MAF GroupSymIGroup GroupRC5; GroupRSsIGroupRS3GroupDVALEMWSymbol<OTCSPXLXMWSymbol<Summary CCrossTabRptSymbol< LEStock - 0PLEGroup - 189_ LEMarket - 0W LEMW - 2H LXMW - 0HAERO1AERO2AGRI1AUTO1AUTO2AUTO3AUTO4AUTO5BANK1BANK2BANK3BANK4BANK5BANK6BANK7BANK8BUILD10BUILD2BUILD3BUILD4BUILD5BUILD6BUILD7BUILD8BUILD9BUSIN1CHEM1CHEM2CHEM3CHEM4COMP1COMP10COMP11COMP12Comp13COMP14COMP15COMP2COMP3COMP5COMP6COMP7COMP8COMP9CONS1CONS2CONS3CONS4CONS5DIVER1ELECT10ELECT2ELECT3ELECT4ELECT5ELECT6ELECT7ELECT8ELECT9ENERGY1ENERGY2ENGINE1FINAN1FINAN10FINAN11FINAN12FINAN2FINAN3FINAN4FINAN5FINAN6FINAN7FINAN8FINAN9FOOD1FOOD2FOOD3FOOD4FOOD5FOOD6FOOD7FUNERALFURNIT1HOUSE1HOUSE2HOUSE3HOUSE4INSTRUMINSURE1INSURE2INSURE3INSURE4INSURE5INSURE6INTRNT1INTRNT2INTRNT3INTRNT4LASER1LEISURELEISURELEISURELEISURELEISURELEISURELINEN1MACHINEMACHINEMACHINEMACHINEMACHINEMACHINEMEDIA1MEDIA2MEDIA3MEDIA5MEDIA6MEDIC1MEDIC10MEDIC11MEDIC12MEDIC13MEDIC2MEDIC3MEDIC4MEDIC5MEDIC7MEDIC8MEDIC9METAL10METAL2METAL6METAL8OFFICE1OFFICE2OIL1OIL10OIL11OIL12OIL2OIL3OIL4OIL5OIL6OIL7OIL8OIL9OTCPOLLUTEPOLLUTEPRINT1PROTECTREAL1REAL2RETAIL1RETAIL1RETAIL1RETAIL1RETAIL1RETAIL1RETAIL1RETAIL1RETAIL1RETAIL1RETAIL2RETAIL3RETAIL4RETAIL5RETAIL6RETAIL7RETAIL8RETAIL9RUBBER1SCHOOL1SPXTELE1TELE2TELE3TMPHELPTOBACCOTRANS1TRANS2TRANS3TRANS4TRANS5TRANS6TRANS7UTILITYUTILITYUTILITYUTILITYAIQALLNB*CBackTestPropertyLEMDLXMDPP ( TDS Sys1 LEMDOTCPotclst ('00:00