function sgltest1(n)

if isstr(n)
	n = str2num(n);
end

x = sin([1:n]/n*(16*pi));
y = abs(fft(x));
y = y(1:n/2);
[m i] = max(y);

subplot(211)
plot(x)
subplot(212)
plot(y)

s = sprintf('Max = %d, Index = %d\n', m, i);
uiwait(msgbox(s, 'Result', 'modal'));
close