TSC:=(If(C>=Ref(C,-11),1,-1)+
If(C>=Ref(C,-12),1,-1)+
If(C>=Ref(C,-13),1,-1)+
If(C>=Ref(C,-14),1,-1)+
If(C>=Ref(C,-15),1,-1)+
If(C>=Ref(C,-16),1,-1)+
If(C>=Ref(C,-17),1,-1)+
If(C>=Ref(C,-18),1,-1)+
If(C>=Ref(C,-19),1,-1)+
If(C>=Ref(C,-20),1,-1)+10)/20;

TSP:=(If(P>=Ref(P,-11),1,-1)+
If(P>=Ref(P,-12),1,-1)+
If(P>=Ref(P,-13),1,-1)+
If(P>=Ref(P,-14),1,-1)+
If(P>=Ref(P,-15),1,-1)+
If(P>=Ref(P,-16),1,-1)+
If(P>=Ref(P,-17),1,-1)+
If(P>=Ref(P,-18),1,-1)+
If(P>=Ref(P,-19),1,-1)+
If(P>=Ref(P,-20),1,-1)+10)/20;

TSCP:=(If(C/P >=Ref(C/P,-11),1,-1)+
If(C/P >=Ref(C/P,-12),1,-1)+
If(C/P >=Ref(C/P,-13),1,-1)+
If(C/P >=Ref(C/P,-14),1,-1)+
If(C/P >=Ref(C/P,-15),1,-1)+
If(C/P >=Ref(C/P,-16),1,-1)+
If(C/P >=Ref(C/P,-17),1,-1)+
If(C/P >=Ref(C/P,-18),1,-1)+
If(C/P >=Ref(C/P,-19),1,-1)+
If(C/P >=Ref(C/P,-20),1,-1)+
If(ROC(C/P,5,%)>ROC(Ref(C/P,-5),5,%),1,-1)+
If(V>3*Mov(V,21,S) AND C>Ref(C,-1),1,0)+
If(V>3*Mov(V,21,S) AND C<Ref(C,-1),-1,0)+12)/24;

TSSystemx:=Round(100*((0.9- TSP/2)* TSC+
(0.1+ TSP/2)* TSCP));

TSSystems:=If(TSSystemx>=0 AND TSSystemx
<=100,TSSystemx,If(TSSystemx >100,100,0));
Buy:=Cross(TSSystems,50);
Sell:=Cross(50,TSSystems);
D:=If(BarsSince(Buy)<BarsSince(Sell),-1, If(BarsSince(Buy)>BarsSince(Sell),1,0));
D=-1

Short

TSC:=(If(C>=Ref(C,-11),1,-1)+
If(C>=Ref(C,-12),1,-1)+
If(C>=Ref(C,-13),1,-1)+
If(C>=Ref(C,-14),1,-1)+
If(C>=Ref(C,-15),1,-1)+
If(C>=Ref(C,-16),1,-1)+
If(C>=Ref(C,-17),1,-1)+
If(C>=Ref(C,-1,1,-1)+
If(C>=Ref(C,-19),1,-1)+
If(C>=Ref(C,-20),1,-1)+10)/20;

TSP:=(If(P>=Ref(P,-11),1,-1)+
If(P>=Ref(P,-12),1,-1)+
If(P>=Ref(P,-13),1,-1)+
If(P>=Ref(P,-14),1,-1)+
If(P>=Ref(P,-15),1,-1)+
If(P>=Ref(P,-16),1,-1)+
If(P>=Ref(P,-17),1,-1)+
If(P>=Ref(P,-18),1,-1)+
If(P>=Ref(P,-19),1,-1)+
If(P>=Ref(P,-20),1,-1)+10)/20;

TSCP:=(If(C/P >=Ref(C/P,-11),1,-1)+
If(C/P >=Ref(C/P,-12),1,-1)+
If(C/P >=Ref(C/P,-13),1,-1)+
If(C/P >=Ref(C/P,-14),1,-1)+
If(C/P >=Ref(C/P,-15),1,-1)+
If(C/P >=Ref(C/P,-16),1,-1)+
If(C/P >=Ref(C/P,-17),1,-1)+
If(C/P >=Ref(C/P,-18),1,-1)+
If(C/P >=Ref(C/P,-19),1,-1)+
If(C/P >=Ref(C/P,-20),1,-1)+
If(ROC(C/P,5,%)>ROC(Ref(C/P,-5),5,%),1,-1)+
If(V>3*Mov(V,21,S) AND C>Ref(C,-1),1,0)+
If(V>3*Mov(V,21,S) AND C<Ref(C,-1),-1,0)+12)/24;

TSSystemx:=Round(100*((0.9- TSP/2)* TSC+
(0.1+ TSP/2)* TSCP));

TSSystems:=If(TSSystemx>=0 AND TSSystemx
<=100,TSSystemx,If(TSSystemx >100,100,0));
Buy:=Cross(TSSystems,50);
Sell:=Cross(50,TSSystems);
D:=If(BarsSince(Buy)<BarsSince(Sell),-1, If(BarsSince(Buy)>BarsSince(Sell),1,0));
D=1

Symbol tab

Long Entry

TSC:=(If(C>=Ref(C,-11),1,-1)+
If(C>=Ref(C,-12),1,-1)+
If(C>=Ref(C,-13),1,-1)+
If(C>=Ref(C,-14),1,-1)+
If(C>=Ref(C,-15),1,-1)+
If(C>=Ref(C,-16),1,-1)+
If(C>=Ref(C,-17),1,-1)+
If(C>=Ref(C,-1,1,-1)+
If(C>=Ref(C,-19),1,-1)+
If(C>=Ref(C,-20),1,-1)+10)/20;

TSP:=(If(P>=Ref(P,-11),1,-1)+
If(P>=Ref(P,-12),1,-1)+
If(P>=Ref(P,-13),1,-1)+
If(P>=Ref(P,-14),1,-1)+
If(P>=Ref(P,-15),1,-1)+
If(P>=Ref(P,-16),1,-1)+
If(P>=Ref(P,-17),1,-1)+
If(P>=Ref(P,-18),1,-1)+
If(P>=Ref(P,-19),1,-1)+
If(P>=Ref(P,-20),1,-1)+10)/20;

TSCP:=(If(C/P >=Ref(C/P,-11),1,-1)+
If(C/P >=Ref(C/P,-12),1,-1)+
If(C/P >=Ref(C/P,-13),1,-1)+
If(C/P >=Ref(C/P,-14),1,-1)+
If(C/P >=Ref(C/P,-15),1,-1)+
If(C/P >=Ref(C/P,-16),1,-1)+
If(C/P >=Ref(C/P,-17),1,-1)+
If(C/P >=Ref(C/P,-18),1,-1)+
If(C/P >=Ref(C/P,-19),1,-1)+
If(C/P >=Ref(C/P,-20),1,-1)+
If(ROC(C/P,5,%)>ROC(Ref(C/P,-5),5,%),1,-1)+
If(V>3*Mov(V,21,S) AND C>Ref(C,-1),1,0)+
If(V>3*Mov(V,21,S) AND C<Ref(C,-1),-1,0)+12)/24;

TSSystemx:=Round(100*((0.9- TSP/2)* TSC+
(0.1+ TSP/2)* TSCP));

TSSystems:=If(TSSystemx>=0 AND TSSystemx
<=100,TSSystemx,If(TSSystemx >100,100,0));
Buy:=Cross(TSSystems,50);
Sell:=Cross(50,TSSystems);
D:=If(BarsSince(Buy)<BarsSince(Sell),-1, If(BarsSince(Buy)>BarsSince(Sell),1,0));
D=-1 AND Ref(D,-1)>-1

Short Entry

TSC:=(If(C>=Ref(C,-11),1,-1)+
If(C>=Ref(C,-12),1,-1)+
If(C>=Ref(C,-13),1,-1)+
If(C>=Ref(C,-14),1,-1)+
If(C>=Ref(C,-15),1,-1)+
If(C>=Ref(C,-16),1,-1)+
If(C>=Ref(C,-17),1,-1)+
If(C>=Ref(C,-1,1,-1)+
If(C>=Ref(C,-19),1,-1)+
If(C>=Ref(C,-20),1,-1)+10)/20;

TSP:=(If(P>=Ref(P,-11),1,-1)+
If(P>=Ref(P,-12),1,-1)+
If(P>=Ref(P,-13),1,-1)+
If(P>=Ref(P,-14),1,-1)+
If(P>=Ref(P,-15),1,-1)+
If(P>=Ref(P,-16),1,-1)+
If(P>=Ref(P,-17),1,-1)+
If(P>=Ref(P,-18),1,-1)+
If(P>=Ref(P,-19),1,-1)+
If(P>=Ref(P,-20),1,-1)+10)/20;

TSCP:=(If(C/P >=Ref(C/P,-11),1,-1)+
If(C/P >=Ref(C/P,-12),1,-1)+
If(C/P >=Ref(C/P,-13),1,-1)+
If(C/P >=Ref(C/P,-14),1,-1)+
If(C/P >=Ref(C/P,-15),1,-1)+
If(C/P >=Ref(C/P,-16),1,-1)+
If(C/P >=Ref(C/P,-17),1,-1)+
If(C/P >=Ref(C/P,-18),1,-1)+
If(C/P >=Ref(C/P,-19),1,-1)+
If(C/P >=Ref(C/P,-20),1,-1)+
If(ROC(C/P,5,%)>ROC(Ref(C/P,-5),5,%),1,-1)+
If(V>3*Mov(V,21,S) AND C>Ref(C,-1),1,0)+
If(V>3*Mov(V,21,S) AND C<Ref(C,-1),-1,0)+12)/24;

TSSystemx:=Round(100*((0.9- TSP/2)* TSC+
(0.1+ TSP/2)* TSCP));

TSSystems:=If(TSSystemx>=0 AND TSSystemx
<=100,TSSystemx,If(TSSystemx >100,100,0));
Buy:=Cross(TSSystems,50);
Sell:=Cross(50,TSSystems);
D:=If(BarsSince(Buy)<BarsSince(Sell),-1, If(BarsSince(Buy)>BarsSince(Sell),1,0));
D=1 AND Ref(D,-1)<1