function [A] = mtrans(vetorx,vetory,vetorz)
%UNTITLED2 Summary of this function goes here
%   Detailed explanation goes here
m=max([numel(vetorx), numel(vetory), numel(vetorz)]);
vetorx(end:m)=vetorx(end);
vetory(end:m)=vetory(end);
vetorz(end:m)=vetorz(end);
A=zeros(4,4,m);
for i=1:m
    x=vetorx(i);
    y=vetory(i);
    z=vetorz(i);
    A(:,:,i)=[1 0 0 x
              0 1 0 y
              0 0 1 z
              0 0 0 1];
end
end
