function [A] = mrotx(vetor)
%UNTITLED Summary of this function goes here
%   Detailed explanation goes here
for i=1:size(vetor,2)
    a=vetor(i);
    A(:,:,i)=[ 1   0       0     0
    0 cos(a)  -sin(a) 0
    0 sin(a)  cos(a)  0
    0   0       0     1];
end
end

