diff options
Diffstat (limited to 'macros/invfreq.sci')
| -rw-r--r-- | macros/invfreq.sci | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/macros/invfreq.sci b/macros/invfreq.sci new file mode 100644 index 0000000..dde23ef --- /dev/null +++ b/macros/invfreq.sci @@ -0,0 +1,21 @@ +function [B,A] = invfreq(H,F,nB,nA,W,iter,tol, plane) + + +funcprot(0); +lhs= argn(1); +rhs= argn(2); +if(rhs < 4 | rhs > 8 | rhs == 6 | rhs == 7 ) +error("Wrong number of input arguments"); +end + +select(rhs) + case 4 then + [B,A]= callOctave("invfreq", H,F,nB,nA); + case 5 then + [B,A]= callOctave("invfreq", H,F,nB,nA, W); + case 8 then + [B,A]= callOctave("invfreq", H,F,nB, nA,iter, tol, plane); +end +endfunction + + |