Multi Time Frame ChikouSpan

Nw:=HOUR()<>ref(HOUR(),-1);  n:=255  ;
sh:= valuewhen(1,nw,cum(1))-valuewhen(26,nw,cum(1));  a:=ChikouSpan(10,10,n,10,n);
hhv1:=ValueWhen(1,Nw,ref(HighestSince(9,Nw,H),-1));
llv1:=ValueWhen(1,Nw,ref(LowestSince(9,Nw,L),-1));
hhv2:=ValueWhen(1,Nw,ref(HighestSince(26,Nw,H),-1));
llv2:=ValueWhen(1,Nw,ref(LowestSince(26,Nw,L),-1));
TenSen:=(hhv1+llv1)/2; KijSen:=(hhv2+llv2)/2;
TenSen; KijSen;sh;a

Nw:=HOUR()<>ref(HOUR(),-1);   
hhv1:=ValueWhen(1,Nw,ref(HighestSince(9,Nw,H),-1));
llv1:=ValueWhen(1,Nw,ref(LowestSince(9,Nw,L),-1));
hhv2:=ValueWhen(1,Nw,ref(HighestSince(26,Nw,H),-1));
llv2:=ValueWhen(1,Nw,ref(LowestSince(26,Nw,L),-1));
SpanA:=(hhv1+llv1+hhv2+llv2)/4;
sh:= valuewhen(1,nw,cum(1))-valuewhen(26,nw,cum(1));
hhv3:=ValueWhen(1,Nw,ref(HighestSince(52,Nw,H),-1));
llv3:=ValueWhen(1,Nw,ref(LowestSince(52,Nw,L),-1));   SpanB:=(hhv3+llv3)/2;     
if(int((cum(1)-1)/2)-(cum(1)-1)/2=0 and  SpanA>SpanB,SpanA,SpanB); 
if(int(cum(1)/2)-cum(1)/2=0 and  SpanA>SpanB,SpanA,SpanB);   SpanA;
if(int((cum(1)-1)/2)-(cum(1)-1)/2=0 and  SpanA<SpanB,SpanA,SpanB); 
if(int(cum(1)/2)-cum(1)/2=0 and  SpanA<SpanB,SpanA,SpanB);   SpanB