function y=visualbac(h,n);
nmin=0.001;
n1=n(1);
n2=n(2);
n3=n(3);
% Initialisation de la figure
if isempty(h),
    h=figure;
    set(h,'Position',[675,114,317,553]);
    axis([0,12,0,22]),
end,
% Traitement temps réel de la figure
clf,hold on,axis equal,axis off,
% matériel
bac1=plot([1,1,9],[7,1,1],'r-');set(bac1,'LineWidth',3),
bac1=plot([9.5,10,10],[1,1,7],'r-');set(bac1,'LineWidth',3),
bac2=plot([1,1,8],7+[7,1,1],'r-');set(bac2,'LineWidth',3),
bac2=plot([8.5,10,10],7+[1,1,7],'r-');set(bac2,'LineWidth',3),
bac3=plot([1,1,7],14+[7,1,1],'r-');set(bac3,'LineWidth',3),
bac3=plot([7.5,10,10],14+[1,1,7],'r-');set(bac3,'LineWidth',3),
tuyau=plot([9.25,9.25,11,11,6.25,6.25],[1.2,0.5,0.5,22,22,21],'k');set(tuyau,'LineWidth',6),
% niveaux
if n3>nmin,eau1=fill([1.2,9.8,9.8,1.2],14+[1.2,1.2,n3+1.2,n3+1.2],'b');end,
if n2>nmin,eau2=fill([1.2,9.8,9.8,1.2],7+[1.2,1.2,n2+1.2,n2+1.2],'b');end,
if n1>nmin,eau3=fill([1.2,9.8,9.8,1.2],[1.2,1.2,n1+1.2,n1+1.2],'b');end,
if n1>nmin,filet3=plot([6.25,6.25],[21,15.2],'b');set(filet3,'LineWidth',5);end,
if n3>nmin,filet2=plot([7.25,7.25],[15.2,8.2],'b');set(filet2,'LineWidth',5);end,
if n2>nmin,filet1=plot([8.25,8.25],[8.2,1.2],'b');set(filet1,'LineWidth',5);end,
text(2,7,['H1=',num2str(n1),'cm'])
text(2,14,['H2=',num2str(n2),'cm'])
text(2,21,['H3=',num2str(n3),'cm'])
y=h;
drawnow