{Tenkan-sen}
TS:= (HHV(H,TSpr) + LLV(L,TSpr))/2;
{Kijun-sen}
KS:= (HHV(H,KSPr) + LLV(L,KSPr))/2;
{Senkou Span A}
SSA:= Ref((ts+ks)/2,-(KSPr-1));
{Senkou Span B}
SSB := Ref((HHV(H,SSBPr)+LLV(L,SSBPr))/2,-(KSPr-1));
{Chinkou Span}
CS := Ref(C,(KSPr-1));

{To paint a cloud}

KumoUP:=if(ssa>ssb,if(prev=ref(ssb,-1), ssa, ssb),null);
Kumo_Up:=if(ssa>ssb,if(prev=ref(ssa,-1), ssb, ssa),null);

KumoDown:=if(ssa<ssb,if(prev=ref(ssb,-1), ssa, ssb),null);
Kumo_Down:=if(ssa<ssb,if(prev=ref(ssa,-1), ssb, ssa),null);

{Signal Long and Short}

Long:=CROSS(TS,KS);
Short:=CROSS(KS,TS);

{VT Trader Forum Ans}

StrongBuy:= KS>SSA and KS>SSB and Cross(TS,KS);
NormalBuy:= KS<SSA and KS>SSB and Cross(TS,KS);
WeakBuy:= KS<SSA and KS<SSB and Cross(TS,KS);

StrongSell:= KS<SSA and KS<SSB and Cross(KS,TS);
NormalSell:= KS<SSA and KS>SSB and Cross(KS,TS);
WeakSell:= KS>SSA and KS>SSB and Cross(KS,TS);