macros/fftshift1.sci


1
2
3
4
5
6
7
8
9
10
11
12

function y= fftshift1(X,DIM)
	rhs= argn(2);
	if(rhs <1 | rhs >2)
		error('Wrong number of Input arguments');
	end
	select(rhs)
	case 1 then
		y=callOctave("fftshift",X);
	case 2 then
		y=callOctave("fftshift",X,DIM);
	end
endfunction