function [A] = Tlink(teta,l,d,alpha)
%Devolve a Transoformação associada a um elo
%   Detailed explanation goes here
A=rotz(teta)*trans(l,0,0)*trans(0,0,d)*rotx(alpha);

end

