%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                       INGENIERÍA EN COMPUTACIÓN
%   SEÑALES Y SYSTEMAS
%                                                   Moya, Nelli, Bernhardt
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%El presente script pretende ser una ayuda para fijar los conceptos sobre
%modificaciones en la variable independiente de una señal, en este caso el
%tiempo; como se sabe, el tiempo puede sufrir escalamientos, inversiones y
%desplazamientos (adelantos o atrasos); la idea entonces es poder observar
%de manera gráfica qué ocurre con la señal. Este script está concebido para
%que pueda ser manipulado, para observar lo que sucede cuando se aplican
%estas modificaciones a la variable independiente en forma separada y en
%forma conjunta.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
clc
close all
clear all
%**********************************************
% definimos el vector de tiempo n
%**********************************************
n = -8:1:8;         %componer el vector de muestras n de modo que tenga un número impar de muestras, y cuya mitad coincida con la muestra correspondiente a n = 0 contribuirá a hacer más fácil la manipulación
%**********************************************
% componemos la señal x[n]
%**********************************************
x1 = [1 2 0.5 1];
x = zeros(size(n));
x(9:12) = x1;
%**********************************************
% componemos la señal h[n]
%**********************************************
h1 = [1 0.5 1.5 0 1];
h = zeros(size(n));
h(8:12) = h1;
%Ejercicio 3-e)
%**********************************************
z=x(end:-1:1);
figure, stem(n,x), title('Señal original x[n]')
figure, stem(n,x_n(n,-1,0)), title('Señal modificada x[n-3]')

%Ejercicio 3-f)
%**********************************************
z=x(end:-1:1);
figure, stem(n,h), title('Señal original h[n])')
% figure, stem(n,x_n(n,1,-3)), title('Señal modificada x[n-3]')