None.
Open in the MATLAB editor: f16gc_example
function f16gc_example fprintf('f16gc example results\n\n'); n = int64(3); x = [ -4 + 2.1i 3.7 + 4.5i -6 + 1.2i]; y = [ -3 - 2.4i 6.4 - 5.0i -5.1 + 0.0i]; % z = alpha*x +beta*y; alpha = 3 + 2i; beta = 0 - 1i; incx = int64(-1); incy = int64(-1); [z] = f16gc( ... n, alpha, x, incx, beta, y, incy); disp('x, y:'); fprintf(' x = '); for j = 1:n fprintf('%11.4f %+ 8.4fi',real(x(j)),imag(x(j))); end fprintf('\n y = '); for j = 1:n fprintf('%11.4f %+ 8.4fi',real(y(j)),imag(y(j))); end fprintf('\n\nalpha = %5.1f%+5.1fi beta = %5.1f%+5.1fi\n', ... real(alpha), imag(alpha), real(beta), imag(beta)); fprintf('\nalpha*x + beta*y = \n '); for j = 1:n fprintf('%11.4f %+ 8.4fi',real(z(j)),imag(z(j))); end fprintf('\n');
f16gc example results x, y: x = -4.0000 +2.1000i 3.7000 +4.5000i -6.0000 +1.2000i y = -3.0000 -2.4000i 6.4000 -5.0000i -5.1000 +0.0000i alpha = 3.0 +2.0i beta = 0.0 -1.0i alpha*x + beta*y = -18.6000 +1.3000i -2.9000 +14.5000i -20.4000 -3.3000i