%% Frecuencia de Muestreo - Parte 2

clearvars; close all; clc

% Supongamos ahora que queremos realizar la oscilación de la parte 1
% pero ahora con una duración de tiempo de 1 segundo
% ¿A qué frecuencia corresponde? f = 1[Hz]

%% Ejemplo 3: Escalamos entre valores de 0 y 1

T = 0.1; % Intervalo temporal entre muestras

t1 = 0:T:(1-T);    % vector de tiempo con intervalos T
% Restamos T a valor final porque estamos partiendo en 0

x3 = t1*2*pi;   % ángulos entre 0 y 2pi

% Calcular el seno para cada valor del arreglo x3
y3 = sin(x3);

fprintf('Valores ejemplo 3\n')
fprintf('ángulo(rad)\t tiempo(s)\t seno(x)\n')
disp([x3' t1' y3'])

%% Graficamos

figure(1)
stem(t1,y3)
xlabel('Tiempo(s)')
ylabel('sin(x)')
title('Función sin(x)')
grid on
box on
xlim([0 1])
ylim([-1.1 1.1])

%% Ejemplo 4: Aumentamos frecuencia de sampleo

Fs = 44100;     % Frecuencia de muestreo de audio (calidad CD)
T = 1/Fs;       % Intervalo
tMax = 1;       % Duración temporal de arreglo
N = tMax*Fs;    % Número de muestras en arreglo

t2 = 0:T:(tMax-T);  % Arreglo de tiempo

% Alternativamente podemos generar el mismo vector de esta manera
% t2 = (0:(N-1))/Fs;

y4 = sin(2*pi*t2);  % Ahora hacemos la multiplicación adentro de sin(x

%% Graficamos
figure(2)
stem(t2,y4)
xlabel('Tiempo(s)')
ylabel('sin(x)')
title('Función sin(x)')
grid on
box on
xlim([0 1])
ylim([-1.1 1.1])