Présentation de chauffage_reflux.jps

uselabo
20 setxunit

-9 3  setxrange
-2 12 setyrange
1 setlinewidth

/aspectLiquides [{cyan}] def
/niveauLiquides [30] def

/Tubes [(RefrigerantBoules)] def

withbouchon

0 0 (ChauffeBallon) ccpict
0 0 (Ballon) bbpict
/FlecheEntree pictget /A defpoint
/FlecheSortie pictget /B defpoint

setTimes 
(eau froide ) A cltext
(eau tiède ) B cltext

/C' {-.5 7.5} def
/C {A pop 7.5} def
[C C'] (->) ligne
(réfrigérant à boules ) C cltext

/D' {-2 0} def
/D {-3 0} def
[D D'] (->) ligne
(chauffe ballon ) D cltext

/dotscale {.8 dup} def
/E' {-.2 .7} def
/E {-3 2} def
[E E'] (-*) ligne
(mélange réactionnel ) E ultext
(en ébulition ) E dltext