%%%%%%%%%%%%%%%%%
%% Harjoitus 5

% PIIRRAGSM Piirtää gsm-linkit, katettavat pisteet, ja runkoverkon
%           solmun karteesiseen koordinaatistoon
%
%  PIIRRAGSM (x1,y1,x2,y2,x3,y3,otsikko)
%   Linkkien koordinaatit: (x1,y1), (x2,y2), (x3,y3)
%   Kuvan otsikko: 'otsikko'
%
%  Mat-2.2107 Harjoitus 5 tehtävä
%  (C) 2012 Systislabra
function piirragsm (x1,y1,x2,y2,x3,y3,otsikko)

 figure;
 hold on;
 axis ([-20 30 -10 30]);
 grid on;
 title (otsikko);

 % solmu
 h1 = plot (-20,30,'s');

 % katettava piste 1
 h2 = plot (-8,3,'d'); 

 % katettava piste 2
 h3 = plot (14,25,'d');

 % katettava piste 3
 h4 = plot (25,4,'d');

 set ([h1 h2 h3 h4],'Color','b','MarkerFaceColor','b','MarkerSize',6)

 % linkki 1
 h5 = plot (x1,y1,'o');
 ympyra (x1,y1,10);
 line ([x1;-20],[y1;30]);
 
 % linkki 2
 h6 = plot (x2,y2,'o');
 ympyra (x2,y2,10);
 line ([x2;-20],[y2;30]);

 % linkki 3
 h7 = plot (x3,y3,'o');
 ympyra (x3,y3,10);
 line ([x3;-20],[y3;30]);
 
 set ([h5 h6 h7],'Color','r','MarkerFaceColor','r');

 % funktio joka piirtää ympyrän
 function ympyra (x,y,r)
  ang=0:0.01:2*pi; 
  xp=r*cos (ang);
  yp=r*sin (ang);
  h = plot (x+xp,y+yp);
  set (h,'Color','r','LineWidth',1.5);
 end

 hold off;
end