Présentation de 14705.jps

%% 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