uselabo
20 setxunit
-6 12  setxrange
-1 17 setyrange
1 setlinewidth

/niveauLiquides [60] def
/aspectLiquides [{jaune}] def
3 7 (Burette) bcpict
/aspectLiquides [{cyan}] def
3 1.5 (Becher) bcpict

3 0 (AgitateurMagnetique) bcpict

setTimes
/A {3.5 14} def
/A' {5 14} def
[A A'] (<-) ligne 
( Burette) A' crtext

<tex>
solution de permanganate

de potassium K$^+$ MnO$_4^-$
</tex>

/dotscale {.8 dup} def
/B {3.2 10} def
/B' {5 10} def
[B B'] (*-) ligne 
B' [1.2 dup] crtexlabel



/D {4.5 .7} def
/D' {6 .7} def
[D D'] (<-) ligne
( agitateur magnétique) D' crtext

<tex>
\hsize 50mm
solution de sel 

de Mohr (Fe$^{2+}$)
</tex>
/E {3.5 2.5} def
/E' {6 2.5} def def
[E E'] (*-) ligne
E' [1.2 dup] crtexlabel