1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
function [f]=bitrevorder(y,varargin)
rhs = argn(2)
if(rhs<1 | rhs>5)
error("Wrong number of input arguments.")
end
select(rhs)
case 1 then
f = callOctave("fwhm",y)
case 2 then
f = callOctave("fwhm",y,varargin(1))
case 3 then
f = callOctave("fwhm",y,varargin(1),varargin(2))
case 4 then
f = callOctave("fwhm",y,varargin(1),varargin(2),varargin(3))
case 5 then
f = callOctave("fwhm",y,varargin(1),varargin(2),varargin(3),varargin(4))
end
endfunction
|
