p5_6.m

该程序从不同方面描述了有限长离散傅立叶变换的过程。

% Program P5_6
% Determines the decimal equivalent of a
% binary number in sign-magnitude form
bin = input('Type in the binary fraction = ');
b = length(bin) - 1; d = 0;
for k = 1:b
	d = d + bin(k+1)*2^(-k);
end
if sign(bin(1)) == 0;
	dec =  d;
else
	dec = - d;
end
disp('The decimal equivalent is ');
disp(dec);