%% d'apres http://culturesciences.chimie.ens.fr/ %% dossiers-structure-macroscopique-article-SolubiliteAmmoniac.html autocrop uselabo -6 15 setxrange -6 15 setyrange 20 setxunit setTimes 0 0 (Potence) bbpict withbouchon /Tubes [{(0 -45) [1 .8] (TubeDroit)} (TubeCoin)] def /aspectLiquides [{cyan}] def /niveauLiquides [40] def %% on renomme en /Sortie le point /Out de TubeCoin TubeCoin_dic /Sortie TubeCoin_dic /Out get put %% dessin du ballon 2.5 0 (Ballon) bbpict %% on recup les points cles /Out pictget /A defpoint /col pictget /B defpoint /Sortie pictget /C defpoint %% legende ballon \hsize 50mm Ballon rempli d'eau avec quel\-ques gouttes de phénolphtaléine /cr pictget crtexlabel %% dessin de la seringue /niveauLiquides [] def C [-.7 .7] (Seringue) /Out spict %% legende seringue (seringue remplie d'air) /uc pictget uctext %% on accroche la ballon a la potence 0 B pince /Tubes [{[1 .25] (TubeDroit)}] def %% le ballon a l'envers 2.5 8 {180} (Ballon) dcpict /Out pictget /B defpoint /col pictget /D defpoint (ballon rempli d'ammoniac gazeux) /cl pictget urtext %% on accroche la ballon a la potence 0 D pince A 90 B 90 raccordsouple