close all
clear all
clc

a = 7/8  *exp(1j*3*pi/4);
n = 0:30;
x = a.^n;

figure
subplot(2,4,1)
stem(n,abs(x))
xlabel('n')
title('abs(x(n))')
grid
subplot(2,4,2)
stem(n,angle(x))
xlabel('n')
title('angle(x(n))')
grid
    
subplot(2,4,5)
stem(n,real(x))
grid
xlabel('n')
title('real(x(n))')
subplot(2,4,6)
stem(n,imag(x))
grid
xlabel('n')
title('imag(x(n))')

subplot(1,2,2)
plot3(n,real(x),imag(x),'o:')
grid
xlabel('n')
ylabel('real(x)')
zlabel('imag(x)')
title('x(n)')