Présentation de distillation.jps

/syracuse/var/syracuse/bbgraf/albums/chimie_03/distillation.png
uselabo 20 setxunit -7 12 setxrange -2 15 setyrange 1 setlinewidth /aspectLiquides [{cyan}] def /niveauLiquides [30] def /Tubes [(ColonneVigreux)] def withbouchon %% Chauffe ballon place tel que son centre (ccpict) soit au point (0, 0) 0 0 (ChauffeBallon) ccpict %/fleches_Refrigerant false def /bouchon_Vigreux true def %% Ballon place tel que son point de base (bbpict) soit au point (0, 0) 0 0 (Ballon) bbpict %% Refrigerant place tel que sa sortie (/Out spict) soit placee au %% point de sortie de la colonne Vigreux (/SortieVigreux pictget) %% L'angle (90 - 25.641) doit être connu de l'utilisateur, il vient de %% la construction de la colonne et ne change jamais /SortieVigreux pictget {90 25.641 sub} (Refrigerant) /Out spict /Tubes [] def withoutbouchon %% on place l'eprouvette centree en dessous (dcpict) de l'entree du %% refrigerant (/In pictget) en l'agrandissant d'un facteur 1.5 sur %% les ordonnees /In pictget [1 1.5] (Eprouvette) dcpict %% les legendes ont ete faites a partir du quadrillage + graduations %quadrillage %marks setTimes (eau tiède) 4.5 12.7 brtext (eau froide) 4.7 6.7 dctext /dotscale {.8 dup} def /A {6 3} def /A' {8.2 2} def [A A'] (-*) ligne (distillat) A ultext /B {-2 8.5} def /B' {-.5 8.5} def [B B'] (->) ligne (colonne Vigreux) B cltext /C {-3 0} def /C' {-2 0} def [C C'] (->) ligne (chauffe ballon) C cltext /D {-2 2} def /D' {-1 2} def [D D'] (->) ligne (ballon) D cltext /F {-2 14} def /F' {-.1 14} def [F F'] (->) ligne (thermomètre) F cltext /G {8 11} def /G' {6 9.7} def [G G'] (->) ligne (réfrigérant) G urtext