diff options
Diffstat (limited to 'macros/bilinear.sci')
| -rw-r--r-- | macros/bilinear.sci | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/macros/bilinear.sci b/macros/bilinear.sci new file mode 100644 index 0000000..d58dd2a --- /dev/null +++ b/macros/bilinear.sci @@ -0,0 +1,27 @@ +function [Zb, Za, Zg]= bilinear(Sb,varargin) + funcprot(0); + lhs= argn(1); + rhs= argn(2); + if(rhs < 3 | rhs > 4) + error("Wrong number of input arguments"); + end + if(lhs < 2 | lhs > 3) + error("Wrong number of output arguments"); + end + select(rhs) + case 3 then + select(lhs) + case 2 then + [Zb, Za]= callOctave("bilinear", Sb, varargin(1), varargin(2)); + case 3 then + [Zb, Za, Zg]= callOctave("bilinear", Sb, varargin(1), varargin(2)); + end + case 4 then + select(lhs) + case 2 then + [Zb, Za]= callOctave("bilinear", Sb, varargin(1), varargin(2), varargin(3)); + case 3 then + [Zb, Za, Zg]= callOctave("bilinear", Sb, varargin(1), varargin(2), varargin(3)); + end + end +endfunction
\ No newline at end of file |