DALE    ¤	  !! QUEST FOR RELIABLE CROSSOVERS
! Author: Sylvain Vervoort, TASC May 2008
! Coded by: Richard Denning 3/12/08

! CODING ABBREVIATIONS:
H is [high].
L is [low].
C is [close].
C1 is valresult(C,1).
O is [open].
V is [volume].

! INPUTS:
emaLen is 55.

!-----------------------------------TEMA------------------------------------
! Formula:
! TEMA=3xEMA(input)-3 x EMA(EMA(input)+EMA(EMA(EMA(input)))

EMA1 is expavg(C,emaLen).
EMA2 is expavg(EMA1,emaLen).
EMA3 is expavg(EMA2,emalen).

TEMA is 3*EMA1-3*EMA2+EMA3.
!--------------------------end TEMA--------------------------------------

!-------------------------HEIKIN-ASHI-----------------------------------
haC is (O + H +L + C) / 4.

DaysInto is ReportDate() - RuleDate().
end if DaysInto > 10.
endHAO is iff(end,O, haO).
haO is (valresult(endHAO,1) + valresult(haC,1)) / 2.

haH is Max(H,max(haO,haC)).
haL is Min(L,min(haO,haC)).

haCL is (haC + haO + haH + haL) / 4.
!---------------------end HEIKIN-ASHI---------------------------------

!------------------------ZERO-LAGGING EMA------------------------
Diff is EMA1 - EMA2.
zeroLagEMA is EMA1 + Diff.
!-------------------end ZERO LAG EMA-------------------------------

!---------------TYPICAL PRICE ZERO-LAG TEMA----------------
TP is (H+L+C)/3.
TMA1 is expavg(TP,emaLen).
TMA2 is expavg(TMA1,emaLen).
TMA3 is expavg(TMA2,emalen).
tpTEMA1 is 3*TMA1-3*TMA2+TMA3.
TMA4 is expavg(tpTEMA1,emaLen).
TMA5 is expavg(TMA4,emaLen).
TMA6 is expavg(TMA5,emalen).
tpTEMA2 is 3*TMA4-3*TMA5+TMA6.
Diff2 is tpTEMA1 - tpTEMA2.
zeroLAGtpTEMA is tpTEMA1 + Diff2.
!-----------end TYPICAL PRICE ZERO-LAG TEMA----------------

!-----------------HEIKIN-ASHI ZERO-LAG TEMA--------------------
haTMA1 is expavg(haCL,emaLen).
haTMA2 is expavg(haTMA1,emaLen).
haTMA3 is expavg(haTMA2,emalen).
haTEMA1 is 3*haTMA1-3*haTMA2+haTMA3.
haTMA4 is expavg(haTEMA1,emaLen).
haTMA5 is expavg(haTMA4,emaLen).
haTMA6 is expavg(haTMA5,emalen).
haTEMA2 is 3*haTMA4-3*haTMA5+haTMA6.
Diff3 is haTEMA1 - haTEMA2.
zeroLAGhaTEMA is haTEMA1 + Diff3.
!----------end HEIKIN-ASHI ZERO-LAG TEMA----------------------

!---------------------BUYING FORMULA (Xup)--------------------------
Xup if zeroLAGtpTEMA > zeroLAGhaTEMA 
	and valrule(zeroLAGtpTEMA < zeroLAGhaTEMA ,1).

!---------------------SELLING FORMULA (Xdn)-------------------------
Xdn if zeroLAGtpTEMA < zeroLAGhaTEMA 
	and valrule(zeroLAGtpTEMA > zeroLAGhaTEMA ,1).
   Rule Libraryÿÿ  	 CCodeViewXupÿÿ  CReportView   ÐSymbol À  <        ¾nas100   ÿÿÿÿ   ÿÿ  CBackTestPropertyXupXdn     P   P      ¦¾   Reliable Xovers Xup   SPXP        nas100           Lã@    èKã@ÿÿÿÿ    Àgâ@     Lã@                00:00