Mercurial > octave-nkf

comparison scripts/control/util/zgsgiv.m @ 7125:f084ba47812b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 02:29:23 by jwe]
author jwe
date Thu, 08 Nov 2007 02:29:24 +0000
parents a1dbe9d80eee
children
comparison
equal deleted inserted replaced
7124:d07cb867891b 7125:f084ba47812b
28 ## Created: July 29, 1992 28 ## Created: July 29, 1992
29 ## Convertion to Octave by R. Bruce Tenison July 3, 1994 29 ## Convertion to Octave by R. Bruce Tenison July 3, 1994
30 30
31 function [a, b] = zgsgiv (c, s, a, b) 31 function [a, b] = zgsgiv (c, s, a, b)
32 32
33 if (nargin != 4)
34 print_usage ();
35 endif
36
33 t1 = c*a + s*b; 37 t1 = c*a + s*b;
34 t2 = -s*a + c*b; 38 t2 = -s*a + c*b;
35 a = t1; 39 a = t1;
36 b = t2; 40 b = t2;
37 41