Présentation de distillation.jps

/syracuse/texpng/jpv/guide_jps/labo/distillation.jpg
uselabo 20 setxunit autocrop -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