Présentation de synt_007.jps

/syracuse/texpng/jpv/database/btsmai/stats/infer/synt_007.jpg
-10.5 10.5 setxrange -1.5 7.5 setyrange 25 setxunit /A1 {-2 3} def /A2 {2 7} def /B1 {-3 1} def /B2 {-10 -1} def /C1 {B1 O sympoint} def /C2 {B2 O sympoint} def /dx_boxit 5 def /dy_boxit 5 def /fillstyle {blanc fill} def [A1 A2 milieu O] ligne A1 A2 frame* [B1 B2 milieu O] ligne B1 B2 frame* [C1 C2 milieu O] ligne C1 C2 frame* [B1 pop B2 pop 10 nto] [B1 exch pop 9 {dup} repeat] fuz {dupp 0 B2 exch pop B1 exch pop sub addv 1 trait} papply [C1 pop C2 pop 10 nto] [C1 exch pop 9 {dup} repeat] fuz {dupp 0 C2 exch pop C1 exch pop sub addv 1 trait} papply setTimesRoman (Réservoir) A1 A2 milieu cctext circleit (Machine) O cctext (File d'entrée) B1 B2 milieu pop B1 exch pop (0 7) uctext (File de sortie) C1 C2 milieu pop C2 exch pop (0 7) uctext