Market swing is defined as: Up = higher highsand higher lows, Down = lowerhighs and lower lows.

Dunn-Type1
TD1:=If(BarsSince(H>Ref(H,-1) AND L>Ref(L,-1)) <
BarsSince(L<Ref(L,-1) AND H<Ref(H,-1)),
{then}1,
{else}-1);
TD1

Market swing is defined as: Up = 2 higher highs and 2 higher lows, Down= 2 lower highs and 2 lower lows.

Dunn-Type2
TD1:=If(BarsSince((H>Ref(H,-1) AND L>Ref(L,-1))
AND (Ref(H,-1)>Ref(H,-2)
AND Ref(L,-1)>Ref(L,-2))) <
BarsSince((L<Ref(L,-1) AND H<Ref(H,-1))
AND (Ref(L,-1)<Ref(L,-2)
AND Ref(H,-1)<Ref(H,-2))),
{then}1,
{else}-1);
TD1

Poni¿sza formu³a wymaga wczeœniejszego wprowadzenia formu³y znajduj¹ce siê powy¿ej pod niezmodyfikowan¹ nazw¹.

Dunnigan Trend
{Ask to use 1 day or 2 day Swing type}
St:=Input("Short Term Swing Type, 1 or 2 ?",
1,2,2);
{Call Swing Type Formula}
Sd:=If(Round(St)=1,
{then} FmlVar("Dunn-Type1","TD1"),
{else} FmlVar("Dunn-Type2","TD1"));
{Number Of Periods Since Swing Started Up}
Hc:=BarsSince(SD=-1);
{Number Of Periods Since Swing Started Down}
Lc:=BarsSince(SD=1);
{Find Highest Value Of Up Swing}
Hv:=If(Hc>Lc AND H>Ref(H,-1),
{then}HighestSince(1,Hc=1,H),
{else}0);
{Find Lowest Value Of Down Swing}
Lv:=If(Hc<Lc AND L<Ref(L,-1),
{then}LowestSince(1,Lc=1,L),
{else}0);
{Find The Low Of The Highest High}
Hlv:=ValueWhen(1,H=Hv,L);
{Find The High Of The Lowest Low}
Lhv:=ValueWhen(1,L=Lv,H);
{Calculate And Plot Trend Direction, Note:1= Uptrend, -1= Downtrend}
TD2:=If(Sd=1 AND H>Lhv,
{then}1,
{else}If(Sd=-1 AND L<Hlv,
{then}-1,
{else}0));
TD3:=ValueWhen(1,TD2<>0,TD2);
TD3

Re: Expert "Trend"
¡ To: metastock@xxxxxxxxxxxxx
¡ Subject: Re: Expert "Trend"
¡ From: michael arnoldi <marnoldi@xxxxxxxxxxxxx>
¡ Date: Sun, 18 Apr 1999 12:30:26 -0400
¡ References: <020601be89ac$eeb56c80$0f68a8c2@xxxxxxx>
¡ Reply-To: metastock@xxxxxxxxxxxxx
¡ Sender: owner-metastock@xxxxxxxxxxxxx

click on "experts" {the man's head logo in metastock}, click on an expert you like or created. the tab next to "name" is the "trend" tab. for my experts i have the following trend formula:

Dunnigan Trend Expert
Bullish:

Fml("Dunnigan Trend")=1

Bearish:

Fml("Dunnigan Trend")=-1