Présentation de mariotte.jps

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