tpmo3(fname)

function tpmo3(fname)
% tpmo3(fname) 
% input
%   fname nom du fichier contenant les donnes sur deux colonnes en ascii

if nargin == 0
  fprintf('usage   : tpmo3(<nom du fichier de donnes entre guillemets simples>)\n');
  fprintf('exemple : tpmo3(''tpmo.dat'')\n');
  return;
end;
delete(gcf)
[c r x t a]=cercleit(fname);
trcercle(c,r,'k-');                       % trac du cercle en noir
hold on                                   % persistence des tracs successifs
plot(a(:,1), a(:,2), 'k+');               % trac des donnes exprimentales
xx = get(gca,'Xlim');                     % rcupration des limites en x
plot(xx, tan(t*pi/180)*xx, 'k-');         % rajout de la droite OC
plot(c(1),c(2),'k+');                     % une petite croix au centre
plot(xx,[0,0],'k-');                      % rajout de l'axe horizontal
yy = get(gca,'Ylim');                     % rcupration des limites en y
plot([0,0],yy, 'k-');                     % rajout de l'axe vertical
%gtext('\alpha');                          % positionnement de texte par souris
text(c(1)+0.8*r, c(2), '\bf\alpha');         % positionnement de texte 
tt = text(c(1)-0.15*r, c(2)-0.15*r, '\bfc'); % le centre
%set(tt, 'fontweight', 'bold');
text(c(1)+1.1*r, 0.15*r, '\bfx_0');

set(gca, 'Position', [0.5 0.3 0.5 0.5]);  % dplacement des axes courants
str{1} = '\bf                                        Ajustement de cercle';
str{2} = '';
str{3} = sprintf(' centre    : (%7.3e, %7.3e)', c);
str{4} = sprintf(' rayon     : %7.3e', r);
str{5} = '';
str{6} = sprintf(' \\alpha           : %7.3f degrs', t);
str{7} = sprintf(' x_0          : %7.3e', x);
str{8} = '';
str{9} = '         donnes exprimentales (x, y)';
for i =1:size(a,1)
   str{10+i} = sprintf('           %7.3e, %7.3e', a(i,:));
end;
h = axes('position',[0.02, 0.0, 0.4, 0.9], 'visible', 'off');
set(gcf, 'currentaxes', h);
text(0.025,0.6,str,'fontsize',12)

set(gcf, 'numberTitle', 'off', ...
         'menubar', 'none',   'name', ...
         '        Ajustement de cercle. JT Laprest oct. 1998');