Présentation de piston_01.jps

/syracuse/var/syracuse/bbgraf/albums/divers/piston_01.png
-1 4 setxrange -.5 6 setyrange /fillstyle {jaune fill} def /xM 2 def /yM 4 def /M {xM yM} def /L1 2 def /l1 .7 def /L2 3 def /l2 1 def /intermasses 1 def /dt .3 def %% les centres des masses /I1 {M 0 intermasses l1 2 div add addv} def /I2 {M 0 l2 -2 div addv} def %% points d'attache ressort 1 /A1 {I2 L2 -2 div l2 -2 div addv dt 0 addv} def /A2 {A1 projx} def %% points d'attache ressort 2 /A4 {A3 projx} def /A3 {I2 L2 2 div l2 -2 div addv dt neg 0 addv} def %% points d'attache du piston /B1 {A1 A3 milieu} def /B2 {B1 projx} def %%[A1 A2 A3 A4 B1 B2] points axeOyarrow M point traceOy traceOx yM ytick 1.5 setlinewidth I2 L2 l2 cframe I1 L1 l1 cframe A1 A2 .25 18 (-) ressort A3 A4 .25 18 (-) ressort B2 B1 1 1 1.6 .6 .75 piston* setTimesItalic (M) M utext (m) I1 text setTimes (1) indice setTimesItalic (m) I2 text setTimes (2) indice setCourier (0) 0 yM ltext