Présentation de mariotte.jps

/syracuse/bbgraf/albums/chimie_02/mariotte.jpg
uselabo 20 setxunit -4 12 setxrange -1 9 setyrange 1 setlinewidth pictpointsOff -3 5 (TubeU) /uc spict /ConnectOut pictget /C defpoint /uc pictget (RobinetTube) ccpict withbouchon /Tubes [(relax) (TubeU)] def C (Ballon) /trou1 spict /Tubes [(relax) (TubeU)] def %% on recupere le point uc pour mettre le robinet /uc pictget /A defpoint /ConnectOut pictget (Ballon) /trou1 spict %% on recupere le point uc pour mettre le robinet /uc pictget /B defpoint /Gazs [{bleu 45 Bulles}] def /niveauLiquides [100] def /aspectLiquides [{cyan}] def /Tubes [(relax) {[1 .5] (TubeDroit)}] def /ConnectOut pictget (Ballon) /trou1 spict 100 /Out pictget (Manometre) /Connect spict A (RobinetTube) ccpict B (RobinetTube) ccpict