lesson6

% график
clear
clc
close all % закрывает все графические окна перед запуском нового окна

t=5;
tic

while toc<=t
            c=clock();
            hours=c(4);
            minutes=c(5);
            seconds=c(6);
            u_h=pi/2-2*pi/12*hours;
            u_m=pi/2-2*pi/60*minutes;
            u_s=pi/2-2*pi/60*seconds;
            polarplot([0 u_h] ,[0 5 ],'black');
            thetaticks([0:30:360]);
            rticks([]);
            thetaticklabels([3,2,1,12:-1:4]);
            hold on

            polarplot([0 u_m] ,[0 7 ],'black');
            polarplot([0 u_s] ,[0 10],'black');
            drawnow();
    hold off
end
    close all
    msgbox('time out');




% график
clear
clc
close all % закрывает все графические окна перед запуском нового окна
G = 10;
Speed=100;
angCos = 0.5;  % угол полета косинус
angSin = (1 - 0.5^2)^0.5; % угол полёта синус
ySpeedMax = Speed*angSin; % скорость по оси У
Tmax = ySpeedMax/G*2; % время полета тела
step = 0.01; % шаг времени
t = 0:step:Tmax; % Ход времени

X = Speed*angCos*t; % перемещение по X
Y = Speed*angSin*t-(G*t.^2)/2; % перемещение по У
hold on % включает наложение графиков

for j= 1:20:length(X)
        plot(X(j), Y(j), '*r'); % рисуем точку красным
        drawnow;
        pause(0.05);
        plot(X(j), Y(j), '*w'); % рисуем точку цветом фона графика белым
        plot(X, Y, 'b'); % зарисовываем пробелы
end


% Функция факториала
clear
clc
close all % закрывает все графические окна перед запуском нового окна
y2 = my_factorial_2(4);



function y = my_factorial_2(x)
a = x-1;
    if x-1 == 0
      y=1;
        return
    end
   y = x*my_factorial_2(a);
end