Cianekjr(Lab6)

%______________________________Zad. 1______________________________________
clc
clear
disp('Tworzenie wykresów dwuwymiarowych.')

functionString = input('Wprowadź skróconą nazwę funkcji trygonometrycznej, którą chcesz narysować: ', 's');
a = input('Wprowadź wartość początku przedziału, w którym ma być narysowany wykres a = ');
b = input('Wprowadź wartość końca przedziału, w którym ma być narysowany wykres b = ');

switch functionString
    case 'sin'
        x=a:0.1:b;  %tworzymy macierz wartości x od a do b z krokiem 0.1
        y=sin(x);   %wartość y w każdym punkcie wykresu jest równy sin(x)
        plot(x,y, 'red');  %rysowanie
        grid on     %siatka
        title('Wykres funkcji y=sin(x)');   %tytuł wykresu
        xlabel('x');    %podpis osi x
        ylabel('y');    %podpis osi y
    case 'cos'
        x=a:0.1:b;
        y=cos(x);
        plot(x,y, 'green');
        grid on
        title('Wykres funkcji y=cos(x)');
        xlabel('x');
        ylabel('y');
    case 'tg'
        x=a:0.1:b;
        y=tan(x);
        plot(x,y, 'blue');
        grid on
        title('Wykres funkcji y=tg(x)');
        xlabel('x');
        ylabel('y');
    case 'ctg'
        x=a:0.1:b;
        y=cot(x);
        plot(x,y, 'cyan');
        grid on
        title('Wykres funkcji y=ctg(x)');
        xlabel('x');
        ylabel('y');
    otherwise
        disp('Nieprawidłowa nazwa funkcji!');
end


%______________________________Zad. 2______________________________________
clc
clear
disp('Tworzenie wykresów dwuwymiarowych.')

x = 0:0.1:2*pi();
ySin = sin(x);
yCos = cos(x);

plot(x, ySin, 'b', x, yCos, 'r--');
grid on;
title('Wykres dwóch funkcji: y=sin(x) i y=cos(x)');
xlabel('x');
ylabel('y');
legend('y=sin(x)', 'y=cos(x)');


%______________________________Zad. 3______________________________________
clc
clear
disp('Tworzenie wykresów dwuwymiarowych.')

x = 0:0.1:2*pi();
ySin = sin(x);
plot(x, ySin, 'r');
grid on;
title('Wykres funkcji y=sin(x)');
xlabel('x');
ylabel('y');
legend('y=sin(x)');

A = input(['Wprowadź wartość stałej, która spełnia warunek 0<A<=10', newline, 'A = ']);

while not(A > 0 && A <=10)
    A = input('Niepoprawna wartość. Wprowadź wartość stałej ponownie A = ');
end

yA = A * sin(x);
plot(x, ySin, 'red', x, yA, 'blue');
grid on;
title(['Wykres dwóch funkcji: y=sin(x) i y=', num2str(A), 'sin(x)']);
xlabel('x');
ylabel('y');
legend('y=sin(x)', ['y=', num2str(A), 'sin(x)']);

%______________________________Zad. 4______________________________________
clc
clear
disp('Tworzenie wykresów dwuwymiarowych.')

x1 = 0:0.1:2*pi();
ySin = sin(x1);
yCos = cos(x1);

x2 = -0.45*pi():0.1:0.45*pi();
yTg = tan(x2);

x3 = 0.05*pi():0.1:0.95*pi();
yCtg = cot(x3);


subplot(2, 2, 1);
plot(x1, ySin, 'green')
grid on
title('Wykres funkcji y=sin(x)');
xlabel('x');
ylabel('y');

subplot(2, 2, 2);
plot(x1, yCos, 'red')
grid on
title('Wykres funkcji y=cos(x)');
xlabel('x');
ylabel('y');

subplot(2, 2, 3);
plot(x2, yTg, 'blue')
grid on
title('Wykres funkcji y=tg(x)');
xlabel('x');
ylabel('y');

subplot(2, 2, 4);
plot(x3, yCtg, 'black')
grid on
title('Wykres funkcji y=ctg(x)');
xlabel('x');
ylabel('y');