vtb4_1.m

function [P,w,S]=vtb4_1(M,K)

%VTB4_1 Natural frequencies and eigenvectors for an undamped
%system.
% [P,w,S]=VTB4_1(M,K) will return the natural frequencies (w),
% eigenvectors (P), and mass normalized mode shapes (S = [u1, u2...]) 
% for an undamped system.  
% The inputs are the mass matrix M and the stiffness matrix K.  
% [P,w,S]=VTB4_1(M,K,1) will also print the output of the function
% to the screen.


%Calculates eigenvectors and eigenvalues
U=chol(M);
[P,lam]=eig(U'\K/U);
[w,k]=sort(sqrt(diag(lam)));
P=P(:,k);

% Makes sure the first entry of every column is positive. Looks
% nicer for some modes. No practical use for it.
for i=1:length(M)
  if P(1,i)<0
     P(:,i)=-P(:,i);
  end
end

S=U\P;

if nargout==0
  
  disp('The natural frequencies are')
  disp(' ')
  for i=1:length(M)
    disp(['omega',num2str(i),' = ',num2str(w(i)),' rad/s'])
  end
  disp(' ')
  disp('The eigenvectors of the system are')
  P
  disp(' ')
  disp('The mode shapes of the system are')
  U
  disp(' ')
  disp('The modal transformation matrix S is')
  S
end


%Automatically check for updates
vtbchk