% size6.m -- Ke's sample test data for A Sparse Matrix 
%
format long
IJ =[1     1
     3     1
     5     1
     6     1
     3     2
     5     2
     6     2
     1     3
     2     3
     5     3
     6     3
     2     4
     5     4
     4     5
     2     6
     4     6]
Va = [
  -8.46221417823990
   0.20264735764999
   0.83811844505199
   0.01963951386480
   0.83179601761001
   0.70947139270301
   0.42889236534100
   0.30461736686901
   0.18965374754701
   0.30276440077701
   0.54167385389801
   0.69789848186001
   0.85365513066301
   0.64491038419400
   0.28972589585600
   0.53407901762700]
format short
help size6
disp(' A = full( sparse(IJ(:,1), IJ(:,2), Va) ),  % Check IJ and Va')
A = full( sparse(IJ(:,1), IJ(:,2), Va) )
a=eig(A);
fprintf('Largest Eig  lambda_1 = %15.11f\n',a(1))
