None.
Open in the MATLAB editor: f01vj_example
function f01vj_example fprintf('f01vj example results\n\n'); transr = 'n'; uplo = 'u'; n = int64(4); ap = [1.1; 1.2; 2.2; 1.3; 2.3; 3.3; 1.4; 2.4; 3.4; 4.4]; % Print the packed array fprintf('\n'); [ifail] = x04cb('g', 'x', ap, 'f5.2', 'Packed array ap:', 'i', ... {''}, 'n', {''}, int64(80), int64(0)); % Convert to Rectangular Full Packed form [ar, info] = f01vj(transr, uplo, n, ap); % Print the Rectangular Full Packed array fprintf('\n'); [ifail] = x04cb('g', 'x', ar, 'f5.2', 'RFP packed array ar:', 'i', ... {''}, 'n', {''}, int64(80), int64(0)); k = int64(n/2); q = n - k; if transr=='N' || transr=='n' lar1 = 2*k + 1; lar2 = q; else lar1 = q; lar2 = 2*k + 1; end ar = reshape(ar,lar1,lar2); fprintf('\n'); [ifail] = x04cb('g', 'x', ar, 'f5.2', ... 'RFP Packed Array ar (graphical representation):', 'i', ... {''}, 'i', {''}, int64(80), int64(0), 'm', lar1, 'n', lar2);
f01vj example results Packed array ap: 1 1.10 2 1.20 3 2.20 4 1.30 5 2.30 6 3.30 7 1.40 8 2.40 9 3.40 10 4.40 RFP packed array ar: 1 1.30 2 2.30 3 3.30 4 1.10 5 1.20 6 1.40 7 2.40 8 3.40 9 4.40 10 2.20 RFP Packed Array ar (graphical representation): 1 2 1 1.30 1.40 2 2.30 2.40 3 3.30 3.40 4 1.10 4.40 5 1.20 2.20