15 lines
305 B
Scilab
15 lines
305 B
Scilab
|
function [a]=rfrot(a,alph,bet,%type)
|
||
|
// Copyright (C) 2001 Michel Juillard
|
||
|
//
|
||
|
// apply fast Givens rotation to a pair of rows
|
||
|
//
|
||
|
if %type==1 then
|
||
|
tau = bet*a(1,:)+a(2,:);
|
||
|
a(2,:) = a(1,:)+alph*a(2,:);
|
||
|
a(1,:) = tau;
|
||
|
else
|
||
|
tau = a(1,:)+bet*a(2,:);
|
||
|
a(2,:) = alph*a(1,:)+a(2,:);
|
||
|
a(1,:) = tau;
|
||
|
end
|