% triangklick, triangelns hörn med klickning
  clear, clf, axis([0 10 0 8]), hold on
  x=[]; y=[];
  disp('Klicka tre punkter')
  for i=1:3
   [xp,yp]=ginput(1); plot(xp,yp,'*'), x=[x; xp]; y=[y; yp];
  end
  xt=[x; x(1)]; yt=[y; y(1)];  plot(xt,yt,'m'), axis equal
  dx=diff(xt);  dy=diff(yt);  s=sqrt(dx.^2+dy.^2);
% De tre tangerande cirklarna ska beräknas och ritas
  A=[1 1 0; 0 1 1; 1 0 1];  r=A\s
  fi=0:2*pi/60:2*pi; 
  for j=1:3, plot(x(j)+r(j)*cos(fi) ,y(j)+r(j)*sin(fi)), end
  

