function cos2x
subplot(2,1,1)
x=-pi/2:0.01:pi/2;
plot(x,vypocet(x))  % y=vypocet(x);
xlabel('x[rad]')    % plot(x,y)
ylabel('y')
subplot(2,1,2)
x=-90:0.01:90;
plot(x,vypocet2(x),'c')  % y=vypocet2(x);
xlabel('x[stupen]')    % plot(x,y)
ylabel('y')
end
function y=vypocet(x)
%pocita cos2x
y=cos(x).^2; % v radianech
end
function y=vypocet2(x)
%pocita cos2x
y=cosd(x).^2; % ve stupnich
end
