This's my original code it's long code I wish someone can help me to make It's short code version plz.
n=0:64;N=64;fx3(1:65)=0;fx4(1:65)=0;fx5(1:65)=0;fx6(1:65)=0;fx7(1:65)=0;fx8(1:65)=0;fx9(1:65)=0;fx10(1:65)=0;fx3(4)=1;fx4(5)=1;fx5(6)=1;fx6(7)=1;fx7(8)=1;fx8(9)=1;fx9(10)=1;fx10(11)=1;fxt3=fft(fx3);fxt4=fft(fx4);fxt5=fft(fx5);fxt6=fft(fx6);fxt7=fft(fx7);fxt8=fft(fx8);fxt9=fft(fx9);fxt10=fft(fx10);fim3=imag(fxt3)/N;freal3=real(fxt3)/N;fim4=imag(fxt4)/N;freal4=real(fxt4)/N;fim5=imag(fxt5)/N;freal5=real(fxt5)/N;fim6=imag(fxt6)/N;freal6=real(fxt6)/N;fim7=imag(fxt7)/N;freal7=real(fxt7)/N;fim8=imag(fxt8)/N;freal8=real(fxt8)/N;fim9=imag(fxt9)/N;freal9=real(fxt9)/N;fim10=imag(fxt10)/N;freal10=real(fxt10)/N;%................................................
for i=1:65 fphase3(i)=atan(fim3(i)/freal3(i)); fphase4(i)=atan(fim4(i)/freal4(i)); fphase5(i)=atan(fim5(i)/freal5(i)); fphase6(i)=atan(fim6(i)/freal6(i)); fphase7(i)=atan(fim7(i)/freal7(i)); fphase8(i)=atan(fim8(i)/freal8(i)); fphase9(i)=atan(fim9(i)/freal9(i)); fphase10(i)=atan(fim10(i)/freal10(i));end%.................................................
figure(1)subplot(4,2,1);stem(n,fphase3);title('Phase of Impuse at m=3 ')grid onsubplot(4,2,2);stem(n,fphase4);title('Phase of Impuse at m=4 ')grid onsubplot(4,2,3);stem(n,fphase5);title('Phase of Impuse at m=5 ')grid onsubplot(4,2,4);stem(n,fphase6);title('Phase of Impuse at m=6 ')grid onsubplot(4,2,5);stem(n,fphase7);title('Phase of Impuse at m=7 ')grid onsubplot(4,2,6);stem(n,fphase8);title('Phase of Impuse at m=8 ')grid onsubplot(4,2,7);stem(n,fphase9);title('Phase of Impuse at m=9 ')grid onsubplot(4,2,8);stem(n,fphase10);title('Phase of Impuse at m=10 ')grid on
Best Answer