Kontr_1_2

%1.1
% Написать скрипт, в первом блоке которого генерируются случайные координаты двух точек в декартовых осях (в диапазоне от -10 до 10 по каждой координате)
clear
clc
close all % закрывает все графические окна перед запуском нового окна
cordA = floor(rand (1,2)*20-10);
cordB = floor(rand (1,2)*20-10);

%построить в графическом окне обе точки и прямую, проходящую через них;
Xstep = (-cordA(1) + cordB(1))/10;
Ystep = (-cordA(2) + cordB(2))/10;
Xpoints  = cordA(1):Xstep:cordB(1);
Ypoints  = cordA(2):Ystep:cordB(2);
grid on % включает сетку
%plot(Xpoints,Ypoints);
hold on % включает наложение графиков
plot([-10:0.01:10],0,'.k'); % ось X
plot(0,[-10:0.01:10],'.k'); % ось Y
text(0,10,'  Y'); % надпись на оси
text(10,0,'  X'); % надпись на оси
plot(Xpoints(1),Ypoints(1), '*r'); % первая точка
text(Xpoints(1),Ypoints(1),'  A'); % надпись на оси A
plot(Xpoints(end),Ypoints(end), '*b'); % вторая точка
text(Xpoints(end),Ypoints(end),'  B'); % надпись на оси B

% вывести в командное окно уравнение этой прямой (в виде y = 4*x - 0.75);
tangens = (cordA(2) - cordB(2))/(cordA(1) - cordB(1));
shift = cordA(2) - (cordA(1) * tangens);


PrX = -10:(0.1):10;
PrY = PrX*(tangens)+shift;
plot(PrX,PrY,'.m-');

Mark = '+';
if (shift < 0)
    Mark = '-';
end
disp(['Уравнение y = ', num2str(tangens),'*x',Mark,num2str(abs(shift))]);

%1.2
%Написать функцию (без входных аргументов), которая выводит в командное окно пользователю количество полных месяцев, дней, часов и минут до ближайшего нового года.
clear
clc
close all % закрывает все графические окна перед запуском нового окна

TimeToNewYear()

function[] = TimeToNewYear()
t = datetime;
t.Format = 'yyyy MM dd HH mm';
febr=28;
    if (~mod(t.Year,4))
        febr=29;
    end
MANTH = [1,31;2,febr;3,31;4,30;5,31;6,30;7,31;8,31;9,30;10,31;11,30;12,31];
manth__= 12-t.Month;
d_ = MANTH(t.Month,2)-t.Day;
h_ = 24 - t.Hour-1; % -1 час это запас для минут
min_ = 60 - t.Minute;

disp(['До нового года осталось - ','месяцы=', num2str(manth__),' дни=',num2str(d_),' часы=',num2str(h_),' минуты=',num2str(min_)]);

end