function T=mroty(a)


for n=1:length(a)
    T(:,:,n)=roty(a(n));
end
end