DiNapoli Trend Analysis System

[henry1224]

here is a system

Bullish:=C>MA(Ref(C,5),25)*1.05
& Ref(C,1)>Ref(MA(Ref(C,5),25),1)*1.05;
Bearish:=C<MA(Ref(C,5),25)*.995
& Ref(C,1)<Ref(MA(Ref(C,5),25),1)*.995;
D:If(Bullish,1,If(Bearish,-1,0)),colorstick;

here are the Events

Long

Bullish:=C>MA(Ref(C,5),25)*1.05
& Ref(C,1)>Ref(MA(Ref(C,5),25),1)*1.05;
Bearish:=C<MA(Ref(C,5),25)*.995
& Ref(C,1)<Ref(MA(Ref(C,5),25),1)*.995;
D:=If(Bullish,1,If(Bearish,-1,0)),colorstick;
Event:Cross(D,.5);

Short

Bullish:=C>MA(Ref(C,5),25)*1.05
& Ref(C,1)>Ref(MA(Ref(C,5),25),1)*1.05;
Bearish:=C<MA(Ref(C,5),25)*.995
& Ref(C,1)<Ref(MA(Ref(C,5),25),1)*.995;
D:=If(Bullish,1,If(Bearish,-1,0)),colorstick;
Event:Cross(-.5,D);