%% 3 a
x = linspace(0,1,101);
y = 5*cos(3*pi*x);
plot(x,y)
%% 3b 
x = linspace(-5,5,500);
y = 1./(x.^2+1);
plot(x,y)

%% 3c 

x = linspace(-2,2,200);
y = (sin(7*x)-sin(5*x))./(cos(7*x)+cos(5*x));
plot(x,y)
grid

%% 3d 
figure
osoittaja = (sin(7*x)-sin(5*x));
nimittaja =  (cos(7*x)+cos(5*x));

plot(x,osoittaja,'b',x,nimittaja,'r')
legend('Osoittaja','Nimittaja')
grid
%% 3e 

ind = abs(nimittaja)<0.1;
[osoittaja(ind)' , nimittaja(ind)']