EnterLong :

Pk1:=Ref(H,-1) > Ref(H,-2)
AND Ref(H,-1) >= H;
Tr1:=Ref(L,-1) < Ref(L,-2)
AND Ref(L,-1) <= L;
TroughHi1:=ValueWhen(1,Tr1,Ref(H,-1));
Pk2:=H > Ref(H,-1) AND H >= Ref(H,+1);
Tr2:=L < Ref(L,-1) AND L <= Ref(L,+1);
TroughHi2:=ValueWhen(1,Tr2,H);

((C > TroughHi1
AND BarsSince(Pk1) >= BarsSince(Tr1))
OR (C > TroughHi2
AND BarsSince(Pk2) >= BarsSince(Tr2)))
AND Mov((V*(H+L+C*2)/4),5,S) >= 10000
AND Ref(H,+1) > C

Close Long :

Pk1:=Ref(H,-1) > Ref(H,-2)
AND Ref(H,-1) >= H;
Tr1:=Ref(L,-1) < Ref(L,-2)
AND Ref(L,-1) <= L;
PeakLo1:=ValueWhen(1,Pk1,Ref(L,-1));
Pk2:=H > Ref(H,-1) AND H >= Ref(H,+1);
Tr2:=L < Ref(L,-1) AND L <= Ref(L,+1);
PeakLo2:=ValueWhen(1,Pk2,L);

((C < PeakLo1
AND BarsSince(Pk1) <= BarsSince(Tr1))
OR (C < PeakLo2
AND BarsSince(Pk2) <= BarsSince(Tr2)))
AND V > Ref(V,-1)