macros/invfreq.sci


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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