سلام لطفا مشكل اجراي برنامه چيست ؟
کد:
function fazel arabi-tamrin-dsp(1)
close all;
i=input('Select Part (1 or 2):');
if i==1
HW1();
elseif i==2
HW2();
end
end
function HW1()
max=10;
n=-10:1:10;
x=zeros(1,length(n));
for i=1:length(n)
x(i)=Delta(n(i))+4*Delta(n(i)-3)-2*Delta(n(i)+2)+2*Unit(n(i)+1)-3*Unit(-n(i)-2);
if x(i)==inf
x(i)=max;
end
end
h = stem(n,x,'fill','--');
set(get(h,'BaseLine'),'LineStyle',':')
set(h,'MarkerFaceColor','red')
title('X[n]');
end
function HW2()
n=-10:1:10;
max=5;
x=zeros(1,length(n));
x1=zeros(1,length(n));
x2=zeros(1,length(n));
x3=zeros(1,length(n));
for i=1:length(n)
x(i)=3*Delta(n(i)-5)-Delta(n(i)-4)+4*Delta(n(i)-3)-2*Delta(n(i)-2)+3*Delta(n(i)-1)+4*Delta(n(i))+4*Delta(n(i)+1)-5*Delta(n(i)+2);
if x(i)==inf
x(i)=max;
elseif x(i)==-inf
x(i)=-max;
end
end
for i=1:length(n)
x1(i)=3*xfunc(2*n(i)-2)-2*xfunc(n(i)-3)+4*xfunc(n(i)+2)+xfunc(2*n(i))^2;
if x1(i)==inf
x1(i)=max;
elseif x1(i)==-inf
x1(i)=-max;
end
end
for i=1:length(n)
x2(i)=3*xfunc(-n(i))-2*xfunc(n(i)-3)+4*xfunc(-n(i)+2)+4*Delta(n(i)+2)-5*Unit(n(i)+1);
if x2(i)==inf
x2(i)=max;
elseif x2(i)==-inf
x2(i)=-max;
end
end
for i=1:length(n)
x3(i)=2*n(i)*xfunc(n(i))-2*exp(-0.4)*xfunc(n(i)-3)+2*cos(n(i))*xfunc(n(i)+2);
if x3(i)==inf
x3(i)=max;
elseif x3(i)==-inf
x3(i)=-max;
end
end
subplot(2,2,1);
h = stem(n,x,'fill','--');
set(get(h,'BaseLine'),'LineStyle',':')
set(h,'MarkerFaceColor','red')
title('x[n]');
subplot(2,2,2);
h = stem(n,x1,'fill','--');
set(get(h,'BaseLine'),'LineStyle',':')
set(h,'MarkerFaceColor','red')
title('x_1[n]');
subplot(2,2,3);
h = stem(n,x2,'fill','--');
set(get(h,'BaseLine'),'LineStyle',':')
set(h,'MarkerFaceColor','red')
title('x_2[n]');
subplot(2,2,4);
h = stem(n,x3,'fill','--');
set(get(h,'BaseLine'),'LineStyle',':')
set(h,'MarkerFaceColor','red')
title('x_3[n]');
end
% fazel arabi
function u=Unit(t)
if(t>=0)
u=1;
else
u=0;
end
end
% % % % % % fazel arabi
function u=Delta(t)
if(t==0)
u=1;
else
u=0;
end
end
function x=xfunc(n)
x=3*Delta(n-5)-Delta(n-4)+4*Delta(n-3)-2*Delta(n-2)+3*Delta(n-1)+4*Delta(n)+4*Delta(n+1)-5*Delta(n+2);
end