%%TUKE-FEI-KEaMT-PS-LBMS
%%Peter Šuťak, zadanie č.2


plocha=1000;
ZS1 = [100,100];
ZS2 = [900,500];
ZS3 = [200,800];

X_ZS1odZS2 = abs(ZS1(1)-ZS2(1));
Y_ZS1odZS2 = abs(ZS1(2)-ZS2(2)) ;
ZS1odZS2 = round(sqrt((X_ZS1odZS2^2)+(Y_ZS1odZS2^2)),2);

X_ZS1odZS3 = abs(ZS1(1)-ZS3(1));
Y_ZS1odZS3 = abs(ZS1(2)-ZS3(2));
ZS1odZS3 = round(sqrt((X_ZS1odZS3^2)+(Y_ZS1odZS3^2)),2);

X_ZS2odZS3 = abs(ZS2(1)-ZS3(1));
Y_ZS2odZS3 = abs(ZS2(2)-ZS3(2));
ZS2odZS3 = round(sqrt((X_ZS2odZS3^2)+(Y_ZS2odZS3^2)),2);




scatter(ZS1(1),ZS1(2),'x','r')
X_ZS1 = num2str(ZS1(1));
Y_ZS2 = num2str(ZS1(2));
text(ZS1(1)+10, ZS1(2)+15,['[',X_ZS1,' , ',Y_ZS2,']'], 'Fontsize', 8);
hold on

scatter(ZS2(1),ZS2(2),'x','b')
X_ZS2 = num2str(ZS2(1));
Y_ZS2 = num2str(ZS2(2));
text(ZS2(1)+10, ZS2(2)+15,['[',X_ZS2,' , ',Y_ZS2,']'], 'Fontsize', 8);
hold on

scatter(ZS3(1),ZS3(2),'x','g')
X_ZS3 = num2str(ZS3(1));
Y_ZS3 = num2str(ZS3(2));
text(ZS3(1)+10, ZS3(2)+15,['[',X_ZS3,' , ',Y_ZS3,']'], 'Fontsize', 8);



%%PRIAMKY p
px1 = [ZS1(1),ZS2(1)] ;
py1 = [ZS1(2),ZS2(2)] ;

px2 = [ZS1(1),ZS3(1)];
py2 = [ZS1(2),ZS3(2)];

px3 = [ZS2(1),ZS3(1)];
py3 = [ZS2(2),ZS3(2)];

%%ŤAŽNICE t
tx = [ZS1(1),(ZS2(1)+ZS3(1))/2];
ty = [ZS1(2),(ZS2(2)+ZS3(2))/2];
%%PYTAGOROVA VETA
%%x suradnice
txODtx = tx(1)-tx(2);
%%y suradnice
tyODty = ty(1)-ty(2);
X_BOD = txODtx/3+tx(2);
Y_BOD = tyODty/3+ty(2);
%%vykreslenie bodu
scatter(X_BOD,Y_BOD,'*','m');

%%červené čiary
plot([ZS1(1), X_BOD],[ZS1(2),Y_BOD],'--r');
plot([ZS2(1), X_BOD],[ZS2(2),Y_BOD],'--r');
plot([ZS3(1), X_BOD],[ZS3(2),Y_BOD],'--r');

%%vzdialenost v od vrcholov ku bodu
ZS1odX_BOD = abs(ZS1(1)-X_BOD);
ZS1odY_BOD = abs(ZS1(2)-Y_BOD);
v1_BOD = round(sqrt((ZS1odX_BOD^2)+(ZS1odY_BOD^2)),2);
meter1_bod = ['(',num2str(v1_BOD),')'];

ZS2odX_BOD = abs(ZS2(1)-X_BOD)
ZS2odY_BOD = abs(ZS2(2)-Y_BOD)
v2_BOD = round(sqrt((ZS2odX_BOD^2)+(ZS2odY_BOD^2)),2)
meter2_bod = ['(',num2str(v2_BOD),')'];

ZS3odX_BOD = abs(ZS3(1)-X_BOD);
ZS3odY_BOD = abs(ZS3(2)-Y_BOD);
v3_BOD = round(sqrt((ZS3odX_BOD^2)+(ZS3odY_BOD^2)),2);
meter3_bod = ['(',num2str(v3_BOD),')'];


%%vypis vzdialenosti od vrcholov ku bodu
text((ZS1(1)+X_BOD)/2, (ZS1(2)+Y_BOD)/2,meter1_bod,'Color','red', 'Fontsize', 8);
text((ZS2(1)+X_BOD)/2, (ZS2(2)+Y_BOD)/2,meter2_bod,'Color','red', 'Fontsize', 8);
text((ZS3(1)+X_BOD)/2, (ZS3(2)+Y_BOD)/2,meter3_bod,'Color','red', 'Fontsize', 8);
%%čierne čiary
plot(px1,py1,'--k');
plot(px2,py2,'--k');
plot(px3,py3,'--k');

%%preformatovanie a vypis
meter12 = ['(',num2str(ZS1odZS2),')'];
meter13 = ['(',num2str(ZS1odZS3),')'];
meter23 = ['(',num2str(ZS2odZS3),')'];

text((ZS1(1)+ZS2(1))/2, (ZS1(2)+ZS2(2))/2,meter12, 'Fontsize', 8);
text((ZS1(1)+ZS3(1))/2, (ZS1(2)+ZS3(2))/2,meter13, 'Fontsize', 8);
text((ZS2(1)+ZS3(1))/2, (ZS2(2)+ZS3(2))/2,meter23, 'Fontsize', 8);
hold on




title('2. zadanie');
xlabel('m');
ylabel('m');
axis([0 plocha 0 plocha]);
%%čiary každých 20 metrov
grid minor
%%čiary každych 100 metrov
grid on
close all;