UPDATE for the EXIT Strategy, very useful for the EST!! Results are now what I was "visually" expecting (befor the help of Wabbit and his Code). After 2 weeks, at least with no sleep, I come up with a 2-line modification. Yeah! It´s worth it!
{HyperionAUT}
TIMELONG:=13;
TIMESHORT:=15;
pds:=20;
depth:=1;
Hi:=(HHV(H,pds-1)>H)>Ref(HHV(H,pds-1)>H,-1);
HiVal1:=ValueWhen(1,Hi,Ref(H,-1));
Lo:=(LLV(L,pds-1)<L)>Ref(LLV(L,pds-1)<L,-1);
LoVal1:=ValueWhen(1,Lo,Ref(L,-1));
Hi:=Hi AND HiVal1>LoVal1*(1+depth/100);
Lo:=Lo AND LoVal1<HiVal1*(1-depth/100);
supp:=ValueWhen(1,Lo,Ref(L,-1));
res:=ValueWhen(1,Hi,Ref(H,-1));
BullBearPower:=FmlVar("Bull Power/Bear Power Histogram","ma");
{ == LONG trades == }
LE:=
O > Mov(C, 50, W) AND
Mov(O, 21, W) > Mov(O, 38, E) AND
Mov(C, 5, W) > Mov(C, 13, W) AND
L > SAR(0.075, 0.75) AND
BullBearPower>0 AND
Mov(V, 30, S) > 700 AND
Mov(L, 5, W) > Mov(H, 150, E) AND
Mov(L, 5, W) > Mov(H, 90, W);
LX:= O < SAR(0.075, 0.75);
{the LE condition is reset by LX}
LE:=BarsSince(LE)<BarsSince(LX);
LE:=LE>Ref(LE,-1);
{LE2 is a secondary trigger, independent of LE and LX (above)}
LE2:=C > res AND L > HHV(Ref(H, -1),5);
LE2:=LE2>Ref(LE2,-1);
{the combined trade trigger}
LE:=LE OR LE2;
{exit all LONG trades trigger}
LXRAUS:= LLV(Ref(L, -1),TIMELONG);
LX:= L < LXRAUS;
{L <= (Mov(Mov(O,50,W)-( Mov(O,50,W)*(2.0/100)),5,W));}
LX:=BarsSince(LX)<BarsSince(LE);
LX:=LX>Ref(LX,-1);
{ == SHORT trades == }
SE:=
O < Mov(C, 50, W) AND
Mov(O, 21, W) < Mov(O, 38, E) AND
Mov(C, 5, W) < Mov(C, 13, W) AND
L < SAR(0.075, 0.75) AND
BullBearPower<0 AND
Mov(V, 30, S) > 700 AND
Mov(L, 5, W) < Mov(H, 150, E) AND
Mov(L, 5, W) < Mov(H, 90, W);
SX:= O > SAR(0.075, 0.75);
{the SE condition is reset by SX}
SE:=BarsSince(SE)<BarsSince(SX);
SE:=SE>Ref(SE,-1);
{SE2 is a secondary trigger, independent of SE and SX (above)}
SE2:=C < supp AND H < LLV(Ref(L, -1),5);
SE2:=SE2>Ref(SE2,-1);
{the combined trade trigger}
SE:=SE OR SE2;
{exit all SHORT trades trigger}
SXRAUS:= HHV(Ref(H, -1),TIMESHORT);
SX:= H > SXRAUS;
{H >= (Mov(Mov(O,50,W)+( Mov(O,50,W)*(2.0/100)),5,W));}
SX:=BarsSince(SX)<BarsSince(SE);
SX:=SX>Ref(SX,-1);
{plot}
2*LE;LX;
-2*SE;-SX;
Equity line is really nice!! : D
Wabbit, your Bank Account for a little tip, plz ´cause the millions of dollars are just around MY corner : D
You know, Switzerland and Liechtenstein is very wealthy (@ middle of Europe) : ))
Thanks for alle, now it´s *perfect* [no holy grail but I can work with it powerful]