Fichier mariotte.jps — Modifié le 11 Mars 2006 à 10 h 56
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