Fichier distillation.jps — Modifié le 11 Mars 2006 à 10 h 56
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