mydftinverse.m
1903f757952amaster

mydftinverse.m
View Options

			function result=mydftinverse(input_array)
			% convert to cell
			s = mat2cell(size(input_array), 1, 2);
			% expand into an argument list
			result = zeros(s{:});
			N = length(result);

			for m=1:N
			result(m) = 0;
			for n=1:N
			w = exp(2 * pi * 1i * (n-1) * (m-1) / N);
			result(m) = result(m) + input_array(n) * w;
			end
			result(m) = result(m) / N;
			end
			end