None.
Open in the MATLAB editor: f07gf_example
function f07gf_example fprintf('f07gf example results\n\n'); % Symmetric matrix A, upper triangular part packed in ap uplo = 'U'; n = int64(4); ap = [4.16 ... -3.12e5 5.03e10 ... 0.56 -0.83e4 0.76 ... -0.10 1.18e5 0.34 1.18]; % Scale [s, scond, amax, info] = f07gf( ... uplo, n, ap); fprintf('scond = %8.1e, amax = %8.1e\n\n', scond, amax); disp('Diagonal scaling factors'); fprintf('%10.1e',s); fprintf('\n\n'); % Apply scalings k = 0; for i = 1:n for j = 1:i k = k + 1; asp(k) = s(i)*ap(k)*s(j); end end [ifail] = x04cc( ... 'Upper', 'Non-unit', n, asp, 'Scaled matrix');
f07gf example results scond = 3.9e-06, amax = 5.0e+10 Diagonal scaling factors 4.9e-01 4.5e-06 1.1e+00 9.2e-01 Scaled matrix 1 2 3 4 1 1.0000 -0.6821 0.3149 -0.0451 2 1.0000 -0.0425 0.4843 3 1.0000 0.3590 4 1.0000