In the given programme The sampling time is a little too high, thus the sampling frequency is low. To fix this programme the easiest thing to do would be to increase the sampling frequency of the sinusoid.
F0=13; T0=1/F0; Ts=0.00007; t=0:Ts:13*T0; x=real(exp(j*(2*pi*F0*t-pi/2))); plot(t,x) <\pre>