Présentation de chauffage_reflux.jps

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