Informe 2 PDS Oporto
Informe 2 PDS Oporto
Informe 2 PDS Oporto
I. MARCO TEORICO:
Tipos de señales:
Inversión en el tiempo
Escalamiento en el tiempo
Desplazamiento temporal
3
Universidad nacional mayor de san marcos
Facultad ing. Eléctrica y electrónica
II. PROCEDIMIENTO:
a) Desplazamiento de señales en el tiempo
Script 1
%SCRIPT 1 osorio sanchez luis fernando
n=0:4;
x=[1 2 3 2 1]; % secuencia
subplot(2,1,1),stem(n,x);
n=n+3;
y=x;
subplot(2,1,2),stem(n,y);
Script 2
% SCRIPT 2 osorio fernando
subplot(3,1,3);
stem(n3,x3);
title('señal con adelanto x(n+na)');
b) Inversión en el tiempo
%SCRIPT 1 osorio fernando
n=-1:2;
x=[3 1 -2 -4];
subplot(2,1,1);
stem(n,x);
axis([-3 3 -5 5]);
title('señal x(n)');
c=fliplr(x);
y=fliplr(-n);
subplot(2,1,2);
stem(y,c); %grafica en el mismo dominio
axis([-3 3 -5 5]);
title('señal invertido en el tiempo x(-n)');
5
Universidad nacional mayor de san marcos
Facultad ing. Eléctrica y electrónica
t2=-t1;
longitud=length(t1);
t2=t2(longitud:-1:1);
x2=x1(longitud:-1:1);
figure(2);
stem(t2,x2);
6
Universidad nacional mayor de san marcos
Facultad ing. Eléctrica y electrónica
%x2(t)=x1(2t)
longitud_t1 = length(t1);
t=t1/2;
t2=t(1:2:longitud_t1);
longitud_t2 = length(x1);
x2=x1(1:2:longitud_t2);
subplot(2,1,2);stem(t2,x2);
axis([-10 10 0 10]);
t1=[-10:1:10];
x1=[1 2 3 4 5 6 7 8 9 10 10 10 9 8 7 6 5 4 3 2 1];
subplot(2,1,1);
stem(t1,x1);
axis([-20 20 0 10]);
%x2(t)=x1(t/2)
longitud_t1=length(t1);
7
Universidad nacional mayor de san marcos
Facultad ing. Eléctrica y electrónica
inicial_t1=t1(1);
final_t1=t1(longitud_t1);
t2=[2*inicial_t1:1:2*final_t1];
longitud_t2=length(t2);
for i=1:longitud_t2
if mod(i,2)==0
x2(i)=x1(i/2);
else
x2(i)=0;
end
end
subplot(2,1,2);
stem(t2,x2);
axis([-20 20 0 10]);
8
Universidad nacional mayor de san marcos
Facultad ing. Eléctrica y electrónica
>> adv(4)
9
Universidad nacional mayor de san marcos
Facultad ing. Eléctrica y electrónica
% osorio fernando
function seq=del(d)
n=0:6;
x=[1 5 4 6 -1 0 4];
subplot(2,1,1);stem(n,x)
axis([-2 10 -2 8])
grid on
n=n-d;
y=x;
subplot(2,1,2);stem(n,y)
axis([-2 10 -2 8])
grid on
end
>> del(4)
%osorio fernando
function seq=inv(x)
n=-1:2;
x=[3 1 -2 -4];
c=fliplr(x);
y=fliplr(-n);
stem(y,c); %grafica en el mismo dominio
axis([-3 3 -5 5]);
title('señal invertido en el tiempo x(-n)');
end
10
Universidad nacional mayor de san marcos
Facultad ing. Eléctrica y electrónica
% osorio fernando
function seq=cmp(a)
t1=[-10:1:10];
length(t1);
x1=[1 2 3 4 5 6 7 8 9 10 10 10 9 8 7 6 5 4 3 2 1];
length(x1);
subplot(2,1,1);
stem(t1,x1);
axis([-10 10 0 10]);
%x2(t)=x1(2t)
longitud_t1 = length(t1);
t=t1/a;
t2=t(1:a:longitud_t1);
longitud_t2 = length(x1);
x2=x1(1:a:longitud_t2);
subplot(2,1,2);stem(t2,x2);
axis([-10 10 0 10]);
end
>> cmp(4)
11
Universidad nacional mayor de san marcos
Facultad ing. Eléctrica y electrónica
%osorio fernando
function seq=wid(a)
t1=[-10:1:10];
x1=[1 2 3 4 5 6 7 8 9 10 10 10 9 8 7 6 5 4 3 2 1];
subplot(2,1,1);
stem(t1,x1);
axis([-20 20 0 10]);
%x2(t)=x1(t/2)
longitud_t1=length(t1);
inicial_t1=t1(1);
final_t1=t1(longitud_t1);
t2=[a*inicial_t1:1:a*final_t1];
longitud_t2=length(t2);
for i=1:longitud_t2
if mod(i,a)==0
x2(i)=x1(i/a);
else
x2(i)=0;
end
end
subplot(2,1,2);
stem(t2,x2);
axis([-20 20 0 10]);0
end
>> wid(4)
12
Universidad nacional mayor de san marcos
Facultad ing. Eléctrica y electrónica
%secuencia x[n]
n=-10:10;
x=input('ingres una vector de señal de 21 elementos...');
xinver=[fliplr(x(n>=0)) fliplr(x(n<0))];
xe=0.5*(xinver+x);
xo=0.5*(x-xinver);
subplot(3,1,1);
plot(n,x);
title('señal del vertor ingresado');
xlabel('n');
ylabel('x[n]');
grid
subplot(3,1,2);
plot(n,xe);
title('parte PAR de la señal');
xlabel('n');
ylabel('x[-n]');
grid
13
Universidad nacional mayor de san marcos
Facultad ing. Eléctrica y electrónica
1, 0≤𝑛≤5
𝑥1 [𝑛] = {−1, −5≤𝑛 <0
0, 𝑟𝑒𝑠𝑡𝑜
1, 𝑛 = −2
2, 𝑛 = −1
𝑥2 [𝑛] = 3, 𝑛=0
1, 𝑛=7
{ 0, 𝑟𝑒𝑠𝑡𝑜
−1, 𝑛 ∈ {−4,3}
2, 𝑛 ∈ {−3, −2,1}
𝑥3 [𝑛] = {
1, 𝑛 ∈ {−1,0,2}
0, 𝑟𝑒𝑠𝑡𝑜
n3=-4:3;
x3=[-1 2 2 1 1 2 1 -1];
x_inv=[fliplr(x3(n3>=0)) fliplr(x3(n3<0))];
xe=0.5*(x_inv+x3);
xo=0.5*(x3-x_inv);
subplot(3,1,1);
stem(n3,x3);
title('Señal original')
subplot(3,1,2);
stem(n3,xo);
15
Universidad nacional mayor de san marcos
Facultad ing. Eléctrica y electrónica
title('Parte impar');
subplot(3,1,3);
stem(n3,xe);
title('Parte par');
3. Para el caso de ensanchamiento de secuencia modifica la función creada talque para los
índices donde no existan valores definidos en la secuencia original se considere como valor
el promedio entero (redondeado) de los valores contiguos de la secuencia original ( en lugar
de ceros)
subplot(3,1,3)
plot(t,x3,'g')%Grafica la señal triangular con escalamiento de color
verde
grid
title('Pulso triangular con ancho de 4')
IV. REFERENCIAS:
https://la.mathworks.com/help/matlab/ref/clc.html
https://la.mathworks.com/help/matlab/ref/diary.html?searchHighlight=diary&s_tid=doc_sr
chtitle
https://la.mathworks.com/help/matlab/ref/conv.html?searchHighlight=conv&s_tid=doc_src
htitle
17
Universidad nacional mayor de san marcos
Facultad ing. Eléctrica y electrónica
https://la.mathworks.com/help/matlab/ref/function.html?searchHighlight=function&s_tid=
doc_srchtitle
https://la.mathworks.com/help/matlab/ref/input.html?searchHighlight=input&s_tid=doc_sr
chtitle
https://la.mathworks.com/help/control/ref/tf.html?searchHighlight=tf&s_tid=doc_srchtitle