function plot_geom_seq

	% intervallo dei valori da visualizzare
	n = -10:20;
	
	% ragione della sequenza geometrica
	a = 0.8+0.2i;
	
	% prealloca ed assegna i valori di x
	x = n;
	for i = 1:numel(n)
		if n(i) >= 0
			x(i) = a^n(i);
		else
			x(i) = 0;
		end
	end
	
	% plot (con stem)
	figure(1)
	stem(n,real(x))
	xlabel('n')
	ylabel('Re[x(n)]')
	
	figure(2)
	stem(n,imag(x))
	xlabel('n')
	ylabel('Im[x(n)]')
end

