function narisi_trikotnik(T) %narisi_trikotnik(T) %narise trikotnik T, ki je predstavljen z 2x3 matriko tock z oglisci %v stolpcih in trikotniku T ocrtan krog T1=[T T(:,1)];%na konec matrike T dodamo prvo oglisce zaradi lazjega risanja clf hold on plot(T1(1,:),T1(2,:)); axis equal A=T(:,1);B=T(:,2);C=T(:,3);%zaradi preglednosti izpisemo oglisca A,B,C p1=simetrala(A,B);%simetrala stranice AB p2=simetrala(B,C);%simetrala stranice BC S=presek_premic(p1,p2);%presecisce premic p1 in p2 plot(S(1),S(2),'rx'); r=norm(A-S);%radij ocrtanega kroga t=linspace(0,2*pi);%parameter za risanje kroga plot(S(1)+r*cos(t),S(2)+r*sin(t));%narisemo ocrtan krog q1=simetrala_kota(A,B,C);%simetrala kota ABC q2=simetrala_kota(B,C,A);%simetrala kota BCA Sv=presek_premic(q1,q2);%presecisce premic q1 in q2 je sredisce vcrtanega kroga plot(Sv(1),Sv(2),'ko');%narisemo sredisce vcrtanega kroga pl=abs(det([B-A,C-A]))/2;%ploscina trikotnika a=norm(B-C);b=norm(A-C);c=norm(B-A);%dolzine stranic rv=pl*2/(a+b+c);%radij vcrtanega kroga (poskusite sami izpeljati) plot(Sv(1)+rv*cos(t),Sv(2)+rv*sin(t));%narisemo vcrtan krog