Présentation de 2701.jps

/syracuse/bbgraf/tmp/2701.jpg
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 (Bicol) 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