求助：givapp（）是什么函数

hailiangwww

请各位指教，在读一段程序时候碰到这个函数，不知是干什么用的，在help里没有找到，只有找高人帮忙了。

FtpAdmin

1. function vrot=givapp(c,s,vin,k)
   
2. %  Apply a sequence of k Givens rotations, used within gmres codes
   
3. %
   
4. %  C. T. Kelley, July 10, 1994
   
5. %
   
6. % This code comes with no guarantee or warranty of any kind.
   
7. %
   
8. %  function vrot=givapp(c, s, vin, k)
   
9. %
   
10. vrot=vin;
    
11. for i=1:k
    
12.     w1=c(i)*vrot(i)-s(i)*vrot(i+1);
    
13. %    w2=s(i)*vrot(i)+c(i)*vrot(i+1);
    
14.     w2=s(i)*vrot(i)+conj(c(i))*vrot(i+1);
    
15.     vrot(i:i+1)=[w1,w2];
    
16. end

复制代码

FtpAdmin

Iterative Methods for Linear and Nonlinear Equations
里的一个函数，不是matlab自带的