Open in the MATLAB editor: f07ft_example
function f07ft_example fprintf('f07ft example results\n\n'); a = [3.23 + 0i 1.51 - 1.92i 1.90e+05 + 8.40e+04i 0.42 + 2.50i; 0 + 0i 3.58 + 0i -2.30e+04 + 1.11e+05i -1.18 + 1.37i; 0 + 0i 0 + 0i 4.09e+10 + 0i 2.33e+05 - 1.40e+04i; 0 + 0i 0 + 0i 0 + 0i 4.29 + 0i]; % Scale A [s, scond, amax, info] = f07ft(a); fprintf('scond = %8.1e, amax = %8.1e\n\n', scond, amax); disp('Diagonal scaling factors'); fprintf('%10.1e',s); fprintf('\n\n'); % Scaled matrix as = diag(s)*a*diag(s); [ifail] = x04da( ... 'Upper', 'Non-unit', as, 'Scaled matrix');
f07ft example results scond = 8.9e-06, amax = 4.1e+10 Diagonal scaling factors 5.6e-01 5.3e-01 4.9e-06 4.8e-01 Scaled matrix 1 2 3 4 1 1.0000 0.4441 0.5227 0.1128 0.0000 -0.5646 0.2311 0.6716 2 1.0000 -0.0601 -0.3011 0.0000 0.2901 0.3496 3 1.0000 0.5562 0.0000 -0.0334 4 1.0000 0.0000