function a=t0(b)

n=length(b);
b=round(b);
a=[];
for k=1:n
    a=[a;t1(b(k)*ones(1,n))];
end
