%Skalering matrise for U.
function [U_Skal]=Skal_U

z=ones(12,1);

for i=1:12,
 z(i)=0.1*U(i);;
end

Skal_U=diag(z);


