Présentation de 14705.jps

/syracuse/bbgraf/albums/chimie/14705.jpg
%% auteur : 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 (A) 4.5 12.7 brtext (B) 4.7 6.7 dctext /dotscale {.8 dup} def /A {6 3} def /A' {8.2 2} def [A A'] (-*) ligne (C) A ultext /B {-2 8.5} def /B' {-.5 8.5} def [B B'] (->) ligne (D) B cltext /C {-3 0} def /C' {-2 0} def [C C'] (->) ligne (E) C cltext /D {-2 2} def /D' {-1 2} def [D D'] (->) ligne (F) D cltext /F {-2 14} def /F' {-.1 14} def [F F'] (->) ligne (G) F cltext /G {8 11} def /G' {6 9.7} def [G G'] (->) ligne (H) G urtext