DALEW!! ANTICIPATING MOVING AVERAGE CROSSOVERS ! Author: Dimitris Tsokakis, TASC, February 2006 ! Coded by: Rich Denning 12/06/06 C is [close]. P is 20. K is 30. MAP is simpleavg(C,P). MAK is simpleavg(C,K). MAP_1 is simpleavg(C,P-1). MAK_1 is simpleavg(C,K-1). TC is (P * (K - 1) * MAK_1 - K * (P - 1) * MAP_1) / (K - P). ! MA CROSS OVERS SYSTEM (TRADITIONAL) LExu if MAP > MAK and valrule(MAP < MAK,1). SExd if MAP < MAK and valrule(MAP > MAK,1). ! TC CROSS OVER SYSTEM LEtcxd if TC < C and valrule(TC > C,1). SEtcxu if TC > C and valrule(TC < C,1). MA200 is simpleavg(C,200). MA50 is simpleavg(C,50). MA10 is simpleavg(C,10). TFLndx is TickerRule("NDX",slope2(MA50,5) > 0). ! and slope2(MA10,5) > 0). TFSndx is TickerRule("NDX",slope2(MA50,5) < 0). ! and slope2(MA10,5) < 0). LExu1 if LExu and TFLndx. SExd1 if SExd and TFSndx. LEtcxd1 if LEtcxd and TFLndx. SEtcxu1 if SEtcxu and TFSndx. !AIQ VERY SHORT TERM RELATIVE STRENGTH !Coded by Rich Denning on 12/14/00 !Parameters supplied by AIQ for weights were 40%, 20%, 20%, 20%. W is 1. STL is 30/W. Q3s is STL / 4. !! Code error discovered 6/28/06 was LTL / 4 Q2s is (STL - Q3s) / 3. Q1s is (STL - Q2s - Q3s) / 2. Q0s is STL - 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,Q0s)) / val([open],Q1s,Q0s) * 100. ROCq0s is ([close] - val([open],Q0s,0)) / val([open],Q0s,0) * 100. RS_AIQst is ROCq0s * 0.40 + ROCq1s * 0.20 + ROCq2s * 0.20 + ROCq3s * 0.20. RS_AIQst1 is valresult(RS_AIQst,1). GRS_AIQst is TickerUDF(RSticker(),RS_AIQst). GRS_AIQst1 is valresult(GRS_AIQst,1). OTC_AIQst is TickerUDF("OTC",RS_AIQst).  Rule Libraryÿÿ CCodeViewLExuÿÿ CReportViewÐSymbolÀ<LEtcxd€ÐSymbolÀ<SExd€ÐSymbolÀ<SEtcxu€ÐSymbolÀ<sNAS100ÿÿÿÿÿÿ CBackTestPropertyLExuSExdPP0s0Anticipating MA Xovers LExuNDXPNAS100 UUUU5ã@ã@ÿÿÿÿ@Sâ@ ã@€LEtcxdSEtcxuPP0s0Anticipating MA Xovers LEtcxdNDXPNAS100 UUUU5ã@ã@ÿÿÿÿ@Sâ@ ã@€SExdLExuPP0s0Anticipating MA Xovers SExdNDXPCCNAS100 UUUU5ã@ã@ÿÿÿÿ@Sâ@ ã@€SEtcxuLEtcxdPP0s0Anticipating MA Xovers SEtcxuNDXPCCNAS100 UUUU5ã@ã@ÿÿÿÿ@Sâ@ ã@00:00