Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

sss / 14_Кириллова Ксения_Кр2

.docx
Скачиваний:
14
Добавлен:
05.06.2015
Размер:
15.46 Кб
Скачать

Вариант 1

A=[1;1];

B=[5;-2];

C=[7;9];

subplot(2,2,1)

grid on

hold on

line([-15 15],[0 0],'color','black','linewidth',1)

line([0 0],[-15 15],'color','black','linewidth',1)

line([A(1) B(1)],[A(2) B(2)],'color','black','linewidth',2)

line([B(1) C(1)],[B(2) C(2)],'color','blue','linewidth',2)

line([A(1) C(1)],[A(2) C(2)],'color','black','linewidth',2)

axis([-15 15 -15 15])

axis equal

q=[C(1)-B(1);C(2)-B(2)];

line([0 q(1)],[0 q(2)],'color', 'red','linewidth',4)

n=[C(2)-B(2);-C(1)+B(1)];

line([0 n(1)],[0 n(2)],'color', 'black','linewidth',4)

plot(q(1),q(2),'r^','linewidth',4)

plot(n(1),n(2),'k>','linewidth',4)

subplot(2,2,2)

grid on

hold on

line([-15 15],[0 0],'color','black','linewidth',1)

line([0 0],[-15 15],'color','black','linewidth',1)

line([A(1) B(1)],[A(2) B(2)],'color','black','linewidth',2)

line([B(1) C(1)],[B(2) C(2)],'color','black','linewidth',4)

line([A(1) C(1)],[A(2) C(2)],'color','black','linewidth',2)

axis([-15 15 -15 15])