Вычислить координаты третьей вершины треугольника по длине основания и прилежащим углам

function [C] = KoordinatojClauxABPaPb(A,B,Pa,Pb)
%KOORDINATOJCLAUXABPAPB Функция вычисляет и рисует координаты вершины С
%треугольника АВС по координатам точек А, В на плоскости и двум азимутам Pa
%и Pb точки С от двух вершин А и B (азимуты отсчитываются как в геодезии -
%от направления OY+ по часовой стрелке в градусах)
figure1 = figure('PaperUnits','centimeters',...
                 'PaperSize',[20 20],...
                 'Color',[1 1 1]);
axes('Parent',figure1,...
     'FontName','Courier New',...
     'Position',[0.1 0.1 0.8 0.8],...     
     'Visible','on');
grid on;
hold('all');
axis equal; % устанавливаются равные величины единичных отрезков по обоим осям
Pa_rad=Pa/180*pi; Pb_rad=Pb/180*pi;
U=(1/sin(Pb_rad-Pa_rad))*[-cos(Pb_rad) sin(Pb_rad); -cos(Pa_rad) sin(Pa_rad)]*(B-A)';
if U(1)<0 || U(2)<0
    msgbox('Лучи с такими азимутами расходятся, точки С не существует');
    C1=A+norm(B-A)/2*[sin(Pa_rad) cos(Pa_rad)]; C2=B+norm(B-A)/2*[sin(Pb_rad) cos(Pb_rad)];
    line([A(1) C1(1)],[A(2) C1(2)],'Color','b','LineWidth',1,'Marker','none','MarkerSize',3, 'MarkerFaceColor','y');
    line([B(1) C2(1)],[B(2) C2(2)], 'Color','b','LineWidth',1,'Marker','none','MarkerSize',3, 'MarkerFaceColor','y');
    text(1.05*A(1)-0.05*B(1),1.05*A(2)-0.025*B(2),'A','HorizontalAlignment','Left','VerticalAlignment','Top',...
       'FontName','Arial',...
       'fontsize',14,...
       'fontweight','b',...
       'BackgroundColor','none');
    text(1.05*B(1)-0.05*A(1),1.05*B(2)-0.025*A(2),'B','HorizontalAlignment','Center','VerticalAlignment','Middle',...
       'FontName','Arial',...
       'fontsize',14,...
       'fontweight','b',...
       'BackgroundColor','none');
    C=[0 0];
else
    C=A+U(1)*[sin(Pa_rad) cos(Pa_rad)];    
    line([A(1) C(1)],[A(2) C(2)],'Color','b','LineWidth',1,'Marker','o','MarkerSize',3, 'MarkerFaceColor','y');
    line([B(1) C(1)],[B(2) C(2)], 'Color','b','LineWidth',1,'Marker','o','MarkerSize',3, 'MarkerFaceColor','y');
    text(1.05*C(1)-0.025*A(1)-0.025*B(1),1.05*C(2)-0.025*A(2)-0.025*B(2),'C','HorizontalAlignment','Center','VerticalAlignment','Middle',...
       'FontName','Arial',...
       'fontsize',14,...
       'fontweight','b',...
       'BackgroundColor','none');
    text(1.05*A(1)-0.025*B(1)-0.025*C(1),1.05*A(2)-0.025*B(2)-0.025*C(2),'A','HorizontalAlignment','Left','VerticalAlignment','Top',...
       'FontName','Arial',...
       'fontsize',14,...
       'fontweight','b',...
       'BackgroundColor','none');
    text(1.05*B(1)-0.025*A(1)-0.025*C(1),1.05*B(2)-0.025*A(2)-0.025*C(2),'B','HorizontalAlignment','Center','VerticalAlignment','Middle',...
       'FontName','Arial',...
       'fontsize',14,...
       'fontweight','b',...
       'BackgroundColor','none');
end;
line([A(1) B(1)],[A(2) B(2)],'Color','r','LineWidth',2,'Marker','o','MarkerSize',3, 'MarkerFaceColor','y');
end