Here is the second, positive is a buy, negative is a sell.
=================
DynamicTrix System
=================
-------------------------
{Provided By : BTAC (c) Copyright 2003}
length1 := Input("period 1",10,45,21);
length2 := Input("period 2",10,45,21);
length3 := Input("period 3",10,45,21);
EMA1 := Mov(C,length1,E);
EMA2 := Mov(EMA1,length2,E);
EMA3 := Mov(EMA2,length3,E);
DTRIX := If(Ref(EMA3,-1)<>0, ((EMA3-Ref(EMA3,-1))/Ref(EMA3,-1))*100,1);
{use if function to make sure that nominator is not 0}
TL := Mov(DTRIX,5,E);
{--------}
{*Buy* if DTRIX crosses over 0 then buy("EL1")next bar at open;}
bbuy1 := If(Cross(dtrix,0)=1,3,0);
{*exit buy* if DTRIX>0 and DTRIX crosses under TL then exitlong("XL") next bar at open;}
ebuy1 := If((DTRIX>0) AND (Cross(TL,DTRIX)=1),
-4,0);
{-------}
{*buy* if DTRIX>0 and DTRIX crosses over TL then buy ("EL2")next bar at open;}
bbuy2 := If((DTRIX>0) AND (Cross(DTRIX,TL)=1),
1,0);
{*sell* If DTRIX crosses under 0 then sell ("ES1") next bar at open;}
ebuy2 := If(Cross(0,DTRIX)=1,-2,0);
{-------------}
ssel1 := If(Cross(0,DTRIX)=1,-1,0);
{*exit sell* if DTRIX<0 and DTRIX crosses over TL then exitshort ("XS")next bar at open;}
esel1 := If((DTRIX>0) AND Cross(DTRIX,TL)=1,
-2,0);
{----------}
{*sell* if DTRIX<0 and DTRIX crosses under TL then sell("ES2") next bar at open;}
ssel2 := If((DTRIX<0) AND (Cross(TL,DTRIX))=1,
-3,0);
bbuy1;
ebuy1;
bbuy2;
ebuy2;
ssel1;
esel1;
ssel2
---------------------------