function cm=calor1(m)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Genera la matriz del calor para una placa unidimensional con m tramos
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
v=ones(m-1,1);
cm=2*eye(m)-diag(v,-1)-diag(v,1);