Internal Power & Relative Strength Dynamic Expert Long 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=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,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,-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=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,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,-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=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,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,-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=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,0)); D=1 AND Ref(D,-1)<1