clear;% borra memoria (espacio de trabajo)
clc; % limpia ventana de comandos
clf; % limpia figura

t = linspace(0,1,200);
f = 3; % frecuencia 
y = sin(2*pi*f*t);% funcion

subplot(1,2,1);
plot(t,y,"r*-"); % gráfica de la funcion
grid on; % cuadricula de fondo
xlabel("tiempo","fontsize",20); % etiqueta del eje horizontal
ylabel("Amplitdue","fontsize",20); % etiqueta del eje vertical
title("Función Senoidal","fontsize",20); %título de la gráfica

y2 = funcion_cuadratica(y);
subplot(1,2,2);
plot(t,y2,"r*-"); % gráfica de la funcion
grid on; % cuadricula de fondo
xlabel("tiempo","fontsize",20); % etiqueta del eje horizontal
ylabel("Amplitdue","fontsize",20); % etiqueta del eje vertical
title("Función Senoidal al cuadrado","fontsize",20); %título de la gráfica